3 files changed, 68 insertions, 70 deletions
diff --git a/1026/CH8/EX8.16/Example8_16.sce b/1026/CH8/EX8.16/Example8_16.sce
index 955ff3493..227d5ecda 100755
--- a/1026/CH8/EX8.16/Example8_16.sce
+++ b/1026/CH8/EX8.16/Example8_16.sce
@@ -1,29 +1,28 @@
-//chapter8,Example8_16,pg 209
-
-n=2
-
-grat=1/5000//transmission grating
-
-lam=5893*10^-8
-
-dtheta=(2.5*3.14)/(180*60)//change in angular displacement(in radian)
-
-//(a+b)=grat
-
-//dlam=((a+b)cos(theta)/n)dtheta
-
-cos(theta)=sqrt(1-(((n*lam)/grat)^2))
-
-dlam=(dtheta*grat*cos(theta))/n//difference in wavelength
-
-f=30//focal length
-
-dl=f*dtheta//linear separation
-
-printf("difference between two yellow lines (in cm)\n")
-
-disp(dlam)
-
-printf("\nlinear separation\n")
-
+//chapter8,Example8_16,pg 209
+
+n=2
+
+grat=1/5000//transmission grating
+
+lam=5893*10^-8
+
+dtheta=(2.5*3.14)/(180*60)//change in angular displacement(in radian)
+
+//(a+b)=grat
+
+//dlam=((a+b)cos(theta)/n)dtheta
+
+theta=acos(sqrt(1-(((n*lam)/grat)^2)))
+dlam=(dtheta*grat*cos(theta))/n//difference in wavelength
+
+f=30//focal length
+
+dl=f*dtheta//linear separation
+
+printf("difference between two yellow lines (in cm)\n")
+
+disp(dlam)
+
+printf("\nlinear separation\n")
+
 printf("dl=%.4f cm",dl)
 \ No newline at end of file
diff --git a/1026/CH8/EX8.17/Example8_17.sce b/1026/CH8/EX8.17/Example8_17.sce
index 99b6e0535..31025b009 100755
--- a/1026/CH8/EX8.17/Example8_17.sce
+++ b/1026/CH8/EX8.17/Example8_17.sce
@@ -1,23 +1,22 @@
-//chapter8,Example8_17,pg 210
-
-grat=1/6000
-
-f=30
-
-n=2
-
-lam1=5770*10^-8
-
-lam2=5460*10^-8
-
-dlam=lam1-lam2
-
-lam=lam2
-
-cos(theta)=sqrt(1-(((n*lam)/grat)^2))
-
-dl=((n*f)/(grat*cos(theta)))*dlam
-
-printf("linear separation of two spectral lines\n")
-
+//chapter8,Example8_17,pg 210
+
+grat=1/6000
+
+f=30
+
+n=2
+
+lam1=5770*10^-8
+
+lam2=5460*10^-8
+
+dlam=lam1-lam2
+
+lam=lam2
+
+theta=acos(sqrt(1-(((n*lam)/grat)^2)))
+dl=((n*f)/(grat*cos(theta)))*dlam
+
+printf("linear separation of two spectral lines\n")
+
 printf("dl=%.4f cm",dl)
 \ No newline at end of file
diff --git a/1026/CH8/EX8.4/Example8_4.sce b/1026/CH8/EX8.4/Example8_4.sce
index 1adc7876f..0415b7c32 100755
--- a/1026/CH8/EX8.4/Example8_4.sce
+++ b/1026/CH8/EX8.4/Example8_4.sce
@@ -1,21 +1,21 @@
-//chapter8,Example8_4,pg 182
-
-i=45*(%pi/180)
-
-u=1.33
-
-r=asin(sin(i)/u)
-
-r=r*(180/%pi)
-
-//for bright fringe 2*u*t*cos(r)=(2*n+1)(lam/2)
-
-//for minimum thickness n=0
-
-lam=5000*10^-8
-
-t=lam/(4*u*t*cos(r))
-
-printf("min. thickness of film\n")
-
+//chapter8,Example8_4,pg 182
+
+i=45*(%pi/180)
+
+u=1.33
+
+r=asin(sin(i)/u)
+
+r=r*(180/%pi)
+
+//for bright fringe 2*u*t*cos(r)=(2*n+1)(lam/2)
+
+//for minimum thickness n=0
+
+lam=5000*10^-8
+
+t=lam/(4*u*cos(r))
+
+printf("min. thickness of film\n")
+
 disp(t)
 \ No newline at end of file