4 files changed, 91 insertions, 0 deletions
diff --git a/2297/CH3/EX3.1/Ex3_1.sce b/2297/CH3/EX3.1/Ex3_1.sce
new file mode 100755
index 000000000..0d137bff9
--- /dev/null
+++ b/2297/CH3/EX3.1/Ex3_1.sce
@@ -0,0 +1,25 @@
+// Example 3.1;amper-turns
+clc;
+close;
+clear;
+// given :
+format('v',7)
+bt=[2;2.5;3.0];//making equations from Table
+H=[400 ;600;800];//making equations from Tble
+fsl=10^-3;//Flux in Wb
+cal=4*10^-4;//area in m^2
+fdl=fsl/cal;//magnetic field in Tesla
+hl=H(2);//AT/m 
+pll=0.57;//lenth in meter (path length 2345)
+at2345=pll*hl;//ampere turns
+fcl=2*10^-3;//magnetic field in Wb
+fdcl=fcl/cal;//in Tesla
+hcl=H(1);//in AT/m
+lcl=169;//length in mm
+atcl=(lcl*10^-3)*hcl;//ampere turns
+l=1;//length mm
+Hl=((4*%pi))*10^-7;//AT/m
+atrg=fcl/Hl;//AT
+tat=at2345+atcl+atrg;//total ampere turns
+disp(tat,"total ampere-turns required is, (AT)=")
+
diff --git a/2297/CH3/EX3.2/Ex3_2.sce b/2297/CH3/EX3.2/Ex3_2.sce
new file mode 100755
index 000000000..4f5ee78c8
--- /dev/null
+++ b/2297/CH3/EX3.2/Ex3_2.sce
@@ -0,0 +1,31 @@
+// Example 3.2;Kb , Ke and hystresis and eddy current loss
+clc;
+close;
+clear;
+// given :
+format('v',7)
+f1=50;//frequency in Hz
+f2=25;//frequency in Hz
+p1=30.1;//power in W
+p2=12.4;//power in W
+A=[f1 f1^2;f2 f2^2];//making equations
+B=[p1;p2];////making equations
+X=A\B;//calculating parameters
+disp("part (a) Kb and Ke")
+disp(X(1,1),"Kh is")
+disp(X(2,1),"Ke is")
+h25=X(1,1)*f2;//calculating parameters
+e25=X(2,1)*f2^2;//calculating parameters
+h50=X(1,1)*f1;//calculating parameters
+e50=X(2,1)*f1^2;//calculating parameters
+disp("part (b) hystresis and eddy current loss ")
+disp(h25,"hysteresis loss at 25 Hz is , (W)=")
+disp(e25,"eddy current loss at 25 Hz is ,(W)=")
+disp(h50,"hysteresis loss at 50 Hz is ,(W)=")
+disp(e50,"eddy current loss at 50 Hz is ,(W)=")
+W=40;//kg
+h50=X(1,1)*f1;//calculating parameters
+e50=X(2,1)*f1^2;//calculating parameters
+disp("part (c) hystresis and eddy current loss ")
+disp(h50/W,"hysteresis loss per kg at 50 Hz is ,(W)=")
+disp(e50/W,"eddy current loss per kg at 50 Hz is ,(W)=")
diff --git a/2297/CH3/EX3.3/Ex3_3.sce b/2297/CH3/EX3.3/Ex3_3.sce
new file mode 100755
index 000000000..42a4c783d
--- /dev/null
+++ b/2297/CH3/EX3.3/Ex3_3.sce
@@ -0,0 +1,16 @@
+// Example 3.3;hystresis  loss per Kg
+clc;
+close;
+clear;
+// given :
+format('v',7)
+l=10;//lengh in mm
+atm=200;//AT/m
+a=4800;//area in m^2
+loss=atm*(l*10^-2)*(a/100);//loss in J/m^3/cycle
+d=7.8*10^3;//kg/m^3
+vikg=1/d;//m^3
+loss1=loss*vikg;//J/cycle
+f=50;//Hz
+tl=loss1*f;//J/s
+disp(tl,"hystersis loss is ,(W/kg)=")
diff --git a/2297/CH3/EX3.4/Ex3_4.sce b/2297/CH3/EX3.4/Ex3_4.sce
new file mode 100755
index 000000000..bf67ff80a
--- /dev/null
+++ b/2297/CH3/EX3.4/Ex3_4.sce
@@ -0,0 +1,19 @@
+// Example 3.4;amper-turns
+clc;
+close;
+clear;
+// given :
+format('v',7)
+r=150;//length in mm
+t=12;//torque in N-m
+f=t/(r*10^-3);//force in N
+np=2;//no. of poles
+fp=f/np;//force per pole in N
+A=400;//area mm^2
+mu=4*%pi*10^-7;//
+b=sqrt((fp*2*mu)/(A*10^-6));//magnetic field in Tesla
+H=b/mu;//in AT/m
+tar=2*0.6*10^-3;//length in meter
+atr=H*tar;//AT
+disp(atr,"ampere turn required is, (AT)=")
+//answer is wrong in the textbook