diff options
Diffstat (limited to '3651/CH6/EX6.20/20.sce')
| -rw-r--r-- | 3651/CH6/EX6.20/20.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/3651/CH6/EX6.20/20.sce b/3651/CH6/EX6.20/20.sce new file mode 100644 index 000000000..44470f0e6 --- /dev/null +++ b/3651/CH6/EX6.20/20.sce @@ -0,0 +1,13 @@ +
+//Variable declaration
+lamda_L1=39.6*10**-9
+lamda_L2=173*10**-9
+T1=7.1
+T2=3
+
+//Calculations
+x=(lamda_L1/lamda_L2)**2
+Tc4=(T1**4)-((T2**4)*x)/(1-x)
+Tc=(Tc4)**(1/4)
+printf('Tc = %0.3f K \n',(Tc))
+printf('lamda0= %0.3f nm \n',((sqrt(1-(T2/Tc)**4)*lamda_L1)*10**9))
\ No newline at end of file |