initial commit / add all books

6 files changed, 82 insertions, 0 deletions

diff --git a/42/CH12/EX12.1/sadiku_12_1.sce b/42/CH12/EX12.1/sadiku_12_1.sce
new file mode 100755
index 000000000..d6a6943b1
--- /dev/null
+++ b/42/CH12/EX12.1/sadiku_12_1.sce
@@ -0,0 +1,30 @@
+clear;

+clc;

+a=2.5*10^-2, b=1*10^-2,c=0, Ur=1,Er=4,C=3*10^8;

+fc=0,m=0,n=0;

+while(fc*10^-9<15.1)

+fc=(C/(4*a))*sqrt(m^2 + (a*n/b)^2);

+if ((fc*10^-9) < 15.1) then

+n=n+1;

+else disp(n-1,'Max value of n is ='); end

+end 

+fc=0,m=0,n=0;

+while(fc*10^-9<15.1)

+fc=(C/(4*a))*sqrt(m^2 + (a*n/b)^2);

+if ((fc*10^-9) < 15.1) then

+m=m+1;

+else disp(m-1,'Max value of m is ='); end

+end 

+function[p]= modes(m,n);

+p=(C/(4*a))*sqrt(m^2 + (a*n/b)^2);

+if ((p*10^-9) < 15.1) then

+disp([m n],'Transmission mode is possible'); else p=0;end

+endfunction

+for i=1:1:5, for j=1:1:2,modes(i,j);end;

+end

+    

+

+

+

+

+

diff --git a/42/CH12/EX12.3/sadiku_12_3.sce b/42/CH12/EX12.3/sadiku_12_3.sce
new file mode 100755
index 000000000..1f8146b2e
--- /dev/null
+++ b/42/CH12/EX12.3/sadiku_12_3.sce
@@ -0,0 +1,13 @@
+clear;

+clc;

+format('v',7);

+a=1.5*10^-2,b=.8*10^-2,c=0,Uo=4*%pi*10^-7,Ur=1,Eo=10^-9/(36*%pi),Er=4,C=3*10^8,w=%pi*10^11,m=1,n=3;

+u=C/2;

+f=w/(2*%pi);

+fc=u*((m*m)/(a*a) + (n*n)/(b*b) )^.5/2;

+disp(fc*10^-9,'Cutoff frequency = ');

+B=w*sqrt(Uo*Ur*Eo*Er)*sqrt(1-(fc/f)^2);

+disp(B,'Phase constant = ');

+disp(%i*B,'Propagation constant = ');

+n=377/sqrt(Er)*sqrt(1-(fc/f)^2);

+disp(n,'Intrinsic wave impedence = ');
\ No newline at end of file
diff --git a/42/CH12/EX12.4/sadiku_12_4.sce b/42/CH12/EX12.4/sadiku_12_4.sce
new file mode 100755
index 000000000..8640072c1
--- /dev/null
+++ b/42/CH12/EX12.4/sadiku_12_4.sce
@@ -0,0 +1,13 @@
+clear;

+clc;

+a=8.636*10^-2,b=4.318*10^-2,f=4*10^9;

+u=3*10^8;

+fc=u/(2*a);

+disp(fc*10^-9,'Cut off frquency = ');

+if(f>fc) then disp('As f>fc so TE10 mode will propagate')

+else disp('It will not propagate') 

+end

+Up=u/sqrt(1-(fc/f)^2);

+disp(Up*10^-6,'Phase velocity in Mm/sec = ');

+Ug=u*u/Up;

+disp(Ug*10^-6,'Group velocity in Mm/sec = ');
\ No newline at end of file
diff --git a/42/CH12/EX12.5/sadiku_12_5.sce b/42/CH12/EX12.5/sadiku_12_5.sce
new file mode 100755
index 000000000..9d487e2a1
--- /dev/null
+++ b/42/CH12/EX12.5/sadiku_12_5.sce
@@ -0,0 +1,7 @@
+clear;

+clc;

+f=10*10^9,a=4*10^-2,b=2*10^-2,u=3*10^8,Pavg=2*10^-3;

+fc=u/(2*a);

+n=377/sqrt(1-(fc/f)^2);

+E=sqrt(4*n*Pavg/(a*b));

+disp(E,'Peak value of Electric field = ');
\ No newline at end of file
diff --git a/42/CH12/EX12.6/sadiku_12_6.sce b/42/CH12/EX12.6/sadiku_12_6.sce
new file mode 100755
index 000000000..ff01358cf
--- /dev/null
+++ b/42/CH12/EX12.6/sadiku_12_6.sce
@@ -0,0 +1,12 @@
+clear;

+clc;

+cc=5.8*10^7, f=4.8*10^9,c=10^-17,Uo=4*%pi*10^-7,Eo=10^-9/(36*%pi),Er=2.55,z=60*10^-2,l=4.2*10^-2,b=2.6*10^-2,P=1.2*10^3;

+n=377/sqrt(Er);

+u=3*10^8 /sqrt(Er);

+fc=u/(2*l);

+ad=c*n/(2*sqrt(1-(fc/f^2)));

+Rs=sqrt(%pi*f*Uo/cc);

+ac=2*Rs*(.5+(b/l)*(fc/f)^2)/(b*n*sqrt(1-(fc/f)^2));

+a=ac;

+Pd=P*(%e^(2*a*z) -1);

+disp(Pd,'Power dissipiated = ');
\ No newline at end of file
diff --git a/42/CH12/EX12.8/sadiku_12_8.sce b/42/CH12/EX12.8/sadiku_12_8.sce
new file mode 100755
index 000000000..462d63fda
--- /dev/null
+++ b/42/CH12/EX12.8/sadiku_12_8.sce
@@ -0,0 +1,7 @@
+clear;

+clc;

+a=5*10^-2,b=4*10^-2,c=10*10^-2,C=5.8*10^7,Uo=4*%pi*10^-7;

+f101=3.335*10^9;

+d=sqrt(1/(%pi*f101*Uo*C));

+Q=(a*a+c*c)*a*b*c/(d*(2*b*(a^3 + c^3)+a*c*(a*a+c*c)));

+disp(Q,'Quality factor of TE101 = ');
\ No newline at end of file