initial commit / add all books

1 files changed, 26 insertions, 0 deletions

diff --git a/25/CH4/EX4.1/4_1.sce b/25/CH4/EX4.1/4_1.sce
new file mode 100755
index 000000000..2552cc333
--- /dev/null
+++ b/25/CH4/EX4.1/4_1.sce
@@ -0,0 +1,26 @@
+// example:-4.1,page no.-148.

+// program to find the cut off frequency fo the first four propagating modes.

+a=0.02286;b=0.01016;f=10*10^9;k=209.44;sigma=5.8*10^7;mue=4*%pi*10^-7;

+c=3*10^8;

+m=0;n=1;

+fc=(c/(%pi*2))*sqrt(((%pi*m)/a)^2+((%pi*n)/b)^2);

+fc=fc/(10^9);

+disp(fc,'cut-off frequency for TE01 mode in GHZ=')

+m=1;n=0;

+fc=(c/(%pi*2))*sqrt(((%pi*m)/a)^2+((%pi*n)/b)^2);

+fc=fc/(10^9);

+disp(fc,'cut-off frequency for TE10 mode in GHZ=')

+m=2;n=0;

+fc=(c/(%pi*2))*sqrt(((%pi*m)/a)^2+((%pi*n)/b)^2);

+fc=fc/(10^9);

+disp(fc,'cut-off frequency for TE20 mode in GHZ=')

+m=1;n=1;

+fc=(c/(%pi*2))*sqrt(((%pi*m)/a)^2+((%pi*n)/b)^2);

+fc=fc/(10^9);

+disp(fc,'cut-off frequency for TE11 mode in GHZ=')

+B=sqrt(k^2-(%pi/a)^2)  // for TE10 mode

+Rs=sqrt(((2*%pi*f)*mue)/(2*sigma));   // surface resistance.

+disp(Rs,'surface resistance in ohm=')

+ac=(Rs/(a^3*b*B*k*377))*((2*b*%pi^2)+(a^3*k^2))  //attenuation constant.

+ac=-20*(-ac)*log10(%e);

+disp(ac,'attenuation constant in dB/m=')
\ No newline at end of file