summaryrefslogtreecommitdiff
path: root/3745/CH1/EX1.24/Ex1_24.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3745/CH1/EX1.24/Ex1_24.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3745/CH1/EX1.24/Ex1_24.sce')
-rw-r--r--3745/CH1/EX1.24/Ex1_24.sce38
1 files changed, 38 insertions, 0 deletions
diff --git a/3745/CH1/EX1.24/Ex1_24.sce b/3745/CH1/EX1.24/Ex1_24.sce
new file mode 100644
index 000000000..42662fa68
--- /dev/null
+++ b/3745/CH1/EX1.24/Ex1_24.sce
@@ -0,0 +1,38 @@
+// Ex 24 Page 366
+
+clc;clear;close;
+// Given
+b=3;//cm
+a=4.5;//cm
+f=9*10**9;//Hz
+v=3*10**10;//cm/s
+lamda=v/f;//cm
+
+printf("\n For TE10 mode:")
+m=1;// for TE10 mode
+lamda_c = 2*a/m;//cm
+rho=sqrt(1-(lamda/lamda_c)**2)
+lamda_g=lamda/rho;//cm
+vg=rho*v;//cm/s
+vp=v/rho;//cm/s
+ZTE=120*%pi/rho;//ohm
+
+printf("\n cutoff wavelength = %.f cm",lamda_c)
+printf("\n guide wavelength = %.2f cm",lamda_g)
+printf("\n Group velocity = %.1e m/s",vg/100)
+printf("\n Phase velocity = %.1e m/s",vp/100)
+printf("\n Characteristic wave impedence = %.f ohm",ZTE)
+
+printf("\n\n For TM11 mode:")
+m=1;n=1// for TE10 mode
+lamda_c = 2/sqrt((m/a)**2+(n/b)**2);//cm
+rho=sqrt(1-(lamda/lamda_c)**2)
+lamda_g=lamda/rho;//cm
+vg=rho*v;//cm/s
+vp=v/rho;//cm/s
+ZTM=120*%pi*rho;//ohm
+printf("\n cutoff wavelength = %.f cm",lamda_c)
+printf("\n guide wavelength = %.2f cm",lamda_g)
+printf("\n Group velocity = %.1e m/s",vg/100)
+printf("\n Phase velocity = %.1e m/s",vp/100)
+printf("\n Characteristic wave impedence = %.f ohm",ZTM)