summaryrefslogtreecommitdiff
path: root/728/CH4/EX4.8
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /728/CH4/EX4.8
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '728/CH4/EX4.8')
-rwxr-xr-x728/CH4/EX4.8/Ex4_8.sce17
-rwxr-xr-x728/CH4/EX4.8/Ex4_8.txt17
-rwxr-xr-x728/CH4/EX4.8/Ex4_8_ans.txt15
3 files changed, 49 insertions, 0 deletions
diff --git a/728/CH4/EX4.8/Ex4_8.sce b/728/CH4/EX4.8/Ex4_8.sce
new file mode 100755
index 000000000..c831d77c3
--- /dev/null
+++ b/728/CH4/EX4.8/Ex4_8.sce
@@ -0,0 +1,17 @@
+//Caption:Calculate the cutoff wavelength, guide wavelength, group & phase velocities
+//Exa:4.8
+clc;
+clear;
+close;
+a=10;//in cm
+c=3*10^10;//in cm/s
+wl_c=2*a;//in cm
+f=2.5*10^9;//in Hz
+wl_o=c/f;
+wl_g=wl_o/(sqrt(1-(wl_o/wl_c)^2));//in cm
+V_p=c/(sqrt(1-(wl_o/wl_c)^2));
+V_g=c^2/V_p;
+disp(wl_c,'Cut-off wavelength (in cm) =');
+disp(wl_g,'Guide wavelength (in cm) =');
+disp(V_p,'Phase velocity (in cm/s) =');
+disp(V_g,'Group velocity (in cm/s) ='); \ No newline at end of file
diff --git a/728/CH4/EX4.8/Ex4_8.txt b/728/CH4/EX4.8/Ex4_8.txt
new file mode 100755
index 000000000..84ac1eeac
--- /dev/null
+++ b/728/CH4/EX4.8/Ex4_8.txt
@@ -0,0 +1,17 @@
+//Caption:Calculate the cutoff wavelength, guide wavelength, group & phase velocities
+//Exa:4.8
+clc;
+clear;
+close;
+a=10;//in cm
+c=3*10^10;//in cm/s
+wl_c=2*a;//in cm
+f=2.5*10^9;//in Hz
+wl_o=c/f;
+wl_g=wl_o/(sqrt(1-(wl_o/wl_c)^2));//in cm
+V_p=c/(sqrt(1-(wl_o/wl_c)^2));
+V_g=c^2/V_p;
+disp(wl_c,'Cut-off wavelength (in cm) =');
+disp(wl_g,'Guide wavelength (in cm) =');
+disp(V_p,'Phase velocity (in cm/s) =');
+disp(V_g,'Group velocity (in cm/s) =');
diff --git a/728/CH4/EX4.8/Ex4_8_ans.txt b/728/CH4/EX4.8/Ex4_8_ans.txt
new file mode 100755
index 000000000..02d1dd212
--- /dev/null
+++ b/728/CH4/EX4.8/Ex4_8_ans.txt
@@ -0,0 +1,15 @@
+ Cut-off wavelength (in cm) =
+
+ 20.
+
+ Guide wavelength (in cm) =
+
+ 15.
+
+ Phase velocity (in cm/s) =
+
+ 3.750D+10
+
+ Group velocity (in cm/s) =
+
+ 2.400D+10