diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /374/CH3/EX3.4/34.sci | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '374/CH3/EX3.4/34.sci')
| -rw-r--r-- | 374/CH3/EX3.4/34.sci | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/374/CH3/EX3.4/34.sci b/374/CH3/EX3.4/34.sci new file mode 100644 index 000000000..1852ad81c --- /dev/null +++ b/374/CH3/EX3.4/34.sci @@ -0,0 +1,16 @@ +//chapter 3 example 4//
+clc
+clear
+//core radius of monomode fibre=a,core refractive index=n1,refractive index difference between core and cladding=d,operating wavelength=l,critical radius of curvature=Rc,cutoff wavelength=Lc//
+a=4*(10^-6);//in mts//
+n1=1.500;
+d=0.003;
+l=1.55*(10^-6);//in mts//
+Lc=(((2*%pi*a*n1)*(sqrt(2*d)))/2.405)*(10^6);//cutoff wavelength//
+printf("\n cutoff wavelength=%f*(10^-6)m.\n",Lc);
+lc1=Lc*(10^-6);
+h=(2.748-(0.996*(l/lc1)));
+k=h^-3;
+v=(20*l)/(d^1.5);
+Rc=k*v;
+printf("\n critical radius=%f .\n",k);
\ No newline at end of file |