diff options
Diffstat (limited to '1655/CH7/EX7.2.1/Example_7_2_1.sce')
| -rwxr-xr-x | 1655/CH7/EX7.2.1/Example_7_2_1.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/1655/CH7/EX7.2.1/Example_7_2_1.sce b/1655/CH7/EX7.2.1/Example_7_2_1.sce new file mode 100755 index 000000000..7c4843e7b --- /dev/null +++ b/1655/CH7/EX7.2.1/Example_7_2_1.sce @@ -0,0 +1,12 @@ +// Example 7.2.1 page 7.11
+
+clc;
+clear;
+
+n1=3.4; //refractive index of optical source
+n=1.46; //refractive index of silica fiber
+
+r=((n1-n)/(n1+n))^2; //computing Frensel reflection
+L=-10*log10(1-r); //computing loss
+
+printf("\nFrensel reflection is %.3f.\nPower loss is %.2f dB.",r,L);
|