diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /431 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '431')
218 files changed, 3234 insertions, 0 deletions
diff --git a/431/CH2/EX2.10/EX2_10.sce b/431/CH2/EX2.10/EX2_10.sce new file mode 100755 index 000000000..bd763f5a5 --- /dev/null +++ b/431/CH2/EX2.10/EX2_10.sce @@ -0,0 +1,20 @@ +//calculating the torque developed
+//Chapter 2
+//Example 2.10
+//page 98
+clear;
+clc;
+disp("Example 2.10")
+n=10; //number of turns in 1 coil
+l=0.2;
+d=0.2; //diameter in metres
+B=1; //uniform magnetic field density in weber per m^2
+N=1500; //speed in rpm
+r=(d/2); //radius in metres
+E=(B*l*((2*3.14*N)/60)*r*2*n);
+printf("total induced emf=%f V",E)
+R=4; //total resistance in ohms
+I=E/R;
+printf("\nThe current through the armature coil when connected to the load,I=%f A",I)
+T=(E*I)/((2*3.14*N)/60)
+printf("\ntorque=%f Nm",T)
\ No newline at end of file diff --git a/431/CH2/EX2.10/resultEX2_10.txt b/431/CH2/EX2.10/resultEX2_10.txt new file mode 100755 index 000000000..e4ea80188 --- /dev/null +++ b/431/CH2/EX2.10/resultEX2_10.txt @@ -0,0 +1,4 @@ + Example 2.10
+total induced emf=62.800000 V
+The current through the armature coil when connected to the load,I=15.700000 A
+torque=6.280000 Nm
\ No newline at end of file diff --git a/431/CH2/EX2.11/EX2_11.sce b/431/CH2/EX2.11/EX2_11.sce new file mode 100755 index 000000000..a69c6ec08 --- /dev/null +++ b/431/CH2/EX2.11/EX2_11.sce @@ -0,0 +1,23 @@ +//calculating various parameters of dc motor
+//Chapter 2
+//Example 2.11
+//page 99
+clear;
+clc;
+disp("Example 2.11")
+V=230; //armature voltage supply in volts
+Ia=12; //armature current in amperes
+Ra=0.8; //armature resistance in ohms
+N=100; //speed in radian per second
+E=(V-(Ia*Ra))
+printf("induced emf,E=%fV",E)
+Te=(E*Ia)/N
+printf("\nthe electromagnetic torque=%fNm",Te)
+Pi=V*Ia
+printf("\nelectrical input to the armature,Pinput= %dW",Pi)
+Pd=Te*N
+printf("\nmechanical developed=%fW",Pd)
+loss=(Ia^2*Ra)
+printf("\narmature copper loss=%fW",loss)
+
+
diff --git a/431/CH2/EX2.11/resultEX2_11.txt b/431/CH2/EX2.11/resultEX2_11.txt new file mode 100755 index 000000000..ed22ff7de --- /dev/null +++ b/431/CH2/EX2.11/resultEX2_11.txt @@ -0,0 +1,6 @@ +Example 2.11
+induced emf,E=220.400000V
+the electromagnetic torque=26.448000Nm
+electrical input to the armature,Pinput= 2760W
+mechanical developed=2644.800000W
+armature copper loss=115.200000W
\ No newline at end of file diff --git a/431/CH2/EX2.12/EX2_11.sce b/431/CH2/EX2.12/EX2_11.sce new file mode 100755 index 000000000..a69c6ec08 --- /dev/null +++ b/431/CH2/EX2.12/EX2_11.sce @@ -0,0 +1,23 @@ +//calculating various parameters of dc motor
+//Chapter 2
+//Example 2.11
+//page 99
+clear;
+clc;
+disp("Example 2.11")
+V=230; //armature voltage supply in volts
+Ia=12; //armature current in amperes
+Ra=0.8; //armature resistance in ohms
+N=100; //speed in radian per second
+E=(V-(Ia*Ra))
+printf("induced emf,E=%fV",E)
+Te=(E*Ia)/N
+printf("\nthe electromagnetic torque=%fNm",Te)
+Pi=V*Ia
+printf("\nelectrical input to the armature,Pinput= %dW",Pi)
+Pd=Te*N
+printf("\nmechanical developed=%fW",Pd)
+loss=(Ia^2*Ra)
+printf("\narmature copper loss=%fW",loss)
+
+
diff --git a/431/CH2/EX2.12/resultEX2_11.txt b/431/CH2/EX2.12/resultEX2_11.txt new file mode 100755 index 000000000..ed22ff7de --- /dev/null +++ b/431/CH2/EX2.12/resultEX2_11.txt @@ -0,0 +1,6 @@ +Example 2.11
+induced emf,E=220.400000V
+the electromagnetic torque=26.448000Nm
+electrical input to the armature,Pinput= 2760W
+mechanical developed=2644.800000W
+armature copper loss=115.200000W
\ No newline at end of file diff --git a/431/CH2/EX2.13/EX2_13.sce b/431/CH2/EX2.13/EX2_13.sce new file mode 100755 index 000000000..927571772 --- /dev/null +++ b/431/CH2/EX2.13/EX2_13.sce @@ -0,0 +1,27 @@ +//calculating speed of machine
+//Chapter 2
+//Example 2.13
+//page 101
+clear;
+clc;
+disp("Example 2.13")
+disp("At generator condition")
+P=50000; //power delivered in watts
+V=250; //voltage in volts
+Ra=0.02; //armature resistance in ohms
+Rf=50; //field resistance in ohms
+If=V/Rf //field current in amperes
+Ng=400; //speed in generating condition in rpm
+printf("field current,If=%dA",If)
+Il=P/V //load current in amperes
+printf("\nLoad current,If=%dA",Il)
+Ia=If+Il //armature current in amperes
+printf("\nAramture current,If=%dA\n",Ia)
+Eg=(V+(Ia*Ra))
+disp("At motor condition")
+Ia=(Il-If)
+printf("Aramture current,If=%dA",Ia)
+Em=(V-(Ia*Ra))
+printf("\nEm=%fV",Em)
+Nm=(Ng*Em)/Eg
+printf("\nSpeed of the motor=%drpm",Nm)
diff --git a/431/CH2/EX2.13/resultEX2_13.txt b/431/CH2/EX2.13/resultEX2_13.txt new file mode 100755 index 000000000..13586a458 --- /dev/null +++ b/431/CH2/EX2.13/resultEX2_13.txt @@ -0,0 +1,12 @@ +
+ Example 2.13
+
+ At generator condition
+field current,If=5A
+Load current,If=200A
+Aramture current,If=205A
+
+ At motor condition
+Aramture current,If=195A
+Em=246.100000V
+Speed of the motor=387rpm
\ No newline at end of file diff --git a/431/CH2/EX2.14/EX2_14.sce b/431/CH2/EX2.14/EX2_14.sce new file mode 100755 index 000000000..fa96846c1 --- /dev/null +++ b/431/CH2/EX2.14/EX2_14.sce @@ -0,0 +1,26 @@ +//calculating speed ratio of generator and motor working conditios
+//Chapter 2
+//Example 2.14
+//page 101
+clear;
+clc;
+disp("Example 2.14")
+V=250; //voltage supply in volts
+Ra=0.12; //armature resistance in ohms
+Rf=100; //field resistance in ohms
+Il=80; //load current in amperes
+If=V/Rf
+printf("Field current,If=%f",If)
+disp("When machine is generating")
+Ia=Il+If
+Eg=(V+(Ia*Ra))
+printf("\nIa=%fA",Ia)
+printf("\nEg=%fV",Eg)
+disp("When machine is motoring")
+Ia=Il-If
+Em=(V-(Ia*Ra))
+printf("\nIa=%fA",Ia)
+printf("\nEg=%fV",Em)
+ratio=Eg/Em
+printf("\nRatio of speeds=%f",ratio)
+
diff --git a/431/CH2/EX2.14/resultEX2_14.txt b/431/CH2/EX2.14/resultEX2_14.txt new file mode 100755 index 000000000..9391acb5d --- /dev/null +++ b/431/CH2/EX2.14/resultEX2_14.txt @@ -0,0 +1,11 @@ + Example 2.14
+Field current,If=2.500000
+ When machine is generating
+
+Ia=82.500000A
+Eg=259.900000V
+ When machine is motoring
+
+Ia=77.500000A
+Eg=240.700000V
+Ratio of speeds=1.079767
\ No newline at end of file diff --git a/431/CH2/EX2.15/EX2_15.sce b/431/CH2/EX2.15/EX2_15.sce new file mode 100755 index 000000000..2ae75f072 --- /dev/null +++ b/431/CH2/EX2.15/EX2_15.sce @@ -0,0 +1,26 @@ +//calculating flux, area of pole shoe and no-load terminal voltage
+//Chapter 2
+//Example 2.15
+//page 102
+clear;
+clc;
+disp("Example 2.15")
+V=550; //voltage supply in volts
+P=16; //number of poles
+N=150; //speed in rpm
+Z=2500; //number of armature conductors
+A=16;
+Power=1500000; //power in watt
+Cl=25000; //full-load copper loss
+B=0.9; //flux density in the pole
+Ia=Power/V
+printf("Full load current=%fA",Ia)
+Ra=Cl/(Ia^2)
+printf("\nRa=%fohms",Ra)
+E=V+(Ia*Ra)
+printf("\nInduced emf=%fvolts",E)
+phi=(E*60*A)/(Z*N*P)
+printf("\nflux density=%fWb/m^2",B)
+printf("\nflux=%fWb",phi)
+area=(phi/B)
+printf("\n Area of pole shoe=%fcm^2",(area*10000))
\ No newline at end of file diff --git a/431/CH2/EX2.15/resultEX2_15.txt b/431/CH2/EX2.15/resultEX2_15.txt new file mode 100755 index 000000000..dc9db2633 --- /dev/null +++ b/431/CH2/EX2.15/resultEX2_15.txt @@ -0,0 +1,8 @@ +
+ Example 2.15
+Full load current=2727.272727A
+Ra=0.003361ohms
+Induced emf=559.166667volts
+flux density=0.900000Wb/m^2
+flux=0.089467Wb
+ Area of pole shoe=994.074074cm^2
\ No newline at end of file diff --git a/431/CH2/EX2.16/EX2_16.sce b/431/CH2/EX2.16/EX2_16.sce new file mode 100755 index 000000000..c88a73e34 --- /dev/null +++ b/431/CH2/EX2.16/EX2_16.sce @@ -0,0 +1,22 @@ +//calculate approximate time of commmutation
+//Chapter 2
+//Example 2.16
+//page 103
+clear;
+clc;
+disp("Example 2.16")
+Cd=0.76; //commutator diameter in metres
+Cr=.38; //commutator radius in metres
+bw=1.5*10^(-2); //brush width in metres
+N=600; //speed in rpm
+n=10; //speed in rps
+V=Cr*(2*3.14*n);
+printf("peripheral speed of commutator,V=%fm/sec",V);
+ Tc=bw/V;
+ printf("\nTime of commutation=%fseconds",Tc)
+
+
+
+
+
+
\ No newline at end of file diff --git a/431/CH2/EX2.16/resultEX2_16.txt b/431/CH2/EX2.16/resultEX2_16.txt new file mode 100755 index 000000000..d6f97a4e9 --- /dev/null +++ b/431/CH2/EX2.16/resultEX2_16.txt @@ -0,0 +1,3 @@ + Example 2.16
+peripheral speed of commutator,V=23.864000m/sec
+Time of commutation=0.000629seconds
\ No newline at end of file diff --git a/431/CH2/EX2.17/EX2_17.sce b/431/CH2/EX2.17/EX2_17.sce new file mode 100755 index 000000000..58ef5a9e9 --- /dev/null +++ b/431/CH2/EX2.17/EX2_17.sce @@ -0,0 +1,31 @@ +//calculate resistance
+//Chapter
+//Example 2.17
+//page 123
+clear;
+clc;
+disp("Example 2.17")
+V=240; //supply voltage in volts
+N=800; //speed in rpm
+Ia=2; //armeture current in amperes
+Ra=0.4; //armature resistance in ohms
+Rf=160; //field resistance in ohms
+Il1=30; //line current in amperes
+E=V-(Ia*Ra); //induced emf in volts
+disp("At no-load")
+printf("E=%fV",E)
+If=V/Rf; //field current in amperes
+printf("\nIf=%fA",If)
+K1=E/(If*N);
+printf("\nK1=%f",K1)
+disp("At a load of 30A")
+Ia1=(Il1-If);
+E1=V-(Ia1*Ra);
+N1=950; //speed in rpm
+If1=E1/(K1*N1);
+printf("If1=%fA\n",If1);
+Rr=V/If1;
+R=(Rr-Rf);
+printf("\nExtra resistance required in the field circuit,R=%fohms",R)
+
+
diff --git a/431/CH2/EX2.17/resultEX2_17.txt b/431/CH2/EX2.17/resultEX2_17.txt new file mode 100755 index 000000000..2d2fd28af --- /dev/null +++ b/431/CH2/EX2.17/resultEX2_17.txt @@ -0,0 +1,11 @@ +
+ Example 2.17
+
+ At no-load
+E=239.200000V
+If=1.500000A
+K1=0.199333
+ At a load of 30A
+If1=1.207182A
+
+Extra resistance required in the field circuit,R=38.810149ohms
\ No newline at end of file diff --git a/431/CH2/EX2.18/EX2_18.sce b/431/CH2/EX2.18/EX2_18.sce new file mode 100755 index 000000000..ec0e70ce4 --- /dev/null +++ b/431/CH2/EX2.18/EX2_18.sce @@ -0,0 +1,26 @@ +//calculating resistance required in series
+//Chapter 2
+//Example 2.18
+//page 124
+clear;
+clc;
+disp("Example 2.18")
+V=230; //voltage supply in volts
+Ia=20; //armature current in amperes
+Ra=0.5; //armature resistance in ohms
+E=V-(Ia*Ra);
+printf("E=%dV",E)
+disp("when extra resistance is added in the armature circuit,the speed is halved")
+E2=E/2;
+R=((V-E2)/Ia)-Ra;
+disp("The load torque is conatant")
+printf("extra resistance in the armature circui,R=%fohms",R)
+disp("The load torque directly proportional to square of speed")
+disp("if N is halfed, Iais one-fourthed")
+Ia2=Ia/4;
+R=((V-E2)/Ia2)-Ra;
+printf("extra resistance in the armature circui,R=%fohms",R)
+
+
+
+
diff --git a/431/CH2/EX2.18/resultEX2_18.txt b/431/CH2/EX2.18/resultEX2_18.txt new file mode 100755 index 000000000..28ab354a8 --- /dev/null +++ b/431/CH2/EX2.18/resultEX2_18.txt @@ -0,0 +1,11 @@ +
+ Example 2.18
+E=220V
+ when extra resistance is added in the armature circuit,the speed is halved
+
+ The load torque is conatant
+extra resistance in the armature circui,R=5.500000ohms
+ The load torque directly proportional to square of speed
+
+ if N is halfed, Iais one-fourthed
+extra resistance in the armature circui,R=23.500000ohms
\ No newline at end of file diff --git a/431/CH2/EX2.19/EX2_19.sce b/431/CH2/EX2.19/EX2_19.sce new file mode 100755 index 000000000..0aa812543 --- /dev/null +++ b/431/CH2/EX2.19/EX2_19.sce @@ -0,0 +1,25 @@ +//calculating resistance required in series and also the speedwhen torque is halfed
+//Chapter 2
+//Example 2.19
+//page 125
+clear;
+clc;
+disp("Example 2.19")
+V=250; //voltage supply in volts
+Ia=50; //armature current in amperes
+Ra=0.3; //armature resistance in ohms
+N=1000;
+E=V-(Ia*Ra);
+printf("E=%dV",E)
+disp("when extra resistance is added in the armature circuit when the speed is 800rpm")
+N2=800;
+E2=(E*N2)/N;
+printf("\nE at 800rpm=%dV",E2)
+R=((V-E2)/Ia)-Ra;
+printf("\nextra resistance in the armature circui,R=%fohms",R)
+disp("if load is halfed,Ia will be halfed")
+Ia2=Ia/2;
+E1=V-(Ia2*(Ra+R));
+printf("E1=%dV",E1)
+N1=(N2*E1)/E2;
+printf("\nN1=%frpm",N1)
diff --git a/431/CH2/EX2.19/resultEX2_19.txt b/431/CH2/EX2.19/resultEX2_19.txt new file mode 100755 index 000000000..5f8cc1860 --- /dev/null +++ b/431/CH2/EX2.19/resultEX2_19.txt @@ -0,0 +1,9 @@ + Example 2.19
+E=235V
+ when extra resistance is added in the armature circuit when the speed is 800rpm
+
+E at 800rpm=188V
+extra resistance in the armature circui,R=0.940000ohms
+ if load is halfed,Ia will be halfed
+E1=219V
+N1=931.914894rpm
\ No newline at end of file diff --git a/431/CH2/EX2.20/EX2_20.sce b/431/CH2/EX2.20/EX2_20.sce new file mode 100755 index 000000000..176bda504 --- /dev/null +++ b/431/CH2/EX2.20/EX2_20.sce @@ -0,0 +1,23 @@ +//calculating the speed of the motor
+//Chapter 2
+//Example 2.20
+//page 125
+clear;
+clc;
+disp("Example 2.20")
+Il=5; //current in amperes al no-load
+V=250; //voltage in volts
+Rf=250; //field resistance in ohms
+If1=V/Rf; //field current in amperes
+Ia1=Il-If1; //armature current
+Ra=0.2; //armature resistance in ohms
+disp("at a load current of 50A")
+Il2=50; //load current in amperes
+//armature reaction weakens by 3percent
+If2=0.97; //current in amperes
+Ia2=Il2-If2;
+N1=1000;
+E1=(V-(Ia1*Ra));
+E2=(V-(Ia2*Ra));
+N2=(N1*E2)/(0.97*E1);
+printf("N2=%frpm",N2)
diff --git a/431/CH2/EX2.20/resultEX2_20.txt b/431/CH2/EX2.20/resultEX2_20.txt new file mode 100755 index 000000000..70febf8c8 --- /dev/null +++ b/431/CH2/EX2.20/resultEX2_20.txt @@ -0,0 +1,5 @@ +
+ Example 2.20
+
+ at a load current of 50A
+N2=993.670467rpm
\ No newline at end of file diff --git a/431/CH2/EX2.21/EX2_21.sce b/431/CH2/EX2.21/EX2_21.sce new file mode 100755 index 000000000..fc3503fc7 --- /dev/null +++ b/431/CH2/EX2.21/EX2_21.sce @@ -0,0 +1,18 @@ +//Calculate the fully-load speed of the motor
+//Chapter 2
+//Example 2.21
+//page 126
+clear;
+clc;
+disp("Example 2.21")
+P=4;..................//pole
+V=500;................//shunt motor in volts
+Ia=60;......................//armature current in amperes
+Ra=0.2;..........................//armature resistance in ohms
+E=V-(Ia*Ra)-2;
+printf("voltage drop across each brush=%fV",E)
+phi=0.03;.................................//flux per pole in Wb
+Z=720;.....................................//total armature current in volts
+A=2;
+N=(E*60*A)/(phi*Z*P)
+printf("\nfull load speed of the motor=%frpm",N)
\ No newline at end of file diff --git a/431/CH2/EX2.21/resultEX2_21.txt b/431/CH2/EX2.21/resultEX2_21.txt new file mode 100755 index 000000000..80c2bae6d --- /dev/null +++ b/431/CH2/EX2.21/resultEX2_21.txt @@ -0,0 +1,3 @@ + Example 2.21
+voltage drop across each brush=486.000000V
+full load speed of the motor=675.000000rpm
\ No newline at end of file diff --git a/431/CH2/EX2.22/EX2_22.sce b/431/CH2/EX2.22/EX2_22.sce new file mode 100755 index 000000000..ee72d9450 --- /dev/null +++ b/431/CH2/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/CH2/EX2.22/resultEX2_22.txt b/431/CH2/EX2.22/resultEX2_22.txt new file mode 100755 index 000000000..bc5d55fd8 --- /dev/null +++ b/431/CH2/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/CH2/EX2.23/EX2_23.sce b/431/CH2/EX2.23/EX2_23.sce new file mode 100755 index 000000000..663dc4e68 --- /dev/null +++ b/431/CH2/EX2.23/EX2_23.sce @@ -0,0 +1,30 @@ +//Calculate the speed
+//Chapter 2
+//Example 2.23
+//page 127
+clear;
+clc;
+disp("Example 2.23")
+V=200; //voltage in volts
+Ia=20; //armature current in amperes
+Ra=0.5; //armature resistance in ohms
+Rse=0.2; //field winding resistance in ohms
+E=V-(Ia*(Ra+Rse));
+printf("In first case,E=%fV",E)
+//E=k*phi*N
+N=1000; //speed in rpm
+Kphi=E/N;
+//a resistance R is connected in parallel with the series field which is called diverter
+disp("when resistace R is added and new conditions")
+I=20; //total current flowing
+//current is equally devided between series field and diverter
+Ise2=I/2;
+//flux at 10A current is 20percent of flux at 20A current
+p=0.70; //percentage of flux
+Kpih1=p*Kphi;
+E1=(V-((Ia*Ra)+(Ise2*Rse)));
+printf("Induced emf=%fV",E1)
+//new speed is N1
+N1=E1/(p*Kphi)
+printf("\nN1=%frpm",N1)
+
diff --git a/431/CH2/EX2.23/resultEX2_23.txt b/431/CH2/EX2.23/resultEX2_23.txt new file mode 100755 index 000000000..555c8b7be --- /dev/null +++ b/431/CH2/EX2.23/resultEX2_23.txt @@ -0,0 +1,6 @@ +
+ Example 2.23
+In first case,E=186.000000V
+ when resistace R is added and new conditions
+Induced emf=188.000000V
+N1=1443.932412rpm
\ No newline at end of file diff --git a/431/CH2/EX2.24/EX2_24.sce b/431/CH2/EX2.24/EX2_24.sce new file mode 100755 index 000000000..7b309e79c --- /dev/null +++ b/431/CH2/EX2.24/EX2_24.sce @@ -0,0 +1,18 @@ +//Calculate the fully-load speed of the motor
+//Chapter 2
+//Example 2.24
+//page 128
+clear;
+clc;
+disp("Example 2.24")
+V=200;..............................//motor runs in volts
+Ia=15;.............................//current taken in amperes
+Ra=1;.................................//motor resistance in ohms
+E1=V-(Ia*Ra);
+printf("resistance when 1ohm=%fV",E1)
+R=5;....................................//resistance
+E2=V-(Ia*(Ra+R))
+printf("\nResistance when 5ohms connected in series=%fV",E2)
+N1=800;............................//speed of motor in rpm
+N2=N1*(E2/E1);
+printf("\nspeed at which motor will run when resistance is 5ohms=%frpm",N2)
\ No newline at end of file diff --git a/431/CH2/EX2.24/resultEX2_24.txt b/431/CH2/EX2.24/resultEX2_24.txt new file mode 100755 index 000000000..d55aebde6 --- /dev/null +++ b/431/CH2/EX2.24/resultEX2_24.txt @@ -0,0 +1,4 @@ +Example 2.24
+resistance when 1ohm=185.000000V
+Resistance when 5ohms connected in series=110.000000V
+speed at which motor will run when resistance is 5ohms=475.675676rpm
\ No newline at end of file diff --git a/431/CH2/EX2.25/EX2_25.sce b/431/CH2/EX2.25/EX2_25.sce new file mode 100755 index 000000000..030f3fea0 --- /dev/null +++ b/431/CH2/EX2.25/EX2_25.sce @@ -0,0 +1,16 @@ +//Calculate the ampere turns for each commutating pole
+//Chapter 2
+//Example 2.25
+//page 135
+clear;
+clc;
+disp("Example 2.25")
+P=8;..........................//pole
+Z=107;.........................//generator with slots
+Ia=1000;.....................//current containing in amperes
+Bag=0.32;......................//gap flux density in Wb/m^2
+lg=0.012;..........................//interpole air gap in meters
+pi=3.14;
+Mu=(4*pi*10^-7)
+AT=(((Ia*Z)/(2*P))+((Bag*lg)/Mu));
+printf("current for each commutating pole=%f",AT)
\ No newline at end of file diff --git a/431/CH2/EX2.25/resultEX2_25.txt b/431/CH2/EX2.25/resultEX2_25.txt new file mode 100755 index 000000000..548bdc2b2 --- /dev/null +++ b/431/CH2/EX2.25/resultEX2_25.txt @@ -0,0 +1,2 @@ +Example 2.25
+current for each commutating pole=9744.824841
\ No newline at end of file diff --git a/431/CH2/EX2.26/EX2_26.sce b/431/CH2/EX2.26/EX2_26.sce new file mode 100755 index 000000000..c97be8fd4 --- /dev/null +++ b/431/CH2/EX2.26/EX2_26.sce @@ -0,0 +1,28 @@ +//Estimating the number of turns needed on each commutating pole
+//Chapter 2
+//Example 2.26
+//page 135
+clear;
+clc;
+disp("Example 2.26")
+Bag=0.3;..................................//flux density in the interpole air gap in Wb/m^2
+Ia=200000/200;.........................//armature current in amperes
+printf("Armature current=%f",Ia)
+Z=540;..........................//Number of armature conductors
+Zt=540/2;............................//Number armature winding turns
+printf("\nNumber armature winding turns=%f",Zt)
+A=6;...............//the winding lap
+Ap=Zt/A;........................//Number of armature turns per parallel path
+printf("\nNumber of armature turns per parallel path=%f",Ap)
+P=6;...............................//pole
+Np=((Ia*Ap)/P);
+printf("\nNumber of armature ampere turns per pole=%f",Np)
+lg=0.01;..............................//inter pole air gap in meters
+pi=3.14;
+Mu=(4*pi*10^-7)
+Nipg=((Bag*lg)/Mu);..........................//Air gap
+printf("\nampere turns for the air gap=%f",Nipg)
+NipI=(Np+Nipg);................................//total interpole ampere
+printf("\nTotal interpole ampere turns=%f",NipI)
+Nip=(NipI/Ia);
+printf("\nNumber of turns needed on each commutating pole=%f",Nip)
\ No newline at end of file diff --git a/431/CH2/EX2.26/resultEX2_26.txt b/431/CH2/EX2.26/resultEX2_26.txt new file mode 100755 index 000000000..b4a2bcea0 --- /dev/null +++ b/431/CH2/EX2.26/resultEX2_26.txt @@ -0,0 +1,8 @@ +Example 2.26
+Armature current=1000.000000
+Number armature winding turns=270.000000
+Number of armature turns per parallel path=45.000000
+Number of armature ampere turns per pole=7500.000000
+ampere turns for the air gap=2388.535032
+Total interpole ampere turns=9888.535032
+Number of turns needed on each commutating pole=9.888535
\ No newline at end of file diff --git a/431/CH2/EX2.27/EX2_27.sce b/431/CH2/EX2.27/EX2_27.sce new file mode 100755 index 000000000..8292b7516 --- /dev/null +++ b/431/CH2/EX2.27/EX2_27.sce @@ -0,0 +1,20 @@ +//Calculating the efficiency of motor
+//Chapter 2
+//Example 2.27
+//page 128
+clear;
+clc;
+disp("Example 2.27")
+N=960;...........................//speed in rpm
+F=23;............................//effictive load in kgf
+r=45/2;...............................//radius of the drum
+printf("radius of the drum=%fcm",r)
+pi=3.14;
+OP=(2*pi*N*F*r*9.81)/(60*100);
+printf("\noutput power=%fW",OP)
+Vi=230;..................//motor input in volts
+Ci=28;.......................//input current in amperes
+IP=(Vi*Ci);
+printf("\ninput power =%fW",IP)
+Effi=(OP/IP)*100;
+printf("\nEfficiency of the motor=%fpercent",Effi)
\ No newline at end of file diff --git a/431/CH2/EX2.27/resultEX2_27.txt b/431/CH2/EX2.27/resultEX2_27.txt new file mode 100755 index 000000000..270d05685 --- /dev/null +++ b/431/CH2/EX2.27/resultEX2_27.txt @@ -0,0 +1,5 @@ +Example 2.27
+radius of the drum=22.500000cm
+output power=5101.043040W
+input power =6440.000000W
+Efficiency of the motor=79.208743percent
\ No newline at end of file diff --git a/431/CH2/EX2.29/EX2_29.sce b/431/CH2/EX2.29/EX2_29.sce new file mode 100755 index 000000000..503f395e4 --- /dev/null +++ b/431/CH2/EX2.29/EX2_29.sce @@ -0,0 +1,21 @@ +//Calculate the efficiency of machine when running as generator and motor
+//Chapter 2
+//Example 2.29
+//page 145
+clear;
+clc;
+disp("Example 2.29")
+I=440;......................//input at no-load in watt
+V=220;........................//voltage in volts
+Ic=I/V;......................//input current at no-load in amperes
+i=1;....................//input current in amperes
+A=2;.......................//current in amperes
+C=A-i;.....................//armature current at no-load in amperes
+L=I-((((C)^2)*0.5)+(V*C));.................//iron,friction and windage losses in watt
+a=40;...................//motor current in amperes
+OP=(V*a);
+Ra=0.5;
+Effi=(OP*100)/(OP+(((a+i)^2)*Ra)+(V*i)+L)
+printf("Efficiency as a generator when delivering 40A at 220V=%fpercent",Effi)
+Eff=((OP-(((a-i)^2)*Ra)-(V*C)-L)/OP)*100;
+printf("\nEfficiency as a motor when taking 40A from at 220V=%fpercent",Eff)
\ No newline at end of file diff --git a/431/CH2/EX2.29/resultEX2_29.txt b/431/CH2/EX2.29/resultEX2_29.txt new file mode 100755 index 000000000..fa9253c42 --- /dev/null +++ b/431/CH2/EX2.29/resultEX2_29.txt @@ -0,0 +1,3 @@ +Example 2.29
+Efficiency as a generator when delivering 40A at 220V=87.301587percent
+Efficiency as a motor when taking 40A from at 220V=86.363636percent
\ No newline at end of file diff --git a/431/CH2/EX2.30/EX2_30.sce b/431/CH2/EX2.30/EX2_30.sce new file mode 100755 index 000000000..6fee9ca57 --- /dev/null +++ b/431/CH2/EX2.30/EX2_30.sce @@ -0,0 +1,30 @@ +//Calculating the efficiency of the generator at full load and at half load
+//Chapter 2
+//Example 2.30
+//page 147
+clear;
+clc;
+disp("Example 2.30")
+V=400;.............................//motor in volts
+Rf=200;............................//field resistance in ohms
+If=V/Rf;...........................//current in amperes
+i=5;......... .....................//current at no load in amperes
+IP=V*i;.... ......................//motor input at no load
+Ia=3;..... ........................//aramture current in amperes
+Ra=0.5;.... .......................//armature resistance in ohms
+L=IP-(((Ia)^2)*Ra)-(V*If);.....................//iron,friction and windage in losses in watt
+printf("iron,friction and windage in losses=%fW",L)
+At=50;....................... ..//armature total current in amperes
+A=At-2;.......... ...//armature current in amperes
+Ls=(((A)^2)*Ra)+(V*If)+L;.............. //Losses
+Eff=(((V*At)-Ls)/(V*At))*100;
+printf("\nEfficiency of full load=%fpercent",Eff)
+//flux is constant
+E1=V-(Ia*Ra);................... //induced emf in the armature at no load
+E2=V-(A*Ra);............................ //induced emf in the armature at full load
+// since N1/N2=E1/E2
+percentload=(1-(E2/E1))*100;
+printf("\nPercentage change in speed from no load to full load=%fpercent",percentload)
+
+
+
\ No newline at end of file diff --git a/431/CH2/EX2.30/resultEX2_30.txt b/431/CH2/EX2.30/resultEX2_30.txt new file mode 100755 index 000000000..d72bbe992 --- /dev/null +++ b/431/CH2/EX2.30/resultEX2_30.txt @@ -0,0 +1,5 @@ +
+ Example 2.30
+iron,friction and windage in losses=1195.500000W
+Efficiency of full load=84.262500percent
+Percentage change in speed from no load to full load=5.646173percent
\ No newline at end of file diff --git a/431/CH2/EX2.31/EX2_31.sce b/431/CH2/EX2.31/EX2_31.sce new file mode 100755 index 000000000..2476765cb --- /dev/null +++ b/431/CH2/EX2.31/EX2_31.sce @@ -0,0 +1,20 @@ +//Calculate the efficiency of machine
+//Chapter 2
+//Example 2.31
+//page 148
+clear;
+clc;
+disp("Example 2.31")
+Ra=0.5;.................//armature resistance in ohms
+Rf=750;...............//field circuit resistance in ohms
+V=500;.......................//voltage in volts
+If=V/Rf;..........................//current in amperes
+l=3;..........................//line current in amperes
+i=2.33;..........................//current in motor in amperes
+I=0.67;.........................//current i amperes
+L=(V*l)-(((i)^2)*Ra)-(V*I);.........................//Iron,friction and windage losses
+O=20;...............................//generator
+OP=(O*1000)/V;................//output current of the generator under loaded condition in amperes
+Ia=I+OP;............//output in amperes
+Effi=(O*1000*100)/((O*1000)+(((Ia)^2)*Ra)+(V*I)+L);
+printf("efficiency of the machine=%fpercent",Effi)
\ No newline at end of file diff --git a/431/CH2/EX2.31/resultEX2_31.txt b/431/CH2/EX2.31/resultEX2_31.txt new file mode 100755 index 000000000..679384337 --- /dev/null +++ b/431/CH2/EX2.31/resultEX2_31.txt @@ -0,0 +1,2 @@ +Example 2.31
+efficiency of the machine=89.588435percent
\ No newline at end of file diff --git a/431/CH2/EX2.32/EX2_32.sce b/431/CH2/EX2.32/EX2_32.sce new file mode 100755 index 000000000..cc0af2921 --- /dev/null +++ b/431/CH2/EX2.32/EX2_32.sce @@ -0,0 +1,24 @@ +//Calculate the appox. efficiency of each machine
+//Chapter 2
+//Example 2.32
+//page 149
+clear;
+clc;
+disp("Example 2.32")
+Ig=25;...............//current of generator in amperes
+I=30;...................//current in motor in amperes
+Il=I-Ig;..............//current in amperes
+Ra=0.25;................//resistance in ohms
+Gl=((Ig)^2)*Ra;................//loss in generator in watt
+M=((I)^2)*Ra;....................//loss in motor in watt
+T=Gl+M;...................//total loss in watt
+V=100;.............//voltage in volts
+P=V*Il;...............//power supplied from mains in watt
+L=P-T;..................//iron,friction and windages losses in the two machines in ohms
+l=L/2;...................//iron,friction and windages losses in each machines in ohms
+IP=I*V;....................//input
+Eff=((IP-M-l)/IP)*100;
+printf("Efficiency of the motor=%fpercent",Eff)
+OP=Ig*V;.................//output
+Effi=((OP)/(OP+Gl+l))*100;
+printf("\nEfficiency of the generator=%fpercent",Effi)
\ No newline at end of file diff --git a/431/CH2/EX2.32/resultEX2_32.txt b/431/CH2/EX2.32/resultEX2_32.txt new file mode 100755 index 000000000..8b3812787 --- /dev/null +++ b/431/CH2/EX2.32/resultEX2_32.txt @@ -0,0 +1,4 @@ +
+ Example 2.32
+Efficiency of the motor=90.520833percent
+Efficiency of the generator=92.059839percent
\ No newline at end of file diff --git a/431/CH2/EX2.33/EX2_33.sce b/431/CH2/EX2.33/EX2_33.sce new file mode 100755 index 000000000..78fe39b37 --- /dev/null +++ b/431/CH2/EX2.33/EX2_33.sce @@ -0,0 +1,14 @@ +//Calculate the appox. efficiency of each machine
+//Chapter 2
+//Example 2.33
+//page 150
+clear;
+clc;
+disp("Example 2.33")
+V=440;....................//voltage in volts
+P=200*1000;...............//power in watt
+Ig=P/V;..............//rated current of each machine in amperes
+//assume losses to be equal
+I=90;..............//addition currnet supply
+Effi=sqrt(Ig/(Ig+I))*100;
+printf("approximate efficiency=%fpercent",Effi)
\ No newline at end of file diff --git a/431/CH2/EX2.33/resultEX2_33.txt b/431/CH2/EX2.33/resultEX2_33.txt new file mode 100755 index 000000000..3c8b38e64 --- /dev/null +++ b/431/CH2/EX2.33/resultEX2_33.txt @@ -0,0 +1,3 @@ +
+ Example 2.33
+approximate efficiency=91.363261percent
\ No newline at end of file diff --git a/431/CH2/EX2.34/EX2_34.sce b/431/CH2/EX2.34/EX2_34.sce new file mode 100755 index 000000000..25f05a486 --- /dev/null +++ b/431/CH2/EX2.34/EX2_34.sce @@ -0,0 +1,29 @@ +//Calculate the efficiences of the generator at full load
+//Chapter 2
+//Example 2.34
+//page 150
+clear;
+clc;
+disp("Example 2.34")
+Ig=2000;.............................//output current of generator in amperes
+I=380;...............................//Input current from supply mains in amperes
+Effi=sqrt(Ig/(Ig+I))*100;..................//Efficiency of generator assuming equal efficiencies of the two machines
+printf("Efficiences of the generator at full load assuming equal efficiencies=%fpercent",Effi)
+S=22;............................//Shunt field current of generator
+G=Ig+S;........................//Armature current of generator in amperes
+R=0.01;...............................//Resistance of the armature circuit of each machine in ohms
+Gc=((G)^2)*R;..........................//copper loss in arrmature circuit of generator in W
+V=500;................................//Voltage in volts
+L=V*S;..............................//loss in the field circuit of the generator in W
+T=Ig+I;............................//total current suuply in amperes
+Sf=17;........................................//shunt field current of motor in amperes
+A=T-Sf;..............................//armature current in motor in amperes
+Lc=((A)^2)*R;........................//loss in armature circuit of motor in amperes
+Lf=V*Sf;.................................//loss in the shunt field circuit of motor in W
+Tin=V*I;......................//total input to motor and generator in W
+Ml=Tin-(Gc+L+Lc+Lf);.....................//iron,friction and windage loss in both machines in W
+Me=Ml/2;...................................//iron,friction and windage loss in each machine in W
+p=1000;.....................//power in kW
+OP=(Ig*V)/p;........................//full load output of the generator
+Eff=(p*100)/(p+((Gc+L+Me)/1000));
+printf("\nEfficiency of the generator at full load=%fpercent",Eff)
\ No newline at end of file diff --git a/431/CH2/EX2.34/resultEX2_34.txt b/431/CH2/EX2.34/resultEX2_34.txt new file mode 100755 index 000000000..1ae7ef6bc --- /dev/null +++ b/431/CH2/EX2.34/resultEX2_34.txt @@ -0,0 +1,3 @@ + Example 2.34
+Efficiences of the generator at full load assuming equal efficiencies=91.669850percent
+Efficiency of the generator at full load=91.846461percent
\ No newline at end of file diff --git a/431/CH2/EX2.4/EX2_4.sce b/431/CH2/EX2.4/EX2_4.sce new file mode 100755 index 000000000..e84617383 --- /dev/null +++ b/431/CH2/EX2.4/EX2_4.sce @@ -0,0 +1,18 @@ +//Calculating average induced emf
+//Chapter 2
+//Example 2.4
+//page 92
+clear;
+clc;
+disp("example 2.4")
+P=2 //number of poles
+Z=400 //number of conducters
+n=300 //speed in rpm
+E=200 //voltage of generator
+A=2 //number of parallel paths
+N=1200 //number of turns in each field coil
+phi=(E*60*A)/(Z*n*P) //flux at the end of 0.15sec
+t=0.15 //time
+printf("magnitude of flux at the end of 15sec is %f wb",phi)
+e=N*(phi/t)
+printf("\ninduced emf in the field coil= %d volts",e)
diff --git a/431/CH2/EX2.4/resultEX2_4.txt b/431/CH2/EX2.4/resultEX2_4.txt new file mode 100755 index 000000000..c4e1b96b1 --- /dev/null +++ b/431/CH2/EX2.4/resultEX2_4.txt @@ -0,0 +1,3 @@ +example 2.4
+magnitude of flux at the end of 15sec is 0.100000 wb
+induced emf in the field coil= 800 volts
\ No newline at end of file diff --git a/431/CH2/EX2.5/EX3_5.sce b/431/CH2/EX2.5/EX3_5.sce new file mode 100755 index 000000000..a7598d500 --- /dev/null +++ b/431/CH2/EX2.5/EX3_5.sce @@ -0,0 +1,19 @@ +//Calculating the current and power factor of the primary circuit
+//Chapter 3
+//Example 3.5
+//page 206
+clear;
+clc;
+disp("Example 3.5")
+I2=300;........................//Secondary current in amperes
+N1=1200; //number of primary turns
+N2=300; //number of secondary turns
+I0=2.5; //load current in amperes
+I1=(I2*N2)/N1;
+phi0=acosd(0.2);
+phi2=acosd(0.8);
+I1c=(I1*cosd(phi2))+(I0*cosd(phi0));
+I1s=(I1*sind(phi2))+(I0*sind(phi0));
+I=sqrt(I1c^2+I1s^2);
+phi=atand(I1s/I1c)
+printf("primary power factor=%fdegrees",cosd(phi));
\ No newline at end of file diff --git a/431/CH2/EX2.5/resultEX3_5.txt b/431/CH2/EX2.5/resultEX3_5.txt new file mode 100755 index 000000000..421d58957 --- /dev/null +++ b/431/CH2/EX2.5/resultEX3_5.txt @@ -0,0 +1,2 @@ + Example 3.5
+primary power factor=0.786863degrees
\ No newline at end of file diff --git a/431/CH2/EX2.6/EX2_6.sce b/431/CH2/EX2.6/EX2_6.sce new file mode 100755 index 000000000..26993d5db --- /dev/null +++ b/431/CH2/EX2.6/EX2_6.sce @@ -0,0 +1,14 @@ +//Calculating emf generated onopen circuit condition
+//Chapter 2
+//Example 2.6
+//page 93
+clear;
+clc;
+disp("example 2.5")
+P=8 //number of poles
+A=8 //number of parallel paths in the armature
+Z=960 //number of conductors
+N=400 //speed in rpm
+phi=0.04 //flux per pole
+E=(phi*Z*N*P)/(60*A) //emf generated onopen circuit condition
+printf("emf generated on open circuit condition, E=%d volts",E)
\ No newline at end of file diff --git a/431/CH2/EX2.6/resultEX2_6.txt b/431/CH2/EX2.6/resultEX2_6.txt new file mode 100755 index 000000000..d729cb5d4 --- /dev/null +++ b/431/CH2/EX2.6/resultEX2_6.txt @@ -0,0 +1,2 @@ +example 2.5
+emf generated on open circuit condition, E=256 volts
\ No newline at end of file diff --git a/431/CH2/EX2.7/EX2_7.sce b/431/CH2/EX2.7/EX2_7.sce new file mode 100755 index 000000000..7eaef8fd0 --- /dev/null +++ b/431/CH2/EX2.7/EX2_7.sce @@ -0,0 +1,15 @@ +//calculate induced emf
+//Chapter 2
+//Example 2.7
+//page 97
+clear;
+clc;
+disp("example 2.7")
+disp("flux is constant")
+
+E=180;...............//induced emf at 500rpm
+N=500;.................//speed in rpm
+K1=(E/N)
+printf("K1=%f",K1)
+E1=(K1*600) //induced emf at 600rpm
+printf("\n induced emf at 600rpm is=%d V",E1)
\ No newline at end of file diff --git a/431/CH2/EX2.7/resultEX2_7.txt b/431/CH2/EX2.7/resultEX2_7.txt new file mode 100755 index 000000000..9f7f62e72 --- /dev/null +++ b/431/CH2/EX2.7/resultEX2_7.txt @@ -0,0 +1,6 @@ +
+ example 2.7
+
+ flux is constant
+K1=0.360000
+ induced emf at 600rpm is=216 V
\ No newline at end of file diff --git a/431/CH2/EX2.8/EX2_8.sce b/431/CH2/EX2.8/EX2_8.sce new file mode 100755 index 000000000..423564beb --- /dev/null +++ b/431/CH2/EX2.8/EX2_8.sce @@ -0,0 +1,20 @@ +//calculating the speed and percentage increase in flux
+//Chapter 2
+//Example 2.8
+//page 97
+clear;
+clc;
+disp("example 2.8")
+disp("assuming constant flux")
+E1=220; //induced emf at N1 speed in volts
+N1=750; // speed
+K1=(E1/N1)
+E2=250; //induced emf at speed N2
+N2=E2/K1
+printf("speed at induced emf of 250V =%d rpm",N2)
+disp("when induced emf is 250V and speed 700 rpm")
+E3=250; //induced emf at N3 speed
+N3=700; //speed
+ratio=(E3*N1)/(E1*N3)
+Pi=(ratio-1)*100
+printf("percentage increase in flux is %f percent",Pi)
\ No newline at end of file diff --git a/431/CH2/EX2.8/resultEX2_8.txt b/431/CH2/EX2.8/resultEX2_8.txt new file mode 100755 index 000000000..57c9d7b65 --- /dev/null +++ b/431/CH2/EX2.8/resultEX2_8.txt @@ -0,0 +1,7 @@ +
+ example 2.8
+
+ assuming constant flux
+speed at induced emf of 250V =852 rpm
+ when induced emf is 250V and speed 700 rpm
+percentage increase in flux is 21.753247 percent
\ No newline at end of file diff --git a/431/CH2/EX2.9/EX2_9.sce b/431/CH2/EX2.9/EX2_9.sce new file mode 100755 index 000000000..9dbabe53b --- /dev/null +++ b/431/CH2/EX2.9/EX2_9.sce @@ -0,0 +1,14 @@ +//Calculating electromagnetic torque
+//Chapter 2
+//Example 2.9
+//page 98
+clear;
+clc;
+disp("example 2.9")
+E=200 //emf induced
+I=15 //armature current
+n=1200 //speed in rpm
+omega=(2*3.14*n)/60;
+printf("omega=%f \n",omega)
+T=(E*I)/omega;
+printf("electromagnetic torque=%f Nm",T)
\ No newline at end of file diff --git a/431/CH2/EX2.9/resultEX2_9.txt b/431/CH2/EX2.9/resultEX2_9.txt new file mode 100755 index 000000000..03afa462f --- /dev/null +++ b/431/CH2/EX2.9/resultEX2_9.txt @@ -0,0 +1,3 @@ + example 2.9
+omega=125.600000
+electromagnetic torque=23.885350 Nm
\ No newline at end of file diff --git a/431/CH3/EX3.1/EX3_1.sce b/431/CH3/EX3.1/EX3_1.sce new file mode 100755 index 000000000..adbcda1b0 --- /dev/null +++ b/431/CH3/EX3.1/EX3_1.sce @@ -0,0 +1,21 @@ +//calculating number of turns,primary and secondary currents and value of flux
+//Chapter 3
+//Example 3.1
+//page 196
+clear;
+clc;
+disp("Example 3.1")
+kVA=500; //rating
+V1=11000; //primary voltage in volts
+V2=400; //secondary voltage in volts
+N2=100; //number of turns in secondary winding
+f=50; //frequency in hertz
+N1=(V1*N2)/V2; //number of turns in primary winding
+printf("number of turns in primary winding,N1=%dturns",N1)
+I1=(kVA*1000)/V1;
+I2=(kVA*1000)/V2
+printf("\nprimary current,I1=%fA",I1)
+printf("\nsecondary current,I2=%fA",I2)
+E1=V1;
+phi=E1/(4.44*f*N1)
+printf("\nmaximium flux in the core=%fWb",phi)
\ No newline at end of file diff --git a/431/CH3/EX3.1/resultEX3_1.txt b/431/CH3/EX3.1/resultEX3_1.txt new file mode 100755 index 000000000..c11bed47f --- /dev/null +++ b/431/CH3/EX3.1/resultEX3_1.txt @@ -0,0 +1,6 @@ +
+ Example 3.1
+number of turns in primary winding,N1=2750turns
+primary current,I1=45.454545A
+secondary current,I2=1250.000000A
+maximium flux in the core=0.018018Wb
\ No newline at end of file diff --git a/431/CH3/EX3.10/EX3_10.sce b/431/CH3/EX3.10/EX3_10.sce new file mode 100755 index 000000000..35121871f --- /dev/null +++ b/431/CH3/EX3.10/EX3_10.sce @@ -0,0 +1,29 @@ +//Calculating primary current and primary power factor
+//Chapter 3
+//Example 3.10
+//page 211
+clear;
+clc;
+disp("Example 3.10")
+V1=6600; //primary voltage in volts
+V2=240; //secondary voltage in volts
+kW1=10; //power
+phi1=acosd(0.8);
+I2=50; //current in amperes
+kW3=5; //power
+phi2=acosd(0.7)
+kVA=8; //rating
+phi4=acosd(0.6)
+I1=(kW1*1000)/(cosd(phi1)*V2);
+I3=(kW3*1000)/(1*V2);
+I4=(kVA*1000)/V2;
+Ih=((I1*cosd(phi1))+(I2*cosd(phi2))+I3+(I4*cosd(phi4)));
+Iv=((I1*sind(phi1))+(I2*sind(phi2))-(I4*sind(phi4)));
+I5=sqrt((Ih^2)+(Iv^2))
+printf("I5=%dA",I5)
+Ip=(I5*V2)/V1;
+printf("\nThe current drawn by the primary from 6600Vmains is equal to,Ip=%fA",Ip);
+phi=atand(Iv/Ih);
+printf("\n
+power factor=%flagging",cosd(phi))
+
diff --git a/431/CH3/EX3.10/resultEX3_10.txt b/431/CH3/EX3.10/resultEX3_10.txt new file mode 100755 index 000000000..edb9c2a7a --- /dev/null +++ b/431/CH3/EX3.10/resultEX3_10.txt @@ -0,0 +1,4 @@ + Example 3.10
+I5=124A
+The current drawn by the primary from 6600Vmains is equal to,Ip=4.516939A
+power factor=0.945934lagging
\ No newline at end of file diff --git a/431/CH3/EX3.11/EX3_11.sce b/431/CH3/EX3.11/EX3_11.sce new file mode 100755 index 000000000..a3cfb682f --- /dev/null +++ b/431/CH3/EX3.11/EX3_11.sce @@ -0,0 +1,20 @@ +//Calculating equivalent impedence referred to primary
+//Chapter 3
+//Example 3.11
+//page 212
+clear;
+clc;
+disp("Example 3.11")
+kVA=100; //rating of the tronsfromer
+N1=400; //number of primary turns
+N2=80; //number of secondary turns
+R1=0.3; //primary resistance in ohms
+R2=0.01; //secondary resistance in ohms
+X1=1.1; //primary leakage reactance in ohs
+X2=0.035; //secondary leakage reactance in ohms
+Rr2=(((N1/N2)^2)*R2)
+printf("R2=%f ohms",Rr2);
+Xx2=(((N1/N2)^2)*X2);
+printf("\nX2=%f ohms",Xx2);
+Ze=sqrt((R1+Rr2)^2+(X1+Xx2)^2);
+printf("\nEquivqlent impedence=%f",Ze);
\ No newline at end of file diff --git a/431/CH3/EX3.11/resultEX3_11.txt b/431/CH3/EX3.11/resultEX3_11.txt new file mode 100755 index 000000000..9bf834a0e --- /dev/null +++ b/431/CH3/EX3.11/resultEX3_11.txt @@ -0,0 +1,4 @@ + Example 3.11
+R2=0.250000 ohms
+X2=0.875000 ohms
+Equivqlent impedence=2.050152
\ No newline at end of file diff --git a/431/CH3/EX3.12/EX3_12.sce b/431/CH3/EX3.12/EX3_12.sce new file mode 100755 index 000000000..ce25d3eb8 --- /dev/null +++ b/431/CH3/EX3.12/EX3_12.sce @@ -0,0 +1,24 @@ +//Calculating equivalent impedence referred to primary
+//Chapter 3
+//Example 3.12
+//page 216
+clear;
+clc;
+disp("Example 3.11")
+f=50; //frequency in hertz
+r=6; //turns ratio
+R1=0.90; //primary resistance in ohms
+R2=0.03; //secondary resistance in ohms
+X1=5; //primary reactance in ohms
+X2=0.13; //secondary reactance in ohms
+I2=200; //full-load current
+Re=(R1+(R2*r^2));
+printf("equivalent resistance reffered to primary,Re=%fohms",Re);
+Xe=(X1+(X2*r^2));
+printf("\nequivalent reactance reffered to primary,Xe=%fohms",Xe);
+Ze=sqrt(Re^2+Xe^2);
+printf("\nequivalent impedance reffered to primary,Ze=%fohms",Ze);
+Ii2=r*I2;
+printf("\nsecondary current reffered to primary side=%fA",Ii2);
+printf("\n(a)Voltage to be applied to the high voltage side=%dvolts",(Ii2*Ze));
+printf("\n(b)Power factor=%f",(Re/Ze));
diff --git a/431/CH3/EX3.12/resultEX3_12.txt b/431/CH3/EX3.12/resultEX3_12.txt new file mode 100755 index 000000000..bea5227cf --- /dev/null +++ b/431/CH3/EX3.12/resultEX3_12.txt @@ -0,0 +1,8 @@ +
+ Example 3.12
+equivalent resistance reffered to primary,Re=1.980000ohms
+equivalent reactance reffered to primary,Xe=9.680000ohms
+equivalent impedance reffered to primary,Ze=9.880425ohms
+secondary current reffered to primary side=1200.000000A
+(a)Voltage to be applied to the high voltage side=11856volts
+(b)Power factor=0.200396
\ No newline at end of file diff --git a/431/CH3/EX3.13/EX3_13.sce b/431/CH3/EX3.13/EX3_13.sce new file mode 100755 index 000000000..dfd9b06df --- /dev/null +++ b/431/CH3/EX3.13/EX3_13.sce @@ -0,0 +1,25 @@ +//Calculate current and power input
+//Chapter 3
+//Example 3.13
+//page 216
+clear;
+clc;
+disp("Example 3.13")
+R1=0.21; //primary resistance in ohms
+X1=1; //primary reactance in ohms
+R2=2.72*10^(-4); //secondary resistance in ohms
+X2=1.3*10^(-3); //secondary reactanced in ohms
+V1=6600; //primary voltage in volts
+V2=250; //secondary voltage in volts
+r=V1/V2; //turns ratio
+Re=R1+(r^2*R2);
+printf("Equivalent resistance referred to primary side=%fohms",Re);
+Xe=X1+(r^2*X2);
+printf("\nEquivalent reactance referred to primary side=%fohms",Xe);
+Ze=sqrt(Re^2+Xe^2);
+printf("\nequivalent impedance reffered to primary,Ze=%fohms",Ze);
+V=400; //voltage in volts
+I1=V/Ze;
+printf("\nI1=%f",I1);
+printf("\nPower input=%fW",(I1^2*Re));
+
diff --git a/431/CH3/EX3.13/resultEX3_13.txt b/431/CH3/EX3.13/resultEX3_13.txt new file mode 100755 index 000000000..bb5567ffd --- /dev/null +++ b/431/CH3/EX3.13/resultEX3_13.txt @@ -0,0 +1,7 @@ +
+ Example 3.13
+Equivalent resistance referred to primary side=0.399573ohms
+Equivalent reactance referred to primary side=1.906048ohms
+equivalent impedance reffered to primary,Ze=1.947480ohms
+I1=205.393656
+Power input=16856.612924W
\ No newline at end of file diff --git a/431/CH3/EX3.14/EX3_14.sce b/431/CH3/EX3.14/EX3_14.sce new file mode 100755 index 000000000..0b42c3afd --- /dev/null +++ b/431/CH3/EX3.14/EX3_14.sce @@ -0,0 +1,14 @@ +//Calculate current and power input
+//Chapter 3
+//Example 3.14
+//page 217
+clear;
+clc;
+disp("Example 3.14")
+N1=90; //number of primary turns
+N2=180; //number of secondary turns
+R1=0.067; //primary resistance in ohms
+R2=0.233; //secondary resistance in ohms
+printf("Primary winding resistance referred to secondary side=%fohms",(R1*(N2/N1)^2))
+printf("\nsecondary winding resistance referred to primary side=%fohms",(R2*(N1/N2)^2))
+printf("\nTotal resistance of the transformer refferred to primary side=%fohms",((R1*(N2/N1)^2)+(R2*(N2/N1)^2)))
\ No newline at end of file diff --git a/431/CH3/EX3.14/resultEX3_14.txt b/431/CH3/EX3.14/resultEX3_14.txt new file mode 100755 index 000000000..d891bc703 --- /dev/null +++ b/431/CH3/EX3.14/resultEX3_14.txt @@ -0,0 +1,4 @@ + Example 3.14
+Primary winding resistance referred to secondary side=0.268000ohms
+secondary winding resistance referred to primary side=0.058250ohms
+Total resistance of the transformer refferred to primary side=1.200000ohms
\ No newline at end of file diff --git a/431/CH3/EX3.15/EX3_15.sce b/431/CH3/EX3.15/EX3_15.sce new file mode 100755 index 000000000..2a48f984a --- /dev/null +++ b/431/CH3/EX3.15/EX3_15.sce @@ -0,0 +1,20 @@ +//Calculate percentage regulation
+//Chapter 3
+//Example 3.15
+//page 217
+clear;
+clc;
+disp("Example 3.15")
+kVA=30; //rating of the transformer
+V1=6000; //primary voltage in volts
+V2=230; //secondary voltage in volts
+R1=10; //primary resistance in ohms
+R2=0.016; //secondary resistance in ohms
+Xe=23; //total reactance reffered to the primary
+phi=acosd(0.8); //lagging
+Re=(R1+((V1/V2)^2*R2))
+printf("equivalent resistance,Re=%fohms",Re)
+I2dash=(kVA*1000)/V1;
+V2dash=5847;
+Reg=((I2dash*((Re*cosd(phi))+(Xe*sind(phi))))*100)/V2dash;
+printf("\npercentage regulation=%fpercent",Reg)
\ No newline at end of file diff --git a/431/CH3/EX3.15/resultEX3_15.txt b/431/CH3/EX3.15/resultEX3_15.txt new file mode 100755 index 000000000..67e94d516 --- /dev/null +++ b/431/CH3/EX3.15/resultEX3_15.txt @@ -0,0 +1,4 @@ +
+ Example 3.15
+equivalent resistance,Re=20.888469ohms
+percentage regulation=2.609097percent
\ No newline at end of file diff --git a/431/CH3/EX3.16/EX3_16.sce b/431/CH3/EX3.16/EX3_16.sce new file mode 100755 index 000000000..9c2dad4bf --- /dev/null +++ b/431/CH3/EX3.16/EX3_16.sce @@ -0,0 +1,27 @@ +//Calculating secondary voltage and voltage regulation
+//Chapter 3
+//Example 3.16
+//page 218
+clear;
+clc;
+disp("Example 3.16")
+kVA=10; //rating of the transformer
+V1=2000; //primary voltage in volts
+V2=400; //secondary voltage in volts
+R1=5.5; //primary voltage in ohms
+R2=0.2; //secondary voltage in ohms
+X1=12; //primary reactance in ohms
+X2=0.45; //secondary reactance in ohms
+//assuming (V1/V2)=(N1/N2)
+Re=R2+(R1*(V2/V1)^2);
+printf("equivalent resistance referred to the secondary=%fohms",Re);
+Xe=X2+(X1*(V2/V1)^2);
+printf("equivalent reactance referred to the secondary=%fohms",Xe);
+Ze=sqrt(Re^2+Xe^2);
+printf("equivalent impedance referred to the secondary=%fohms",Ze);
+phi=acosd(0.8);
+Vl=374.5;
+printf("\nVoltage across the full load and 0.8 p.f lagging=%fV",Vl);
+reg=((V2-Vl)*100)/Vl;
+printf("\npercentage voltage regulation=%f percent",reg);
+
diff --git a/431/CH3/EX3.16/resultEX3_16.txt b/431/CH3/EX3.16/resultEX3_16.txt new file mode 100755 index 000000000..fcfb5e2e5 --- /dev/null +++ b/431/CH3/EX3.16/resultEX3_16.txt @@ -0,0 +1,5 @@ +
+ Example 3.16
+equivalent resistance referred to the secondary=0.420000ohmsequivalent reactance referred to the secondary=0.930000ohmsequivalent impedance referred to the secondary=1.020441ohms
+Voltage across the full load and 0.8 p.f lagging=374.500000V
+percentage voltage regulation=6.809079 percent
\ No newline at end of file diff --git a/431/CH3/EX3.17/EX3_17.sce b/431/CH3/EX3.17/EX3_17.sce new file mode 100755 index 000000000..90d329878 --- /dev/null +++ b/431/CH3/EX3.17/EX3_17.sce @@ -0,0 +1,21 @@ +//Calculating regulation
+//Chapter 3
+//Example 3.17
+//page 219
+clear;
+clc;
+disp("Example 3.17")
+kVA=80; //rating of the transformer
+V1=2000; //primary voltage in volts
+V2=200; //secondary voltage in volts
+f=50; //frequency in hertz
+Id=8; //impedence drop
+Rd=4; //resistance drop
+phi=acosd(0.8)
+I2Ze=(V2*Id)/100;
+I2Re=(V2*Rd)/100;
+I2Xe=sqrt(I2Ze^2-I2Re^2)
+reg=((I2Re*cosd(phi))+(I2Xe*sind(phi)))*(100/V2)
+printf("percentage regulation=%fpercent",reg)
+pf=I2Xe/sqrt(I2Re^2+I2Xe^2)
+printf("\nPower factor for zero regulation=%f(leading)",pf)
diff --git a/431/CH3/EX3.17/resultEX3_17.txt b/431/CH3/EX3.17/resultEX3_17.txt new file mode 100755 index 000000000..42ba7ad03 --- /dev/null +++ b/431/CH3/EX3.17/resultEX3_17.txt @@ -0,0 +1,4 @@ +
+ Example 3.17
+percentage regulation=7.356922percent
+Power factor for zero regulation=0.866025(leading)
\ No newline at end of file diff --git a/431/CH3/EX3.19/EX3_19.sce b/431/CH3/EX3.19/EX3_19.sce new file mode 100755 index 000000000..46706fb10 --- /dev/null +++ b/431/CH3/EX3.19/EX3_19.sce @@ -0,0 +1,26 @@ +//Calculating the efficiency and voltage regulation//Chapter 3
+//Example 3.19
+//page 225
+clear;
+clc;
+disp("Example 3.19")
+kVA=50; //rating of the transformer
+V1=3300; //open circuit primary voltage
+Culoss=540; //copper loss from short circuit test
+coreloss=460; //core loss from open circuit test
+V1sc=124; //short circuit primary voltage in volts
+I1sc=15.4; //short circuit primary current in amperes
+Psc=540 //short circuit primary power in watts
+phi=acosd(0.8)
+effi=(kVA*1000*cosd(phi)*100)/((kVA*1000*cosd(phi))+Culoss+coreloss)
+printf("From the open-circuit test, core-loss=%dW",coreloss);
+printf("\nFrom short circuit test, copper loss=%dW",Culoss);
+printf("\nThe efficiency at full-load and 0.8 lagging power factor=%f",effi);
+Ze=V1sc/I1sc;
+Re=Psc/I1sc^2;
+Xe=sqrt(Ze^2-Re^2);
+V2=3203;
+phi2=acosd(0.8);
+phie=acosd(Culoss/(V1sc*I1sc));
+reg=(V1sc*cosd(phie-phi2)*100)/V1;
+printf("\nVoltage regulation=%dpercent",reg)
\ No newline at end of file diff --git a/431/CH3/EX3.19/resultEX3_19.txt b/431/CH3/EX3.19/resultEX3_19.txt new file mode 100755 index 000000000..fcb3b6169 --- /dev/null +++ b/431/CH3/EX3.19/resultEX3_19.txt @@ -0,0 +1,6 @@ +
+ Example 3.19
+From the open-circuit test, core-loss=460W
+From short circuit test, copper loss=540W
+The efficiency at full-load and 0.8 lagging power factor=97.560976
+Voltage regulation=3percent
\ No newline at end of file diff --git a/431/CH3/EX3.2/EX3_2.sce b/431/CH3/EX3.2/EX3_2.sce new file mode 100755 index 000000000..35fdcf982 --- /dev/null +++ b/431/CH3/EX3.2/EX3_2.sce @@ -0,0 +1,20 @@ +//calculating number of primary and secondary turns
+//Chapter 3
+//Example 3.2
+//page 196
+clear;
+clc;
+disp("Example 3.2")
+V1=6600; //primary voltage in volts
+V2=230; //secondary voltage in volts
+f=50; //frequency in hertz
+Bm=1.1; //flux density in Wb/m^2
+A=(25*25*10^(-4)); //area of the core in m^2
+phi=Bm*A
+printf("flux=%fWb",phi)
+E1=V1;
+E2=V2;
+N1=E1/(4.44*f*phi);
+N2=E2/(4.44*f*phi);
+printf("\nnumber of turns in primary winding,N1=%dturns",N1)
+printf("\nnumber of turns in secondary winding,N2=%dturns",N2)
\ No newline at end of file diff --git a/431/CH3/EX3.2/resultEX3_2.txt b/431/CH3/EX3.2/resultEX3_2.txt new file mode 100755 index 000000000..755f9e82d --- /dev/null +++ b/431/CH3/EX3.2/resultEX3_2.txt @@ -0,0 +1,5 @@ +
+ Example 3.2
+flux=0.068750Wb
+number of turns in primary winding,N1=432turns
+number of turns in secondary winding,N2=15turns
\ No newline at end of file diff --git a/431/CH3/EX3.20/EX3_20.sce b/431/CH3/EX3.20/EX3_20.sce new file mode 100755 index 000000000..2728dc99e --- /dev/null +++ b/431/CH3/EX3.20/EX3_20.sce @@ -0,0 +1,22 @@ +//Calculate voltsge to be applied//Chapter 3
+//Example 3.20
+//page 226
+clear;
+clc;
+disp("Example 3.20")
+kVA=100;
+V1=6600; //primary voltage in volts
+V2=330; //secondary voltage in volts
+f=50; //frequency in hertz
+V1sc=100; //short circuit primary voltage in volts
+I1sc=10; //short circuit primary current in amperes
+Psc=436; //short circuit primary power in watts
+Ze=V1sc/I1sc;
+Re=Psc/I1sc^2;
+phi=acosd(0.8);
+Xe=sqrt(Ze^2-Re^2);
+printf("\nTotal resistance=%fohms",Re);
+printf("\nTotal impedence=%fohms",Ze)
+Il=(kVA*1000)/V1;
+V1dash=(sqrt(((V1*cosd(phi))+(Il*Re))^2+((V1*sind(phi))+(Il*Xe))^2));
+printf("\nfull voltage current,V1=%dV",V1dash)
\ No newline at end of file diff --git a/431/CH3/EX3.20/resultEX3_20.txt b/431/CH3/EX3.20/resultEX3_20.txt new file mode 100755 index 000000000..4e02cecf1 --- /dev/null +++ b/431/CH3/EX3.20/resultEX3_20.txt @@ -0,0 +1,6 @@ +
+ Example 3.20
+
+Total resistance=4.360000ohms
+Total impedence=10.000000ohms
+full voltage current,V1=6735V
\ No newline at end of file diff --git a/431/CH3/EX3.21/EX3_21.sce b/431/CH3/EX3.21/EX3_21.sce new file mode 100755 index 000000000..044c1c0dc --- /dev/null +++ b/431/CH3/EX3.21/EX3_21.sce @@ -0,0 +1,36 @@ +//Calculate circuit constants and efficiency //Chapter 3
+//Example 3.21
+//page 227
+clear;
+clc;
+disp("Example 3.21")
+V2=500; //secondary voltage in volts
+V1=250; //primary voltage in short circuit test in volts
+I0=1; //current in short circuit test in amperes
+P=80; //core loss in watt
+Psc=100; //power in short circuit test in watts
+Vsc=20; //short circuit voltage in volts
+Isc=12; //short circuit current in amperes
+phi0=acosd(P/(V1*I0));
+printf("From open circuit test , cos(phi0)=%f",cos(phi0));
+Ic=I0*cosd(phi0);
+printf("\nLoss component of no-load current,Ic=%fA",Ic)
+Im=sqrt(I0^2-Ic^2);
+printf("\nMagnetising current,Im=%fA",Im);
+Rm=V1/Ic;
+Xm=V1/Im;
+Re=Psc/(Isc^2);
+Ze=Vsc/Isc;
+Xe=sqrt(Ze^2-Re^2);
+printf("\n\nEquvalent resistance referred to secondary=%fohms",Re);
+printf("\nEquvalent reactance referred to secondary=%fohms",Xe);
+printf("\nEquvalent impedance referred to secondary=%fohms",Ze);
+K=V2/V1; //turns ratio
+printf("\n\nEquvalent resistance referred to primary=%fohms",(Re/K^2));
+printf("\nEquvalent reactance referred to primary=%fohms",(Xe/K^2));
+printf("\nEquvalent impedance referred to primary=%fohms",(Ze/K^2));
+V=500; //output in volts
+I=10; //output current in amperes
+phi=acosd(0.80);
+effi=(V*I*cosd(phi)*100)/((V*I*cosd(phi))+P+((I)^2*Re));
+printf("\nEffiency=%fpercent",effi);
\ No newline at end of file diff --git a/431/CH3/EX3.21/resultEX3_21.txt b/431/CH3/EX3.21/resultEX3_21.txt new file mode 100755 index 000000000..e49c40608 --- /dev/null +++ b/431/CH3/EX3.21/resultEX3_21.txt @@ -0,0 +1,14 @@ +
+ Example 3.21
+From open circuit test , cos(phi0)=-0.606173
+Loss component of no-load current,Ic=0.320000A
+Magnetising current,Im=0.947418A
+
+Equvalent resistance referred to secondary=0.694444ohms
+Equvalent reactance referred to secondary=1.515099ohms
+Equvalent impedance referred to secondary=1.666667ohms
+
+Equvalent resistance referred to primary=0.173611ohms
+Equvalent reactance referred to primary=0.378775ohms
+Equvalent impedance referred to primary=0.416667ohms
+Effiency=96.398447percent
\ No newline at end of file diff --git a/431/CH3/EX3.22/EX3_22.sce b/431/CH3/EX3.22/EX3_22.sce new file mode 100755 index 000000000..157ac8fc1 --- /dev/null +++ b/431/CH3/EX3.22/EX3_22.sce @@ -0,0 +1,17 @@ +//Calculate efficiency //Chapter 3
+//Example 3.22
+//page 231
+clear;
+clc;
+disp("Example 3.22")
+kVA=200; //Rating of the transformer
+Pin=3.4; //power input to two transformer in watt
+Pin2=5.2;
+coreloss=Pin; //core loss of two transformers
+phi=acosd(0.8);
+printf("\nCore loss of two transformer=%fkW",Pin)
+printf("\nCore loss of each transformer=%fkW",(Pin/2))
+printf("\nFull load copper loss of the two transformer=%fkW",Pin2)
+printf("Therefore,full load copper loss of each transformer=%fkW",(Pin2/2));
+effi=(kVA*cosd(phi)*100)/((kVA*cosd(phi))+(Pin/2)+(Pin2/2))
+printf("\nFull load efficiency at 0.8 p.f. lagging=%fpercent",effi);
\ No newline at end of file diff --git a/431/CH3/EX3.22/resultEX3_22.txt b/431/CH3/EX3.22/resultEX3_22.txt new file mode 100755 index 000000000..254ef0634 --- /dev/null +++ b/431/CH3/EX3.22/resultEX3_22.txt @@ -0,0 +1,7 @@ +
+ Example 3.22
+
+Core loss of two transformer=3.400000kW
+Core loss of each transformer=1.700000kW
+Full load copper loss of the two transformer=5.200000kWTherefore,full load copper loss of each transformer=2.600000kW
+Full load efficiency at 0.8 p.f. lagging=97.382836percent
\ No newline at end of file diff --git a/431/CH3/EX3.24/EX3_24.sce b/431/CH3/EX3.24/EX3_24.sce new file mode 100755 index 000000000..4f8713c2e --- /dev/null +++ b/431/CH3/EX3.24/EX3_24.sce @@ -0,0 +1,17 @@ +//Calculate efficiency of transformer //Chapter 3
+//Example 3.24
+//page 233
+clear;
+clc;
+disp("Example 3.24")
+kVA=50; //rating of the transformer
+V1=6360; //primary voltage rating
+V2=240; //secondary voltage rating
+pf=0.8
+coreloss=2; //core loss in kilo watt from open circuit test
+Culoss=2; //copper loss at secondary current of 175A
+I=175; //current in amperes
+I2=(kVA*1000)/V2;
+printf("Full load secondary current,I2=%fA",I2);
+effi=(kVA*pf*100)/((kVA*pf)+coreloss+(Culoss*(I2/I)^2))
+printf("\nEfficiency=%fpercent",effi)
diff --git a/431/CH3/EX3.24/resultEX3_24.txt b/431/CH3/EX3.24/resultEX3_24.txt new file mode 100755 index 000000000..ec75add6b --- /dev/null +++ b/431/CH3/EX3.24/resultEX3_24.txt @@ -0,0 +1,3 @@ + Example 3.24
+Full load secondary current,I2=208.333333A
+Efficiency=89.217075percent
\ No newline at end of file diff --git a/431/CH3/EX3.25/EX3_25.sce b/431/CH3/EX3.25/EX3_25.sce new file mode 100755 index 000000000..f8ed7ef01 --- /dev/null +++ b/431/CH3/EX3.25/EX3_25.sce @@ -0,0 +1,21 @@ +//Calculate efficiency of transformer //Chapter 3
+//Example 3.25
+//page 234
+clear;
+clc;
+disp("Example 3.25")
+kVA=500; //rating of the transformer
+R1=0.4; //resistance in primary winding inohms
+R2=0.001; //resistance in secondary winding in ohms
+V1=6600; //primary voltahe in volts
+V2=400; //secondary voltage in volts
+ironloss=3; //iron loss in kilowatt
+pf=0.8; //power factor lagging
+I1=(kVA*1000)/V1;
+printf("\nPrimary winding current=%fA",I1);
+I2=(I1*V1)/V2;
+printf("\nSecondary winding current=%fA",I2);
+Culoss=((I1^2*R1)+(I2^2*R2));
+printf("\nCopper losses in the two winding=%fWatts",Culoss);
+effi=(kVA*pf*100)/((kVA*pf)+ironloss+(Culoss/1000));
+printf("\nEfficiency at 0.8 p.f=%fpercent",effi);
diff --git a/431/CH3/EX3.25/resultEX3_25.txt b/431/CH3/EX3.25/resultEX3_25.txt new file mode 100755 index 000000000..a5025c26e --- /dev/null +++ b/431/CH3/EX3.25/resultEX3_25.txt @@ -0,0 +1,7 @@ +
+ Example 3.25
+
+Primary winding current=75.757576A
+Secondary winding current=1250.000000A
+Copper losses in the two winding=3858.184114Watts
+Efficiency at 0.8 p.f=98.314355percent
\ No newline at end of file diff --git a/431/CH3/EX3.26/EX3_26.sce b/431/CH3/EX3.26/EX3_26.sce new file mode 100755 index 000000000..328225ab7 --- /dev/null +++ b/431/CH3/EX3.26/EX3_26.sce @@ -0,0 +1,23 @@ +//Calculate efficiency of transformer //Chapter 3
+//Example 3.26
+//page 234
+clear;
+clc;
+disp("Example 3.26")
+kVA=400; //rating of the transformer
+ironloss=2; //iron loss in kilowatt
+pf=0.8; //power factor
+kW=240; //load in kilowatt
+kVA1=kW/pf;
+disp("Efficiency is maximium when,core-loss=copper-loss")
+coreloss=ironloss;
+disp("Maximium efficiency occurs at 240kw,0.8 power factor,i.e., at 300kVA load")
+Cl300=coreloss;
+Cl400=(Cl300*(kVA/kVA1)^2);
+pf1=0.71; //power factor for full load
+effi=(kVA*pf1*100)/((kVA*pf1)+coreloss+Cl400);
+printf("\nEfficiency at full-load and 071 power factor=%dpercent",effi);
+pf2=1 //maximium efficiency occurs at unity power factor
+MAXeffi=(kVA1*pf2*100)/((kVA1*pf2)+coreloss+Cl300)
+printf("\nMaximium efficiency at 300kVA and unity power factor=%fpercent",MAXeffi);
+
diff --git a/431/CH3/EX3.26/resultEX3_26.txt b/431/CH3/EX3.26/resultEX3_26.txt new file mode 100755 index 000000000..5a6a1bc51 --- /dev/null +++ b/431/CH3/EX3.26/resultEX3_26.txt @@ -0,0 +1,8 @@ + Example 3.26
+
+ Efficiency is maximium when,core-loss=copper-loss
+
+ Maximium efficiency occurs at 240kw,0.8 power factor,i.e., at 300kVA load
+
+Efficiency at full-load and 071 power factor=98percent
+Maximium efficiency at 300kVA and unity power factor=98.684211percent
\ No newline at end of file diff --git a/431/CH3/EX3.27/EX3_27.sce b/431/CH3/EX3.27/EX3_27.sce new file mode 100755 index 000000000..e8d4a46fb --- /dev/null +++ b/431/CH3/EX3.27/EX3_27.sce @@ -0,0 +1,19 @@ +//Calculate efficiency of transformer //Chapter 3
+//Example 3.27
+//page 235
+clear;
+clc;
+disp("Example 3.27")
+kVA=40; //rating of the transformer
+coreloss=450; //core-loss in watts
+Culoss=800; //copper loss in watt
+pf=0.8; //power factor of the load
+FLeffi=(kVA*pf*100)/((kVA*pf)+((coreloss+Culoss)/1000));
+printf("Full-load efficiency=%fpercent",FLeffi);
+disp("For maximium efficiency, Core loss=copper loss")
+Culoss2=coreloss; //for maximium efficiency
+n=sqrt(Culoss2/Culoss);
+kVA2=n*kVA; //load for maximium efficiency
+MAXeffi=(kVA2*pf*100)/((kVA2*pf)+((coreloss+Culoss2)/1000));
+printf("\nValue of maximium efficiency=%fpercent",MAXeffi);
+
diff --git a/431/CH3/EX3.27/resultEX3_27.txt b/431/CH3/EX3.27/resultEX3_27.txt new file mode 100755 index 000000000..abcc11d0a --- /dev/null +++ b/431/CH3/EX3.27/resultEX3_27.txt @@ -0,0 +1,6 @@ +
+ Example 3.27
+Full-load efficiency=96.240602percent
+ For maximium efficiency, Core loss=copper loss
+
+Value of maximium efficiency=96.385542percent
\ No newline at end of file diff --git a/431/CH3/EX3.28/EX3_28.sce b/431/CH3/EX3.28/EX3_28.sce new file mode 100755 index 000000000..9b2675bd1 --- /dev/null +++ b/431/CH3/EX3.28/EX3_28.sce @@ -0,0 +1,22 @@ +//Calculate efficiency of transformer //Chapter 3
+//Example 3.29
+//page 236
+clear;
+clc;
+disp("Example 3.29")
+kVA=50; //rating of the transformers
+I1=250; //primary current in amperes
+Re=0.006; //total resistance referred to the primary side
+ironloss=200; //iron loss in watt
+Culoss=(I1^2*Re); //copper loss in watt
+pf=0.8; //power factor lagging
+printf("Full-load copper loss=%fW",Culoss);
+TL1=((Culoss+ironloss)/1000);
+printf("\nTotal loss on full load=%fkW",TL1);
+TL2=((((Culoss*(1/2)^2))+ironloss)/1000)
+printf("\nTotal loss on half load=%fkW",TL2);
+effi1=(kVA*pf*100)/((kVA*pf)+TL1);
+printf("\nEfficiency at full load,0.8 power factor lagging=%f percent",effi1)
+effi2=((kVA/2)*pf*100)/(((kVA/2)*pf)+TL2);
+printf("\nEfficiency at half load,0.8 power factor lagging=%f percent",effi2)
+
diff --git a/431/CH3/EX3.28/resultEX3_28.txt b/431/CH3/EX3.28/resultEX3_28.txt new file mode 100755 index 000000000..00433b7f0 --- /dev/null +++ b/431/CH3/EX3.28/resultEX3_28.txt @@ -0,0 +1,4 @@ + Example 3.28
+
+All-day efficiency of transformer A=95.522388percent
+All-day efficiency of transformer B=96.822995percent
\ No newline at end of file diff --git a/431/CH3/EX3.29/EX3_29.sce b/431/CH3/EX3.29/EX3_29.sce new file mode 100755 index 000000000..7fe105d0a --- /dev/null +++ b/431/CH3/EX3.29/EX3_29.sce @@ -0,0 +1,26 @@ +//Calculate efficiency of transformer //Chapter 3
+//Example 3.30
+//page 237
+clear;
+clc;
+disp("Example 3.30")
+kVA=10; //rating of the transformers
+V1=400; //primary voltage in volts
+V2=200; //secondary voltage in volts
+f=50; //frequency in hertz
+MAXeffi=0.96; //maximium efficiency
+output1=(kVA*0.75); //output at 75% of full load
+input1=(output1/MAXeffi);
+printf("\nInput at 75percent of full load=%fkW",input1);
+TL=input1-output1;
+printf("\nTotal losses=%fkW",TL);
+Pi=TL/2;
+Pc=TL/2;
+disp("Maximiunm efficiency occurs at 3/4th of full load")
+Pc=Pi/(3/4)^2;
+printf("\nThus,total losses on full load=%fW",((Pc+Pi)*1000));
+pf=0.8; //power factor lagging
+effi=(kVA*pf*100)/((kVA*pf)+(Pc+Pi));
+printf("\nEfficiency on full load. 0.8 power factor lagging=%fpercent",effi)
+
+
diff --git a/431/CH3/EX3.29/resultEX3_29.txt b/431/CH3/EX3.29/resultEX3_29.txt new file mode 100755 index 000000000..1a1fda68d --- /dev/null +++ b/431/CH3/EX3.29/resultEX3_29.txt @@ -0,0 +1,6 @@ + Example 3.29
+Full-load copper loss=375.000000W
+Total loss on full load=0.575000kW
+Total loss on half load=0.293750kW
+Efficiency at full load,0.8 power factor lagging=98.582871 percent
+Efficiency at half load,0.8 power factor lagging=98.552510 percent
\ No newline at end of file diff --git a/431/CH3/EX3.3/EX3_3.sce b/431/CH3/EX3.3/EX3_3.sce new file mode 100755 index 000000000..cd3da852a --- /dev/null +++ b/431/CH3/EX3.3/EX3_3.sce @@ -0,0 +1,18 @@ +//calculating induced emf and maximium flux density
+//Chapter 3
+//Example 3.3
+//page 197
+clear;
+clc;
+disp("Example 3.3")
+V1=230; //primary voltage in volts
+f=50; //frequency in hertz
+N1=100; //number of primary turns
+N2=400; //number of secondary turns
+A=250*10^(-4); //cross section area of core in m^2
+disp("since at no-load E2=V2")
+E2=(V1*N2)/N1;
+printf("induced secondary winding,E2=%dV",E2);
+phi=E2/(4.44*f*N2);
+Bm=phi/A;
+printf("\nMaximium flux density in the core=%fWb/m^2",Bm)
\ No newline at end of file diff --git a/431/CH3/EX3.3/resultEX3_3.txt b/431/CH3/EX3.3/resultEX3_3.txt new file mode 100755 index 000000000..33ca6797c --- /dev/null +++ b/431/CH3/EX3.3/resultEX3_3.txt @@ -0,0 +1,6 @@ +
+ Example 3.3
+
+ since at no-load E2=V2
+induced secondary winding,E2=920V
+Maximium flux density in the core=0.414414Wb/m^2
\ No newline at end of file diff --git a/431/CH3/EX3.30/EX3_30.sce b/431/CH3/EX3.30/EX3_30.sce new file mode 100755 index 000000000..9ecebd3c5 --- /dev/null +++ b/431/CH3/EX3.30/EX3_30.sce @@ -0,0 +1,27 @@ +//Calculate voltage regulation of transformer //Chapter 3
+//Example 3.31
+//page 237
+clear;
+clc;
+disp("Example 3.31")
+kVA=500; //rating of the transformers
+V1=3300; //primary voltage in volts
+V2=500; //secondary voltage in volts
+f=50; //frequency in hertz
+MAXeffi=0.97;
+x=0.75; //fraction of full load for maximium efficiency
+pf1=1;
+output1=(kVA*x*pf1*1000);
+printf("Output at maximium efficiency=%dwatts",output1);
+losses=((1/MAXeffi)-1)*output1;
+printf("\nThus, at maximium efficiency,\n lossses=%fW",losses)
+Culoss=losses/2;
+printf("\nCopper losses at 75percent of full load=%dW",Culoss);
+CulossFL=Culoss/x^2;
+printf("\nCopper losses at full load=%dW",CulossFL);
+Re=CulossFL/(kVA*1000);
+Ze=0.1; //equivalent impedence per unit
+Xe=sqrt(Ze^2-Re^2);
+phi=acosd(0.8);
+reg=((Re*cosd(phi))+(Xe*sind(phi)))*100;
+printf("\npercentage regulation=%f percent",reg);
diff --git a/431/CH3/EX3.30/resultEX3_29.txt b/431/CH3/EX3.30/resultEX3_29.txt new file mode 100755 index 000000000..1a1fda68d --- /dev/null +++ b/431/CH3/EX3.30/resultEX3_29.txt @@ -0,0 +1,6 @@ + Example 3.29
+Full-load copper loss=375.000000W
+Total loss on full load=0.575000kW
+Total loss on half load=0.293750kW
+Efficiency at full load,0.8 power factor lagging=98.582871 percent
+Efficiency at half load,0.8 power factor lagging=98.552510 percent
\ No newline at end of file diff --git a/431/CH3/EX3.32/EX3_32.sce b/431/CH3/EX3.32/EX3_32.sce new file mode 100755 index 000000000..65d019a10 --- /dev/null +++ b/431/CH3/EX3.32/EX3_32.sce @@ -0,0 +1,16 @@ +//Calculate current in different parts of winding of autotransformer//Chapter 3
+//Example 3.32
+//page 240
+clear;
+clc;
+disp("Example 3.32")
+V1=230; //primary voltage of auto-transformer
+V2=75; //secondary voltage of auto-transformer
+r=(V1/V2); //ratio of primary to secondary turns
+I2=200; //load current in amperes
+I1=I2/r;
+printf("Primary current,I1=%fA",I1);
+printf("\nLoad current,I1=%fA",I2);
+printf("\ncirrent flowing through the common portion of winding=%fA",(I2-I1));
+printf("\nEconomy in saving in copper in percentage=%fpercent",(100/r));
+
diff --git a/431/CH3/EX3.32/resultEX3_32.txt b/431/CH3/EX3.32/resultEX3_32.txt new file mode 100755 index 000000000..441ea142b --- /dev/null +++ b/431/CH3/EX3.32/resultEX3_32.txt @@ -0,0 +1,6 @@ +
+ Example 3.32
+Primary current,I1=65.217391A
+Load current,I1=200.000000A
+cirrent flowing through the common portion of winding=134.782609A
+Economy in saving in copper in percentage=32.608696percent
\ No newline at end of file diff --git a/431/CH3/EX3.4/EX3_4.sce b/431/CH3/EX3.4/EX3_4.sce new file mode 100755 index 000000000..f937ff379 --- /dev/null +++ b/431/CH3/EX3.4/EX3_4.sce @@ -0,0 +1,18 @@ +//calculating induced emf and maximium flux density
+//Chapter 3
+//Example 3.3
+//page 197
+clear;
+clc;
+disp("Example 3.3")
+kVA=40; //rating of the transformer
+V1=2000; //primary side voltage in volts
+V2=250; //secondary side voltage in volts
+R1=1.15; //primary resistance in ohms
+R2=0.0155; //secondary resistance in ohms
+R=R2+(((V2/V1)^2)*R1)
+printf("Total resistance of the transformer in terms of the secondary winding=%fohms",R)
+I2=(kVA*1000)/V2;
+printf("\nFull load secondary current=%dA",I2)
+printf("\nTotal resistance load on full load=%fVolts",(I2*R))
+printf("\nTotal copper loss on full load=%fWatts",((I2)^2*R))
diff --git a/431/CH3/EX3.4/resultEX3_4.txt b/431/CH3/EX3.4/resultEX3_4.txt new file mode 100755 index 000000000..49c1c841b --- /dev/null +++ b/431/CH3/EX3.4/resultEX3_4.txt @@ -0,0 +1,5 @@ +Example 3.4
+Total resistance of the transformer in terms of the secondary winding=0.033469ohms
+Full load secondary current=160A
+Total resistance load on full load=5.355000Volts
+Total copper loss on full load=856.800000Watts
\ No newline at end of file diff --git a/431/CH3/EX3.5/EX3_5.sce b/431/CH3/EX3.5/EX3_5.sce new file mode 100755 index 000000000..a7598d500 --- /dev/null +++ b/431/CH3/EX3.5/EX3_5.sce @@ -0,0 +1,19 @@ +//Calculating the current and power factor of the primary circuit
+//Chapter 3
+//Example 3.5
+//page 206
+clear;
+clc;
+disp("Example 3.5")
+I2=300;........................//Secondary current in amperes
+N1=1200; //number of primary turns
+N2=300; //number of secondary turns
+I0=2.5; //load current in amperes
+I1=(I2*N2)/N1;
+phi0=acosd(0.2);
+phi2=acosd(0.8);
+I1c=(I1*cosd(phi2))+(I0*cosd(phi0));
+I1s=(I1*sind(phi2))+(I0*sind(phi0));
+I=sqrt(I1c^2+I1s^2);
+phi=atand(I1s/I1c)
+printf("primary power factor=%fdegrees",cosd(phi));
\ No newline at end of file diff --git a/431/CH3/EX3.5/resultEX3_5.txt b/431/CH3/EX3.5/resultEX3_5.txt new file mode 100755 index 000000000..421d58957 --- /dev/null +++ b/431/CH3/EX3.5/resultEX3_5.txt @@ -0,0 +1,2 @@ + Example 3.5
+primary power factor=0.786863degrees
\ No newline at end of file diff --git a/431/CH3/EX3.6/EX3_6.sce b/431/CH3/EX3.6/EX3_6.sce new file mode 100755 index 000000000..bce545724 --- /dev/null +++ b/431/CH3/EX3.6/EX3_6.sce @@ -0,0 +1,18 @@ +//Calculating the value of primary current
+//Chapter 3
+//Example 3.6
+//page 207
+clear;
+clc;
+disp("Example 3.6")
+I0=1.5; //no-load current
+phi0=acosd(0.2)
+I2=40; //secondary current in amperes
+phi2=acosd(0.8)
+r=3; //ratio of primary and secondary turns
+I1=I2/r;
+I1c=(I1*cosd(phi2))+(I0*cosd(phi0));
+I1s=(I1*sind(phi2))+(I0*sind(phi0));
+I=sqrt(I1c^2+I1s^2);
+printf("I1=%fA",I)
+
diff --git a/431/CH3/EX3.6/resultEX3_6.txt b/431/CH3/EX3.6/resultEX3_6.txt new file mode 100755 index 000000000..087f66e08 --- /dev/null +++ b/431/CH3/EX3.6/resultEX3_6.txt @@ -0,0 +1,3 @@ +
+ Example 3.6
+I1=14.489406A
\ No newline at end of file diff --git a/431/CH3/EX3.7/EX3_7.sce b/431/CH3/EX3.7/EX3_7.sce new file mode 100755 index 000000000..6a7e03bb2 --- /dev/null +++ b/431/CH3/EX3.7/EX3_7.sce @@ -0,0 +1,20 @@ +//Calculating the magnetising current,core loss and flux
+//Chapter 3
+//Example 3.7
+//page 208
+clear;
+clc;
+disp("Example 3.7")
+V1=230; //voltage in volts
+f=50; //frequency of supply in hertz
+N1=250; //number of primary turns
+I0=4.5; //no-load current in amperes
+phi0=acosd(0.25);
+Im=I0*sind(phi0)
+printf("magnetising current,Im=%fA",Im);
+Pc=V1*I0*cosd(phi0);
+printf("\nCore loss=%dW",Pc)
+disp("neglecting I^2R loss in primary winding at no-load")
+E1=V1;
+phi=E1/(4.44*f*N1);
+printf("\nMaximium value of flux in the core=%fWb",phi)
\ No newline at end of file diff --git a/431/CH3/EX3.7/resultEX3_7.txt b/431/CH3/EX3.7/resultEX3_7.txt new file mode 100755 index 000000000..f5e9e348b --- /dev/null +++ b/431/CH3/EX3.7/resultEX3_7.txt @@ -0,0 +1,7 @@ +
+ Example 3.7
+magnetising current,Im=4.357106A
+Core loss=258W
+ neglecting I^2R loss in primary winding at no-load
+
+Maximium value of flux in the core=0.004144Wb
\ No newline at end of file diff --git a/431/CH3/EX3.8/EX3_8.sce b/431/CH3/EX3.8/EX3_8.sce new file mode 100755 index 000000000..c2efea9dd --- /dev/null +++ b/431/CH3/EX3.8/EX3_8.sce @@ -0,0 +1,20 @@ +//Calculating the current and power factor of the primary circuit
+//Chapter 3
+//Example 3.8
+//page 209
+clear;
+clc;
+disp("Example 3.8")
+I2=30;........................//Secondary current in amperes
+I0=2; //load current in amperes
+V1=660; //primary voltage in volts
+V2=220; //secondary voltage in volts
+I1=(I2*V2)/V1;
+phi0=acosd(0.225);
+phi2=acosd(0.9);
+I1c=(I1*cosd(phi2))+(I0*cosd(phi0));
+I1s=(I1*sind(phi2))+(I0*sind(phi0));
+I=sqrt(I1c^2+I1s^2);
+phi=atand(I1s/I1c)
+printf("I1=%fA",I)
+printf("\nprimary power factor=%fdegrees",cosd(phi));
diff --git a/431/CH3/EX3.8/resultEX3_8.txt b/431/CH3/EX3.8/resultEX3_8.txt new file mode 100755 index 000000000..23df4df73 --- /dev/null +++ b/431/CH3/EX3.8/resultEX3_8.txt @@ -0,0 +1,4 @@ +
+ Example 3.8
+I1=11.361713A
+primary power factor=0.831741degrees
\ No newline at end of file diff --git a/431/CH3/EX3.9/EX3_9.sce b/431/CH3/EX3.9/EX3_9.sce new file mode 100755 index 000000000..a3b6eaf33 --- /dev/null +++ b/431/CH3/EX3.9/EX3_9.sce @@ -0,0 +1,32 @@ +//Calculating magnetising current,primary current and primary power factor
+//Chapter 3
+//Example 3.9
+//page 210
+clear;
+clc;
+disp("Example 3.9")
+phi_m=7.5*10^(-3); //maximium flux
+f=50; //frequecy in hertz
+N1=144; //number of primary turns
+N2=432; //number of secondary turns
+kVA=0.24; //rating of transformer
+E1=(4.44*phi_m*f*N1)
+V1=E1;
+printf("V1=%dV",V1)
+I0=(kVA*1000)/V1;
+phi0=acosd(0.26);
+Im=I0*sind(phi0);
+printf("\nIm=%fA",Im);
+V2=(E1*N2)/N1
+printf("\nV2=%fV",V2)
+disp("At a load of 1.2kVA and power factor of 0.8 lagging")
+kVA=1.2;
+phi2=acosd(0.8);
+I2=(kVA*1000)/V2;
+I=(I2*N2)/N1;
+I1c=(I*cosd(phi2))+(I0*cosd(phi0));
+I1s=(I*sind(phi2))+(I0*sind(phi0));
+I=sqrt(I1c^2+I1s^2);
+printf("\nI1=%fA",I);
+phi=acosd(((I*cosd(phi2))+(I0*cosd(phi0)))/I);
+printf("\nprimary power factor=%flagging",cosd(phi))
\ No newline at end of file diff --git a/431/CH3/EX3.9/resultEX3_9.txt b/431/CH3/EX3.9/resultEX3_9.txt new file mode 100755 index 000000000..36f47303a --- /dev/null +++ b/431/CH3/EX3.9/resultEX3_9.txt @@ -0,0 +1,8 @@ +Example 3.9
+V1=239V
+Im=0.966575A
+V2=719.280000V
+ At a load of 1.2kVA and power factor of 0.8 lagging
+
+I1=5.825933A
+primary power factor=0.844673lagging
\ No newline at end of file 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 diff --git a/431/CH5/EX5.1/EX5_1.sce b/431/CH5/EX5.1/EX5_1.sce new file mode 100755 index 000000000..9fa8853e1 --- /dev/null +++ b/431/CH5/EX5.1/EX5_1.sce @@ -0,0 +1,17 @@ +//caption- for calculating distribution factor
+//Chapter 5
+//example 5.1
+//page 424
+clear;
+clc;
+disp("example 5.1");
+printf("\n");
+slots=18;
+p=2; //nmber of poles
+ph=3; //three phase winding
+SA=(360/slots); //slot angle
+m=slots/(p*ph); //m=nmber of slots per pole per phase
+printf("number of slots per pole per phase,m=%d\n",m);
+printf("emfs of the oils of each phase will have a time-phase difference of %d degree mechanical \n",SA);
+k_d=sind((m*SA)/2)/(m*sind(SA/2));
+printf("distribution factor=%f",k_d);
diff --git a/431/CH5/EX5.1/resultEX5_1.txt b/431/CH5/EX5.1/resultEX5_1.txt new file mode 100755 index 000000000..d12bf24d6 --- /dev/null +++ b/431/CH5/EX5.1/resultEX5_1.txt @@ -0,0 +1,6 @@ +
+ example 5.1
+
+number of slots per pole per phase,m=3
+emfs of the oils of each phase will have a time-phase difference of 20 degree mechanical
+distribution factor=0.959795
\ No newline at end of file diff --git a/431/CH5/EX5.10/EX5_10.sce b/431/CH5/EX5.10/EX5_10.sce new file mode 100755 index 000000000..ed4fa7df6 --- /dev/null +++ b/431/CH5/EX5.10/EX5_10.sce @@ -0,0 +1,41 @@ +//chapter 5
+//example 5.10
+//page 440
+disp("example 5.10")
+clear;
+clc;
+V=2000;
+V_oc=500; //open circuit voltage
+I_sc=100; //short circuit current
+I_a=100;
+R_s=0.8; //armature resistance
+Z_s=V_oc/I_sc; //synchronous impedence
+printf("Z_s= %d ohm\n",Z_s);
+X_s=sqrt(Z_s^2-R_s^2);
+printf("X_s= %f ohm\n",X_s);
+pf=1;
+phi=acosd(pf);
+disp("At unity power factor");
+printf("\n");
+E=sqrt((V*cosd(phi)+I_a*R_s)^2+(V*sind(phi)+I_a*X_s)^2);
+printf("induced emf= %fV\n",E);
+R=((E-V)*100)/V;
+printf("regulation= %f percent\n",R);
+clear pf;
+pf=0.71;
+phi=acosd(pf);
+disp("At 0.71 lagging power factor");
+printf("\n");
+E=sqrt((V*cosd(phi)+I_a*R_s)^2+(V*sind(phi)+I_a*X_s)^2);
+printf("induced emf= %fV\n",E);
+R=((E-V)*100)/V;
+printf("regulation= %fpercent\n",R);
+clear pf;
+pf=0.8;
+phi=acosd(pf);
+disp("At 0.8 leading power factor");
+printf("\n");
+E=sqrt((V*cosd(phi)+I_a*R_s)^2+(V*sind(phi)-I_a*X_s)^2);
+printf("induced emf= %fV\n",E);
+R=((E-V)*100)/V;
+printf("regulation= %fpercent\n",R);
diff --git a/431/CH5/EX5.10/resultEX5_10.txt b/431/CH5/EX5.10/resultEX5_10.txt new file mode 100755 index 000000000..250c9d6cb --- /dev/null +++ b/431/CH5/EX5.10/resultEX5_10.txt @@ -0,0 +1,18 @@ + Z_s= 5 ohm
+X_s= 4.935585 ohm
+
+ At unity power factor
+
+induced emf= 2137.755833V
+regulation= 6.887792 percent
+
+ At 0.71 lagging power factor
+
+induced emf= 2422.283821V
+regulation= 21.114191percent
+
+ At 0.8 leading power factor
+
+induced emf= 1822.487197V
+regulation= -8.875640percent
+
\ No newline at end of file diff --git a/431/CH5/EX5.11/EX5_11.sce b/431/CH5/EX5.11/EX5_11.sce new file mode 100755 index 000000000..0c0eefeee --- /dev/null +++ b/431/CH5/EX5.11/EX5_11.sce @@ -0,0 +1,14 @@ +//chapter 5
+//example 5.11
+//page 441
+clear;
+clc;
+disp("example 5.11");
+printf("\n");
+disp("field exitation current=10A");
+V_oc=900; //induced emf on open circuit
+I_sc=150; //short circuit current
+Z_s=V_oc/I_sc; //synchronous impedence
+printf("synchronous impedence,Z_s= %d ohm\n",Z_s);
+I_a=60;
+printf("internal voltage drop when the load current is 60amp= %d V",(I_a*Z_s));
\ No newline at end of file diff --git a/431/CH5/EX5.11/resultEX5_11.txt b/431/CH5/EX5.11/resultEX5_11.txt new file mode 100755 index 000000000..738a3c948 --- /dev/null +++ b/431/CH5/EX5.11/resultEX5_11.txt @@ -0,0 +1,7 @@ +
+ example 5.11
+
+
+ field exitation current=10A
+synchronous impedence,Z_s= 6 ohm
+internal voltage drop when the load current is 60amp= 360 V
\ No newline at end of file diff --git a/431/CH5/EX5.12/EX5_12.sce b/431/CH5/EX5.12/EX5_12.sce new file mode 100755 index 000000000..677123a16 --- /dev/null +++ b/431/CH5/EX5.12/EX5_12.sce @@ -0,0 +1,19 @@ +//chapter 5
+//example 5.12
+//page 441
+clear;
+clc;
+disp("example 5.12");
+KVA=2000;
+V=6600; //rating
+V_p=6600/sqrt(3);
+I_a=(KVA*1000)/(sqrt(3)*V);
+R_a=0.4; //armature resistance
+X_s=4.5 //synchronous reactance
+pf=0.8;
+phi=acosd(pf);
+printf("\nV/phase= %dV \n",V_p)
+E=sqrt((V_p*cosd(phi)+I_a*R_a)^2+(V_p*sind(phi)+I_a*X_s)^2)
+printf("E= %f V per phase\n",E);
+R=((E-V_p)*100)/V_p;
+printf("percentage change in terminal voltage= %f percent",R);
\ No newline at end of file diff --git a/431/CH5/EX5.12/resultEX5_12.txt b/431/CH5/EX5.12/resultEX5_12.txt new file mode 100755 index 000000000..4077bcef7 --- /dev/null +++ b/431/CH5/EX5.12/resultEX5_12.txt @@ -0,0 +1,5 @@ + example 5.12
+
+V/phase= 3810V
+E= 4378.515597 V per phase
+percentage change in terminal voltage= 14.906234 percent
\ No newline at end of file diff --git a/431/CH5/EX5.13/EX5_13.sce b/431/CH5/EX5.13/EX5_13.sce new file mode 100755 index 000000000..64452974a --- /dev/null +++ b/431/CH5/EX5.13/EX5_13.sce @@ -0,0 +1,37 @@ +//chapter 5
+//example 5.13
+//page 442
+clear;
+clc;
+disp("example 5.13");
+printf("\n");
+KVA=1200; //output power
+printf("output power=%d\n",KVA)
+V_l=3300; //line voltage
+R_a=0.25; //armature resistance
+I_l=(KVA*1000)/(sqrt(3)*V_l); //line current
+//for star connected I_l=I_a
+I_a=I_l;
+V_p=V_l/sqrt(3);
+printf("V per phase= %dV\n",V_p)
+//field current of 40A produces short circuit current of 200A and open circuit emf 1100
+v_l=1100;
+i_s=200;
+Z_s= v_l/(sqrt(3)*i_s); //synchronous impedence
+printf("Synchronous impedance,Zs=%f ohm\n",Z_s)
+X_s=sqrt(Z_s^2-R_a^2); //synchronous reactance
+disp("(a)for 0.8 lagging power facor");
+pf=0.8;
+phi=acosd(pf);
+E=sqrt((V_p*cosd(phi)+I_a*R_a)^2+(V_p*sind(phi)+I_a*X_s)^2)
+printf("induced emf,E=%f V\n",E);
+R=((E-V_p)*100)/V_p;
+printf("regulation=%f percent\n\n",R);
+clear pf;
+pf=0.8;
+phi=acosd(pf);
+disp("(b)For leading power factor load")
+E=sqrt((V_p*cosd(phi)+I_a*R_a)^2+(V_p*sind(phi)-I_a*X_s)^2)
+printf("induced emf,E= %f V\n",E);
+R=((E-V_p)*100)/V_p;
+printf("regulation=%f percent",R);
\ No newline at end of file diff --git a/431/CH5/EX5.13/resultEX5_13.txt b/431/CH5/EX5.13/resultEX5_13.txt new file mode 100755 index 000000000..65f91c966 --- /dev/null +++ b/431/CH5/EX5.13/resultEX5_13.txt @@ -0,0 +1,15 @@ +
+ example 5.13
+
+output power=1200
+V per phase= 1905V
+Synchronous impedance,Zs=3.175426 ohm
+
+ (a)for 0.8 lagging power facor
+induced emf,E=2398.732590 V
+regulation=25.900810 percent
+
+
+ (b)For leading power factor load
+induced emf,E= 1647.716860 V
+regulation=-13.517293 percent
\ No newline at end of file diff --git a/431/CH5/EX5.14/EX5_14.sce b/431/CH5/EX5.14/EX5_14.sce new file mode 100755 index 000000000..fa7e73ea5 --- /dev/null +++ b/431/CH5/EX5.14/EX5_14.sce @@ -0,0 +1,25 @@ +//chapter 5
+//example 5.14
+//page 443
+clear;
+clc;
+disp("example 5.14");
+disp("star connected alternator")
+printf("\n");
+KVA=1500; //rating
+ph=3; //3-phase
+V_l=6600; //voltage
+Ra=0.4 //armature resistance
+Xs=6; //reactance
+Ia=(KVA*1000)/(sqrt(3)*V_l);
+printf("Full-load current= %d A\n",Ia);
+V=V_l/sqrt(3);
+printf("Voltage per phase=%d V\n",V);
+disp("for 0.8 lagging power facor");
+pf=0.8; //power factor
+phi=acosd(pf);
+E=sqrt((V*cosd(phi)+Ia*Ra)^2+(V*sind(phi)+Ia*Xs)^2)
+printf("induced emf=%f V\n\n",E);
+disp("then at 0.8 leading power factor");
+Vt=4743; //solved manually
+printf("termial Voltage, line-to-line=%d V\n",(sqrt(3)*Vt))
\ No newline at end of file diff --git a/431/CH5/EX5.14/resultEX5_14.txt b/431/CH5/EX5.14/resultEX5_14.txt new file mode 100755 index 000000000..57742fbc7 --- /dev/null +++ b/431/CH5/EX5.14/resultEX5_14.txt @@ -0,0 +1,14 @@ +
+ example 5.14
+
+ star connected alternator
+
+Full-load current= 131 A
+Voltage per phase=3810 V
+
+ for 0.8 lagging power facor
+induced emf=4366.072552 V
+
+
+ then at 0.8 leading power factor
+termial Voltage, line-to-line=8215 V
\ No newline at end of file diff --git a/431/CH5/EX5.15/EX5_15.sce b/431/CH5/EX5.15/EX5_15.sce new file mode 100755 index 000000000..ada22f8e8 --- /dev/null +++ b/431/CH5/EX5.15/EX5_15.sce @@ -0,0 +1,27 @@ +//chapter 5
+//example 5.15
+//page 450
+clear;
+clc;
+disp("example 5.15");
+L=8000; //load
+La=5000;
+pf=0.8;
+phi=acosd(pf);
+printf("\ntan phi= %f\n",tand(phi));
+disp("FOR ALTERNATOR A");
+pf_a=0.9;
+phi_a=acosd(pf_a);
+printf("\ntan phi_a= %f\n",tand(phi_a));
+disp("reactive load=active load*tan phi");
+disp("Active load=8000kW");
+printf("reactive load= %d KVAr\n",(8000*tand(phi_a)));
+disp("Active Load A=5000kW\n");
+printf("Reactive load A= %dkVAr\n",(5000*tand(phi_a)));
+printf("Active load of B= %dkW\n",L-La);
+a=((8000*tand(phi))-(5000*tand(phi_a)))
+printf("Reactive load of B= %dkVAr\n",a);
+B=a/(L-La);
+phi_b=atand(B);
+printf("phi_b= %f\n",phi_b)
+printf("Power Factor of B= %f",cosd(phi_b));
\ No newline at end of file diff --git a/431/CH5/EX5.15/resultEX5_15.txt b/431/CH5/EX5.15/resultEX5_15.txt new file mode 100755 index 000000000..b4eafba4e --- /dev/null +++ b/431/CH5/EX5.15/resultEX5_15.txt @@ -0,0 +1,20 @@ +
+ example 5.15
+
+tan phi= 0.750000
+
+ FOR ALTERNATOR A
+
+tan phi_a= 0.484322
+
+ reactive load=active load*tan phi
+
+ Active load=8000kW
+reactive load= 3874 KVAr
+
+ Active Load A=5000kW\n
+Reactive load A= 2421kVAr
+Active load of B= 3000kW
+Reactive load of B= 3578kVAr
+phi_b= 50.024676
+Power Factor of B= 0.642458
\ No newline at end of file diff --git a/431/CH5/EX5.16/EX5_16.sce b/431/CH5/EX5.16/EX5_16.sce new file mode 100755 index 000000000..1164de616 --- /dev/null +++ b/431/CH5/EX5.16/EX5_16.sce @@ -0,0 +1,32 @@ +//chapter 5
+//example 5.16
+//page 451
+clear;
+clc;
+disp("example 5.16")
+V=6600;
+ph=3; //3-phase alternators
+power=10000; //total load
+disp("Two alternators in parallel connection");
+pf=0.8;
+Ia=438; //armature current
+Il=(power*1000)/(sqrt(3)*V*pf); //load current
+printf("load current= %fA\n\n",Il);
+phi=acosd(pf);
+Ac=(Il*cosd(phi));
+Rc=(Il*sind(phi));
+printf("Active component of current= %fA\n",Ac);
+printf("Reactive component of current= %fA\n",Rc);
+printf("Current supplied by each alternator=%fA\n",(Il/2));
+printf("Active component of current supplied by each alternator= %fA\n",(Ac/2));
+printf("Reactive component of current supplied by each alternator= %fA\n\n",(Rc/2));
+disp("Since steam supply is same,the active component remain the same ");
+RIl=sqrt(Ia^2-(Ac/2)^2);
+printf("Reactive component of Il= %dA\n",RIl);
+RI2=(Rc-RIl);
+printf("reactive component of I2= %fA\n",RI2);
+I2=sqrt((Ac/2)^2+(RI2)^2);
+printf(" I2= %fA\n",I2);
+phi_2=atand(RI2/(Ac/2));
+printf("phi 2= %f degrees\n",phi_2);
+printf("cos phi 2= %f",cosd(phi_2));
diff --git a/431/CH5/EX5.16/resultEX5_16.txt b/431/CH5/EX5.16/resultEX5_16.txt new file mode 100755 index 000000000..aa117939b --- /dev/null +++ b/431/CH5/EX5.16/resultEX5_16.txt @@ -0,0 +1,18 @@ + example 5.16
+
+ Two alternators in parallel connection
+load current= 1093.466419A
+
+Active component of current= 874.773135A
+Reactive component of current= 656.079851A
+Current supplied by each alternator=546.733209A
+Active component of current supplied by each alternator= 437.386568A
+Reactive component of current supplied by each alternator= 328.039926A
+
+
+ Since steam supply is same,the active component remain the same
+Reactive component of Il= 23A
+reactive component of I2= 632.906796A
+ I2= 769.336091A
+phi 2= 55.352588 degrees
+cos phi 2= 0.568525
\ No newline at end of file diff --git a/431/CH5/EX5.17/EX5_17.sce b/431/CH5/EX5.17/EX5_17.sce new file mode 100755 index 000000000..8cddb20ae --- /dev/null +++ b/431/CH5/EX5.17/EX5_17.sce @@ -0,0 +1,33 @@ +//chapter 5
+//example 5.17
+//page 455
+clear;
+clc;
+disp("example 5.17");
+disp("power factor of existing load is 0.8 lagging");
+pf=0.8; //power factor
+phi=acosd(pf);
+printf("phi= %d degree\n",phi);
+L=800; //load
+kVAr1=(L*tand(phi));
+printf("kVAr1= %d \n",kVAr1);
+disp("output for the synchronous motor is 200kW");
+output=200;
+efficiency=0.9;
+kW=(output/efficiency);
+printf("Input to the synchronous motor= %fkW\n",kW);
+TL=(L+kW); // total load
+printf("Total load on the system= %fkW\n",TL);
+disp("overall power factor of the load is to be raised to 0.92 lagging");
+pf=0.92;
+phi=acosd(pf);
+kVAr2=(TL*tand(phi))
+printf("kVAr2=%f\n",kVAr2);
+kVAr=kVAr1-kVAr2;
+printf("lagging kVAr of synchronous codenser= %f\n",kVAr);
+printf("leading kVAr supplied by the motor= %f\n",kVAr);
+phi=atand(kVAr/kW);
+printf("phi= %d degree\n\n",phi);
+printf("Power factor of the synchronos motor= %f leading \n",cosd(phi));
+printf("KVA rating of the synchronous motor= %f",(kW/cosd(phi)));
+
diff --git a/431/CH5/EX5.17/resultEX5_17.txt b/431/CH5/EX5.17/resultEX5_17.txt new file mode 100755 index 000000000..c07f3e23e --- /dev/null +++ b/431/CH5/EX5.17/resultEX5_17.txt @@ -0,0 +1,19 @@ +
+ example 5.17
+
+ power factor of existing load is 0.8 lagging
+phi= 36 degree
+kVAr1= 599
+
+ output for the synchronous motor is 200kW
+Input to the synchronous motor= 222.222222kW
+Total load on the system= 1022.222222kW
+
+ overall power factor of the load is to be raised to 0.92 lagging
+kVAr2=435.464843
+lagging kVAr of synchronous codenser= 164.535157
+leading kVAr supplied by the motor= 164.535157
+phi= 36 degree
+
+Power factor of the synchronos motor= 0.803685 leading
+KVA rating of the synchronous motor= 276.504130
\ No newline at end of file diff --git a/431/CH5/EX5.2/EX5_2.sce b/431/CH5/EX5.2/EX5_2.sce new file mode 100755 index 000000000..ef2161ca6 --- /dev/null +++ b/431/CH5/EX5.2/EX5_2.sce @@ -0,0 +1,19 @@ +//chapter 5
+//example 5.2
+//page 425
+clear;
+clc;
+disp("example 5.2")
+printf("\n");
+slots=36; //number of slots
+poles=4; //number of poles
+ph=3; //single layer three phase winding
+SP=slots/ph; //number of slots per phase
+printf("number of slots per phase= %d\n",SP);
+m=SP/poles; //munber of slots per pole per phase
+printf("number of slots per pole per phase,m=%d\n",m)
+SA_m=360/slots; //slot angle mechanical
+SA_e=(poles/2)*SA_m //slot angle electrical
+printf("slot angle= %d degree electrical\n",SA_e)
+k_d=sind((m*SA_e)/2)/(m*sind(SA_e/2));
+printf("distribution factor= %f",k_d)
\ No newline at end of file diff --git a/431/CH5/EX5.2/resultEX5_2.txt b/431/CH5/EX5.2/resultEX5_2.txt new file mode 100755 index 000000000..49f03091e --- /dev/null +++ b/431/CH5/EX5.2/resultEX5_2.txt @@ -0,0 +1,6 @@ +example 5.2
+
+number of slots per phase= 12
+number of slots per pole per phase,m=3
+slot angle= 20 degree electrical
+distribution factor= 0.959795
\ No newline at end of file diff --git a/431/CH5/EX5.3/EX5_3.sce b/431/CH5/EX5.3/EX5_3.sce new file mode 100755 index 000000000..a7711e11d --- /dev/null +++ b/431/CH5/EX5.3/EX5_3.sce @@ -0,0 +1,18 @@ +//chapter 5
+//example 5.3
+//page 426
+clear;
+clc;
+disp("example 5.3");
+printf("\n");
+slots=48; //number of slots
+poles=4; //4-pole machine
+ph=3; //3-phase machine
+SA=360/slots; //slot angle
+printf("total number of slots= %d\n",slots);
+printf("slot angle= %f degree mechanical\n",SA);
+//coil span is 11 slot pitches
+//12 slots subtend 180degress, short pitched by 1 slot
+Bta=1*180/12;
+k_p=cosd(Bta/2);
+printf("pitch factor=%f",k_p)
diff --git a/431/CH5/EX5.3/resultEX5_3.txt b/431/CH5/EX5.3/resultEX5_3.txt new file mode 100755 index 000000000..a07c93e65 --- /dev/null +++ b/431/CH5/EX5.3/resultEX5_3.txt @@ -0,0 +1,6 @@ +
+ example 5.3
+
+total number of slots= 48
+slot angle= 7.500000 degree mechanical
+pitch factor=0.991445
\ No newline at end of file diff --git a/431/CH5/EX5.4/EX5_4.sce b/431/CH5/EX5.4/EX5_4.sce new file mode 100755 index 000000000..04fde09c2 --- /dev/null +++ b/431/CH5/EX5.4/EX5_4.sce @@ -0,0 +1,27 @@ +//chapter 5
+//example 5.4
+//page 426
+clear;
+clc;
+disp("example 5.4");
+printf("\n");
+slots=72; //number of slots
+P=8; //number of poles
+ph=3; //3-phase machine
+N=750; //speed of machine in rpm
+//winding is made with 36 coils having 10 turns
+Fp=0.15; //flux per pole
+fre=(P*N)/120;
+NCp=36/ph; //nmber of coils per phase
+T=NCp*10; //number of turns per phase
+k_p=1; //since full pitched pitch factor is 1
+printf("flux per pole=%fWb\n",Fp)
+printf("number of turns per phase=%d\n",T);
+printf("pitch factor=%f\n",k_p);
+m=slots/(P*ph); //slots per pole per phase
+SA_m=360/slots; //slot angle mechanical
+SA_e=(P/2)*SA_m;
+k_d=sind((m*SA_e)/2)/(m*sind(SA_e/2));
+printf("distribution factor=%f\n",k_d);
+E=4.44*Fp*fre*T*k_d*k_p;
+printf("RMS vale of emf induced per phase=%fV\n",E)
\ No newline at end of file diff --git a/431/CH5/EX5.4/resultEX5_4.txt b/431/CH5/EX5.4/resultEX5_4.txt new file mode 100755 index 000000000..4da220284 --- /dev/null +++ b/431/CH5/EX5.4/resultEX5_4.txt @@ -0,0 +1,8 @@ +
+ example 5.4
+
+flux per pole=0.150000Wb
+number of turns per phase=120
+pitch factor=1.000000
+distribution factor=0.959795
+RMS vale of emf induced per phase=3835.341142V
\ No newline at end of file diff --git a/431/CH5/EX5.5/EX5_5.sce b/431/CH5/EX5.5/EX5_5.sce new file mode 100755 index 000000000..5a7dd26d9 --- /dev/null +++ b/431/CH5/EX5.5/EX5_5.sce @@ -0,0 +1,30 @@ +//chapter 5
+//example 5.5
+//page 427
+clear;
+clc;
+disp("example 5.5");
+disp("E(line to line)= 440V");
+E_l=440; //line-to-line voltage
+E_p=E_l/(sqrt(3));
+N=750; //speed in rpm
+fre=50; //frequency
+P=(120*fre)/N;
+printf("P= %d\n",P);
+printf("E(per phase)= %dV\n",E_p);
+ph=3; //3-phase machine
+m=2; //number of slots per pole per phase
+slots=m*P*ph; //total number of stator slots
+SA_m=360/slots; //slot angle mechanical
+SA_e=(P/2)*SA_m; //slot angle electrical
+k_p=1; //assuming full pitch
+printf("slot angle= %d degree electrical\n",SA_e);
+printf("pitch factor=%f\n",k_p);
+k_d=sind((m*SA_e)/2)/(m*sind(SA_e/2));
+printf("distribution factor= %f\n\n",k_d);
+//2 slots per pole per phase
+NSp=2*P; //number of slots per phase
+NTc=4; //number of turns per coil
+T=8*NTc; //number of turns per phase
+Fp=E_p/(4.44*fre*T*k_d*k_p);
+printf("flux per pole= %fWb\n",Fp);
\ No newline at end of file diff --git a/431/CH5/EX5.5/resultEX5_5.txt b/431/CH5/EX5.5/resultEX5_5.txt new file mode 100755 index 000000000..babfcd0da --- /dev/null +++ b/431/CH5/EX5.5/resultEX5_5.txt @@ -0,0 +1,11 @@ +
+ example 5.5
+
+ E(line to line)= 440V
+P= 8
+E(per phase)= 254V
+slot angle= 30 degree electrical
+pitch factor=1.000000
+distribution factor= 0.965926
+
+flux per pole= 0.037021Wb
\ No newline at end of file diff --git a/431/CH5/EX5.6/EX5_6.sce b/431/CH5/EX5.6/EX5_6.sce new file mode 100755 index 000000000..54c46f7b4 --- /dev/null +++ b/431/CH5/EX5.6/EX5_6.sce @@ -0,0 +1,28 @@ +//chapter 5
+//example 5.6
+//page 428
+clear;
+clc;
+disp("example 5.6");
+printf("\n");
+slots=144; //number of slots
+ph=3; //3-phase machine
+P=16; //number of poles
+Cp=10; //number of conducters per slot
+Fp=0.03; //flux per pole
+Ns=375; //synchronous speed
+fre=(Ns*P)/120; //frequency
+printf("frequency=%d\n\n",fre);
+m=slots/(P*ph); //number of slots per pole per phase
+printf("number of slots per pole per phase,m= %d\n",m);
+SA_m=360/slots; //slot angle mechanical
+SA_e=(P/2)*SA_m; //slot angle electrical
+k_p=1 //no short pitching
+printf("short pitch= %d\n",k_p);
+k_d=sind((m*SA_e)/2)/(m*sind(SA_e/2));
+printf("distribution factor= %f\n",k_d);
+T=(slots*10)/(2*ph);
+printf("number of turns per phase,T= %d\n",T);
+E=4.44*Fp*fre*T*k_d*k_p;
+printf("RMS value of induced emf per phase,E= %fV\n",E);
+printf("induced emf across the linesis %fV \n",(sqrt(3)*E));
\ No newline at end of file diff --git a/431/CH5/EX5.6/resultEX5_6.txt b/431/CH5/EX5.6/resultEX5_6.txt new file mode 100755 index 000000000..b610eb3cf --- /dev/null +++ b/431/CH5/EX5.6/resultEX5_6.txt @@ -0,0 +1,12 @@ +
+ example 5.6
+
+frequency=50
+
+number of slots per pole per phase,m= 3
+short pitch= 1
+distribution factor= 0.959795
+number of turns per phase,T= 240
+RMS value of induced emf per phase,E= 1534.136457V
+induced emf across the linesis 2657.202289V
+
\ No newline at end of file diff --git a/431/CH5/EX5.7/EX5_7.sce b/431/CH5/EX5.7/EX5_7.sce new file mode 100755 index 000000000..79a593c2a --- /dev/null +++ b/431/CH5/EX5.7/EX5_7.sce @@ -0,0 +1,25 @@ +//chapter 5
+//example 5.7
+//page 428
+clear;
+clc;
+disp("example 5.7");
+printf("\n");
+slots=90; //number of slots
+P=10; //number of poles
+ph=3; //3-phase machine
+fre=50; //frequency
+Fp=0.16; //flux per pole
+E_l=11000; //line voltage
+SA_m=360/slots; //machanical slot angle
+SA_e=(P/2)*SA_m; //electrical slot angle
+m=slots/(ph*P);
+printf("slot angle=%d degree elecrical\n",SA_e)
+printf("number of slots per pole per phase,m=%d\n",m);
+k_p=1; //assuming full pitch
+printf("pitch factor=%d\n",k_p);
+k_d=sind((m*SA_e)/2)/(m*sind(SA_e/2));
+printf("distribution factor=%f\n\n",k_d);
+E_p=E_l/sqrt(3);
+T=E_p/(4.44*Fp*fre*k_p*k_d);
+printf("total number of armature conductors,Z= %d",(2*T));
diff --git a/431/CH5/EX5.7/resultEX5_7.txt b/431/CH5/EX5.7/resultEX5_7.txt new file mode 100755 index 000000000..c170c5344 --- /dev/null +++ b/431/CH5/EX5.7/resultEX5_7.txt @@ -0,0 +1,9 @@ +
+ example 5.7
+
+slot angle=20 degree elecrical
+number of slots per pole per phase,m=3
+pitch factor=1
+distribution factor=0.959795
+
+total number of armature conductors,Z= 372
\ No newline at end of file diff --git a/431/CH5/EX5.8/EX5_8.sce b/431/CH5/EX5.8/EX5_8.sce new file mode 100755 index 000000000..19d750c0c --- /dev/null +++ b/431/CH5/EX5.8/EX5_8.sce @@ -0,0 +1,32 @@ +//chapter 5
+//example 5.8
+//page 429
+clear;
+clc;
+disp("example 5.8");
+disp("P=6 , f=50");
+P=6;
+f=50;
+Sp=12; //slots per pole
+Cs=4; //conductors per slot
+Fp=1.5;
+TS=Sp*P
+printf("total number of slots=%d\n",TS);
+printf("total number of slots per phase= %d\n", (TS/3));
+printf("total number of conductors per phase= %d\n", ((TS*Cs)/3));
+T=((TS*Cs)/3)/2;
+printf("total number of turns per phase=%d\n",T)
+m=(TS/(P*3));
+printf("number of slots per pole per phase,m= %d\n",m);
+SA_m=360/TS; //slot angle mechanical
+SA_e=(P/2)*SA_m;
+k_d=sind((m*SA_e)/2)/(m*sind(SA_e/2));
+printf("distribution factor=%f\n\n",k_d);
+disp("coil pitch is 5/6 of full-pitch");
+printf("\n");
+bheta=180-(5/6)*180; //short pitch angle
+printf("short pitch angle= %d degrees\n",bheta)
+k_p=cosd(bheta/2);
+printf("pitch factor= %f \n",k_p);
+E=4.44*Fp*f*T*k_d*k_p;
+printf("induced per phase= %fV\n",E)
\ No newline at end of file diff --git a/431/CH5/EX5.8/resultEX5_8.txt b/431/CH5/EX5.8/resultEX5_8.txt new file mode 100755 index 000000000..b6d743d2e --- /dev/null +++ b/431/CH5/EX5.8/resultEX5_8.txt @@ -0,0 +1,17 @@ +
+ example 5.8
+
+ P=6 , f=50
+total number of slots=72
+total number of slots per phase= 24
+total number of conductors per phase= 96
+total number of turns per phase=48
+number of slots per pole per phase,m= 4
+distribution factor=0.957662
+
+
+ coil pitch is 5/6 of full-pitch
+
+short pitch angle= 30 degrees
+pitch factor= 0.965926
+induced per phase= 14785.689892V
\ No newline at end of file diff --git a/431/CH5/EX5.9/EX5_9.sce b/431/CH5/EX5.9/EX5_9.sce new file mode 100755 index 000000000..bd3b48645 --- /dev/null +++ b/431/CH5/EX5.9/EX5_9.sce @@ -0,0 +1,23 @@ +//chapter 5
+//example 5.9
+//page 439
+clear;
+clc;
+disp("example 5.9");
+printf("\n");
+OP=500000; //output power
+V_l=3300; //line voltage
+I_l=OP/(sqrt(3)*V_l); //line current
+printf("line current= %fA\n",I_l);
+//for star connected alternater, line current is equal to phase current
+I_a=I_l;
+pf=0.8; //power factor
+phi=acosd(pf);
+R_a=0.3; //synchronous resistance
+X_s=4; //synchronous reactance
+V_p=V_l/sqrt(3);
+printf("phase voltage= %fV\n",V_p)
+E=sqrt((V_p*cosd(phi)+I_a*R_a)^2+(V_p*sind(phi)+I_a*X_s)^2);
+printf("induced emf= %f V/Phase\n",E )
+PR=((E-V_p)*100)/V_p;
+printf("percentage regulation= %f percent\n",PR);
\ No newline at end of file diff --git a/431/CH5/EX5.9/resultEX5_9.txt b/431/CH5/EX5.9/resultEX5_9.txt new file mode 100755 index 000000000..7f84eb5f8 --- /dev/null +++ b/431/CH5/EX5.9/resultEX5_9.txt @@ -0,0 +1,8 @@ +
+ example 5.9
+
+line current= 87.477314A
+phase voltage= 1905.255888V
+induced emf= 2152.469556 V/Phase
+percentage regulation= 12.975353 percent
+
\ No newline at end of file |