6 files changed, 67 insertions, 0 deletions
diff --git a/3816/CH3/EX3.1/3_1.png b/3816/CH3/EX3.1/3_1.png
new file mode 100644
index 000000000..a7499d278
--- /dev/null
+++ b/3816/CH3/EX3.1/3_1.png
diff --git a/3816/CH3/EX3.1/3_1.sce b/3816/CH3/EX3.1/3_1.sce
new file mode 100644
index 000000000..beaaba3f5
--- /dev/null
+++ b/3816/CH3/EX3.1/3_1.sce
@@ -0,0 +1,23 @@
+clc;
+clear;
+hp=0.15;//from diagram
+F=9000;
+V=80;//Working voltage
+Lmt=1.25;//Mean length of the turn
+Vp=4;//voltage per pole
+disp('For a copper winding at 75 deg cel:')
+a=0.021*(10^(-6))*Lmt*(F/Vp);
+disp(a,'The conductor area is:')
+Vp=4;//voltage per pole
+S=Lmt*hp;
+C=0.019;//Assumed value
+disp('For a temp rise of 65 deg cel:')
+theta_m=65;//temperature rise
+p=(theta_m*S)/C;
+disp(p,'The power dissipated is:')
+I=p/Vp;
+disp(I,'The field current is:')
+N=F/I;
+disp(N,'The number of turns per pole is:')
+J=I/N;
+disp(J,'The current density is:')
diff --git a/3816/CH3/EX3.2/3_2.png b/3816/CH3/EX3.2/3_2.png
new file mode 100644
index 000000000..63d075ee9
--- /dev/null
+++ b/3816/CH3/EX3.2/3_2.png
diff --git a/3816/CH3/EX3.2/3_2.sce b/3816/CH3/EX3.2/3_2.sce
new file mode 100644
index 000000000..fb4cab769
--- /dev/null
+++ b/3816/CH3/EX3.2/3_2.sce
@@ -0,0 +1,12 @@
+clc;
+clear;
+S=108;//slot
+m=3;
+p=8;
+disp('for 16 pole 3 phase machine :')
+g1=S/(p*m);
+disp(g1,'The integral slot winding is:')
+disp('For 10 pole 3 phase machine :')
+p1=5;
+g2=S/(p1*m);
+disp(g2,'The integral slot winding is:')
diff --git a/3816/CH3/EX3.3/3_3.png b/3816/CH3/EX3.3/3_3.png
new file mode 100644
index 000000000..7fa42f8c2
--- /dev/null
+++ b/3816/CH3/EX3.3/3_3.png
diff --git a/3816/CH3/EX3.3/3_3.sce b/3816/CH3/EX3.3/3_3.sce
new file mode 100644
index 000000000..524f4c325
--- /dev/null
+++ b/3816/CH3/EX3.3/3_3.sce
@@ -0,0 +1,32 @@
+clc;
+clear;
+Mva=3.75;
+V=10;
+p=5;
+S=144;
+C=5;
+S1=12;
+x1=1;
+x2=2;
+thetaa1=0.116;
+m=3;
+r=(p*%pi)/S;
+disp(r,'The slot angle is:')
+g1=S/(p*m);
+disp(g1,'The fractional value of slot per pole per phase is:')
+Sab=g1*((3*x1)+2);
+disp(Sab,'The spacing between the starts of Aand B is:')
+Sac=g1*((3*x2)+4);
+disp(Sac,'The spacing between the starts of A and C is:')
+theta1=60*(1/2);
+theta2=2*(1/2)*(1/2);
+theta3=30*(1/2);
+Kdn=(sin(theta1))/(24*sin(theta2));
+Ken=cos(theta3);
+Kwn=Kdn*Ken;
+n=0:1:7;
+disp(Kwn,'Kwn=')
+Eph1=4.44*0.925*50*240*thetaa1;
+Eph5=(5750*(0.049/0.925)*(11.2*100.6))/10000;
+Eph7=(5750*(0.035/0.925)*(2.8*100.6))/10000;
+disp(Eph7,Eph5,Eph1,'The emfs are:')