diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /2780/CH13/EX13.2 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '2780/CH13/EX13.2')
| -rwxr-xr-x | 2780/CH13/EX13.2/Ex13_2.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/2780/CH13/EX13.2/Ex13_2.sce b/2780/CH13/EX13.2/Ex13_2.sce new file mode 100755 index 000000000..2e551cd99 --- /dev/null +++ b/2780/CH13/EX13.2/Ex13_2.sce @@ -0,0 +1,11 @@ +clc
+//to calculate temperature
+Tc=7.18 //critical temperature in K
+Bc=4.5*10^3 //critical field in A/m
+Bo=6.5*10^3 //critical magnetic field in A/m
+T=Tc*sqrt(1-(Bc/Bo))
+disp("temperature is T="+string(T)+"K")
+//to calculate critical current density at that temperature
+r=1*10^-3 //diameter of the wire in mm
+TJc=(Bc*2*%pi*r)/(%pi*r^2)
+disp("the critical current density at that temperature is TJc="+string(TJc)+"A/m^2")
|