diff options
Diffstat (limited to '2825/CH14/EX14.16/Ex14_16.sce')
| -rwxr-xr-x | 2825/CH14/EX14.16/Ex14_16.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/2825/CH14/EX14.16/Ex14_16.sce b/2825/CH14/EX14.16/Ex14_16.sce new file mode 100755 index 000000000..0ef0e9024 --- /dev/null +++ b/2825/CH14/EX14.16/Ex14_16.sce @@ -0,0 +1,11 @@ +//Ex14_16 Pg-701
+clc
+
+n1=1.46 //core refracrive index
+r=4.5*10^(-6) //radius of the core
+del=0.25/100 //fractional difference of refractive indices
+Vc=2.405 //normalzed frequency
+
+disp("We have, cut-off wavelength expression")
+lamda=(2*%pi*r*n1*sqrt(2*del))/Vc
+printf(" = %.3f um",lamda*1e6)
|