summaryrefslogtreecommitdiff
path: root/605/CH3
diff options
context:
space:
mode:
Diffstat (limited to '605/CH3')
-rwxr-xr-x605/CH3/EX3.1/3_1.sce31
-rwxr-xr-x605/CH3/EX3.10/3_10.sce11
-rwxr-xr-x605/CH3/EX3.11/3_11.sce28
-rwxr-xr-x605/CH3/EX3.12/3_12.sce7
-rwxr-xr-x605/CH3/EX3.13/3_13.sce10
-rwxr-xr-x605/CH3/EX3.14/3_14.sce11
-rwxr-xr-x605/CH3/EX3.15/3_15.sce19
-rwxr-xr-x605/CH3/EX3.2/3_2.sce11
-rwxr-xr-x605/CH3/EX3.3/3_3.sce19
-rwxr-xr-x605/CH3/EX3.5/3_5.sce11
-rwxr-xr-x605/CH3/EX3.6/3_6.sce19
-rwxr-xr-x605/CH3/EX3.7/3_7.sce27
-rwxr-xr-x605/CH3/EX3.8/3_8.sce16
-rwxr-xr-x605/CH3/EX3.9/3_9.sce10
14 files changed, 230 insertions, 0 deletions
diff --git a/605/CH3/EX3.1/3_1.sce b/605/CH3/EX3.1/3_1.sce
new file mode 100755
index 000000000..6efad35b8
--- /dev/null
+++ b/605/CH3/EX3.1/3_1.sce
@@ -0,0 +1,31 @@
+//resistance of line (ohm/m)
+R=0.015
+//operating frequency(Hz)
+n=1.6*10^9
+//angular frequency
+w=2*%pi*n
+//inductance of line(H/m)
+L=0.002*10^(-6)
+//conductance of line(S/m)
+G=0.1*10^(-3)
+//capacitance of line(F/m)
+C=0.012*10^(-12)
+printf("\nR=0.015ohm/m\tn=1.6GHz\tL=0.002uH/m\tG=0.1mS/m\tC=0.012pF/m\n")
+//formulas and result
+printf("\nimpedance Z=R+iwL=")
+
+Y=complex(G,w*C) //admittance per unit length
+Z=complex(R,w*L) //impedance per unit length
+disp(Z)
+printf("ohm/m\nadmittance Y=G+iwC=")
+disp(Y)
+printf("S/m\nZo=square root(Z/Y)=")
+disp(sqrt(Z/Y))
+printf("ohm")
+
+
+
+
+
+
+
diff --git a/605/CH3/EX3.10/3_10.sce b/605/CH3/EX3.10/3_10.sce
new file mode 100755
index 000000000..631fe1a3b
--- /dev/null
+++ b/605/CH3/EX3.10/3_10.sce
@@ -0,0 +1,11 @@
+//data
+Zoc=-54.6*%i //ohm
+Zsc=103*%i //ohm
+d=1.5 //m
+Zo=sqrt(Zoc*Zsc)
+printf("\nZo=%.0f ohm",Zo)
+//y=1/d*atanh(sqrt(Zsc/Zoc))
+y=1/2/d*log(complex(1,1.8969)/complex(1,-1.8969))
+printf("\ny=")
+disp(y)
+printf("1/m\nnegligible real part") //real part negligible \ No newline at end of file
diff --git a/605/CH3/EX3.11/3_11.sce b/605/CH3/EX3.11/3_11.sce
new file mode 100755
index 000000000..b73875c9d
--- /dev/null
+++ b/605/CH3/EX3.11/3_11.sce
@@ -0,0 +1,28 @@
+//data
+W=2*%pi*26*10^6 //rad/s
+Vp=200*10^6 //m/S
+B=W/Vp
+Zo=50 //ohm
+Zs=50 //ohm
+Vs=100 //volt
+ZL=100+%i*50 //ohm
+l=10 //m
+//formulas and result
+printf("\nresult:-")
+printf("\nB=%f rad/m",B)
+Zin=Zo*(ZL+%i*Zo*tan(B*l))/(Zo+%i*ZL*tan(B*l))
+disp(Zin,"Zin=")
+VA=Vs/(Zs+Zin)*Zin
+disp(VA,"VA=")
+ZTh=Zo*complex(Zs,Zo*tan(B*l))/complex(Zo,Zs*tan(B*l))
+disp(ZTh,"ZTh=")
+Vin=50*exp(%i*(-8.168))
+VTh=2*Vin
+disp(VTh,"VTh=")
+VL=VTh/(ZTh+ZL)*ZL
+disp(VL,"VL=")
+F=(complex(19.21,3.52)-50)/(complex(19.21,3.52)+50)
+disp(F,"F=")
+Z=10
+VL=Vin*(exp(-%i*B*Z)+F*exp(%i*B*Z))
+disp(VL,"VL=")
diff --git a/605/CH3/EX3.12/3_12.sce b/605/CH3/EX3.12/3_12.sce
new file mode 100755
index 000000000..f87b740e5
--- /dev/null
+++ b/605/CH3/EX3.12/3_12.sce
@@ -0,0 +1,7 @@
+//data
+R=250 //ohm
+V250=60*sqrt(2)/11*exp(-%i*45/180*%pi) //volt
+Pd=(real(V250)^2+imag(V250)^2)/(2*R)
+printf("\nV250=")
+disp(V250)
+printf("\nPd=%f W",Pd) \ No newline at end of file
diff --git a/605/CH3/EX3.13/3_13.sce b/605/CH3/EX3.13/3_13.sce
new file mode 100755
index 000000000..f4b177645
--- /dev/null
+++ b/605/CH3/EX3.13/3_13.sce
@@ -0,0 +1,10 @@
+//data
+ZL=complex(73,-42.5)
+Zo=complex(50,.01)
+//formula and result
+printf("\nresult:-")
+F=(ZL-Zo)/(ZL+Zo)
+p=sqrt(real(F)^2+imag(F)^2)
+VSWR=(1+p)/(1-p)
+disp(F,"F=")
+printf("\nVSWR=%.4f",VSWR) \ No newline at end of file
diff --git a/605/CH3/EX3.14/3_14.sce b/605/CH3/EX3.14/3_14.sce
new file mode 100755
index 000000000..489344052
--- /dev/null
+++ b/605/CH3/EX3.14/3_14.sce
@@ -0,0 +1,11 @@
+//data
+q=2 //m
+B=%pi //rad/m
+d1=.4 //m
+Z2=1
+S=2.4
+//formula and result
+printf("\nresult:-")
+Z_L=complex(1,-S*tan(B*d1))/complex(S,-tan(B*d1))
+disp(Z_L,"Z_L=")
+disp(Z_L*100,"ZL=") \ No newline at end of file
diff --git a/605/CH3/EX3.15/3_15.sce b/605/CH3/EX3.15/3_15.sce
new file mode 100755
index 000000000..ea65843ed
--- /dev/null
+++ b/605/CH3/EX3.15/3_15.sce
@@ -0,0 +1,19 @@
+//data
+ZL=50+%i*100
+Zo=50
+Bl=%pi/2
+//formula and result
+printf("\nresult:-")
+Z_in=Zo*(%i*Zo)/(%i*ZL)
+F=(ZL-Zo)/(ZL+Zo)
+x=sqrt(real(F)^2+imag(F)^2)
+printf("\nx=%f",x)
+VSWR=(1+x)/(1-x)
+Z_L=ZL/Zo
+printf("\nZ_in=")
+disp(Z_in)
+printf("\nF=")
+disp(F)
+printf("\nVSWR=%.4f",VSWR)
+printf("\nZ_L=")
+disp(Z_L)
diff --git a/605/CH3/EX3.2/3_2.sce b/605/CH3/EX3.2/3_2.sce
new file mode 100755
index 000000000..669e9db75
--- /dev/null
+++ b/605/CH3/EX3.2/3_2.sce
@@ -0,0 +1,11 @@
+//data
+W=2*%pi*10^8 //rad/s
+Vp=2.5*10^8 //m/s
+Vin=75/(50+75)*3*complex(cos(0),sin(0)) //V
+Iin=3/(50+75)*complex(cos(0),sin(0)) //A
+//formula and result
+printf("\nresult:-")
+b=W/Vp
+printf("\nB=%.4frad/m",b)
+printf("\nV=1.8*cos(2*pi*10^8*t-0.8*pi*z)\ni=0.024*cos(2*pi*10^8*t-0.8*pi*z)")
+
diff --git a/605/CH3/EX3.3/3_3.sce b/605/CH3/EX3.3/3_3.sce
new file mode 100755
index 000000000..2d2a71c8e
--- /dev/null
+++ b/605/CH3/EX3.3/3_3.sce
@@ -0,0 +1,19 @@
+//data
+R=2 //ohm/m
+G=0.5*10^(-3) //S/m
+L=8*10^-9 //H/m
+C=0.23*10^-12 //F/m
+W=2*%pi*10^9 //Hz
+Y=15.29*10^-4*exp(%i*1.2377)
+Z=50.31*exp(%i*1.531)
+//equation and result
+printf("\nresult:-")
+Zo=sqrt(complex(R,W*L)/complex(G,W*C))
+y=sqrt(Z*Y)
+a=real(y)
+B=imag(y)
+disp(Zo,"Zo=sqrt(complex(R,W*L)/complex(G,W*C))=")
+
+disp(y,"y=sqrt(Z*Y)=")
+printf("\na=%.4fNp/m\nB=%.4frad/m",a,B)
+
diff --git a/605/CH3/EX3.5/3_5.sce b/605/CH3/EX3.5/3_5.sce
new file mode 100755
index 000000000..462d7032d
--- /dev/null
+++ b/605/CH3/EX3.5/3_5.sce
@@ -0,0 +1,11 @@
+//data
+lambda=1
+Zin=150
+ZL=300
+//formula and result
+Zo=sqrt(Zin*ZL)
+printf("\nresult:-")
+printf("\n(a)d=lambda/4=%.2f m",lambda/4)
+printf("\n(b)Zo=sqrt(Zin*ZL)=%.3f ohm",sqrt(Zin*ZL))
+printf("\n(c)FL=(ZL-Zo)/(ZL+Zo)=%.4f",(ZL-Zo)/(ZL+Zo))
+
diff --git a/605/CH3/EX3.6/3_6.sce b/605/CH3/EX3.6/3_6.sce
new file mode 100755
index 000000000..1b4eca845
--- /dev/null
+++ b/605/CH3/EX3.6/3_6.sce
@@ -0,0 +1,19 @@
+//data
+Zin=45 //ohm
+ZL=20 //ohm
+b=0.5/2 //cm
+Er=2.1
+L=200*10^-9 //H
+f=3*10^9 //Hz
+C=55.63*Er*10^-12 //F
+//formulas and result
+printf("\nresult:-")
+Zo=sqrt(Zin*ZL)
+printf("\nZo=%.0f ohm",Zo)
+k=30/sqrt(200*10^-9/(55.63*Er*10^-12))
+a=b/exp(k)
+printf("\na=%f cm",a)
+lambda=1/(f*sqrt(L*C))
+printf("\nlambda=%f m",lambda)
+d=lambda/4
+printf("\nd=%f m =%f cm",d,d*100) \ No newline at end of file
diff --git a/605/CH3/EX3.7/3_7.sce b/605/CH3/EX3.7/3_7.sce
new file mode 100755
index 000000000..40505625a
--- /dev/null
+++ b/605/CH3/EX3.7/3_7.sce
@@ -0,0 +1,27 @@
+//data
+Zo1=80
+ZL=50
+h=1.6 //mm
+Er=2.3
+Zo=sqrt(Zo1*ZL)
+A=1.4635
+B=6.1739
+qo=150
+// formulas and result
+printf("\nresult:-")
+W=h*(2/%pi*(6.1739-1-log(2*6.1739-1)+(2.3-1)/(2*2.3)*(log(6.1739-1)+0.39-0.61/2.3)))
+printf("\nW=%.4f mm",W)
+F=(1+12*h/W)^(-1/2)
+printf("\nF=%.6f",F)
+Ee=(2.3+1)/2+(2.3-1)/2*0.383216-(2.3-1)/4.6*0.005/sqrt(2.0656)
+printf("\nEe=%.1f",Ee)
+F=4*h*sqrt(Er-1)/qo*(0.5+(1+2*log10(1+W/h))^2)
+printf("\nF=%f",F)
+Ee=((sqrt(2.3)-sqrt(1.9))/(1+4*F^(-1.5))+sqrt(1.9))^2
+printf("\nEe(f)=%f",Ee)
+q=3*10^8/(2*10^9*sqrt(1.9))
+printf("\nq=%f m",q)
+length_of_line=q/4
+printf("\nlength of line=%.3f m",length_of_line)
+
+
diff --git a/605/CH3/EX3.8/3_8.sce b/605/CH3/EX3.8/3_8.sce
new file mode 100755
index 000000000..0abc2a799
--- /dev/null
+++ b/605/CH3/EX3.8/3_8.sce
@@ -0,0 +1,16 @@
+Zo=50
+C=100*10^(-12)
+a=1.15*10^(-3)
+//data print
+printf("\nZo=50 ohm C=100pF/m a=0.01 dB/m\n")
+//formula and result
+L=C*Zo^2
+R=a*sqrt(L/C)
+G=R*C/L
+vp=1/sqrt(L*C)
+printf("\nresult:-")
+printf("\n(a)R=a*sqrt(L/C)=%.3f ohm/m",a*sqrt(L/C))
+printf("\n(b)L=C*Zo^2=%.3e H/m",C*Zo^2)
+printf("\n(c)G=R*C/L=%.3e S/m",R*C/L)
+printf("\n(d)vp=1/sqrt(L*C)=%.1e m/s",1/sqrt(L*C))
+
diff --git a/605/CH3/EX3.9/3_9.sce b/605/CH3/EX3.9/3_9.sce
new file mode 100755
index 000000000..7e7eb5657
--- /dev/null
+++ b/605/CH3/EX3.9/3_9.sce
@@ -0,0 +1,10 @@
+//data
+Zin=complex(30,60) //ohm
+Zsc=%i*53.1 //ohm
+Zoc=-48.3*%i //ohm
+//formula and result\
+printf("\nresult:-")
+Zo=sqrt(Zsc*Zoc)
+printf("\nZo=%f ohm",Zo)
+ZL=Zoc*(Zsc-Zin)/(Zin-Zoc)
+disp(ZL,"ZL=") \ No newline at end of file
generated by cgit (git 2.34.1) at 2024-12-20 22:11:27 +0000