1 files changed, 23 insertions, 0 deletions
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:')