initial commit / add all books

8 files changed, 119 insertions, 0 deletions

diff --git a/605/CH4/EX4.10/4_10.sce b/605/CH4/EX4.10/4_10.sce
new file mode 100755
index 000000000..bbc7a8314
--- /dev/null
+++ b/605/CH4/EX4.10/4_10.sce
@@ -0,0 +1,16 @@
+

+Er=2.25

+ur=1

+W=10^9

+p=0.2

+uo=4*%pi*10^-7

+Eo=8.854*10^-12

+ko=W*sqrt(uo*Eo)

+k2=W*sqrt(uo*Eo*Er)

+n1=sqrt(uo/Eo)

+n2=sqrt(uo/Eo/Er)

+R=(n2-n1)/(n1+n2)

+T=2*n2/(n1+n2)

+VSWR=(1+p)/(1-p)

+Pav=3.84^2/(2*n2)

+printf("\nko=%.4f rad/m\nk2=%.4f rad/m\nn1=%.4f ohm\nn2=%.4f ohm\nR=%.2f\nT=%.2f \nVSWR=%.2f\nPav=%.4f W/m^2",ko,k2,n1,n2,R,T,VSWR,Pav)
\ No newline at end of file
diff --git a/605/CH4/EX4.11/4_11.sce b/605/CH4/EX4.11/4_11.sce
new file mode 100755
index 000000000..2f912edca
--- /dev/null
+++ b/605/CH4/EX4.11/4_11.sce
@@ -0,0 +1,10 @@
+

+for m=1:1:3

+    qo=2.5*10^-2

+    fc=3*10^8*m/(9*10^-2)

+    qc=2*4.5*10^-2/m

+    printf("\nm=%f\nfc=%.4e Hz\nlambdaC=%.2e m",m,fc,qc)

+    printf("\nTM0=%.4e Hz",fc)

+    q=qo/sqrt(1-(qo/qc)^2)

+    printf("\nlambda=%.4e m\n",q)

+end
\ No newline at end of file
diff --git a/605/CH4/EX4.12/4_12.sce b/605/CH4/EX4.12/4_12.sce
new file mode 100755
index 000000000..e7646b281
--- /dev/null
+++ b/605/CH4/EX4.12/4_12.sce
@@ -0,0 +1,31 @@
+

+a=0.0158

+b=0.0079

+f=15.8*10^9

+//TE10

+m=1

+n=0

+fc=3*10^8*sqrt((m/2/a)^2+(n/2/b)^2)

+printf("\n(a)\nfor TE10 \n\tfc=%.4e Hz",fc)

+Vp=3*10^8/sqrt(1-(fc/f)^2)

+//TE20

+m=2

+n=0

+fc=3*10^8*sqrt((m/2/a)^2+(n/2/b)^2)

+printf("\nfor TE20 \n\tfc=%.4e Hz",fc)

+//TE01

+m=0

+n=1

+fc=3*10^8*sqrt((m/2/a)^2+(n/2/b)^2)

+printf("\nfor TE01 \n\tfc=%.4e Hz",fc)

+//TE11

+m=1

+n=1

+fc=3*10^8*sqrt((m/2/a)^2+(n/2/b)^2)

+printf("\nfor TE11 \n\tfc=%.4e Hz",fc)

+printf("\n(c)\nVp=%4e m/s",Vp)

+

+

+

+

+

diff --git a/605/CH4/EX4.3/4_3.sce b/605/CH4/EX4.3/4_3.sce
new file mode 100755
index 000000000..feb37e837
--- /dev/null
+++ b/605/CH4/EX4.3/4_3.sce
@@ -0,0 +1,5 @@
+Eo=8.854*10^-12

+uo=4*%pi*10^-7

+

+W=2/sqrt(uo*Eo)

+printf("\nW=%.0e rad/s",W)
\ No newline at end of file
diff --git a/605/CH4/EX4.4/4_4.sce b/605/CH4/EX4.4/4_4.sce
new file mode 100755
index 000000000..1263d5e7d
--- /dev/null
+++ b/605/CH4/EX4.4/4_4.sce
@@ -0,0 +1,4 @@
+Q=[0:0.01:2*%pi]

+q=[0:0.01:%pi]

+k=integrate('60*%pi/sin(Q)*cos(%pi/2*cos(Q))^2','Q',0,%pi/2)

+printf("\nk=%.2f W",4*k*%pi)
\ No newline at end of file
diff --git a/605/CH4/EX4.5/4_5.sce b/605/CH4/EX4.5/4_5.sce
new file mode 100755
index 000000000..71cf4c00d
--- /dev/null
+++ b/605/CH4/EX4.5/4_5.sce
@@ -0,0 +1,9 @@
+B=2*%pi

+C=3*10^8

+lambda=2*%pi/B

+f=C/lambda

+W=2*%pi*f

+uo=4*%pi*10^-7

+k=2*%pi

+n=W*uo/k

+printf("\n(a)lambda=%.0f m\n(b)f=%.0e Hz\n(c)n=%.4f ohm",lambda,f,n)
\ No newline at end of file
diff --git a/605/CH4/EX4.6/4_6.sce b/605/CH4/EX4.6/4_6.sce
new file mode 100755
index 000000000..3e731f84f
--- /dev/null
+++ b/605/CH4/EX4.6/4_6.sce
@@ -0,0 +1,12 @@
+uo=1.2567*10^-6

+f=10^4

+W=2*%pi*f

+a=4

+k=sqrt(W*uo*a/2)+sqrt(W*uo*a/2)*%i

+B=real(k)

+a=imag(k)

+lambda=2*%pi/B

+Vp=W/B

+delta=1/a

+disp(k,"k=")

+printf("\nlambda=%f m\nVp=%.4e m/s\ndelta=%.4f m",lambda,Vp,delta)
\ No newline at end of file
diff --git a/605/CH4/EX4.7/4_7.sce b/605/CH4/EX4.7/4_7.sce
new file mode 100755
index 000000000..c4b1189fc
--- /dev/null
+++ b/605/CH4/EX4.7/4_7.sce
@@ -0,0 +1,32 @@
+

+ky=6

+kz=8

+

+kr=sqrt(ky^2+kz^2)

+printf("\nkr=%.0f m^-1",kr)

+//(a)

+O=180/%pi*asin(ky/kr)

+theta=(180-O)*%pi/180

+Vr=3*10^8

+printf("\n(a)\nO=%.2f degree",O)

+//(b)

+lr=2*%pi/kr

+ly=2*%pi/ky

+lz=2*%pi/kz

+printf("\n(b)\nlr=%.4f m\nly=%.4f m\nlz=%.4f m",lr,ly,lz)

+//(c)

+W=Vr*kr

+f=W/lr

+Vpy=W/ky

+Vpz=W/kz

+printf("\n(c)\nW=%.0e rad/s\nf=%.2e Hz\nVpy=%.1e m/s\nVpz=%.2e m/s",W,f,Vpy,Vpz)

+Ver=3*10^8

+Vey=Ver*sin(theta)

+Vez=Ver*cos(theta)

+printf("\n(d)\nVey=%.1e m/s\nVez=%.1e m/s",Vey,Vez)

+

+

+

+

+

+