3 files changed, 56 insertions, 0 deletions
diff --git a/10/CH8/EX1/cha8_1.sce b/10/CH8/EX1/cha8_1.sce
new file mode 100755
index 000000000..34fc0ac6b
--- /dev/null
+++ b/10/CH8/EX1/cha8_1.sce
@@ -0,0 +1,16 @@
+T=0.2;V=115;N=3000;F=60;
+J=10^-5;
+
+Km=T/V
+  
+Wm=(N*2*%pi/F)
+ 
+Fm=T/Wm
+ 
+Tm=J/Fm
+ 
+A=Km/Fm
+ 
+Kmv=A*V
+
+KmvT=A*Tm
diff --git a/10/CH8/EX3/cha8_3.sce b/10/CH8/EX3/cha8_3.sce
new file mode 100755
index 000000000..2fa6468cc
--- /dev/null
+++ b/10/CH8/EX3/cha8_3.sce
@@ -0,0 +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)
diff --git a/10/CH8/EX4/cha8_4.sce b/10/CH8/EX4/cha8_4.sce
new file mode 100755
index 000000000..7986fd7af
--- /dev/null
+++ b/10/CH8/EX4/cha8_4.sce
@@ -0,0 +1,15 @@
+Lw=30;R=15;Ia=3;V=45;
+
+Tow=Lw/R
+
+t1=0.7*Tow
+
+t0=0:0.1:t1;
+ 
+t=0;
+ 
+a=integrate('45*(-3+6*%e^(-x/2))','x',t,t0)
+ 
+ Energy=(1/2)*Lw*Ia^2
+ 
+ ProEnergy=(a/Energy)*100
+\ No newline at end of file