3 files changed, 74 insertions, 0 deletions
diff --git a/10/CH3/EX1/cha3_1.sce b/10/CH3/EX1/cha3_1.sce
new file mode 100755
index 000000000..072e5cbf3
--- /dev/null
+++ b/10/CH3/EX1/cha3_1.sce
@@ -0,0 +1,29 @@
+Hc=670;G=5;D=10;A=5;B=10;Bg=1;Z=4*%pi*10^-7;N=250;Area=700;
+
+Lc=2*(A+B)+2*(G+D)
+ 
+Hg=Bg/Z
+ 
+Lc=60/100
+  
+Hg=Bg/Z
+ 
+Ni=(Hc*Lc)+(Hg*2*G*10^-3)
+ 
+I=Ni/N
+ 
+Vdc=I*G
+ 
+Wfc=Area/2
+ 
+Vc=2*(G*10^-2*D*10^-2*0.20)+2*(A*10^-2*B*10^-2*0.10)
+ 
+Wfc=Wfc*Vc
+ 
+Wfg=1.0/(2*Z)
+ 
+Vg=2*(G*10^-2*10*10^-2*0.005)
+ 
+Wfg=(Wfg*G*10^-2*10^-3)
+ 
+Wf=Wfc+Wfg
diff --git a/10/CH3/EX2/cha3_2.sce b/10/CH3/EX2/cha3_2.sce
new file mode 100755
index 000000000..24099b520
--- /dev/null
+++ b/10/CH3/EX2/cha3_2.sce
@@ -0,0 +1,20 @@
+I=3;G=0.05;
+
+Lam=(0.09*I^(.5)/G)
+
+t1=0:0.1:3;
+ 
+t0=0;
+ 
+a=integrate('((0.09*2)/(G*I))*I^(0.5)','i',t0,t1)
+  
+Wf=((0.09*2)/(G*I))*I^(1.5)
+ 
+Fm=-0.09*(2/3)*I^(1.5)*(1/G^2)
+ 
+Wf1=(G^2*Lam^3)/(0.09^2*I)
+
+Lam1=(0.09*I^(.5)/G)
+ 
+Fm=-((Lam1^3)*2*G)/(I*0.09^2)
+ 
+\ No newline at end of file
diff --git a/10/CH3/EX3/cha3_3.sce b/10/CH3/EX3/cha3_3.sce
new file mode 100755
index 000000000..938194fb7
--- /dev/null
+++ b/10/CH3/EX3/cha3_3.sce
@@ -0,0 +1,25 @@
+A=4*%pi*10^-7;N=300;V=120;
+R=6;G=5*10^-3;Ag=6*6*10^-4;
+Lg=2*5*10^-3;
+Vo=2*6*6*5*10^-7;
+
+I=V/R
+  
+Bg=(A*N*I)/(2*G)
+
+Wf=(Bg^2)/(2*A)*(Vo)
+
+Fm=(Bg^2)/(2*A)*(2*Ag)
+
+L=(N^2*A*Ag)/(Lg)
+
+Irms=V/(sqrt(6^2+15.34^2))
+
+Brms=(A*N*Irms)/(2*G)
+
+Fm=(Brms^2)/(2*A)*(2*Ag)
+
+ 
+ 
+  
+