summaryrefslogtreecommitdiff
path: root/2411/CH3/EX3.d.307/Ex3d_7.sce
diff options
context:
space:
mode:
Diffstat (limited to '2411/CH3/EX3.d.307/Ex3d_7.sce')
-rwxr-xr-x2411/CH3/EX3.d.307/Ex3d_7.sce11
1 files changed, 11 insertions, 0 deletions
diff --git a/2411/CH3/EX3.d.307/Ex3d_7.sce b/2411/CH3/EX3.d.307/Ex3d_7.sce
new file mode 100755
index 000000000..0957fad98
--- /dev/null
+++ b/2411/CH3/EX3.d.307/Ex3d_7.sce
@@ -0,0 +1,11 @@
+// Scilab Code Ex3d.7: Page-208 (2008)
+clc; clear;
+N = 5000; // Number of lines per cm ruled on grating, lines/cm
+lambda = 6e-005; // Wavelength of light, m
+a_plus_b = 1/N; // Grating element, m
+theta = 90; // Maximum angle of diffraction, degree
+n = a_plus_b*sind(theta)/lambda; // Order of diffraction
+printf("\nIn highest order spectrum obtainable with the given diffraction grating = %4.2f", n);
+
+// Result
+// In highest order spectrum obtainable with the given diffraction grating = 3.33 \ No newline at end of file