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")