1 files changed, 18 insertions, 0 deletions
diff --git a/3669/CH3/EX3.13/13.sce b/3669/CH3/EX3.13/13.sce
new file mode 100644
index 000000000..aedb0b938
--- /dev/null
+++ b/3669/CH3/EX3.13/13.sce
@@ -0,0 +1,18 @@
+
+//Variable declaration
+lamda=0.675;    //wavelength(angstrom)
+n=3;    //order of diffraction
+theta=5+(25/60);    //angle(degrees)
+
+//Calculation
+theta=theta*%pi/180;    //angle(radian)
+d=lamda/(2*sin(theta));   
+theta3=asin(3*lamda/(2*d));    //glancing angle(radian)
+theta3=theta3*180/%pi;    //glancing angle(degrees)
+theta_d=int(theta3);       
+theta_m=(theta3-theta_d)*60;
+
+//Result
+printf('glancing angle is %0.3f    degrees %0.3f  minutes \n',theta_d,int(theta_m))
+printf('glancing angle is %2d degrees %2d minutes ',theta_d,int(theta_m))
+printf('answer varies due to approximating off errors\n')
+\ No newline at end of file