diff options
Diffstat (limited to '1958/CH11/EX11.1')
| -rwxr-xr-x | 1958/CH11/EX11.1/Chapter11_example1.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/1958/CH11/EX11.1/Chapter11_example1.sce b/1958/CH11/EX11.1/Chapter11_example1.sce new file mode 100755 index 000000000..21d680e09 --- /dev/null +++ b/1958/CH11/EX11.1/Chapter11_example1.sce @@ -0,0 +1,12 @@ +clc
+clear
+//Input data
+r1=1.538//Refractive index of the crown glass for violet
+r2=1.52//Refractive index of the crown glass for red
+
+//Calculations
+ip1=atand(r1)//Polarizing angle in degrees
+ip2=atand(r2)//Polarizing angle in degrees
+
+//Output
+printf('Polarizing angles for violet and red are %3.2f degrees and %3.2f degrees',ip1,ip2)
|