diff options
Diffstat (limited to '671')
| -rwxr-xr-x | 671/CH4/EX4.33/4_33.sce | 34 | ||||
| -rwxr-xr-x | 671/CH4/EX4.47/4_47.sce | 37 | ||||
| -rwxr-xr-x | 671/CH5/EX5.11/5_11.sce | 28 | ||||
| -rwxr-xr-x | 671/CH5/EX5.13/5_13.sce | 30 | ||||
| -rwxr-xr-x | 671/CH7/EX7.10/7_10.sce | 30 | ||||
| -rwxr-xr-x | 671/CH7/EX7.15/7_15.sce | 47 | ||||
| -rwxr-xr-x | 671/CH7/EX7.7/7_7.sce | 62 |
7 files changed, 136 insertions, 132 deletions
diff --git a/671/CH4/EX4.33/4_33.sce b/671/CH4/EX4.33/4_33.sce index e2bfdd4ce..30022f8d5 100755 --- a/671/CH4/EX4.33/4_33.sce +++ b/671/CH4/EX4.33/4_33.sce @@ -1,17 +1,17 @@ -function [x,y]=polar_to_cart(r,theta)
- theta=theta/180*%pi
- x=r*cos(theta)
- y=r*sin(theta)
-endfunction
-
-[Ir,Ic]=polar_to_cart(3,30)
-I=complex(Ir,Ic)
-Zc=-5*%i
-Zrl=10+5*%i
-
-Ic=Zrl/(Zc+Zrl)*I
-Vth=Ic*Zc
-Zth=parallel(Zc,Zrl)
-In=Vth/Zth
-
-disp(Rth,In,Vth)
\ No newline at end of file +function [x,y]=polar_to_cart(r,theta) + theta=theta/180*%pi + x=r*cos(theta) + y=r*sin(theta) +endfunction + +[Ir,Ic]=polar_to_cart(3,30) +I=complex(Ir,Ic) +Zc=-5*%i +Zrl=10+5*%i + +Ic=Zrl/(Zc+Zrl)*I +Vth=Ic*Zc +Zth=(Zc*Zrl)/(Zc+Zrl); +In=Vth/Zth + +disp(Zth,In,Vth)
\ No newline at end of file diff --git a/671/CH4/EX4.47/4_47.sce b/671/CH4/EX4.47/4_47.sce index b765ddb30..61d56e636 100755 --- a/671/CH4/EX4.47/4_47.sce +++ b/671/CH4/EX4.47/4_47.sce @@ -1,18 +1,21 @@ -V=10*%i
-w=1000
-R=2
-L=2E-3
-C=500E-6
-Xl=w*L*%i
-Xc=1/(w*C*%i)
-
-Zeq=Xl+Xc+parallel(R,Xl)
-disp(Zeq)
-
-I=V/Z
-Ir=I*Xl/(R+Xl)
-Il2=I-Ir
-Vl=I*Xl
-Vc=I*Xc
-
+function a = parallel(b,c) +a = b*c/(b+c) +endfunction +V=10*%i +w=1000 +R=2 +L=2E-3 +C=500E-6 +Xl=w*L*%i +Xc=1/(w*C*%i) + +Zeq=Xl+Xc+parallel(R,Xl) +disp(Zeq) + +I=V/Zeq +Ir=I*Xl/(R+Xl) +Il2=I-Ir +Vl=I*Xl +Vc=I*Xc + disp(I,Ir,Il2,Vl,Vc)
\ No newline at end of file diff --git a/671/CH5/EX5.11/5_11.sce b/671/CH5/EX5.11/5_11.sce index 2092a404f..9fc5a8281 100755 --- a/671/CH5/EX5.11/5_11.sce +++ b/671/CH5/EX5.11/5_11.sce @@ -1,15 +1,15 @@ -w=1E6
-wb=1000
-V=0.05
-I=5E-3
-
-R=V/I
-Q0=w0/wb
-L=R*Q0/w0
-C=1/(w0*w0*L)
-Vl=w0*L*I
-Vc=Vl
-w1=w0-wb/2
-w2=w0+wb/2
-
+w0=1E6 +wb=1000 +V=0.05 +I=5E-3 + +R=V/I +Q0=w0/wb +L=R*Q0/w0 +C=1/(w0*w0*L) +Vl=w0*L*I +Vc=Vl +w1=w0-wb/2 +w2=w0+wb/2 + disp(w2,w1,Vc,Vl,C,L,Q0,R)
\ No newline at end of file diff --git a/671/CH5/EX5.13/5_13.sce b/671/CH5/EX5.13/5_13.sce index dfe16ada2..ae939b7b0 100755 --- a/671/CH5/EX5.13/5_13.sce +++ b/671/CH5/EX5.13/5_13.sce @@ -1,16 +1,16 @@ -f0=1E6
-Cmax=500E-12
-C=450E-12
-w0=2*%pi*f
-
-L=1/(w0*w0*Cmax)
-
-w=1/sqrt(L*C)
-f=w/(2*%pi)
-wb=2*2*%pi*(f-f0)
-r=wb*L
-Q0=2*%pi*f*L/r
-
-disp(Q0,L,r)
-
+f0=1E6 +Cmax=500E-12 +C=450E-12 +w0=2*%pi*f0 + +L=1/(w0*w0*Cmax) + +w=1/sqrt(L*C) +f=w/(2*%pi) +wb=2*2*%pi*(f-f0) +r=wb*L +Q0=2*%pi*f*L/r + +disp(Q0,L,r) + ////////calculation mistakes in book
\ No newline at end of file diff --git a/671/CH7/EX7.10/7_10.sce b/671/CH7/EX7.10/7_10.sce index be6a66286..17cc59028 100755 --- a/671/CH7/EX7.10/7_10.sce +++ b/671/CH7/EX7.10/7_10.sce @@ -1,16 +1,16 @@ -Ac=12/10000
-Fmin=160*9.81
-B=sqrt(Fmin*2*uo/Ac)
-
-H=2800
-L=75/100
-F=H*L
-Lg=0.1/1000
-A=24/10000
-Rg=Lg/(uo*A)
-fluxg=B*A
-Fg=fluxg*Rg
-
-Ftotal=F+Fg
-imin=Ftotal/1000
+Ac=12/10000 +Fmin=160*9.81 +B=sqrt(Fmin*2*uo/Ac) +u0 = 4%pi*10^−7 +H=2800 +L=75/100 +F=H*L +Lg=0.1/1000 +A=24/10000 +Rg=Lg/(uo*A) +fluxg=B*A +Fg=fluxg*Rg + +Ftotal=F+Fg +imin=Ftotal/1000 disp(imin)
\ No newline at end of file diff --git a/671/CH7/EX7.15/7_15.sce b/671/CH7/EX7.15/7_15.sce index 4a84ce28f..05e5cc3b6 100755 --- a/671/CH7/EX7.15/7_15.sce +++ b/671/CH7/EX7.15/7_15.sce @@ -1,24 +1,25 @@ -N=100
-l1=0.15
-l2=0.3
-l3=0.45
-A=0.001
-
-ur1=1447
-ur2=5969
-ur3=47750
-
-flux=0.6E-3
-
-B=flux/A
-
-H1=B/(uo*ur1)
-H2=B/(uo*ur2)
-H3=B/(uo*ur3)
-disp(H1,H2,H3)
-
-F=H1*l1+H2*l2+H3*l3
-disp(F)
-
-I=F/N
+N=100 +l1=0.15 +l2=0.3 +l3=0.45 +A=0.001 +u0 = 4*%pi*10^−7; + +ur1=1447 +ur2=5969 +ur3=47750 + +flux=0.6E-3 + +B=flux/A + +H1=B/(uo*ur1) +H2=B/(uo*ur2) +H3=B/(uo*ur3) +disp(H1,H2,H3) + +F=H1*l1+H2*l2+H3*l3 +disp(F) + +I=F/N disp(I)
\ No newline at end of file diff --git a/671/CH7/EX7.7/7_7.sce b/671/CH7/EX7.7/7_7.sce index a29bf8e6d..5bcf27549 100755 --- a/671/CH7/EX7.7/7_7.sce +++ b/671/CH7/EX7.7/7_7.sce @@ -1,32 +1,32 @@ -uo=(4*%pi)*1E-7
-
-l1=50/100
-l2=20/100
-l3=50/100
-lbc=0.025/100
-
-A1=25E-4
-A2=12.5E-4
-A3=25E-4
-
-fluxg=0.75E-3
-
-B=fluxg/A1
-Fbc=B/uo*lbc
-
-Hcd=200
-Hab=Hcd
-Fabcd=Hab*l1
-Fad=Fbc+Fabcd
-Had=Fab/l2
-Bad=1.04
-fluxad=Bad*A2
-
-fluxdea=fluxad+fluxg
-Bdea=fluxdea/A3
-Hdea=500
-Fdea=Hdea*l3
-
-F=Fdea+Fad
-
+uo=(4*%pi)*1E-7 + +l1=50/100 +l2=20/100 +l3=50/100 +lbc=0.025/100 + +A1=25E-4 +A2=12.5E-4 +A3=25E-4 + +fluxg=0.75E-3 + +B=fluxg/A1 +Fbc=B/uo*lbc + +Hcd=200 +Hab=Hcd +Fabcd=Hab*l1 +Fad=Fbc+Fabcd +Had=Fabcd/l2 +Bad=1.04 +fluxad=Bad*A2 + +fluxdea=fluxad+fluxg +Bdea=fluxdea/A3 +Hdea=500 +Fdea=Hdea*l3 + +F=Fdea+Fad + disp(F)
\ No newline at end of file |