summaryrefslogtreecommitdiff
path: root/1538/CH22/EX22.9
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1538/CH22/EX22.9
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1538/CH22/EX22.9')
-rwxr-xr-x1538/CH22/EX22.9/Ex22_9.sce22
1 files changed, 22 insertions, 0 deletions
diff --git a/1538/CH22/EX22.9/Ex22_9.sce b/1538/CH22/EX22.9/Ex22_9.sce
new file mode 100755
index 000000000..788470d2f
--- /dev/null
+++ b/1538/CH22/EX22.9/Ex22_9.sce
@@ -0,0 +1,22 @@
+//example-22.9
+//page no-673
+//given
+//magnetic field at 0K temp
+H0=65*10^3 //A/m
+//critical temp
+Tc=7.18 //K
+//diameter of wire
+d=1*10^-3 //m
+//radius of wire
+r=d/2 //m
+//area of cross section
+A=(%pi)*r^2 //m^2
+//to find the current density at 4.2 K
+//since it is given that Hc is parabolicaly dependent on T, so
+T=4.2 //K
+Hc=H0*(1-T^2/Tc^2) //A/m
+//critical current
+Ic=2*(%pi)*r*Hc //A
+//critical current density Jc
+Jc=Ic/A //A/m^2
+printf ("the critical current density of lead is %e A/m^2",Jc)