1 files changed, 15 insertions, 0 deletions
diff --git a/1730/CH2/EX2.36/Exa2_36.sce b/1730/CH2/EX2.36/Exa2_36.sce
new file mode 100755
index 000000000..36c8b477b
--- /dev/null
+++ b/1730/CH2/EX2.36/Exa2_36.sce
@@ -0,0 +1,15 @@
+//Exa2.36
+clc;
+clear;
+close;
+//given data
+Hc_0=8*10^4;//in A/m
+Tc=7.2;//in K
+T=4.5;//in K
+d=1;//in mm
+r=d/2;//in mm
+r=r*10^-3;//in m
+Hc=Hc_0*[1-(T/Tc)^2]';
+disp("The critical field at T=4.5 K is : "+string(Hc)+" A/m");
+Ic=2*%pi*r*Hc;
+disp("Critical current is : "+string(Ic)+" A");
+\ No newline at end of file