summaryrefslogtreecommitdiff
path: root/431/CH4
diff options
context:
space:
mode:
Diffstat (limited to '431/CH4')
-rwxr-xr-x431/CH4/EX2.22/EX2_22.sce30
-rwxr-xr-x431/CH4/EX2.22/resultEX2_22.txt3
-rwxr-xr-x431/CH4/EX4.1/EX4_1.sce15
-rwxr-xr-x431/CH4/EX4.1/resultEX4_1.txt4
-rwxr-xr-x431/CH4/EX4.10/EX4_10.sce14
-rwxr-xr-x431/CH4/EX4.10/resultEX4_10.txt3
-rwxr-xr-x431/CH4/EX4.11/EX4_11.sce18
-rwxr-xr-x431/CH4/EX4.11/resultEX4_11.txt4
-rwxr-xr-x431/CH4/EX4.12/EX4_12.sce23
-rwxr-xr-x431/CH4/EX4.12/resultEX4_12.txt5
-rwxr-xr-x431/CH4/EX4.13/EX4_13.sce23
-rwxr-xr-x431/CH4/EX4.13/resultEX4_13.txt6
-rwxr-xr-x431/CH4/EX4.14/EX4_14.sce18
-rwxr-xr-x431/CH4/EX4.14/resultEX4_14.txt5
-rwxr-xr-x431/CH4/EX4.15/EX4_15.sce22
-rwxr-xr-x431/CH4/EX4.15/resultEX4_15.txt6
-rwxr-xr-x431/CH4/EX4.16/EX4_16.sce20
-rwxr-xr-x431/CH4/EX4.16/resultEX4_16.txt5
-rwxr-xr-x431/CH4/EX4.18/EX4_18.sce20
-rwxr-xr-x431/CH4/EX4.18/resultEX4_18.txt4
-rwxr-xr-x431/CH4/EX4.2/EX4_2.sce30
-rwxr-xr-x431/CH4/EX4.2/resultEX4_2.txt14
-rwxr-xr-x431/CH4/EX4.20/EX4_20.sce22
-rwxr-xr-x431/CH4/EX4.20/resultEX4_20.txt4
-rwxr-xr-x431/CH4/EX4.21/EX4_21.sce25
-rwxr-xr-x431/CH4/EX4.21/resultEX4_21.txt6
-rwxr-xr-x431/CH4/EX4.22/EX4_22.sce25
-rwxr-xr-x431/CH4/EX4.22/resultEX4_22.txt6
-rwxr-xr-x431/CH4/EX4.23/EX4_23.sce17
-rwxr-xr-x431/CH4/EX4.23/resultEX4_23.txt5
-rwxr-xr-x431/CH4/EX4.24/EX4_24.sce29
-rwxr-xr-x431/CH4/EX4.24/resultEX4_24.txt5
-rwxr-xr-x431/CH4/EX4.25/EX4_25.sce23
-rwxr-xr-x431/CH4/EX4.25/resultEX4_25.txt5
-rwxr-xr-x431/CH4/EX4.26/EX4_26.sce20
-rwxr-xr-x431/CH4/EX4.26/resultEX4_26.txt5
-rwxr-xr-x431/CH4/EX4.28/EX4_28.sce23
-rwxr-xr-x431/CH4/EX4.28/resultEX4_28.txt5
-rwxr-xr-x431/CH4/EX4.29/EX4_29.sce26
-rwxr-xr-x431/CH4/EX4.29/resultEX4_29.txt4
-rwxr-xr-x431/CH4/EX4.3/EX4_3.sce24
-rwxr-xr-x431/CH4/EX4.3/resultEX4_3.txt13
-rwxr-xr-x431/CH4/EX4.30/EX4_30.sce27
-rwxr-xr-x431/CH4/EX4.30/resultEX4_30.txt8
-rwxr-xr-x431/CH4/EX4.31/EX4_31.sce26
-rwxr-xr-x431/CH4/EX4.31/resultEX4_31.txt5
-rwxr-xr-x431/CH4/EX4.32/EX4_32.sce32
-rwxr-xr-x431/CH4/EX4.32/resultEX4_32.txt5
-rwxr-xr-x431/CH4/EX4.33/EX4_33.sce18
-rwxr-xr-x431/CH4/EX4.33/resultEX4_33.txt4
-rwxr-xr-x431/CH4/EX4.34/EX4_34.sce24
-rwxr-xr-x431/CH4/EX4.34/resultEX4_34.txt5
-rwxr-xr-x431/CH4/EX4.35/EX4_35.sce53
-rwxr-xr-x431/CH4/EX4.35/resultEX4_35.txt13
-rwxr-xr-x431/CH4/EX4.4/EX4_4.sce17
-rwxr-xr-x431/CH4/EX4.4/resultEX4_4.txt3
-rwxr-xr-x431/CH4/EX4.5/EX4_5.sce17
-rwxr-xr-x431/CH4/EX4.5/resultEX4_5.txt5
-rwxr-xr-x431/CH4/EX4.6/EX4_7.sce26
-rwxr-xr-x431/CH4/EX4.6/resultEX4_7.txt9
-rwxr-xr-x431/CH4/EX4.7/EX4_7.sce26
-rwxr-xr-x431/CH4/EX4.7/resultEX4_7.txt9
-rwxr-xr-x431/CH4/EX4.8/EX4_8.sce16
-rwxr-xr-x431/CH4/EX4.8/resultEX4_8.txt5
-rwxr-xr-x431/CH4/EX4.9/EX4_9.sce15
-rwxr-xr-x431/CH4/EX4.9/resultEX4_9.txt3
66 files changed, 955 insertions, 0 deletions
diff --git a/431/CH4/EX2.22/EX2_22.sce b/431/CH4/EX2.22/EX2_22.sce
new file mode 100755
index 000000000..ee72d9450
--- /dev/null
+++ b/431/CH4/EX2.22/EX2_22.sce
@@ -0,0 +1,30 @@
+//Calculate the value of resistance
+//Chapter 2
+//Example 2.22
+//page 126
+clear;
+clc;
+disp("Example 2.22")
+V=440; //primary voltage in volts
+Ia=50; //armature current in amperes
+Ra=0.2; //armature resistance in ohms
+N=600; //speed in rpm
+E=V-(Ia*Ra); //emf induced in volts before adding extra resistance
+//E=K*phi*N=K1*Ia*N
+K1=E/(Ia*N);
+//we have the relation T=Kt1*Ia^2, T1=Kt1*Ia1^2
+//when torque is half, say torque be T1
+//T1=T/2. r=T/T1
+r=2;
+Ia1=sqrt(Ia^2/r);
+printf("Ia1=%fA",Ia1);
+//extra resistance R is introduced in the circuit
+N1=400;
+E1=(K1*Ia1*N1);
+R=((V-E1)/Ia1)-Ra;
+printf("\nvalue of extra resistance added=%fohms",R)
+
+
+
+
+
diff --git a/431/CH4/EX2.22/resultEX2_22.txt b/431/CH4/EX2.22/resultEX2_22.txt
new file mode 100755
index 000000000..bc5d55fd8
--- /dev/null
+++ b/431/CH4/EX2.22/resultEX2_22.txt
@@ -0,0 +1,3 @@
+ Example 2.22
+Ia1=35.355339A
+value of extra resistance added=6.511746ohms \ No newline at end of file
diff --git a/431/CH4/EX4.1/EX4_1.sce b/431/CH4/EX4.1/EX4_1.sce
new file mode 100755
index 000000000..38c410265
--- /dev/null
+++ b/431/CH4/EX4.1/EX4_1.sce
@@ -0,0 +1,15 @@
+//Calculating synchronous speed and speed of a rotor
+//Chapter 4
+//Example 4.1
+//page 288
+clear;
+clc;
+disp("example 4.1");
+f=50; //frequency
+p=6; // number of poles
+V=400; //voltage supply
+S=4; //percentage slip
+Ns=(120*f)/p; //synchronous speed
+printf("Syhchronous speed,Ns=%d \n",Ns);
+Nr=(1-(S/100))*Ns;
+printf("speed of rotor with slip 4 percent,Nr is %d rpm \n",Nr); \ No newline at end of file
diff --git a/431/CH4/EX4.1/resultEX4_1.txt b/431/CH4/EX4.1/resultEX4_1.txt
new file mode 100755
index 000000000..a59dccf9a
--- /dev/null
+++ b/431/CH4/EX4.1/resultEX4_1.txt
@@ -0,0 +1,4 @@
+ example 4.1
+Syhchronous speed,Ns=1000
+speed of rotor with slip 4 percent,Nr is 960 rpm
+ \ No newline at end of file
diff --git a/431/CH4/EX4.10/EX4_10.sce b/431/CH4/EX4.10/EX4_10.sce
new file mode 100755
index 000000000..d04e50933
--- /dev/null
+++ b/431/CH4/EX4.10/EX4_10.sce
@@ -0,0 +1,14 @@
+//Calculating the frequency of the rotor current
+//Chapter 4
+//Example 4.10
+//page 299
+clear;
+clc;
+disp("Example 4.10")
+P=12;.......................//pole
+f=50;.......................//frequency of induction motor in hertz
+Nr=485;........................//induction motor speed in rpm
+Ns=(120*f)/P;
+S=(Ns-Nr)/Nr;
+fr=S*f;
+printf("frequency of rotor current=%fHz",fr) \ No newline at end of file
diff --git a/431/CH4/EX4.10/resultEX4_10.txt b/431/CH4/EX4.10/resultEX4_10.txt
new file mode 100755
index 000000000..0d5b8b47d
--- /dev/null
+++ b/431/CH4/EX4.10/resultEX4_10.txt
@@ -0,0 +1,3 @@
+
+ Example 4.10
+frequency of rotor current=1.546392Hz \ No newline at end of file
diff --git a/431/CH4/EX4.11/EX4_11.sce b/431/CH4/EX4.11/EX4_11.sce
new file mode 100755
index 000000000..c0629579d
--- /dev/null
+++ b/431/CH4/EX4.11/EX4_11.sce
@@ -0,0 +1,18 @@
+//Calculating the rotor current
+//Chapter 4
+//Example 4.11
+//page 299
+clear;
+clc;
+disp("Example 4.11")
+E20=100;................................//induced emf of induction motor at standstill in volts
+E20p=E20/sqrt(3);........................//induced emf per phase in volts
+S=0.40;................................//slip
+E2=S*E20p;.................................//rotor induced emf at slip S in volts
+printf("Rotor induced emf at a slip E2=%fV",E2);
+R2=0.4;.................................//resistance per phase in ohms
+X20=2.25;............................//standstill resistance per phase i ohms
+Z2=sqrt((R2)^2+(S*X20)^2);....................//rotor impedence at slip S in ohms
+printf("\nRotor impedence at a slip S, Z2=%fohms",Z2)
+I=E2/Z2;
+printf("\nrotor current=%fA",I) \ No newline at end of file
diff --git a/431/CH4/EX4.11/resultEX4_11.txt b/431/CH4/EX4.11/resultEX4_11.txt
new file mode 100755
index 000000000..297902d29
--- /dev/null
+++ b/431/CH4/EX4.11/resultEX4_11.txt
@@ -0,0 +1,4 @@
+ Example 4.11
+Rotor induced emf at a slip E2=23.094011V
+Rotor impedence at a slip S, Z2=0.984886ohms
+rotor current=23.448415A \ No newline at end of file
diff --git a/431/CH4/EX4.12/EX4_12.sce b/431/CH4/EX4.12/EX4_12.sce
new file mode 100755
index 000000000..1425202d7
--- /dev/null
+++ b/431/CH4/EX4.12/EX4_12.sce
@@ -0,0 +1,23 @@
+//Calculate power developed and efficiency
+//Chapter 4
+//Example 4.12
+//page 308
+clear;
+clc;
+disp("Example 4.12")
+S=0.03; //slip
+SI=50; //stator input in kilowatts
+SL=2; //stator loss in kilowatts
+RI=SI-SL; //rotor input in kilowatts
+RIL=S*RI; //rotor I^2R loss
+//rotor core loss can be neglected at 3percent slip
+PDR=RI-RIL; //power developed by the rotor
+printf("Power developed by the rotor=%fkW",PDR);
+FWL=1; //friction and windage loss in kilowatt
+OP=PDR-FWL; //output power
+printf("\nOutput power=%fkW",OP);
+effi=(OP*100)/SI;
+printf("\nEfficiency of the motor=%f percent",effi)
+
+
+
diff --git a/431/CH4/EX4.12/resultEX4_12.txt b/431/CH4/EX4.12/resultEX4_12.txt
new file mode 100755
index 000000000..fd47c291b
--- /dev/null
+++ b/431/CH4/EX4.12/resultEX4_12.txt
@@ -0,0 +1,5 @@
+
+ Example 4.12
+Power developed by the rotor=46.560000kW
+Output power=45.560000kW
+Efficiency of the motor=91.120000 percent \ No newline at end of file
diff --git a/431/CH4/EX4.13/EX4_13.sce b/431/CH4/EX4.13/EX4_13.sce
new file mode 100755
index 000000000..1cc10a79a
--- /dev/null
+++ b/431/CH4/EX4.13/EX4_13.sce
@@ -0,0 +1,23 @@
+//Calculating the rotor loss and rotor speed
+//Chapter 4
+//Example 4.13
+//page 309
+clear;
+clc;
+disp("Example 4.13")
+f=50;.....................//frequency of induction motor in hertz
+hp=20; //horse power
+ph=3; //Three phase supply
+P=4; //number of poles
+losses=500; //friction and vintage losses
+printf("Output of the motor=%fW",(hp*735.5))
+Pd=(hp*735.5)+losses; //power developed in watt
+printf("\nPower developed by the rotor=%dW",Pd);
+s=0.04; //slip
+rotorloss=(s*Pd)/(1-s);
+printf("\nRotor I^2R-loss=%fW",rotorloss);
+Ns=(120*f)/P;
+printf("\nNs=%drpm",Ns);
+Nr=Ns*(1-s);
+printf("Nr=%drpm",Nr);
+
diff --git a/431/CH4/EX4.13/resultEX4_13.txt b/431/CH4/EX4.13/resultEX4_13.txt
new file mode 100755
index 000000000..69f603054
--- /dev/null
+++ b/431/CH4/EX4.13/resultEX4_13.txt
@@ -0,0 +1,6 @@
+
+ Example 4.13
+Output of the motor=14710.000000W
+Power developed by the rotor=15210W
+Rotor I^2R-loss=633.750000W
+Ns=1500rpmNr=1440rpm \ No newline at end of file
diff --git a/431/CH4/EX4.14/EX4_14.sce b/431/CH4/EX4.14/EX4_14.sce
new file mode 100755
index 000000000..50e2d14ad
--- /dev/null
+++ b/431/CH4/EX4.14/EX4_14.sce
@@ -0,0 +1,18 @@
+//Calculating standstill rotor reactance
+//Chapter 4
+//Example 4.14
+//page 310
+clear;
+clc;
+disp("Example 4.14")
+f=50;.....................//frequency of induction motor in hertz
+P=6; //number of poles
+ph=3; //Three phase supply
+R2=0.1; //rotor resistance in ohms
+Ns=(120*f)/P;
+printf("Syncronous speed,Ns=%drpm",Ns);
+Nr=940; //rotor speed in rpm
+S=(Ns-Nr)/Ns;
+printf("\nSlip,S=%f",S);
+printf("\nstandstill rotor reactance,X20=%fohms",(R2/S));
+
diff --git a/431/CH4/EX4.14/resultEX4_14.txt b/431/CH4/EX4.14/resultEX4_14.txt
new file mode 100755
index 000000000..9d55f1ada
--- /dev/null
+++ b/431/CH4/EX4.14/resultEX4_14.txt
@@ -0,0 +1,5 @@
+
+ Example 4.14
+Syncronous speed,Ns=1000rpm
+Slip,S=0.060000
+standstill rotor reactance,X20=1.666667ohms \ No newline at end of file
diff --git a/431/CH4/EX4.15/EX4_15.sce b/431/CH4/EX4.15/EX4_15.sce
new file mode 100755
index 000000000..b68ae1786
--- /dev/null
+++ b/431/CH4/EX4.15/EX4_15.sce
@@ -0,0 +1,22 @@
+//Calculating new full load speed
+//Chapter 4
+//Example 4.15
+//page 310
+clear;
+clc;
+disp("Example 4.15")
+f=50;.....................//frequency of induction motor in hertz
+P=4; //number of poles
+Nr=1440; //rotor speed in rpm
+R2=0.1; //rotor resistance in ohms
+X20=0.6; //rotor standstill resistance in ohms
+Ns=(120*f)/P;
+printf("Synchronous speed=%drpm",Ns);
+S1=(Ns-Nr)*(100/Ns);
+printf("Full-load slip with rotor resistance,R2 i.e. S1=%f",S1);
+disp("on adding extra resistance o.1ohm")
+//on solving we get S2=0.08
+S2=0.08;
+Nr2=Ns*(1-S2);
+printf("\nNew rotor speed=%drpm",Nr2);
+
diff --git a/431/CH4/EX4.15/resultEX4_15.txt b/431/CH4/EX4.15/resultEX4_15.txt
new file mode 100755
index 000000000..554975d31
--- /dev/null
+++ b/431/CH4/EX4.15/resultEX4_15.txt
@@ -0,0 +1,6 @@
+
+ Example 4.15
+Synchronous speed=1500rpmFull-load slip with rotor resistance,R2 i.e. S1=4.000000
+ on adding extra resistance o.1ohm
+
+New rotor speed=1380rpm \ No newline at end of file
diff --git a/431/CH4/EX4.16/EX4_16.sce b/431/CH4/EX4.16/EX4_16.sce
new file mode 100755
index 000000000..ee0844bf5
--- /dev/null
+++ b/431/CH4/EX4.16/EX4_16.sce
@@ -0,0 +1,20 @@
+//Calculating starting torque
+//Chapter 4
+//Example 4.16
+//page 311
+clear;
+clc;
+disp("Example 4.16")
+f=50; //frequency in hertz
+P=4; //number of poles
+R2=0.04; //rotor resistance in ohms
+Ns=(120*f)/P;
+printf("Syncronous speed=%drpm",Ns);
+Nr=1200; //rotor speed at maximium torque in rpm
+S=(Ns-Nr)/Ns;
+printf("\nSlip at maximium torque=%f",S);
+X20=R2/S;
+//starting torque is developed when S=1
+//r=(Tst/Tm)
+r=(R2/(R2^2+X20^2))*(2*X20);
+printf("\nTherefore, starting torque is %fpercent of the maximium torque",(r*100));
diff --git a/431/CH4/EX4.16/resultEX4_16.txt b/431/CH4/EX4.16/resultEX4_16.txt
new file mode 100755
index 000000000..b62461947
--- /dev/null
+++ b/431/CH4/EX4.16/resultEX4_16.txt
@@ -0,0 +1,5 @@
+
+ Example 4.16
+Syncronous speed=1500rpm
+Slip at maximium torque=0.200000
+Therefore, starting torque is 38.461538percent of the maximium torque \ No newline at end of file
diff --git a/431/CH4/EX4.18/EX4_18.sce b/431/CH4/EX4.18/EX4_18.sce
new file mode 100755
index 000000000..89e9f963a
--- /dev/null
+++ b/431/CH4/EX4.18/EX4_18.sce
@@ -0,0 +1,20 @@
+//Calculating external resistance
+//Chapter 4
+//Example 4.18
+//page 313
+clear;
+clc;
+disp("Example 4.18")
+P=4; //number of poles
+f=50; //frequency in hertz
+ph=3; //three phase supply
+R2=0.25; //rotor resistance in ohms
+Nr=1440; //rotor speed in rpm
+Ns=(120*f)/P;
+S1=(Ns-Nr)/Ns;
+printf("S1=%f",S1);
+Nr2=1200; //rotor speed when external is added
+S2=(Ns-Nr2)/Ns;
+//torque remains constant,we get the relation R2'=R2*(S2/S1)
+R2dash=R2*(S2/S1)
+printf("\nExtra resistance to be connected in the motor circuit=%fohms",(R2dash-R2)) \ No newline at end of file
diff --git a/431/CH4/EX4.18/resultEX4_18.txt b/431/CH4/EX4.18/resultEX4_18.txt
new file mode 100755
index 000000000..b80433882
--- /dev/null
+++ b/431/CH4/EX4.18/resultEX4_18.txt
@@ -0,0 +1,4 @@
+
+ Example 4.18
+S1=0.040000
+Extra resistance to be connected in the motor circuit=1.000000ohms \ No newline at end of file
diff --git a/431/CH4/EX4.2/EX4_2.sce b/431/CH4/EX4.2/EX4_2.sce
new file mode 100755
index 000000000..039252d78
--- /dev/null
+++ b/431/CH4/EX4.2/EX4_2.sce
@@ -0,0 +1,30 @@
+//determining rotor running at high slip
+//Chapter 4
+//Example 4.2
+//page 288
+clear;
+clc;
+disp("example 4.2");
+f=50; //frequency
+V=400; //voltage supply
+
+p=2;
+printf("when P=2, Syhchronous speed,Ns=%d \n",((120*f)/p));
+p=4;
+printf("when P=2, Syhchronous speed,Ns=%d \n",((120*f)/p));
+p=6;
+printf("when P=2, Syhchronous speed,Ns=%d \n",((120*f)/p));
+p=8;
+printf("when P=2, Syhchronous speed,Ns=%d \n",((120*f)/p));
+disp("for Nr to be 1440 , Ns will be 1500, thus p=4")
+Ns=1500;Nr1=1440;
+S1=((Ns-Nr1)/Ns)*100;
+printf("slip=%d\n",S1);
+disp("for Nr to be 940 , Ns will be 1000, thus p=6")
+Ns=1000;Nr2=940;
+S2=((Ns-Nr2)/Ns)*100;
+printf("slip=%d\n",S2);
+if S1>S2 then
+ disp("motor running at 1440 rpm is running at higher slip")
+elseif S2>S1
+ disp("motor running at 940 rpm is running at higher slip") \ No newline at end of file
diff --git a/431/CH4/EX4.2/resultEX4_2.txt b/431/CH4/EX4.2/resultEX4_2.txt
new file mode 100755
index 000000000..be975322a
--- /dev/null
+++ b/431/CH4/EX4.2/resultEX4_2.txt
@@ -0,0 +1,14 @@
+ example 4.2
+when P=2, Syhchronous speed,Ns=3000
+when P=2, Syhchronous speed,Ns=1500
+when P=2, Syhchronous speed,Ns=1000
+when P=2, Syhchronous speed,Ns=750
+
+ for Nr to be 1440 , Ns will be 1500, thus p=4
+slip=4
+
+ for Nr to be 940 , Ns will be 1000, thus p=6
+slip=6
+
+ motor running at 940 rpm is running at higher slip
+ \ No newline at end of file
diff --git a/431/CH4/EX4.20/EX4_20.sce b/431/CH4/EX4.20/EX4_20.sce
new file mode 100755
index 000000000..56ac18ce5
--- /dev/null
+++ b/431/CH4/EX4.20/EX4_20.sce
@@ -0,0 +1,22 @@
+//Calculating full load rotor loss and rotor input and output torque
+//Chapter 4
+//Example 4.20
+//page 311
+clear;
+clc;
+disp("Example 4.20")
+hp=20;
+P=4; //number of poles
+f=50;
+S=0.03; //slip
+MSO=hp*735.5; //motor shaft output
+losses=0.02*MSO //friction and windage loss in watts
+Pd=MSO+losses; //power developed by the rotor in watts
+RCL=(S*Pd)/(1-S); //rotor I^2*R loss
+printf("rotor copper loss=%fW",RCL);
+Ri=Pd+RCL //rotor iron loss is neglected
+printf("\nRotor input=%fW",Ri);
+Ns=(120*f)/P;
+Nr=Ns*(1-S)*(1/60); //rotor speed in rps
+OT=MSO/(2*3.14*Nr); //outp[ut torque in Nm
+printf("\noutput torque=%fNm",OT) \ No newline at end of file
diff --git a/431/CH4/EX4.20/resultEX4_20.txt b/431/CH4/EX4.20/resultEX4_20.txt
new file mode 100755
index 000000000..135e4c9d3
--- /dev/null
+++ b/431/CH4/EX4.20/resultEX4_20.txt
@@ -0,0 +1,4 @@
+ Example 4.20
+rotor copper loss=464.047423W
+Rotor input=15468.247423W
+output torque=96.592028Nm \ No newline at end of file
diff --git a/431/CH4/EX4.21/EX4_21.sce b/431/CH4/EX4.21/EX4_21.sce
new file mode 100755
index 000000000..8c1d3fbb3
--- /dev/null
+++ b/431/CH4/EX4.21/EX4_21.sce
@@ -0,0 +1,25 @@
+//Calculating the slip,rotor copper loss,the output horse power and efficiency
+//Chapter 4
+//Example 4.21
+//page 316
+clear;
+clc;
+disp("Example 4.21")
+f=50;...................//frequency of induction motor in hertz
+P=6;....................//pole
+Ns=(120*f)/P;
+Nr=975;.........................//induction motor running speed in rpm
+S=(Ns-Nr)/Ns;
+printf("the slip=%f",S)
+Pin=40;....................//power input to stator in kW
+Sl=1;.....................//stator losses in kW
+Rin=Pin-Sl;.................//output from stator in kW
+Rc=S*Rin;
+printf("\nrotor copper losses=%fkW",Rc)
+l=2;.....................//total losses in kW
+p=Rin-Rc-l;..................//output power in kw
+HP=(p*1000)/735.5;
+printf("\noutput horse output=%fHP",HP)
+in=40;...........................//input in kW
+effi=(p/in)*100;
+printf("\nefficiency=%fpercent",effi) \ No newline at end of file
diff --git a/431/CH4/EX4.21/resultEX4_21.txt b/431/CH4/EX4.21/resultEX4_21.txt
new file mode 100755
index 000000000..254e20e43
--- /dev/null
+++ b/431/CH4/EX4.21/resultEX4_21.txt
@@ -0,0 +1,6 @@
+
+ Example 4.21
+the slip=0.025000
+rotor copper losses=0.975000kW
+output horse output=48.980286HP
+efficiency=90.062500percent \ No newline at end of file
diff --git a/431/CH4/EX4.22/EX4_22.sce b/431/CH4/EX4.22/EX4_22.sce
new file mode 100755
index 000000000..06ee719b8
--- /dev/null
+++ b/431/CH4/EX4.22/EX4_22.sce
@@ -0,0 +1,25 @@
+//Calculating the slip,rotor speed,mechanical power developed,rotor copper loss per phase and resistance per phase
+//Chapter 4
+//Example 4.22
+//page 316
+clear;
+clc;
+disp("Example 4.22")
+f=50;...........................//frequency of induction motor in hertz
+P=6;............................//pole
+Ns=(120*f)/P;
+printf("synchronous speed=%frpm",Ns)
+fr=120/60;...........................//rotor frequency
+S=fr/f;
+printf("\nthe slip=%f",S)
+Nr=Ns-(Ns*S);
+printf("\nrotor speed=%frpm",Nr)
+Rin=80;.......................//rotor input in kW
+Rc=S*Rin;.....................//Rotor copper loss in kW
+Ph=3;...............................//number of phases
+Rcp=(Rc/Ph)*1000;.........................//loss per phase in watt
+p=((Rin-Rc)*1000)/735.5;
+printf("\nmechanical power developed=%fhp",p)
+Ir=60;.........................//rotor current in amperes
+R2=Rcp/(Ir)^2;
+printf("\nrotor resistance per phase at rotor current 60A=%fohms",R2) \ No newline at end of file
diff --git a/431/CH4/EX4.22/resultEX4_22.txt b/431/CH4/EX4.22/resultEX4_22.txt
new file mode 100755
index 000000000..71fdec324
--- /dev/null
+++ b/431/CH4/EX4.22/resultEX4_22.txt
@@ -0,0 +1,6 @@
+ Example 4.22
+synchronous speed=1000.000000rpm
+the slip=0.040000
+rotor speed=960.000000rpm
+mechanical power developed=104.418763hp
+rotor resistance per phase at rotor current 60A=0.296296ohms \ No newline at end of file
diff --git a/431/CH4/EX4.23/EX4_23.sce b/431/CH4/EX4.23/EX4_23.sce
new file mode 100755
index 000000000..f4dd02bcf
--- /dev/null
+++ b/431/CH4/EX4.23/EX4_23.sce
@@ -0,0 +1,17 @@
+//Calculating additional resistance required
+//Chapter 4
+//Example 4.23
+//page 320
+clear;
+clc;
+disp("Example 4.23")
+// we know (Ts/Tm)=((2*a)/(1+a^2))
+//where a=(R2/X20)
+//at starting contion since Tm=Ts
+disp("At starting contion since Tm=Ts")
+a=1 //we obtain from the relations
+R2=0.05; //circuit resistance in ohms
+X2=0.4; //standstill reactance in ohms
+r=(a*X2)-R2; //r is the extra that is added to the rotor circuit
+printf("extra resistance added,r=%fohms",r)
+
diff --git a/431/CH4/EX4.23/resultEX4_23.txt b/431/CH4/EX4.23/resultEX4_23.txt
new file mode 100755
index 000000000..7e0b80650
--- /dev/null
+++ b/431/CH4/EX4.23/resultEX4_23.txt
@@ -0,0 +1,5 @@
+
+ Example 4.23
+
+ At starting contion since Tm=Ts
+extra resistance added,r=0.350000ohms \ No newline at end of file
diff --git a/431/CH4/EX4.24/EX4_24.sce b/431/CH4/EX4.24/EX4_24.sce
new file mode 100755
index 000000000..8de1acae6
--- /dev/null
+++ b/431/CH4/EX4.24/EX4_24.sce
@@ -0,0 +1,29 @@
+//Calculate speed of motor and maximium torque
+//Chapter 4
+//Example 4.24
+//page 321
+clear;
+clc;
+disp("Example 4.24")
+V=400; //supply voltage in volts
+f=50; //frequency in hertz
+P=6; //number of poles
+ph=3; //three phase supply
+R2=0.03; //rotor resistance in ohms
+X20=0.4; //rptor reactance in ohms
+Nr=960; //full load speed in rpm
+Ns=(120*f)/P;
+printf("synchronous speed=%drpm",Ns)
+S=(Ns-Nr)/Ns; //corresponding slip
+//maximium torque Tm occurs at S=(R2/X20)
+//we get Tm=k/(2*X20)
+a=R2/X20;
+//r=Tm/T
+r=(a^2+S^2)/(2*a*S);
+Sm=(R2/X20);
+printf("\nSlip at maximium torque,Sm=%f",Sm);
+//corresponding speed
+Nr2=Ns*(1-Sm);
+printf("\nRotor speed at maximium torque=%drpm",Nr2)
+
+
diff --git a/431/CH4/EX4.24/resultEX4_24.txt b/431/CH4/EX4.24/resultEX4_24.txt
new file mode 100755
index 000000000..f5e1f4dca
--- /dev/null
+++ b/431/CH4/EX4.24/resultEX4_24.txt
@@ -0,0 +1,5 @@
+
+ Example 4.24
+synchronous speed=1000rpm
+Slip at maximium torque,Sm=0.075000
+Rotor speed at maximium torque=925rpm \ No newline at end of file
diff --git a/431/CH4/EX4.25/EX4_25.sce b/431/CH4/EX4.25/EX4_25.sce
new file mode 100755
index 000000000..916256940
--- /dev/null
+++ b/431/CH4/EX4.25/EX4_25.sce
@@ -0,0 +1,23 @@
+//Calculate starting current
+//Chapter 4
+//Example 4.25
+//page 321
+clear;
+clc;
+disp("Example 4.25")
+V=400; //supply voltage in volts
+f=50; //frequency in hertz
+P=4; //number of poles
+ph=3; //three phase supply
+S=0.04;
+If=30; //Full load current in amperes
+Isc=6*If;
+//let r be the ratio of starting torque nd full load torque, r=Ts/Tf
+r=(Isc/If)^2*S;
+//Tf=Tm is produced when voltage is Vm
+Vm=sqrt(V^2/r);
+printf("\nvoltage at maximium torque=%fvolts",Vm);
+Is=6*If*(Vm/V);
+printf("\nFull-load current at 333.3 volts is=%fA",Is)
+
+
diff --git a/431/CH4/EX4.25/resultEX4_25.txt b/431/CH4/EX4.25/resultEX4_25.txt
new file mode 100755
index 000000000..8c0720c06
--- /dev/null
+++ b/431/CH4/EX4.25/resultEX4_25.txt
@@ -0,0 +1,5 @@
+
+ Example 4.25
+
+voltage at maximium torque=333.333333volts
+Full-load current at 333.3 volts is=150.000000A \ No newline at end of file
diff --git a/431/CH4/EX4.26/EX4_26.sce b/431/CH4/EX4.26/EX4_26.sce
new file mode 100755
index 000000000..e301f5ec9
--- /dev/null
+++ b/431/CH4/EX4.26/EX4_26.sce
@@ -0,0 +1,20 @@
+//Calculate starting line current and starting torque
+//Chapter 4
+//Example 4.26
+//page 330
+clear;
+clc;
+disp("Example 4.26")
+V=400; //supply voltage in volts
+f=50; //frequency in hertz
+Id=75; //current taken when delta-connected in amperes
+printf("current taken when delta-connected=%dA",Id);
+Is=Id/3; //current taken when star-connected in amperes
+printf("\ncurrent taken when star-connected=%dA",Is);
+//Tfl be the full load torque
+//r=Ts/Tfl
+r=1.5;
+//since voltage becomes (1/sqrt(3)) when star connected
+//torque is directly proportional to square of voltage
+printf("\nStarting torque with winding star connected=%f times of Tfl",(r/3));
+
diff --git a/431/CH4/EX4.26/resultEX4_26.txt b/431/CH4/EX4.26/resultEX4_26.txt
new file mode 100755
index 000000000..35b30d0c5
--- /dev/null
+++ b/431/CH4/EX4.26/resultEX4_26.txt
@@ -0,0 +1,5 @@
+
+ Example 4.25
+current taken when delta-connected=75A
+current taken when star-connected=25A
+Starting torque with winding star connected=0.500000 times of Tfl \ No newline at end of file
diff --git a/431/CH4/EX4.28/EX4_28.sce b/431/CH4/EX4.28/EX4_28.sce
new file mode 100755
index 000000000..6df2d0d18
--- /dev/null
+++ b/431/CH4/EX4.28/EX4_28.sce
@@ -0,0 +1,23 @@
+//Calculate starting torque
+//Chapter 4
+//Example 4.28
+//page 333
+clear;
+clc;
+disp("Example 4.28")
+ph=3;
+//rotor copper loss=slip*rotor input
+//Tst= starting torque
+//Tfl=torque at full load
+//Ist/Ifl=r
+r=6;
+S=0.04
+printf(" At slip=0.04")
+printf("\nFor direct-on-line starting, (Tst/Tfl)=%f",((r^2*S)));
+//phase current in start is (1/sqrt(3)) times the phase current in delta
+
+printf("\nFor direct-on-line starting, (Tst/Tfl)=%f",((r/sqrt(3))^2*S));
+
+
+
+
diff --git a/431/CH4/EX4.28/resultEX4_28.txt b/431/CH4/EX4.28/resultEX4_28.txt
new file mode 100755
index 000000000..b0e50e72b
--- /dev/null
+++ b/431/CH4/EX4.28/resultEX4_28.txt
@@ -0,0 +1,5 @@
+
+ Example 4.28
+ At slip=0.04
+For direct-on-line starting, (Tst/Tfl)=1.440000
+For direct-on-line starting, (Tst/Tfl)=0.480000 \ No newline at end of file
diff --git a/431/CH4/EX4.29/EX4_29.sce b/431/CH4/EX4.29/EX4_29.sce
new file mode 100755
index 000000000..aa26568ba
--- /dev/null
+++ b/431/CH4/EX4.29/EX4_29.sce
@@ -0,0 +1,26 @@
+//Calculate full load speed
+//Chapter 4
+//Example 4.29
+//page 334
+clear;
+clc;
+disp("Example 4.29")
+V=400; //voltage in volts
+f=50; //frequency in hertz
+P=4; //number of poles
+//r1=(Ts/Tfl)
+r1=1.6;
+//r2=(Tm/Tfl)
+r2=2;
+//r3=(Ts/Tm)=(2*a)/(1+a^2)
+r3=0.8;
+//on solving , we get a=0.04 ,
+a=0.04;
+Sm=0.04; //slip at maximium torque
+printf("Slip at maximium torque,Sm=%f",Sm)
+Ns=(120*f)/P; //synchronous speed in rpm
+Nr=Ns*(1-Sm) //rotor speed in rpm
+//r2=(a^2+Sfl^2)/(2*a*Sfl)
+Sfl=0.01;
+Nr2=Ns*(1-Sfl);
+printf("\nfull load speed,Nr=%drpm",Nr2)
diff --git a/431/CH4/EX4.29/resultEX4_29.txt b/431/CH4/EX4.29/resultEX4_29.txt
new file mode 100755
index 000000000..313a9b792
--- /dev/null
+++ b/431/CH4/EX4.29/resultEX4_29.txt
@@ -0,0 +1,4 @@
+
+ Example 4.29
+Slip at maximium torque,Sm=0.040000
+full load speed,Nr=1485rpm \ No newline at end of file
diff --git a/431/CH4/EX4.3/EX4_3.sce b/431/CH4/EX4.3/EX4_3.sce
new file mode 100755
index 000000000..87f807e18
--- /dev/null
+++ b/431/CH4/EX4.3/EX4_3.sce
@@ -0,0 +1,24 @@
+//Calculating synchronous speed and speed of a rotor
+//Chapter 4
+//Example 4.3
+//page 289
+clear;
+clc;
+disp("example 4.3");
+disp("induction motor is to be run at 1440 rpm")
+P=10; //poles of alternator
+N=600; //speed of alternator
+f=(P*N)/120 //frequency
+printf("frequency=%d",f);
+disp("when P=2");p=2
+Ns=(120*f)/p; //synchronous speed
+printf("Syhchronous speed,Ns=%d \n",Ns);
+disp("when P=4");p=4;
+Ns=(120*f)/p; //synchronous speed
+printf("Syhchronous speed,Ns=%d \n",Ns);
+//speed of rotor(1440) is less than synchronous speed 1500, therefore P=4
+disp("speed of rotor(1440) is less than synchronous speed 1500, therefore P=4\n")
+Ns=1500;
+Nr=1440;
+S=((Ns-Nr)/Ns)*100
+printf("\nslip is %d percent and number of poles is 4",S) \ No newline at end of file
diff --git a/431/CH4/EX4.3/resultEX4_3.txt b/431/CH4/EX4.3/resultEX4_3.txt
new file mode 100755
index 000000000..fd8e312f7
--- /dev/null
+++ b/431/CH4/EX4.3/resultEX4_3.txt
@@ -0,0 +1,13 @@
+example 4.3
+
+ induction motor is to be run at 1440 rpm
+frequency=50
+ when P=2
+Syhchronous speed,Ns=3000
+
+ when P=4
+Syhchronous speed,Ns=1500
+
+ speed of rotor(1440) is less than synchronous speed 1500, therefore P=4\n
+
+slip is 4 percent and number of poles is 4 \ No newline at end of file
diff --git a/431/CH4/EX4.30/EX4_30.sce b/431/CH4/EX4.30/EX4_30.sce
new file mode 100755
index 000000000..de6765011
--- /dev/null
+++ b/431/CH4/EX4.30/EX4_30.sce
@@ -0,0 +1,27 @@
+//Calculate full load rotor loss and rotor input and output torque
+//Chapter 4
+//Example 4.30
+//page 345
+clear;
+clc;
+disp("Example 4.30")
+hp=20; //power in horsepower
+f=50; //frequency in hertz
+P=4; //number of poles
+Ns=(120*f)/P; //synchronous speed
+printf("Synchronous speed,Ns=%drpm",Ns);
+S=0.04; //slip
+Nr=Ns*(1-S);
+OP=hp*735.5;
+printf("\nOutput power=%fW",OP);
+OT=OP/(2*3.14*(Nr/60));
+printf("\nOutput torque=%fNm",OT);
+FL=0.02*OP; //Friction and windage loss
+PD=OP+FL;
+printf("\nPower developed by the rotor=%fW",PD);
+//from relation, (rotor I^2R-loss=S*Rotor input) we get following relation
+RL=(S*PD)/(1-S);
+printf("\nRotor I^2R-loss=%fW",RL);
+RI=RL/S;
+printf("\nRotor input=%dW",RI)
+
diff --git a/431/CH4/EX4.30/resultEX4_30.txt b/431/CH4/EX4.30/resultEX4_30.txt
new file mode 100755
index 000000000..db5bb6f1c
--- /dev/null
+++ b/431/CH4/EX4.30/resultEX4_30.txt
@@ -0,0 +1,8 @@
+
+ Example 4.30
+Synchronous speed,Ns=1500rpm
+Output power=14710.000000W
+Output torque=97.598195Nm
+Power developed by the rotor=15004.200000W
+Rotor I^2R-loss=625.175000W
+Rotor input=15629W \ No newline at end of file
diff --git a/431/CH4/EX4.31/EX4_31.sce b/431/CH4/EX4.31/EX4_31.sce
new file mode 100755
index 000000000..8e01b2980
--- /dev/null
+++ b/431/CH4/EX4.31/EX4_31.sce
@@ -0,0 +1,26 @@
+//Calculate full load rotor loss and rotor input and output torque
+//Chapter 4
+//Example 4.31
+//page 347
+clear;
+clc;
+disp("Example 4.31")
+P=4; //number of poles
+f=50; //frequency in hertz
+V=230; //voltage in volts
+hp=5; //power in horsepower
+Ib=15; //current in block rotor test in amperes
+output=hp*735.5; //output in watts
+//in block rotor test: power input=Full=load I^2R losses=735W
+FLl=735; //Full-load I^2R losses
+printf("Full-load I^2R losses=%fW",FLl);
+Re=FLl/(3*Ib^2);
+Io=6.3; //current in no load condition in amperes
+lossNL=(3*(Io)^2*Re); //I^2R loss at no-load condition
+printf("\nI^2R loss at no-load=%fW",lossNL);
+PiNL=275; //power input at no-load
+printf("\nCore loss plus friction and windage loss=%dW",(PiNL-lossNL));
+TL=FLl+(PiNL-lossNL);
+effi=(output*100)/(output+TL);
+printf("\nEfficiency=%fpercent",effi)
+
diff --git a/431/CH4/EX4.31/resultEX4_31.txt b/431/CH4/EX4.31/resultEX4_31.txt
new file mode 100755
index 000000000..8e4dab8f5
--- /dev/null
+++ b/431/CH4/EX4.31/resultEX4_31.txt
@@ -0,0 +1,5 @@
+ Example 4.31
+Full-load I^2R losses=735.000000W
+I^2R loss at no-load=129.654000W
+Core loss plus friction and windage loss=145W
+Efficiency=80.685043percent \ No newline at end of file
diff --git a/431/CH4/EX4.32/EX4_32.sce b/431/CH4/EX4.32/EX4_32.sce
new file mode 100755
index 000000000..3250fa132
--- /dev/null
+++ b/431/CH4/EX4.32/EX4_32.sce
@@ -0,0 +1,32 @@
+//Calculate full load efficiency
+//Chapter 4
+//Example 4.32
+//page 347
+clear;
+clc;
+disp("Example 4.32")
+Vl=415; //voltage in volts
+Il=50; //line current in amperes
+R1=0.5; //resistrance of stator winding per phase in ohms
+pf=0.85; //power factor
+S=0.04;
+IFL=(sqrt(3)*Vl*Il*pf) //input to the motor on full load
+printf("Input to the motor on full load=%dW",IFL);
+I1=Il/sqrt(3);
+SLFL=(3*I1^2*R1) //Stator I^2R loss on full load
+printf("\nStator I^2R loss on full load=%dW",SLFL);
+//given ratio of stator core loss friction and windahe loss be r=(r1:r2)
+r1=3;
+r2=2;
+TL=1500; //total loss
+SCL=(r1*TL)/(r1+r2); //stator core loss
+FWL=(r2*TL)/(r1+r2); //Friction and windage loss
+SL=SLFL+SCL; //total stator loss
+SI=IFL; //Stator input
+Pa=SI-SL; //power transferred through the air-gap=input to the rotor
+RI=Pa
+RL=S*RI; //rotor losses
+TRL=FWL+RL; //total rotor losses
+OP=RI-TRL; //Output power at the shaft
+effi=(OP*100)/SI;
+printf("\nEfficiency=%f percent",effi)
diff --git a/431/CH4/EX4.32/resultEX4_32.txt b/431/CH4/EX4.32/resultEX4_32.txt
new file mode 100755
index 000000000..62e543d61
--- /dev/null
+++ b/431/CH4/EX4.32/resultEX4_32.txt
@@ -0,0 +1,5 @@
+
+ Example 4.32
+Input to the motor on full load=30549W
+Stator I^2R loss on full load=1250W
+Efficiency=87.279597 percent \ No newline at end of file
diff --git a/431/CH4/EX4.33/EX4_33.sce b/431/CH4/EX4.33/EX4_33.sce
new file mode 100755
index 000000000..c6334beb5
--- /dev/null
+++ b/431/CH4/EX4.33/EX4_33.sce
@@ -0,0 +1,18 @@
+//Calculating the rotor current at slip 3 precent and when the rotor develops maximum torque
+//Chapter 4
+//Example 4.33
+//page 351
+clear;
+clc;
+disp("Example 4.33")
+E20=100;...............................//induced emf between slip terminals in volts
+E20p=E20/sqrt(3);.......................//induced emf per phase in volts
+printf("induced emf per phase=%fV",E20p)
+S=3/100;...........................//slip
+R2=0.2;.................................//resistance in ohms
+X20=1;................................//standstill resistance in ohms
+I2=(S*E20p)/sqrt((R2)^2+(S*X20)^2)
+printf("\nrotor current at slip 0.03 =%fA per phase",I2)
+Sm=R2/X20;
+I2m=(Sm*E20p)/sqrt((R2)^2+(Sm*X20)^2)
+printf("\nrotor current when the rotor develops maximum torque=%fA per phase",I2m) \ No newline at end of file
diff --git a/431/CH4/EX4.33/resultEX4_33.txt b/431/CH4/EX4.33/resultEX4_33.txt
new file mode 100755
index 000000000..e9036b644
--- /dev/null
+++ b/431/CH4/EX4.33/resultEX4_33.txt
@@ -0,0 +1,4 @@
+Example 4.33
+induced emf per phase=57.735027V
+rotor current at slip 0.03 =8.564440A per phase
+rotor current when the rotor develops maximum torque=40.824829A per phase \ No newline at end of file
diff --git a/431/CH4/EX4.34/EX4_34.sce b/431/CH4/EX4.34/EX4_34.sce
new file mode 100755
index 000000000..0b4e6e1b6
--- /dev/null
+++ b/431/CH4/EX4.34/EX4_34.sce
@@ -0,0 +1,24 @@
+//Calculating the rotor current at slip 3 precent and when the rotor develops maximum torque
+//Chapter 4
+//Example 4.34
+//page 352
+clear;
+clc;
+disp("Example 4.34")
+E20=120;......................//induced emf of motor at standstill in volts
+E20p=120/sqrt(3);.....................//induced emf per phase
+f=50;...............................//frequency of the motor in hertz
+R2=0.2;.................................//Rotor Resistance per phase
+X20=1;.....................................//Standstill resistance in ohms
+P=4;................................//pole
+I=16;........................//
+S=(I*R2)/sqrt((E20)^2-(I*X20)^2);
+Ns=(120*f)/P;
+printf("Synchronous speed=%frpm",Ns)
+Nr=Ns-(Ns*S)
+Sm=R2/X20;
+Nr=Ns-(Ns*Sm)
+I2=(Sm*E20p)/sqrt((R2)^2+(Sm*X20)^2)
+printf("\nrotor current at maximum torque=%fAper Phase",I2)
+Pi=(3*((I2)^2)*R2)/Sm;
+printf("\nRotor input for the three phase=%fW",Pi) \ No newline at end of file
diff --git a/431/CH4/EX4.34/resultEX4_34.txt b/431/CH4/EX4.34/resultEX4_34.txt
new file mode 100755
index 000000000..197ea9fe8
--- /dev/null
+++ b/431/CH4/EX4.34/resultEX4_34.txt
@@ -0,0 +1,5 @@
+
+ Example 4.34
+Synchronous speed=1500.000000rpm
+rotor current at maximum torque=48.989795Aper Phase
+Rotor input for the three phase=7200.000000W \ No newline at end of file
diff --git a/431/CH4/EX4.35/EX4_35.sce b/431/CH4/EX4.35/EX4_35.sce
new file mode 100755
index 000000000..4c46db514
--- /dev/null
+++ b/431/CH4/EX4.35/EX4_35.sce
@@ -0,0 +1,53 @@
+//Calculate the circuit elements
+//Chapter 4
+//Example 4.35
+//page 356
+clear;
+clc;
+disp("Example 4.35")
+R1dc=0.01; //DC resistance in ohms
+V=400; //voltage in volts
+r=1.5; //ratio of ac to dc resistance
+R1=r*R1dc; //AC resistance in ohms
+//at no-load
+Io=20; //no-load current in amperes
+SL=(3*Io^2*R1); //I^2R loss in the stator phases in watts
+FWL=300; //Friction and windage loss in watts
+TL=1200; //total losses=no-load power input in watts
+CL=TL-(SL+FWL); //core loss in watt
+CLp=CL/sqrt(3); //core loss per phase
+Vp=V/sqrt(3); //voltage per phase
+Rm=(Vp^3)/CL; //motor resistance
+pf=CL/(Vp*Io);
+phi0=acosd(pf);
+Xm=Vp/(Io*sind(phi0)); //motor reactance
+//Under blocked rotor test
+Vb=100; //voltage in volts
+Isc=45; //current in amperes
+Vbp=100/sqrt(3); //voltage per phase in volts
+P=2750; //power supplied in watts
+Ze=Vbp/Isc; //Motor impedance reffered to stator side in ohms
+Re=P/(3*Isc^2);
+R2=Re-R1; //rotor resistance referred to stator side
+Xe=sqrt(Ze^2-Re^2);
+//assuming X1=X2
+X2=Xe/2
+X1=X2;
+printf("Thus the elements of the equivalent circuit are:");
+printf("\nRm=%fohms",Rm);
+printf("\nXm=%fohms",Xm);
+printf("\n\nR1=%fohms",R1);
+printf("\nrotor resistance referred to stator side,R2=%fohms",R2);
+printf("\nequivalent resistance referred to stator side,Re=%fohms",Re);
+
+printf("\n\nX1=%fohms",X1);
+printf("\nrotor reactance referred to stator side,X2=%fohms",X2);
+printf("\nequivalent reactance referred to stator side,Xe=%fohms",Xe);
+
+
+
+
+
+
+
+
diff --git a/431/CH4/EX4.35/resultEX4_35.txt b/431/CH4/EX4.35/resultEX4_35.txt
new file mode 100755
index 000000000..8d14d3f22
--- /dev/null
+++ b/431/CH4/EX4.35/resultEX4_35.txt
@@ -0,0 +1,13 @@
+
+ Example 4.35
+Thus the elements of the equivalent circuit are:
+Rm=13964.632361ohms
+Xm=11.763476ohms
+
+R1=0.015000ohms
+rotor resistance referred to stator side,R2=0.437675ohms
+equivalent resistance referred to stator side,Re=0.452675ohms
+
+X1=0.600245ohms
+rotor reactance referred to stator side,X2=0.600245ohms
+equivalent reactance referred to stator side,Xe=1.200490ohms \ No newline at end of file
diff --git a/431/CH4/EX4.4/EX4_4.sce b/431/CH4/EX4.4/EX4_4.sce
new file mode 100755
index 000000000..d36f53837
--- /dev/null
+++ b/431/CH4/EX4.4/EX4_4.sce
@@ -0,0 +1,17 @@
+//Calculate frequency of rotor induced emf
+//Chapter 4
+//Example 4.4
+//page 293
+clear;
+clc;
+disp("Example 4.4")
+Nr=1440; //rotor speed in rpm
+f=50; //frequency in hertz
+//calculating Ns for values of P=2,4,6,8 etc
+//by checking P=4
+P=4;
+Ns=(120*f)/P; //Synchronous speed
+S=(Ns-Nr)/Ns; //slip
+Fr=S*f; //rotor frequency
+printf("Rotor frequency=%dHz",Fr)
+
diff --git a/431/CH4/EX4.4/resultEX4_4.txt b/431/CH4/EX4.4/resultEX4_4.txt
new file mode 100755
index 000000000..7d059ecd7
--- /dev/null
+++ b/431/CH4/EX4.4/resultEX4_4.txt
@@ -0,0 +1,3 @@
+
+ Example 4.4
+Rotor frequency=2Hz \ No newline at end of file
diff --git a/431/CH4/EX4.5/EX4_5.sce b/431/CH4/EX4.5/EX4_5.sce
new file mode 100755
index 000000000..717439066
--- /dev/null
+++ b/431/CH4/EX4.5/EX4_5.sce
@@ -0,0 +1,17 @@
+//Calculating the speed of running motor and its slip
+//Chapter 4
+//Example 4.5
+//page 294
+clear;
+clc;
+disp("Example 4.5")
+f=50;...................//induction motor frequency in hertz
+fr=1.5;.................//rotor frequency in hertz
+S=fr/f;................//slip
+P=8;...................//pole
+Ns=(120*f)/P;
+printf("synchronous speed=%frpm",Ns)
+Nr=Ns-(S*Ns);
+printf("\nmotor running speed=%frpm",Nr)
+S1=S*100;
+printf("\nslip percent=%fpercent",S1) \ No newline at end of file
diff --git a/431/CH4/EX4.5/resultEX4_5.txt b/431/CH4/EX4.5/resultEX4_5.txt
new file mode 100755
index 000000000..96ae5cfc7
--- /dev/null
+++ b/431/CH4/EX4.5/resultEX4_5.txt
@@ -0,0 +1,5 @@
+
+ Example 4.5
+synchronous speed=750.000000rpm
+motor running speed=727.500000rpm
+slip percent=3.000000percent \ No newline at end of file
diff --git a/431/CH4/EX4.6/EX4_7.sce b/431/CH4/EX4.6/EX4_7.sce
new file mode 100755
index 000000000..1a1848f4c
--- /dev/null
+++ b/431/CH4/EX4.6/EX4_7.sce
@@ -0,0 +1,26 @@
+//Calculate rotor current and phase difference
+//Chapter 4
+//Example 4.7
+//page 297
+clear;
+clc;
+disp("Example 4.7")
+E20=100; //induced emf in volts
+R2=0.05; //rotor resistance in ohms
+X20=0.1; //rotor reactance in ohms
+E20p=E20/sqrt(3);
+disp("When S=0.04")
+S=0.04;
+I2=(S*E20p)/sqrt(R2^2+(S*X20)^2)
+printf("I2=%dA",I2);
+phi2=acosd(R2/(sqrt(R2^2+(S*X20)^2)));
+printf("\nPhase angle between rotor voltage and rotor current=%f degrees",phi2);
+disp("When S=1")
+S=1;
+I2=(S*E20p)/sqrt(R2^2+(S*X20)^2)
+printf("I2=%dA",I2);
+phi2=acosd(R2/(sqrt(R2^2+(S*X20)^2)));
+printf("\nPhase angle between rotor voltage and rotor current=%f degrees",phi2);
+
+
+
diff --git a/431/CH4/EX4.6/resultEX4_7.txt b/431/CH4/EX4.6/resultEX4_7.txt
new file mode 100755
index 000000000..8c55e3119
--- /dev/null
+++ b/431/CH4/EX4.6/resultEX4_7.txt
@@ -0,0 +1,9 @@
+
+ Example 4.7
+
+ When S=0.04
+I2=46A
+Phase angle between rotor voltage and rotor current=4.573921 degrees
+ When S=1
+I2=516A
+Phase angle between rotor voltage and rotor current=63.434949 degrees \ No newline at end of file
diff --git a/431/CH4/EX4.7/EX4_7.sce b/431/CH4/EX4.7/EX4_7.sce
new file mode 100755
index 000000000..1a1848f4c
--- /dev/null
+++ b/431/CH4/EX4.7/EX4_7.sce
@@ -0,0 +1,26 @@
+//Calculate rotor current and phase difference
+//Chapter 4
+//Example 4.7
+//page 297
+clear;
+clc;
+disp("Example 4.7")
+E20=100; //induced emf in volts
+R2=0.05; //rotor resistance in ohms
+X20=0.1; //rotor reactance in ohms
+E20p=E20/sqrt(3);
+disp("When S=0.04")
+S=0.04;
+I2=(S*E20p)/sqrt(R2^2+(S*X20)^2)
+printf("I2=%dA",I2);
+phi2=acosd(R2/(sqrt(R2^2+(S*X20)^2)));
+printf("\nPhase angle between rotor voltage and rotor current=%f degrees",phi2);
+disp("When S=1")
+S=1;
+I2=(S*E20p)/sqrt(R2^2+(S*X20)^2)
+printf("I2=%dA",I2);
+phi2=acosd(R2/(sqrt(R2^2+(S*X20)^2)));
+printf("\nPhase angle between rotor voltage and rotor current=%f degrees",phi2);
+
+
+
diff --git a/431/CH4/EX4.7/resultEX4_7.txt b/431/CH4/EX4.7/resultEX4_7.txt
new file mode 100755
index 000000000..8c55e3119
--- /dev/null
+++ b/431/CH4/EX4.7/resultEX4_7.txt
@@ -0,0 +1,9 @@
+
+ Example 4.7
+
+ When S=0.04
+I2=46A
+Phase angle between rotor voltage and rotor current=4.573921 degrees
+ When S=1
+I2=516A
+Phase angle between rotor voltage and rotor current=63.434949 degrees \ No newline at end of file
diff --git a/431/CH4/EX4.8/EX4_8.sce b/431/CH4/EX4.8/EX4_8.sce
new file mode 100755
index 000000000..6f949f708
--- /dev/null
+++ b/431/CH4/EX4.8/EX4_8.sce
@@ -0,0 +1,16 @@
+//Calculating the running speed and frequency of the rotor magnet current
+//Chapter 4
+//Example 4.8
+//page 298
+clear;
+clc;
+disp("Example 4.8")
+f=50;.................//frequency of induction motor
+P=4;.................//pole
+Ns=(120*f)/P;
+S=3;..................//slip percent
+Nr=Ns-((Ns*S)/100)
+fr=(S*f)/100;
+printf("synchronous speed=%frpm",Ns)
+printf("\nspeed of running motor=%frpm",Nr)
+printf("\nrotor frequency=%fHz",fr) \ No newline at end of file
diff --git a/431/CH4/EX4.8/resultEX4_8.txt b/431/CH4/EX4.8/resultEX4_8.txt
new file mode 100755
index 000000000..22d8871ed
--- /dev/null
+++ b/431/CH4/EX4.8/resultEX4_8.txt
@@ -0,0 +1,5 @@
+
+ Example 4.8
+synchronous speed=1500.000000rpm
+speed of running motor=1455.000000rpm
+rotor frequency=1.500000Hz \ No newline at end of file
diff --git a/431/CH4/EX4.9/EX4_9.sce b/431/CH4/EX4.9/EX4_9.sce
new file mode 100755
index 000000000..a02ef58f9
--- /dev/null
+++ b/431/CH4/EX4.9/EX4_9.sce
@@ -0,0 +1,15 @@
+//Calculating the running speed and frequency of the rotor magnet current
+//Chapter 4
+//Example 4.9
+//page 299
+clear;
+clc;
+disp("Example 4.9")
+fr=2;.............................//frequency of motor induced emf in hertz
+f=50;.............................//frequency of induction motor in hertz
+S=(fr/f)*100;................//slip percent
+P=6;..............................//pole
+Ns=(120*f)/P;
+Nr=Ns-((Ns*S)/100);
+printf("percentage slip=%fpercent",S)
+printf("\nrotor speed=%frpm",Nr) \ No newline at end of file
diff --git a/431/CH4/EX4.9/resultEX4_9.txt b/431/CH4/EX4.9/resultEX4_9.txt
new file mode 100755
index 000000000..a93edbe56
--- /dev/null
+++ b/431/CH4/EX4.9/resultEX4_9.txt
@@ -0,0 +1,3 @@
+ Example 4.9
+percentage slip=4.000000percent
+rotor speed=960.000000rpm \ No newline at end of file