Added new codeHEADmaster

20 files changed, 242 insertions, 0 deletions

diff --git a/3890/CH3/EX3.1/EX3_1.png b/3890/CH3/EX3.1/EX3_1.png
new 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
new 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
new 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
new 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
new 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
new 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
new 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
new 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
new 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
new 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)