1 files changed, 10 insertions, 0 deletions
diff --git a/1730/CH2/EX2.34/Exa2_34.sce b/1730/CH2/EX2.34/Exa2_34.sce
new file mode 100755
index 000000000..d6d5d889e
--- /dev/null
+++ b/1730/CH2/EX2.34/Exa2_34.sce
@@ -0,0 +1,10 @@
+//Exa2.34
+clc;
+clear;
+close;
+//given data
+Hc_0=8*10^5;//in A/m
+Tc=7.26;//in K
+T=4;//in K
+Hc_T=Hc_0*[1-(T/Tc)^2]';
+disp("The critical value of magnetic field at T=4 K is : "+string(Hc_T)+" A/m");
+\ No newline at end of file