summaryrefslogtreecommitdiff
path: root/10
diff options
context:
space:
mode:
Diffstat (limited to '10')
-rwxr-xr-x10/CH10/EX5/cha10_5.sce48
-rwxr-xr-x10/CH10/EX6/cha10_6.sce29
-rwxr-xr-x10/CH4/EX6/cha4_6.sce109
-rwxr-xr-x10/CH4/EX9/cha4_9.sce58
-rwxr-xr-x10/CH6/EX4/cha6_4.sce60
-rwxr-xr-x10/CH7/EX4/cha7_4.sce404
-rwxr-xr-x10/CH7/EX6/cha7_6.sce40
-rwxr-xr-x10/CH8/EX3/cha8_3.sce50
8 files changed, 397 insertions, 401 deletions
diff --git a/10/CH10/EX5/cha10_5.sce b/10/CH10/EX5/cha10_5.sce
index 97d64d092..90a1e887f 100755
--- a/10/CH10/EX5/cha10_5.sce
+++ b/10/CH10/EX5/cha10_5.sce
@@ -1,23 +1,25 @@
-Ka=0.1;Ra=0.2;N=400;
-Ia=100;V=120;N1=350;
-Io=-100;
-
-Ea=Ka*N
-
-Vo=Ea+(Ia*Ra)
-
-Pmotor=Ea*Ia
-
-Pr=Ia^2*Ra
-
-Ps=V*Ia*0.5
-
-Vo=Ea1+(Ia*Ra)
-
-Vo=Ea1+(Io*Ra)
-
-Pmotor1=Ea1*Io
-
-Pr1=Ia^2*Ra
-
-Ps=V*Io*1/8
+Ka=0.1;Ra=0.2;N=400;
+Ia=100;V=120;N1=350;
+Io=-100;
+
+Ea=Ka*N
+
+Vo=Ea+(Ia*Ra)
+
+Pmotor=Ea*Ia
+
+Pr=Ia^2*Ra
+
+Ps=V*Ia*0.5
+
+Ea1 = Ka*N1;
+
+Vo=Ea1+(Ia*Ra)
+
+Vo=Ea1+(Io*Ra)
+
+Pmotor1=Ea1*Io
+
+Pr1=Ia^2*Ra
+
+Ps=V*Io*1/8 \ No newline at end of file
diff --git a/10/CH10/EX6/cha10_6.sce b/10/CH10/EX6/cha10_6.sce
index 30685c066..8bdaed7be 100755
--- a/10/CH10/EX6/cha10_6.sce
+++ b/10/CH10/EX6/cha10_6.sce
@@ -1,15 +1,14 @@
-V=300;I=540;Angle=45;
-
-t0=0:0.1:%pi;
-
-t=0;
-integrate('540*sin((x-45*%pi/180))','x',t,t0)/%pi
-
- Is=242.89;
-
-Ps=V*I
-
-Vo1=(4*V)/(%pi*sqrt(2))
-
-Pout=Vo1*Io/sqrt(2)*cos(%pi*Angle/180)
-
+V=300;I=540;Angle=45;
+
+t0=0:0.1:%pi;
+
+t=0;
+integrate('540*sin((x-45*%pi/180))','x',t,t0)/%pi
+
+ Is=242.89;
+
+Ps=V*I
+
+Vo1=(4*V)/(%pi*sqrt(2))
+
+Pout=Vo1*I/sqrt(2)*cos(%pi*Angle/180) \ No newline at end of file
diff --git a/10/CH4/EX6/cha4_6.sce b/10/CH4/EX6/cha4_6.sce
index e5766b3ed..e92d03e38 100755
--- a/10/CH4/EX6/cha4_6.sce
+++ b/10/CH4/EX6/cha4_6.sce
@@ -1,57 +1,52 @@
-Vt=100;Ra=0.1;Ia=6;If=0.99;Rfw=80;
-Ia1=5;Iarated=120;N=1000;
-Afl=0.95;Prot=497.5;
-
-Eanl=Vt-(Ia*Ra)
-
-Rf=Vt/If
-
-Rfc=Rf-Rfw
-
-Prot=Ea*5
-
-Eanl=Vt-(Ia*Ra)
-
-Eafl=Vt-(Iarated*Ra)
-
-Wfl=(Eafl/Eanl)*N
-
-Wm=(Wfl/60)*2*%pi
-
-T=(Eafl*Iarated)/Wm
-
-Pout=(Eafl*Iarated)-(Prot)
-
-Pin=(Vt)*(Iarated+If)
-
-Eff=(Pout/Pin)*100
-
-Wfl1=(Eafl/Eanl)*(1/Afl)*N
-
-Wm1=(Wfl1/60)*(2*%pi)
-
-T=(Eafl*Iarated)/(Wm1)
-
-Eff1=(Pout/Pin)*100
-
-Wm=(1000/60)*(2*%pi)
-
-Ka=Eanl/Wm
-
-Ia=1.5*120
-
-Tstart=(Ka*Ia)
-
-Ifeff=If-Ifar
-
-Ea1=93.5
-
-Ka1=(Ea1/Wm)
-
-Tstart1=(Ka1*Ia)
-
-
-
-
-
-
+Vt=100;Ra=0.1;Ia=6;If=0.99;Rfw=80;
+Ia1=5;Iarated=120;N=1000;
+Afl=0.95;Prot=497.5;
+
+Eanl=Vt-(Ia*Ra)
+Ea = Eanl;
+Ifar = 0.16;
+Rf=Vt/If
+
+Rfc=Rf-Rfw
+
+Prot=Ea*5
+
+Eanl=Vt-(Ia*Ra)
+
+Eafl=Vt-(Iarated*Ra)
+
+Wfl=(Eafl/Eanl)*N
+
+Wm=(Wfl/60)*2*%pi
+
+T=(Eafl*Iarated)/Wm
+
+Pout=(Eafl*Iarated)-(Prot)
+
+Pin=(Vt)*(Iarated+If)
+
+Eff=(Pout/Pin)*100
+
+Wfl1=(Eafl/Eanl)*(1/Afl)*N
+
+Wm1=(Wfl1/60)*(2*%pi)
+
+T=(Eafl*Iarated)/(Wm1)
+
+Eff1=(Pout/Pin)*100
+
+Wm=(1000/60)*(2*%pi)
+
+Ka=Eanl/Wm
+
+Ia=1.5*120
+
+Tstart=(Ka*Ia)
+
+Ifeff=If-Ifar
+
+Ea1=93.5
+
+Ka1=(Ea1/Wm)
+
+Tstart1=(Ka1*Ia) \ No newline at end of file
diff --git a/10/CH4/EX9/cha4_9.sce b/10/CH4/EX9/cha4_9.sce
index b7a64d7a0..265470a21 100755
--- a/10/CH4/EX9/cha4_9.sce
+++ b/10/CH4/EX9/cha4_9.sce
@@ -1,29 +1,29 @@
-Iarated=100;Vt=100;
-Ra=0.1;
-Ia1=200;
-
-Iastart=Vt/Ra
-
-Rae=(Vt-20)/(200)
-
-Ea2=Vt-Iarated*(Ra+Rae)
-
-Rae2=(Vt-Ea2-20)/(200)
-
-Ea3=Vt-Ia*(Ra+Rae2)
-
-Ea3=Vt-Iarated*(Ra+Rae2)
-
-Rae3=(Vt-Ea3-20)/200
-
-Ea4=Vt-Iarated*(Ra+Rae3)
-
-Rae4=(Vt-Ea4-20)/200
-
-Ia=(Vt-Ea4)/Ra
-
-R1=Rae-Rae2
-
-R2=Rae2-Rae3
-
-R3=Rae3-Rae4
+Iarated=100;Vt=100;
+Ra=0.1;
+Ia1=200;
+ Ia = 25;
+Iastart=Vt/Ra
+
+Rae=(Vt-20)/(200)
+
+Ea2=Vt-Iarated*(Ra+Rae)
+
+Rae2=(Vt-Ea2-20)/(200)
+
+Ea3=Vt-Ia*(Ra+Rae2)
+
+Ea3=Vt-Iarated*(Ra+Rae2)
+
+Rae3=(Vt-Ea3-20)/200
+
+Ea4=Vt-Iarated*(Ra+Rae3)
+
+Rae4=(Vt-Ea4-20)/200
+
+Ia=(Vt-Ea4)/Ra
+
+R1=Rae-Rae2
+
+R2=Rae2-Rae3
+
+R3=Rae3-Rae4 \ No newline at end of file
diff --git a/10/CH6/EX4/cha6_4.sce b/10/CH6/EX4/cha6_4.sce
index 1c792025f..58fae92db 100755
--- a/10/CH6/EX4/cha6_4.sce
+++ b/10/CH6/EX4/cha6_4.sce
@@ -1,30 +1,30 @@
-V=208;F=60;Phase=3;Power=3000;Xs=8;
-
-Vt=V/sqrt(Phase)
-
-Ia=Power/(Phase*Vt)
-
-function[x,y]=polar2rect(r,theta)
-x=r*cos(theta*%pi/180);
-y=r*sin(theta*%pi/180);
-endfunction
-[x1,y1]=polar2rect(120,0)
-
-[x2,y2]=polar2rect(8.33,0)
-
-[x3,y3]=polar2rect(8,90)
-
-X=X1-(X2*X3)
-
-function[r,theta]=rect2polar(x,y)
-r=sqrt(x^2+y^2);
-theta=atan(y/x)*180/%pi;
-endfunction
-
-[Ef,Angle]=rect2polar(120,-66.64)
-
-Pmax=(Phase*Ef*Vt)/Xs
-
-Ws=(1800/F)*2*%pi
-
-Tmax=Pmax/Ws
+V=208;F=60;Phase=3;Power=3000;Xs=8;
+
+Vt=V/sqrt(Phase)
+
+Ia=Power/(Phase*Vt)
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+[x1,y1]=polar2rect(120,0)
+
+[x2,y2]=polar2rect(8.33,0)
+
+[x3,y3]=polar2rect(8,90)
+
+X=x1-(x2*x3)
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Ef,Angle]=rect2polar(120,-66.64)
+
+Pmax=(Phase*Ef*Vt)/Xs
+
+Ws=(1800/F)*2*%pi
+
+Tmax=Pmax/Ws \ No newline at end of file
diff --git a/10/CH7/EX4/cha7_4.sce b/10/CH7/EX4/cha7_4.sce
index c3eb9203e..567e527df 100755
--- a/10/CH7/EX4/cha7_4.sce
+++ b/10/CH7/EX4/cha7_4.sce
@@ -1,202 +1,202 @@
-V=120;F=60;Pole=4;Zm=1.5+4.0;Za=3+6;
-Xa=6;Xm=4;Rm=1.5;Ra=3;
-
-Ra=(Xa/Xm)*(Rm+sqrt(18.25))
-
-C=(2*%pi*F)*(Xa+(Ra*Rm)/(Xm+sqrt(18.25)))
-
-a=((-Xm*Ra)+(sqrt(18.25)*sqrt(13.2)))
-
-Xc=Xa+(a/Rm)
-
-Ia=V/(3+%i*6)
-
-function[r,theta]=rect2polar(x,y)
-r=sqrt(x^2+y^2);
-theta=atan(y/x)*180/%pi;
-endfunction
-
-[Is,Angle]=rect2polar(8,-16)
-
-Im=V/(1.5+%i*4)
-
-function[r,theta]=rect2polar(x,y)
-r=sqrt(x^2+y^2);
-theta=atan(y/x)*180/%pi;
-endfunction
-
-[Is1,Angle1]=rect2polar(9.86,-26.3)
-
-Alfa=Angle1-Angle
-
-Ts=Is*sin(%pi*6.01/180)
-
-function[x,y]=polar2rect(r,theta)
-x=r*cos(theta*%pi/180);
-y=r*sin(theta*%pi/180);
-endfunction
-
-[a,b]=polar2rect(Is1,Angle1)
-
-X=a+%i*b
-
-C=1/C*10^6
-
-a=((-Xm*Ra)+(sqrt(18.25)*sqrt(13.2)))
-
-Xc=Xa+(a/Rm)
-
-C=10^6/(2*%pi*F*Xc)
-
-Ia=V/(3+%i*6)
-
-function[r,theta]=rect2polar(x,y)
-r=sqrt(x^2+y^2);
-theta=atan(y/x)*180/%pi;
-endfunction
-
-[Is,Angle]=rect2polar(8,-16)
-
-Im=V/(1.5+%i*4)
-
-[Is1,Angle1]=rect2polar(9.86,-26.3)
-
-Alfa=Angle1-Angle
-
-Ts=Is*sin(%pi*6.01/180)
-
-function[x,y]=polar2rect(r,theta)
-x=r*cos(theta*%pi/180);
-y=r*sin(theta*%pi/180);
-endfunction
-
-[a,b]=polar2rect(Is1,Angle1)
-
-X=a+%i*b
-
-[c,d]=polar2rect(Is,Angle)
-
-X1=c+%i*d
-
-X2=X+X1
-
-function[r,theta]=rect2polar(x,y)
-r=sqrt(x^2+y^2);
-theta=atan(y/x)*180/%pi;
-endfunction
-
-[I,Angle]=rect2polar(17.86,-42.3)
-
-Ia=V/(Ra+%i*Xa)
-
-function[r,theta]=rect2polar(x,y)
-r=sqrt(x^2+y^2);
-theta=atan(y/x)*180/%pi;
-endfunction
-
-[Ia,Angle]=rect2polar(9.3,-6.4)
-
-Alfa=69.33-34.53
-
-Ts=Ia*sin(%pi*Alfa/180)
-
-function[x,y]=polar2rect(r,theta)
-x=r*cos(theta*%pi/180);
-y=r*sin(theta*%pi/180);
-endfunction
-
-[Is,Angle]=polar2rect(Ia,Angle)
-
-[Is1,Angle1]=polar2rect(28.1,-69.44)
-
-X=Is+%i*angle
-
-X1=Is1+%i*Angle1
-
-X2=Is+%i*Angle
-
-X=X1+X2
-
-function[r,theta]=rect2polar(x,y)
-r=sqrt(x^2+y^2);
-theta=atan(y/x)*180/%pi;
-endfunction
-
-[Is,Angle]=rect2polar(19.1,-32.7)
-
-Xc=10^6/(2*%pi*F*405)
-
-Ia=V/(Ra+(%i*6+%i*6.55))
-
-function[r,theta]=rect2polar(x,y)
-r=sqrt(x^2+y^2);
-theta=atan(y/x)*180/%pi;
-endfunction
-
-[Is,Angle]=rect2polar(2.16,-9.04)
-
-
-Ia=V/(Ra+(%i*6-%i*6.55))
-
-[Is,Angle]=rect2polar(38.6,7.09)
-
-Alfa=69.44+Angle
-
-Ts=Is*sin(%pi*Alfa/180)
-
-function[x,y]=polar2rect(r,theta)
-x=r*cos(theta*%pi/180);
-y=r*sin(theta*%pi/180);
-endfunction
-
-[Is,Angle]=polar2rect(28.1,-69.44)
-
-[Is1,Angle1]=polar2rect(39.34,10.4)
-
-X1=Is+%i*Angle
-
-X2=Is1+%i*Angle1
-
-X=X1+X2
-
-function[r,theta]=rect2polar(x,y)
-r=sqrt(x^2+y^2);
-theta=atan(y/x)*180/%pi;
-endfunction
-
-[Is,Angle]=rect2polar(48.56,-19.20)
-
-Ia=V/(Ra+(%i*Xa-%i*Xc))
-
-function[r,theta]=rect2polar(x,y)
-r=sqrt(x^2+y^2);
-theta=atan(y/x)*180/%pi;
-endfunction
-
-[I,Angle]=rect2polar(23.9,19.6)
-
-Alfa=69.44+39.5
-
-Ts=I*sin(%pi*Alfa/180)
-
-function[x,y]=polar2rect(r,theta)
-x=r*cos(theta*%pi/180);
-y=r*sin(theta*%pi/180);
-endfunction
-
-[Is,Angle]=polar2rect(28.1,-69.44)
-
-[Is1,Angle1]=polar2rect(I,39.35)
-
-X=Is+%i*Angle
-
-X1=Is1+%i*Angle1
-
-X2=X+X1
-
-function[r,theta]=rect2polar(x,y)
-r=sqrt(x^2+y^2);
-theta=atan(y/x)*180/%pi;
-endfunction
-
-[I,Angle]=rect2polar(33.7,-6.7)
+V=120;F=60;Pole=4;Zm=1.5+4.0;Za=3+6;
+Xa=6;Xm=4;Rm=1.5;Ra=3;
+
+Ra=(Xa/Xm)*(Rm+sqrt(18.25))
+
+C=(2*%pi*F)*(Xa+(Ra*Rm)/(Xm+sqrt(18.25)))
+
+a=((-Xm*Ra)+(sqrt(18.25)*sqrt(13.2)))
+
+Xc=Xa+(a/Rm)
+
+Ia=V/(3+%i*6)
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is,Angle]=rect2polar(8,-16)
+
+Im=V/(1.5+%i*4)
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is1,Angle1]=rect2polar(9.86,-26.3)
+
+Alfa=Angle1-Angle
+
+Ts=Is*sin(%pi*6.01/180)
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[a,b]=polar2rect(Is1,Angle1)
+
+X=a+%i*b
+
+C=1/C*10^6
+
+a=((-Xm*Ra)+(sqrt(18.25)*sqrt(13.2)))
+
+Xc=Xa+(a/Rm)
+
+C=10^6/(2*%pi*F*Xc)
+
+Ia=V/(3+%i*6)
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is,Angle]=rect2polar(8,-16)
+
+Im=V/(1.5+%i*4)
+
+[Is1,Angle1]=rect2polar(9.86,-26.3)
+
+Alfa=Angle1-Angle
+
+Ts=Is*sin(%pi*6.01/180)
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[a,b]=polar2rect(Is1,Angle1)
+
+X=a+%i*b
+
+[c,d]=polar2rect(Is,Angle)
+
+X1=c+%i*d
+
+X2=X+X1
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[I,Angle]=rect2polar(17.86,-42.3)
+
+Ia=V/(Ra+%i*Xa)
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Ia,Angle]=rect2polar(9.3,-6.4)
+
+Alfa=69.33-34.53
+
+Ts=Ia*sin(%pi*Alfa/180)
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[Is,Angle]=polar2rect(Ia,Angle)
+
+[Is1,Angle1]=polar2rect(28.1,-69.44)
+
+X=Is+%i*Angle
+
+X1=Is1+%i*Angle1
+
+X2=Is+%i*Angle
+
+X=X1+X2
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is,Angle]=rect2polar(19.1,-32.7)
+
+Xc=10^6/(2*%pi*F*405)
+
+Ia=V/(Ra+(%i*6+%i*6.55))
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is,Angle]=rect2polar(2.16,-9.04)
+
+
+Ia=V/(Ra+(%i*6-%i*6.55))
+
+[Is,Angle]=rect2polar(38.6,7.09)
+
+Alfa=69.44+Angle
+
+Ts=Is*sin(%pi*Alfa/180)
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[Is,Angle]=polar2rect(28.1,-69.44)
+
+[Is1,Angle1]=polar2rect(39.34,10.4)
+
+X1=Is+%i*Angle
+
+X2=Is1+%i*Angle1
+
+X=X1+X2
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is,Angle]=rect2polar(48.56,-19.20)
+
+Ia=V/(Ra+(%i*Xa-%i*Xc))
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[I,Angle]=rect2polar(23.9,19.6)
+
+Alfa=69.44+39.5
+
+Ts=I*sin(%pi*Alfa/180)
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[Is,Angle]=polar2rect(28.1,-69.44)
+
+[Is1,Angle1]=polar2rect(I,39.35)
+
+X=Is+%i*Angle
+
+X1=Is1+%i*Angle1
+
+X2=X+X1
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[I,Angle]=rect2polar(33.7,-6.7) \ No newline at end of file
diff --git a/10/CH7/EX6/cha7_6.sce b/10/CH7/EX6/cha7_6.sce
index 22f5e7534..d0f4d19b2 100755
--- a/10/CH7/EX6/cha7_6.sce
+++ b/10/CH7/EX6/cha7_6.sce
@@ -1,20 +1,20 @@
-V=120;F=60;N=2000;A=0.6;
-Ohm=20;L=0.25;
-V=120;F=60;N=2000;Ia=0.6;
-a=20;L=0.25;
-
-Edc=V-(Ia*Ra)
-
-X=2*%pi*F*L
-
-Eac=(-Ia*Ra)+sqrt(V^2-(Ia*X)^2)
-
-Nac=N*(Eac/Edc)
-
-Pf=(Eac+(Ia*Ra))/V
-
-Pmech=Eac*Ia
-
-Wm=(Nac*2*%pi)/F
-
-T=Pmech/Wm
+V=120;F=60;N=2000;A=0.6;
+Ra=20;L=0.25;
+V=120;F=60;N=2000;Ia=0.6;
+a=20;L=0.25;
+
+Edc=V-(Ia*Ra)
+
+X=2*%pi*F*L
+
+Eac=(-Ia*Ra)+sqrt(V^2-(Ia*X)^2)
+
+Nac=N*(Eac/Edc)
+
+Pf=(Eac+(Ia*Ra))/V
+
+Pmech=Eac*Ia
+
+Wm=(Nac*2*%pi)/F
+
+T=Pmech/Wm \ No newline at end of file
diff --git a/10/CH8/EX3/cha8_3.sce b/10/CH8/EX3/cha8_3.sce
index 2fa6468cc..417113c27 100755
--- a/10/CH8/EX3/cha8_3.sce
+++ b/10/CH8/EX3/cha8_3.sce
@@ -1,25 +1,25 @@
-Rw=1;Lw=30;I=3;TimeOn=2;RF=0.0675;
-StepRate=300;Turns=100;TimeOff=1;
-PeakI=3;
-
-R=Lw/TimeOn
-
-Rext=R-TimeOff
-
-Prext=(I^2*Rext)
-
-Vs=I*R
-
-Rext=R-Rw
-
-R1=Lw/TimeOff
-
-Rf=R1-R
-
-Energy=(1/2*Lw*I^2)
-
-Power=Turns*Rf
-
-Power=Turns*RF
-
-Vc=V+(PeakI*R)
+Rw=1;Lw=30;I=3;TimeOn=2;RF=0.0675;
+StepRate=300;Turns=100;TimeOff=1;
+PeakI=3;
+
+R=Lw/TimeOn
+
+Rext=R-TimeOff
+
+Prext=(I^2*Rext)
+
+Vs=I*R
+
+Rext=R-Rw
+
+R1=Lw/TimeOff
+
+Rf=R1-R
+
+Energy=(1/2*Lw*I^2)
+
+Power=Turns*Rf
+
+Power=Turns*RF
+
+Vc=Vs+(PeakI*R) \ No newline at end of file