diff options
Diffstat (limited to '2411/CH8/EX8.5/Ex8_5.sce')
| -rwxr-xr-x | 2411/CH8/EX8.5/Ex8_5.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/2411/CH8/EX8.5/Ex8_5.sce b/2411/CH8/EX8.5/Ex8_5.sce new file mode 100755 index 000000000..80d3cdccf --- /dev/null +++ b/2411/CH8/EX8.5/Ex8_5.sce @@ -0,0 +1,13 @@ +// Scilab Code Ex8.5: Page-398 (2008) +clc; clear; +n1 = 1.51; // Refractive index of the core material +n2 = 1.47; // Refractive index of the cladding +NA = sqrt(n1^2-n2^2); // Numerical aperture of the optical fibre +n0 = 1; // Refractive index of air +theta_a = asin(NA/n0); // Acceptance angle of the optical fibre, rad +printf("\nThe numerical aperture of the optical fibre = %6.4f", NA); +printf("\nThe acceptance angle of the optical fibre = %4.2f degrees", theta_a*180/3.14); + +// Result +// The numerical aperture of the optical fibre = 0.3453 +// The acceptance angle of the optical fibre = 20.21 degrees |