summaryrefslogtreecommitdiff
path: root/25/CH10/EX10.3/10_3.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /25/CH10/EX10.3/10_3.sce
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 '25/CH10/EX10.3/10_3.sce')
-rwxr-xr-x25/CH10/EX10.3/10_3.sce14
1 files changed, 14 insertions, 0 deletions
diff --git a/25/CH10/EX10.3/10_3.sce b/25/CH10/EX10.3/10_3.sce
new file mode 100755
index 000000000..7cea20cde
--- /dev/null
+++ b/25/CH10/EX10.3/10_3.sce
@@ -0,0 +1,14 @@
+//example:-10.3.page no.-560.
+// program to design a resonance isolator using the H-plane ferrite slab geometry in x-band.
+f=10*10^9;delta_sbys=0.01;forpims=1700;deltaH=200;
+revatt=30;ko=(2*%pi*f)/(3*10^8);
+Ho=f/(2.8*10^9);
+// for x-band waveguide, a=2.286 cm.
+a=2.286;
+kc=(%pi*100)/a;
+betao=sqrt(ko^2-kc^2);
+x=(1/%pi)*atan(kc/betao); // x=c/a.
+L=revatt/2;
+disp(L,'the slab length required for 30db total reverse attenuation in cm = ')
+disp(kc,'cut-off wave number in m-1 = ')
+disp(betao,'propagation constant = ') \ No newline at end of file