diff options
Diffstat (limited to '3890')
72 files changed, 870 insertions, 0 deletions
diff --git a/3890/CH1/EX1.1/EX1_1.png b/3890/CH1/EX1.1/EX1_1.png Binary files differnew file mode 100644 index 000000000..6f3772e63 --- /dev/null +++ b/3890/CH1/EX1.1/EX1_1.png diff --git a/3890/CH1/EX1.1/EX1_1.sce b/3890/CH1/EX1.1/EX1_1.sce new file mode 100644 index 000000000..6e29f6d17 --- /dev/null +++ b/3890/CH1/EX1.1/EX1_1.sce @@ -0,0 +1,20 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:Tata McGraw Hill +//Year: 2002 ; Edition - 7 +//Example 1.1 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +pi=900; //input power during on period in watts +ton=20; //on period in minutes +toff=40; //off period in minutes + +E=(pi*ton*60+0*toff*60); //energy consumed per hour in w s +p_av=E/(60*60); //the average power in watts + +printf('the energy consumed per hour is %d in w-s\n',E) +printf('the average power is %d in watts\n',p_av) + + diff --git a/3890/CH1/EX1.2/Ex1_2.png b/3890/CH1/EX1.2/Ex1_2.png Binary files differnew file mode 100644 index 000000000..b7fc3b803 --- /dev/null +++ b/3890/CH1/EX1.2/Ex1_2.png diff --git a/3890/CH1/EX1.2/Ex1_2.sce b/3890/CH1/EX1.2/Ex1_2.sce new file mode 100644 index 000000000..afa775a21 --- /dev/null +++ b/3890/CH1/EX1.2/Ex1_2.sce @@ -0,0 +1,30 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 1.2
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+I1=60; //current during duration 0 to 10 sec in Ampere
+t1max=10;t1min=0; //time taken by current I1 in sec
+I2=25; //current during duration 10 to 30 sec in Ampere
+t2max=30;t2min=10; //time taken by current I2 in sec
+I3=50; //current during duration 30 to 40 sec in Ampere
+t3max=40;t3min=30; //time taken by current I3 in sec
+I4=-40; //current during duration 45 to 40 sec in Ampere
+t4max=45;t4min=40; //time taken by current I4 in sec
+I5=-20; //current during duration 60 to 45 sec in Ampere
+t5max=60;t5min=45; //time taken by current I5 in sec
+I6=0; //current during duration 100 to 60 sec in Ampere
+t6max=100;t6min=60; //time taken by current I6 in sec
+
+T=100; //total time period in sec
+sa=(I1*(t1max-t1min))+(I2*(t2max-t2min))+(I3*(t3max-t3min))+(I4*(t4max-t4min))+(I5*(t5max-t5min))+(I6*(t6max-t6min)); //algebric sum of area under positive and negative currents in A s
+avg=sa/T; //average value of current in ampere
+rms=((1/T)*((I1^2)*(t1max-t1min)+(I2^2)*(t2max-t2min)+(I3^2)*(t3max-t3min)+(I4^2)*(t4max-t4min)+(I5^2)*(t5max-t5min)+(I6^2)*(t6max-t6min)))^(1/2);
+
+printf('the average value of current waveform is %f in Ampere\n',avg)
+printf('the rms value of current waveform is %f in ampere\n',rms)
+
diff --git a/3890/CH2/EX2.1/Ex2_1.png b/3890/CH2/EX2.1/Ex2_1.png Binary files differnew file mode 100644 index 000000000..c6c02039b --- /dev/null +++ b/3890/CH2/EX2.1/Ex2_1.png diff --git a/3890/CH2/EX2.1/Ex2_1.sce b/3890/CH2/EX2.1/Ex2_1.sce new file mode 100644 index 000000000..3755bf30d --- /dev/null +++ b/3890/CH2/EX2.1/Ex2_1.sce @@ -0,0 +1,23 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 2.1
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+a1=5*10^-4;a2=10*10^-4; //area of cross sections in m^2
+l1=24*10^-2;l2=8*10^-2; //mean length in m
+ur=500; //relative permiability of the material
+u0=4*3.14*10^-7 //permiabiity of free space
+
+u=ur*u0; //permiablity in H/m
+r1=l1/(u*a1); //reluctance of material with lenght l1
+r2=l2/(u*a2); //reluctance of material with lenght l2
+r_a=r1/2+r2; //net reluctance of a 200 turn coilin H^-1
+r_b=r1*r2/(r1+r2)+r1; //net reluctance of 100 turn coil in H^-1
+
+printf('the net reluctance of 200 turn coil is %2f in H^-1\n',r_a)
+printf('the net reluctance of 100 turn coil is %2f in H^-1\n',r_b)
+
diff --git a/3890/CH2/EX2.2/Ex2_2.png b/3890/CH2/EX2.2/Ex2_2.png Binary files differnew file mode 100644 index 000000000..86251ed90 --- /dev/null +++ b/3890/CH2/EX2.2/Ex2_2.png diff --git a/3890/CH2/EX2.2/Ex2_2.sce b/3890/CH2/EX2.2/Ex2_2.sce new file mode 100644 index 000000000..0c795fc0d --- /dev/null +++ b/3890/CH2/EX2.2/Ex2_2.sce @@ -0,0 +1,26 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 2.2
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+bg=1; //flux density of air gap in T
+u0=4*3.14*10^-7; //permiability of free space
+lg=0.1*10^-3; //length of air gap in m
+sf=0.9; //stacking factor of M19 steel
+lm=100*10^-3; //length of the steel in m
+h=130; //flux density in At/m
+
+hg=bg/u0; //magnetic field intensity in A/m
+fg=hg*lg; //reluctance drop or magnetic potential across gap in A
+bm=bg/sf; //flux density in magnetic material in T
+Fm=h*0.1; //magnetic potenial of other member in At
+AT=Fm+fg; //the required ampere turn in At
+
+printf('the required ampere turn in the exciting coil is %2f in At',AT)
+
+
+
diff --git a/3890/CH2/EX2.3/Ex2_3.png b/3890/CH2/EX2.3/Ex2_3.png Binary files differnew file mode 100644 index 000000000..47d980875 --- /dev/null +++ b/3890/CH2/EX2.3/Ex2_3.png diff --git a/3890/CH2/EX2.3/Ex2_3.sce b/3890/CH2/EX2.3/Ex2_3.sce new file mode 100644 index 000000000..68d774df8 --- /dev/null +++ b/3890/CH2/EX2.3/Ex2_3.sce @@ -0,0 +1,24 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 2.3
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+bg=0.001; //flux in the air gap in Wb
+Am=16*10^-4; //area of magnetic member in m^2
+u0=4*3.14*10^-7; //permiability of free space
+lm=0.1; //length of the steel in m
+lg=0.1*10^-3; //length of air gap in m
+sf=0.9; //stacking factor of M19 steel
+h=130,hm=54; //flux density in At/m
+
+rg=lg/(1.1*u0*Am); //reluctance
+bm=bg/(sf*Am); //flux density in magnetic material in T
+ua=bm/(u0*hm); //amplitude of permeability
+rm=lm/(ua*u0*Am); //reluctance of magnetic member
+NI=bg*(rg+rm); //exciting ammpereturns in At
+
+printf('the required ampere turns is %2f',NI)
diff --git a/3890/CH2/EX2.5/Ex2_5.png b/3890/CH2/EX2.5/Ex2_5.png Binary files differnew file mode 100644 index 000000000..b1e915cfb --- /dev/null +++ b/3890/CH2/EX2.5/Ex2_5.png diff --git a/3890/CH2/EX2.5/Ex2_5.sce b/3890/CH2/EX2.5/Ex2_5.sce new file mode 100644 index 000000000..95b422a35 --- /dev/null +++ b/3890/CH2/EX2.5/Ex2_5.sce @@ -0,0 +1,19 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 2.5
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+u0=4*3.14*10^-7; //permeability of free space
+f=0.001; //flux in wb
+Am=16*10^-4; //area in m
+Bm=1.1; //flux in wb
+
+Bg=f/(Bm*Am);
+vol=Bm*Am*10^-4;
+w=(Bg^2)*(vol)/(2*u0);
+
+printf('the energy stored is %f J',w)
diff --git a/3890/CH2/EX2.6/Ex2_6.png b/3890/CH2/EX2.6/Ex2_6.png Binary files differnew file mode 100644 index 000000000..ab45eaa91 --- /dev/null +++ b/3890/CH2/EX2.6/Ex2_6.png diff --git a/3890/CH2/EX2.6/Ex2_6.sce b/3890/CH2/EX2.6/Ex2_6.sce new file mode 100644 index 000000000..9d859c9a4 --- /dev/null +++ b/3890/CH2/EX2.6/Ex2_6.sce @@ -0,0 +1,22 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 2.5
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+N1=10; //number of turns in coil 1
+F1=0.001; //flux of coil 1
+I1=5.04; //current in coil 1
+
+L11=N1*F1/I1; //self inductance of the coil 1 in H
+
+disp(L11,'the self inductance of the coil in H')
+
+N2=100; //assume 100 turns
+L=N2*F1/I1;
+
+disp(L,'the self inductance for 100 turs coil in H')
+
diff --git a/3890/CH2/EX2.7/EX2_7.png b/3890/CH2/EX2.7/EX2_7.png Binary files differnew file mode 100644 index 000000000..a36ecc256 --- /dev/null +++ b/3890/CH2/EX2.7/EX2_7.png diff --git a/3890/CH2/EX2.7/Ex2_7.sce b/3890/CH2/EX2.7/Ex2_7.sce new file mode 100644 index 000000000..4ab149578 --- /dev/null +++ b/3890/CH2/EX2.7/Ex2_7.sce @@ -0,0 +1,18 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 2.7
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+N1=10; //number of turns in coil1
+N2=20; //numeber of turns in coil2
+F1=0.001; //flux of coil
+I=5.04; //current in the coil
+
+L21=N2*F1/I;
+
+disp(L21,'flux produced by coil1 links to coil 2 in H')
+
diff --git a/3890/CH2/EX2.8/Ex2_8.png b/3890/CH2/EX2.8/Ex2_8.png Binary files differnew file mode 100644 index 000000000..b67a43f96 --- /dev/null +++ b/3890/CH2/EX2.8/Ex2_8.png diff --git a/3890/CH2/EX2.8/Ex2_8.sce b/3890/CH2/EX2.8/Ex2_8.sce new file mode 100644 index 000000000..1b1d25049 --- /dev/null +++ b/3890/CH2/EX2.8/Ex2_8.sce @@ -0,0 +1,17 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 2.7
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+c=0.1; //circumference in m
+A=0.0016; //cross sectional area in m^2
+N1=10; //number of turns in the coil
+p=0.115; //amplitude permeability
+
+L11=N1^2*A*p/c;
+
+disp(L11,'the inductance of coil 1 in H')
diff --git a/3890/CH3/EX3.1/EX3_1.png b/3890/CH3/EX3.1/EX3_1.png Binary files differnew file mode 100644 index 000000000..1966e2b70 --- /dev/null +++ b/3890/CH3/EX3.1/EX3_1.png diff --git a/3890/CH3/EX3.1/Ex3_1.sce b/3890/CH3/EX3.1/Ex3_1.sce new file mode 100644 index 000000000..afbcb0adf --- /dev/null +++ b/3890/CH3/EX3.1/Ex3_1.sce @@ -0,0 +1,18 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 3.1
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+E=220; //Emf of the tranformer in volt
+f=60; //Frequency of the transformer in Hz
+fl=5*10^-3; //flux in wb
+
+N1=E/(4.44*f*fl); //turns in primary winding
+N2=N1/2; //turns in secondary winding
+
+printf('Number of turns in primary winding is %d\n',N1)
+printf('Number of turns in secondary winding is %d\n',N2)
diff --git a/3890/CH3/EX3.12/Ex3_12.png b/3890/CH3/EX3.12/Ex3_12.png Binary files differnew file mode 100644 index 000000000..b2ebabc5c --- /dev/null +++ b/3890/CH3/EX3.12/Ex3_12.png diff --git a/3890/CH3/EX3.12/Ex3_12.sce b/3890/CH3/EX3.12/Ex3_12.sce new file mode 100644 index 000000000..c1c3c9a97 --- /dev/null +++ b/3890/CH3/EX3.12/Ex3_12.sce @@ -0,0 +1,26 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:TataMcgraw Hill +//Year: 2002 ; Edition - 7 +//Example 3.12 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +a=5; //turns ratio +R1=.5; //primary resistance in ohms +R2=.021; //secondary resistance in ohms +x1=3.2; //primary leakage reactance in ohms +x2=.12; //secondary leakage reactance in ohms +Rc=350; //core loss current in ohms +xm=98; //magnetising reactance in ohms + +Rd=R1+(a^2)*R2; +Xd=x1+(a^2)*x2; +Rdd=(R1/a^2)+R2; +Xdd=(x1/a^2)+x2; +Rcd=Rc/a^2; +xmd=xm/a^2; + +printf('The circuit parameters referred to primary are Rd=%f Xd=%f Rc=%f xm=%f in ohms\n',Rd,Xd,Rc,xm) +printf('The circuit parameters referred to secondary are Rdd=%f Xdd=%f Rcd=%f Xmd=%f in ohms',Rdd,Xdd,Rcd,xmd) diff --git a/3890/CH3/EX3.13/Ex3_13.png b/3890/CH3/EX3.13/Ex3_13.png Binary files differnew file mode 100644 index 000000000..069f1d66d --- /dev/null +++ b/3890/CH3/EX3.13/Ex3_13.png diff --git a/3890/CH3/EX3.13/Ex3_13.sce b/3890/CH3/EX3.13/Ex3_13.sce new file mode 100644 index 000000000..76a429388 --- /dev/null +++ b/3890/CH3/EX3.13/Ex3_13.sce @@ -0,0 +1,26 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:TataMcgraw Hill +//Year: 2002 ; Edition - 7 +//Example 3.13 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +p=80; //power input in W +v=120; //supply voltage in V +I=1.4; //supply current in A +R=.25; //primary resistance in ohm +X=1.2; //leakage reactance in ohm + +pf=p/(v*I); +th=acosd(pf); +i=I*(cos(th)-%i*sin(th)) +E=v-(I*(R+%i*X)); +Rc=abs(E)^2/(p-(I^2)*R); +Ic=abs(E)/Rc; +Im=(I^2-Ic^2)^(1/2); +xm=E/Im; + +printf('The magnetising reactance is %f ohms\n',xm) +printf('The core loss equivalent resistance is %f ohms',Rc) diff --git a/3890/CH3/EX3.14/Ex3_14.png b/3890/CH3/EX3.14/Ex3_14.png Binary files differnew file mode 100644 index 000000000..902cd3e41 --- /dev/null +++ b/3890/CH3/EX3.14/Ex3_14.png diff --git a/3890/CH3/EX3.14/Ex3_14.sce b/3890/CH3/EX3.14/Ex3_14.sce new file mode 100644 index 000000000..29bb6aa93 --- /dev/null +++ b/3890/CH3/EX3.14/Ex3_14.sce @@ -0,0 +1,35 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:TataMcgraw Hill +//Year: 2002 ; Edition - 7 +//Example 3.14 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +Q=25; //power in kvA +v1=440; //primary voltage in V +v2=220; //secondary voltage in v +vO=220;Io=9.6;Po=710; //open circuit parameters in V,A,W +vs=42;Is=57;Ps=1030; //short circuit parameters in V,A,W + +a=v1/v2; +zs1=vs/Is; +Rs1=Ps/Is^2; +xs1=(zs1^2-Rs1^2)^(1/2); +R1=Rs1/2; +R2=R1/a^2; +x1=xs1/2; +x2=x1/a^2; +to=acosd(Po/(Io*vO)); +io=Io*(cos(to)-%i*sin(to)); +E2=vO-io*(R2+%i*x2); +Pc2=Po-(Io^2)*R2; +Rc2=E2^2/Pc2; +Ic2=E2/Rc2; +Im2=(Io^2-Ic2^2)^(1/2); +xm2=abs(E2)/Im2; +xm1=a^2*xm2; +Rc1=a^2*Rc2; + +printf('The parameters are R1=%f xm1=%f Rc1=%f X1=%f in ohms',R1,xm1,Rc1,x1) diff --git a/3890/CH3/EX3.15/Ex3_15.png b/3890/CH3/EX3.15/Ex3_15.png Binary files differnew file mode 100644 index 000000000..841a2cda7 --- /dev/null +++ b/3890/CH3/EX3.15/Ex3_15.png diff --git a/3890/CH3/EX3.15/Ex3_15.sce b/3890/CH3/EX3.15/Ex3_15.sce new file mode 100644 index 000000000..574dd211b --- /dev/null +++ b/3890/CH3/EX3.15/Ex3_15.sce @@ -0,0 +1,24 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:TataMcgraw Hill +//Year: 2002 ; Edition - 7 +//Example 3.15 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +Q=10; //power rating in kvA +v1=440; //primary voltage of transformer in v +v2=110; //secondary voltage of transformer in v +va1=550; //primary voltage of autotransformer in v +va2=440; //primary voltage of autotransformer in v + +I1=Q*10^3/v2; +Ia1=Q*10^3/va2; +I2=I1+Ia1; +a2=va1/va2; +pa=va2*I2; +pi=(a2-1)*pa/a2; +pc=pa/a2; + +printf('The value of pi=%f pc=%f in VA',pi,pc) diff --git a/3890/CH3/EX3.16/Ex3_16.png b/3890/CH3/EX3.16/Ex3_16.png Binary files differnew file mode 100644 index 000000000..f16a904e7 --- /dev/null +++ b/3890/CH3/EX3.16/Ex3_16.png diff --git a/3890/CH3/EX3.16/Ex3_16.sce b/3890/CH3/EX3.16/Ex3_16.sce new file mode 100644 index 000000000..e77965ecd --- /dev/null +++ b/3890/CH3/EX3.16/Ex3_16.sce @@ -0,0 +1,21 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:TataMcgraw Hill +//Year: 2002 ; Edition - 7 +//Example 3.16 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +Q=10; +v1=440; +v2=110; +va2=550; +va1=440; + +I2=Q*10^3/v2; +Qa=va2*I2; +Qc=va1*I2; +Qi=Qa-Qc; + +printf('The power transferred inductively and conductively is Qc=%f Qi=%f in VA',Qc,Qi) diff --git a/3890/CH3/EX3.3/Ex3_3.png b/3890/CH3/EX3.3/Ex3_3.png Binary files differnew file mode 100644 index 000000000..5a3b4ef33 --- /dev/null +++ b/3890/CH3/EX3.3/Ex3_3.png diff --git a/3890/CH3/EX3.3/Ex3_3.sce b/3890/CH3/EX3.3/Ex3_3.sce new file mode 100644 index 000000000..a8c10b3ba --- /dev/null +++ b/3890/CH3/EX3.3/Ex3_3.sce @@ -0,0 +1,15 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 3.3
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+a=5; //turns ratio
+Z=10; //load on transformer
+
+z1=(a^2)*Z;
+
+printf('The impedance at primary is %d ohms',z1)
diff --git a/3890/CH3/EX3.4/EX3_4.png b/3890/CH3/EX3.4/EX3_4.png Binary files differnew file mode 100644 index 000000000..06a813337 --- /dev/null +++ b/3890/CH3/EX3.4/EX3_4.png diff --git a/3890/CH3/EX3.4/Ex3_4.sce b/3890/CH3/EX3.4/Ex3_4.sce new file mode 100644 index 000000000..666a30429 --- /dev/null +++ b/3890/CH3/EX3.4/Ex3_4.sce @@ -0,0 +1,24 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:TataMcgraw Hill +//Year: 2002 ; Edition - 7 +//Example 3.4 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +v1=220;v2=110; //voltages of primary and secondary windings res. +Q=10; //reactive power at KVA +R1=.25;R2=.06; //voltages of primary and secondary windings res. + +a=v1/v2; +I1=(Q*10^3)/v1; +I2=a*I1; +R21=(a^2)*R2; +Rp=R1+(a^2)*R2; +R12=R1/(a^2); +Rs=R1/(a^2)+R2; + +printf('the turns ratio is %d\n',a); +printf('total resistance reffered to primary is %f ohms\n',Rp); +printf('total resistance referred to secondary is %f ohms',Rs) diff --git a/3890/CH3/EX3.5/Ex3_5.png b/3890/CH3/EX3.5/Ex3_5.png Binary files differnew file mode 100644 index 000000000..5d5445e64 --- /dev/null +++ b/3890/CH3/EX3.5/Ex3_5.png diff --git a/3890/CH3/EX3.5/Ex3_5.sce b/3890/CH3/EX3.5/Ex3_5.sce new file mode 100644 index 000000000..d4ab397b0 --- /dev/null +++ b/3890/CH3/EX3.5/Ex3_5.sce @@ -0,0 +1,28 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:TataMcgraw Hill +//Year: 2002 ; Edition - 7 +//Example 3.5 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + + +v1=220;v2=110; //voltages of primary and secondary windings res. +Q=10; //reactive power at KVA +R1=.25;R2=.06; //voltages of primary and secondary windings res. + +a=v1/v2; +I1=(Q*10^3)/v1; +I2=a*I1; +L1=(I1^2)*R1; +L2=(I2^2)*R2; +T=L1+L2; //total I^2*R loss + +R21=(a^2)*R2; +Rp=R1+(a^2)*R2; +L=(I1^2)*Rp; //loss due to resistance referred to primary + +printf('total I^2*R loss %f\n',T); +printf('loss due to resistance referred to primary is %f\n',L) +printf('Hence proved') diff --git a/3890/CH3/EX3.8/Ex3_8.png b/3890/CH3/EX3.8/Ex3_8.png Binary files differnew file mode 100644 index 000000000..85e42690e --- /dev/null +++ b/3890/CH3/EX3.8/Ex3_8.png diff --git a/3890/CH3/EX3.8/Ex3_8.sce b/3890/CH3/EX3.8/Ex3_8.sce new file mode 100644 index 000000000..a2c3cf9e1 --- /dev/null +++ b/3890/CH3/EX3.8/Ex3_8.sce @@ -0,0 +1,25 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:TataMcgraw Hill +//Year: 2002 ; Edition - 7 +//Example 3.8 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +v1=2400; //primary voltage of transformer in v +v2=480; //secondary voltage of transformer in v +xm=400; //magnetising reactance in ohms +x1=.29; //primary leakage reactance in ohms +x2=.012; //secondary leakage reactance in ohms +R1=.058; //primary resistance in ohms +R2=.002; //secondary resistance in ohms + +a=v1/v2; +k=xm/(xm+x1); +z10=R1+%i*(x1+xm); +z20=R2+%i*(x2+(xm/(a^2))); +z=(z10*z20)^(1/2); +ad=(z10+k*z)/(z20+k*z); + +printf('the voltage transformation ratio is %f',ad) diff --git a/3890/CH4/EX4.4/EX4_4.png b/3890/CH4/EX4.4/EX4_4.png Binary files differnew file mode 100644 index 000000000..337532889 --- /dev/null +++ b/3890/CH4/EX4.4/EX4_4.png diff --git a/3890/CH4/EX4.4/Ex4_4.sce b/3890/CH4/EX4.4/Ex4_4.sce new file mode 100644 index 000000000..430158bf8 --- /dev/null +++ b/3890/CH4/EX4.4/Ex4_4.sce @@ -0,0 +1,27 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:Tata McGraw Hill +//Year: 2002 ; Edition - 7 +//Example 4.4 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +n1=24; //no of turns per phase +m=3; //no of phases +P=4;//no of poles +s=36; //no of slots +t=9; //pole pitch +B=8; //coil span + +q=s/(m*P); //no of slots per poles per phase +a=180/(m*q); //slot angle +kd=sind(q*a/2)/(q*sind(a/2)); //distribution factor +kp=sin(%pi*B/(2*t)); +kw=kd*kp; +//assume for rotor we have kw2=1;n2=2;m2=7 +kw2=1;n2=2;m2=7; + +R2=((m/m2)*(kw*n1/(kw2*n2))^2); +disp(R2,'the required factor is') + diff --git a/3890/CH5/EX5.1/Ex5_1.png b/3890/CH5/EX5.1/Ex5_1.png Binary files differnew file mode 100644 index 000000000..093cfc53e --- /dev/null +++ b/3890/CH5/EX5.1/Ex5_1.png diff --git a/3890/CH5/EX5.1/Ex5_1.sce b/3890/CH5/EX5.1/Ex5_1.sce new file mode 100644 index 000000000..f2fc77c29 --- /dev/null +++ b/3890/CH5/EX5.1/Ex5_1.sce @@ -0,0 +1,26 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 5.1
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+Q=2500; //power in KVA
+v=6600; //3phase voltage in v
+pf=-0.8; //power factor
+Xs=10.4; //syncronous reactance in ohm
+ra=0.071; //armature resistance in ohm
+
+
+th=acosd(pf);
+vt=v/(3^(1/2));
+Ia=Q*10^3/((3^(1/2))*v);
+t=cosd(th)-%i*sind(th);
+Iad=Ia*t;
+v1=Iad*Xs;
+v0=vt+%i*v1;
+Reg=(abs(v0)-vt)/vt*100;
+
+printf('The regulation is %f ',Reg)
diff --git a/3890/CH5/EX5.2/Ex5_2.png b/3890/CH5/EX5.2/Ex5_2.png Binary files differnew file mode 100644 index 000000000..374743351 --- /dev/null +++ b/3890/CH5/EX5.2/Ex5_2.png diff --git a/3890/CH5/EX5.2/Ex5_2.sce b/3890/CH5/EX5.2/Ex5_2.sce new file mode 100644 index 000000000..2c41de337 --- /dev/null +++ b/3890/CH5/EX5.2/Ex5_2.sce @@ -0,0 +1,27 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 5.2
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+Q=2500; //power in KVA
+v=6600; //3phase voltage in v
+pf=0.8; //power factor
+Xs=10.4; //syncronous reactance in ohm
+ra=0.071; //armature resistance in ohm
+
+th=acosd(pf);
+vt=v/(3^(1/2));
+Ia=Q*10^3/((3^(1/2))*v);
+t=cosd(th)+%i*sind(th);
+Iad=Ia*t;
+v1=Iad*Xs;
+v0=vt+%i*v1;
+Reg=(abs(v0)-vt)/vt*100;
+
+printf('The regulation is %f ',Reg)
+
+
diff --git a/3890/CH5/EX5.3/Ex5_3.png b/3890/CH5/EX5.3/Ex5_3.png Binary files differnew file mode 100644 index 000000000..3a4890813 --- /dev/null +++ b/3890/CH5/EX5.3/Ex5_3.png diff --git a/3890/CH5/EX5.3/Ex5_3.sce b/3890/CH5/EX5.3/Ex5_3.sce new file mode 100644 index 000000000..e80d8332f --- /dev/null +++ b/3890/CH5/EX5.3/Ex5_3.sce @@ -0,0 +1,28 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:Tata McGraw Hill
+//Year: 2002 ; Edition - 7
+//Example 5.3
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+I=50; //current in A
+pf=0.707; //power factor
+v=220; //voltage in v
+xs=1.27; //synchronous reactance/phase in ohm
+pm=33*10^3; //power developed by the motor in w
+pa=30; //power angle
+phia=30; //phase angle
+
+v1=220/3^(1/2);
+pd=(pm*10^3)/3;
+v0=(pd*xs)/(v1*sin(pa));
+Ia=v1/xs;
+kvar=3^(1/2)*v*Ia*sind(phia)/10^3;
+Il=I-Ia;
+Phi=atan(.122);
+Pfn=cos(Phi);
+
+printf('KVAR is %f\n',kvar)
+printf('power factor of the motor is %f',Pfn)
diff --git a/3890/CH5/EX5.5/Ex5_5.png b/3890/CH5/EX5.5/Ex5_5.png Binary files differnew file mode 100644 index 000000000..ab19649a1 --- /dev/null +++ b/3890/CH5/EX5.5/Ex5_5.png diff --git a/3890/CH5/EX5.5/Ex5_5.sce b/3890/CH5/EX5.5/Ex5_5.sce new file mode 100644 index 000000000..f62171d85 --- /dev/null +++ b/3890/CH5/EX5.5/Ex5_5.sce @@ -0,0 +1,29 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:TataMcgraw Hill +//Year: 2002 ; Edition - 7 +//Example 5.5 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +Q=20; //power in KVA +v=220; //voltage in v +pf=0.707; //lagging power factor +Ra=0.5; //armature resistance in ohms +xd=4; //d-axis reactance in ohms +xq=2; //q-axis reactance in ohms + +vt=v/3^(1/2); +Ia=Q*10^3/(3^(1/2)*v); +phi=acosd(pf); +td=(Ia*xq*cosd(phi))/(vt+Ia*xq*sind(phi)); +d=atand(td); +Id=Ia*sind(phi+d); +v1=Id*xd; +v0=vt*cosd(d)+Id*xd; +reg=(v0-vt)*100/vt; + +printf('The percentage regulation is %f in percentage',reg) + + diff --git a/3890/CH6/EX6.1/EX6_1.sce b/3890/CH6/EX6.1/EX6_1.sce new file mode 100644 index 000000000..d93f1c654 --- /dev/null +++ b/3890/CH6/EX6.1/EX6_1.sce @@ -0,0 +1,16 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:Tata McGraw Hill +//Year: 2002 ; Edition - 7 +//Example 6.1 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +N=1750; //speed of the machine in rpm +Z=728; //no of conductors +f=25*10^(-3); //flux per pole + +E=f*N*Z/60; //since P=A + +printf('the voltage induced is %f V',E) diff --git a/3890/CH6/EX6.1/Ex6_1.png b/3890/CH6/EX6.1/Ex6_1.png Binary files differnew file mode 100644 index 000000000..ae48d27e6 --- /dev/null +++ b/3890/CH6/EX6.1/Ex6_1.png diff --git a/3890/CH6/EX6.10/Ex6_10.png b/3890/CH6/EX6.10/Ex6_10.png Binary files differnew file mode 100644 index 000000000..008c2ee05 --- /dev/null +++ b/3890/CH6/EX6.10/Ex6_10.png diff --git a/3890/CH6/EX6.10/Ex6_10.sce b/3890/CH6/EX6.10/Ex6_10.sce new file mode 100644 index 000000000..9a4ce1cf4 --- /dev/null +++ b/3890/CH6/EX6.10/Ex6_10.sce @@ -0,0 +1,26 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:Tata McGraw Hill
+//Year: 2002 ; Edition - 7
+//Example 6.10
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+v=230; //supply voltage in v
+I1=80; //line current in A
+N1=750; //speed at I1 in rpm
+n=15; //number of turns per pole
+Rf=0.11; //field resistance in ohm
+Ra=0.14; //armature resistance in ohms
+I2=20; //line current in A
+
+E1=v-I1*(Rf+Ra);
+E2=v-I2*(Rf+Ra);
+At1=n*I1;
+At2=n*I2;
+phi1=4.3*10^3;phi2=1.4*10^3; //from Appendix 3 in wb
+N2=N1*E2*phi1/(E1*phi2);
+
+printf('The motor speed at I2 is %f rpm',N2)
+
diff --git a/3890/CH6/EX6.11/Ex6_11.png b/3890/CH6/EX6.11/Ex6_11.png Binary files differnew file mode 100644 index 000000000..7a4fe18dc --- /dev/null +++ b/3890/CH6/EX6.11/Ex6_11.png diff --git a/3890/CH6/EX6.11/Ex6_11.sce b/3890/CH6/EX6.11/Ex6_11.sce new file mode 100644 index 000000000..f642ee36c --- /dev/null +++ b/3890/CH6/EX6.11/Ex6_11.sce @@ -0,0 +1,37 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:Tata McGraw Hill
+//Year: 2002 ; Edition - 7
+//Example 6.11
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+p=25*10^3; //power rating in w
+E=230; //generated voltage in v
+N=1200; //speed in rpm
+Ra=0.12; //armature resistance in ohm
+Rf=100; //field resistance in ohm
+Pme=300; //machanical loss in W
+pml=200; //magnetic loss in w
+At1=2500; //ampere turns per pole
+At2=1500; //ampere turns per pole
+va=200; //voltage in V
+nf=1000; //number of turns in field winding
+
+Ia=p/va;
+V=E-Ia*Ra;
+Pout=V*Ia;
+Pa=Ia^2*Ra;
+If=At1/nf;
+Pf=If^2*Rf;
+pin=Pout+Pa+Pf+Pme+pml;
+Eff=Pout/pin;
+N1=(N*2*3.14)/60; //speed in rad/s
+Tin=(pin-Pf)/N1;
+Vreg=(E-V)*100/V;
+
+printf('armature terminal voltage is %f V\n',V)
+printf('Effeciency is %f\n',Eff)
+printf('Input torque is %f Nm\n',Tin)
+printf('Voltage regulation is %f in percentage',Vreg)
diff --git a/3890/CH6/EX6.12/Ex6_12.png b/3890/CH6/EX6.12/Ex6_12.png Binary files differnew file mode 100644 index 000000000..57b173b41 --- /dev/null +++ b/3890/CH6/EX6.12/Ex6_12.png diff --git a/3890/CH6/EX6.12/Ex6_12.sce b/3890/CH6/EX6.12/Ex6_12.sce new file mode 100644 index 000000000..f63b0362f --- /dev/null +++ b/3890/CH6/EX6.12/Ex6_12.sce @@ -0,0 +1,23 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:Tata McGraw Hill
+//Year: 2002 ; Edition - 7
+//Example 6.12
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+At1=2000; //amper eturns per pole
+Va=250; //armature voltage in v
+Ia=100; //armature current in A
+Ra=0.12; //armature resistance in ohm
+N=1200; //speed in rpm
+
+E=Va-Ia*Ra;
+E1=212; //from graph 6.41
+N1=N*E/E1;
+n1=N1*2*3.14/60;
+T=E*Ia/n1;
+
+printf('The motor speed is %f rpm[%f rad/s]\n',N1,n1);
+printf('the torque is %f Nm',T)
diff --git a/3890/CH6/EX6.13/Ex6_13.png b/3890/CH6/EX6.13/Ex6_13.png Binary files differnew file mode 100644 index 000000000..2ebd2596a --- /dev/null +++ b/3890/CH6/EX6.13/Ex6_13.png diff --git a/3890/CH6/EX6.13/Ex6_13.sce b/3890/CH6/EX6.13/Ex6_13.sce new file mode 100644 index 000000000..3aee1ad31 --- /dev/null +++ b/3890/CH6/EX6.13/Ex6_13.sce @@ -0,0 +1,26 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:Tata McGraw Hill
+//Year: 2002 ; Edition - 7
+//Example 6.13
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+At1=2000; //amper eturns per pole
+Va=250; //armature voltage in v
+Ia=100; //armature current in A
+Ra=0.12; //armature resistance in ohm
+N=1200; //speed in rpm
+Atloss=250; //due to demagnetising effect
+
+Atnew=At1-Atloss;
+E=Va-Ia*Ra;
+E1=202; //from graph 6.41 at Atnew
+N1=N*E/E1;
+n1=N1*2*3.14/60;
+T=E*Ia/n1;
+
+
+printf('The motor speed is %f rpm[%f rad/s]\n',N1,n1);
+printf('the torque is %f Nm',T)
diff --git a/3890/CH6/EX6.2/Ex6_2.png b/3890/CH6/EX6.2/Ex6_2.png Binary files differnew file mode 100644 index 000000000..bad53db39 --- /dev/null +++ b/3890/CH6/EX6.2/Ex6_2.png diff --git a/3890/CH6/EX6.2/Ex6_2.sce b/3890/CH6/EX6.2/Ex6_2.sce new file mode 100644 index 000000000..4a86a9473 --- /dev/null +++ b/3890/CH6/EX6.2/Ex6_2.sce @@ -0,0 +1,16 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 6.2
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+z=576; //no of conductors
+Ia=123.5; //armature current in A
+f=20*10^-3; //flux in wb
+
+Te=z*f*Ia/(2*3.14);
+
+printf('The electro magnetic torque required is %f Nm',Te)
diff --git a/3890/CH6/EX6.3/Ex6_3.png b/3890/CH6/EX6.3/Ex6_3.png Binary files differnew file mode 100644 index 000000000..94710b3b8 --- /dev/null +++ b/3890/CH6/EX6.3/Ex6_3.png diff --git a/3890/CH6/EX6.3/Ex6_3.sce b/3890/CH6/EX6.3/Ex6_3.sce new file mode 100644 index 000000000..3fbbbb85c --- /dev/null +++ b/3890/CH6/EX6.3/Ex6_3.sce @@ -0,0 +1,18 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 6.3
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+z=576; //no of conductors
+Ia=123.5; //armature current in A
+f=20*10^-3; //flux in wb
+w=150; //angular velocity in rad/s
+
+Te=z*f*Ia/(2*3.14);
+E=Te*w/Ia;
+
+printf('The induced emf is %f V',E)
diff --git a/3890/CH6/EX6.4/EX6_4.sce b/3890/CH6/EX6.4/EX6_4.sce new file mode 100644 index 000000000..f5b01a609 --- /dev/null +++ b/3890/CH6/EX6.4/EX6_4.sce @@ -0,0 +1,24 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:Tata McGraw Hill +//Year: 2002 ; Edition - 7 +//Example 6.4 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +V=250; //supply voltage +Ra=.25; //armature resistance +Rf=125; //field resistance +Il0=5;n1=1200; //no load current and speed +Il1=52; //full load current at certain load + +If=V/Rf; +Ia0=Il0-If; +E1=V-Ia0*Ra; +Ia1=Il1-If; +E2=V-Ia1*Ra; + +n2=E2*n1/E1; + +printf('The full load speed is %d rpm',n2) diff --git a/3890/CH6/EX6.4/Ex6_4.png b/3890/CH6/EX6.4/Ex6_4.png Binary files differnew file mode 100644 index 000000000..73c460fb2 --- /dev/null +++ b/3890/CH6/EX6.4/Ex6_4.png diff --git a/3890/CH6/EX6.6/EX6_6.png b/3890/CH6/EX6.6/EX6_6.png Binary files differnew file mode 100644 index 000000000..6bfcfeb01 --- /dev/null +++ b/3890/CH6/EX6.6/EX6_6.png diff --git a/3890/CH6/EX6.6/EX6_6.sce b/3890/CH6/EX6.6/EX6_6.sce new file mode 100644 index 000000000..2a75033e7 --- /dev/null +++ b/3890/CH6/EX6.6/EX6_6.sce @@ -0,0 +1,26 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:Tata McGraw Hill +//Year: 2002 ; Edition - 7 +//Example 6.6 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +P=50*10^3; +V=250; +Ra=.06; +Rf=125; +Vd=2; +Rse=0.04; + +I=P/V; +V1=I*Rse; +Vf=V+V1; +If=Vf/Rf; +Ia=I+If; +Va=Ia*Ra; +E=V+Va+V1+Vd; + +printf('The terminal voltage is %f V\n',Va); +printf('the induced emf is %f V',E); diff --git a/3890/CH6/EX6.7/EX6_7.png b/3890/CH6/EX6.7/EX6_7.png Binary files differnew file mode 100644 index 000000000..4ce346be3 --- /dev/null +++ b/3890/CH6/EX6.7/EX6_7.png diff --git a/3890/CH6/EX6.7/Ex6_7.sce b/3890/CH6/EX6.7/Ex6_7.sce new file mode 100644 index 000000000..3bd8d007d --- /dev/null +++ b/3890/CH6/EX6.7/Ex6_7.sce @@ -0,0 +1,28 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:Tata McGraw Hill +//Year: 2002 ; Edition - 7 +//Example 6.7 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +V=230; //supply voltage in v +Ra=.05; //armature resistance in ohms +Rf1=75; //field resistance in no load in ohms +Rf2=100; //field resistance in on load condition in ohms +I1=7;N1=1120; //no load current and speed +I2=46; //on load current in A + +If=V/Rf1; +Ia1=I1-If; +K=(V-Ia1*Ra)/(N1*If); +Ia2=I2-If; +N=(V-Ia2*Ra)/(If*K); + +If1=V/Rf2; +Ia0=I2-If1; +n=(V-Ia0*Ra)/(If1*K); + +printf('the motor speed at line current of 46 A is %f rpm\n',N) +printf('the new motor speed is %f rpm',n) diff --git a/3890/CH6/EX6.8/Ex6_8.png b/3890/CH6/EX6.8/Ex6_8.png Binary files differnew file mode 100644 index 000000000..3b5e8da02 --- /dev/null +++ b/3890/CH6/EX6.8/Ex6_8.png diff --git a/3890/CH6/EX6.8/Ex6_8.sce b/3890/CH6/EX6.8/Ex6_8.sce new file mode 100644 index 000000000..8ca42e251 --- /dev/null +++ b/3890/CH6/EX6.8/Ex6_8.sce @@ -0,0 +1,30 @@ +//Electric machines and power systems by Syed A Nasar
+//Publisher:Tata McGraw Hill
+//Year: 2002 ; Edition - 7
+//Example 6.8
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+V=230; //supply voltage in v
+Ra=.05; //armature resistance in ohms
+Rf1=75; //field resistance in no load in ohms
+Rf2=100; //field resistance in on load condition in ohms
+I1=7;N1=1120; //no load current and speed
+I2=46; //on load current in A
+Ra2=0.15 //armature resistance at on load condition in ohms
+
+If=V/Rf1;
+Ia1=I1-If;
+K=(V-Ia1*Ra)/(N1*If);
+Ia2=I2-If;
+N=(V-Ia2*Ra)/(If*K);
+
+If1=V/Rf1;
+Ia0=I2-If1;
+n=(V-Ia2*Ra2)/(If1*K);
+pl=(Ia0^2)*0.1;
+
+printf('speed of the motor is %d rpm\n',n)
+printf('power dissipated in 0.1 ohm resistor is %f W',pl)
diff --git a/3890/CH8/EX8.5/EX8_5.sce b/3890/CH8/EX8.5/EX8_5.sce new file mode 100644 index 000000000..e1eea1e8c --- /dev/null +++ b/3890/CH8/EX8.5/EX8_5.sce @@ -0,0 +1,22 @@ +//Electric machines and power systems by Syed A Nasar +//Publisher:Tata McGraw Hill +//Year: 2002 ; Edition - 7 +//Example 8.5 +//Scilab Version : 6.0.0 ; OS : Windows + +clc; +clear; + +v=96; +L=50*10^(-3); +C=80*10^(-6); +R=40; + +D=R/(2*L); +w=1/(L*C)^(1/2); +wr=(w^2-D^2)^(1/2); +t=%pi/wr; + +printf('the thyristor will turned off at %f*10^3 ms',t ) + + diff --git a/3890/CH8/EX8.5/Ex8_5.png b/3890/CH8/EX8.5/Ex8_5.png Binary files differnew file mode 100644 index 000000000..295f2743a --- /dev/null +++ b/3890/CH8/EX8.5/Ex8_5.png |
