blob: eb51779a1a2c20dcee17563bec2fc9ca74c5b871 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
//Fiber-optics communication technology, by Djafer K. Mynbaev and Lowell L. Scheiner
//Example 3.1.1
//windows 7
//Scilab version-6.0.0
clc;
clear;
//given
//case 1
n1=1.48;//refractive index of the core
n2=1.46;//refractive index of the cladding
//case 2
n3=1.495;//refractive index of the core
n4=1.402;//refractive index of the cladding
//case 1
b=n2/n1;
thetac=asind(b);
mprintf("\n The critical incident angle for case 1 is=%.2f degrees",thetac);
//case 2
g=n4/n3;
mprintf("\n The ratio=%.2f",g);
thetac2=asind(g);
mprintf("\n The critical incident angle for case 2 is=%.2f degrees",thetac2);
|
