Added new codeHEADmaster

8 files changed, 214 insertions, 0 deletions

diff --git a/3871/CH11/EX11.1/Ex11_1.sce b/3871/CH11/EX11.1/Ex11_1.sce
new file mode 100644
index 000000000..d26f8a1e7
--- /dev/null
+++ b/3871/CH11/EX11.1/Ex11_1.sce
@@ -0,0 +1,39 @@
+//===========================================================================

+//chapter 11 example 1

+

+clc;clear all;

+

+//variable declartion

+v	= 1.0186;		//emf of standard cell in volts

+l	= 60;		//length in cm

+l1	= 75;		//length in cm

+l2	= 66;		//length in cm

+l3	= 84;		//length in cm

+l4	= 40;		//length in cm

+l5	= 72;		//length in cm

+S	= 2;		//resistance in Ω

+r	= 100;		//ratio of volt ratio box

+S1	= 2.5;		//resistance in Ω

+I	= 0.28;		//ammeter reading in ampere

+v1	=1.25;		//voltmeter reading in volts

+

+//calculations

+v0	= v/l;		//the voltage drop per cm length of potentiometer wire in volt

+V1	= v0*l1;		//emf of cell which balances at 75 cm  in volts

+V2	=  v0*l2;		//emf of cell which balances at 66 cm  in volts

+I1	= v/S;		//current flowing through 2 Ω resistance in A

+V3	=  v0*l3;		//emf of cell which balances at 84 cm  in volts

+v31	= V3*r;		//voltage of supply main in volts

+V4	=  v0*l4;		//emf of cell which balances at 40 cm  in volts

+I4	=V4/S1;		//current flowing through 2.5 Ω resistance in A

+e	= ((I-I4)/I4)*100;	//percentage error in the ammeter reading in %

+V5	=  v0*l5;		//emf of cell which balances at 72 cm  in volts

+e1	= ((v1-V5)/V5)*100;	//percentage error in the voltmeter reading in %

+

+//result

+mprintf("emf of cell which balances at 75 cm  = %3.5f volts",V1);

+mprintf("\ncurrent flowing through 2 Ω resistance = %3.5f A",I1);

+mprintf("\nvoltage of supply main in volts = %3.5f volts",v31);

+mprintf("\npercentage error in the ammeter reading = %3.1d percentage high",e);

+mprintf("\npercentage error in the voltmeter reading = %3.2f percentage ",e1);

+

diff --git a/3871/CH11/EX11.2/Ex11_2.sce b/3871/CH11/EX11.2/Ex11_2.sce
new file mode 100644
index 000000000..b04df9705
--- /dev/null
+++ b/3871/CH11/EX11.2/Ex11_2.sce
@@ -0,0 +1,22 @@
+//===========================================================================

+//chapter 11 example 2

+clc;

+clear all;

+

+//variable declaration

+R	= 10;		//resistance of slide wire in  Ω

+n	= 15;		//number of steps of dial

+r	= 10;		//resistance of each dial in  Ω

+I	= 0.01;		//working current in A

+N	= 100;		//number of divisions of slide

+a	= 0.2;		//each division of slide can read upto a accurately of its span

+

+//calculations

+R1	= (n*r)+R;		//total resistance of potentiometer in Ω

+V	= I*R1;		//voltage range of the potentiometer V

+v	= R*I;		//voltage drop across slide wire V

+x	= v/N;		//each division represents in V

+y	= x*a;		//resolution of potentiometer in V

+

+//result

+mprintf("resolution of potentiometer = %3.4f V",y);

diff --git a/3871/CH11/EX11.3/Ex11_3.sce b/3871/CH11/EX11.3/Ex11_3.sce
new file mode 100644
index 000000000..9ea913838
--- /dev/null
+++ b/3871/CH11/EX11.3/Ex11_3.sce
@@ -0,0 +1,29 @@
+//===========================================================================

+//chapter 11 example 3

+clc;

+clear all;

+

+//variable declaration

+R	= 400;		//total resistance of slide-wire of 200 cmin Ω

+L1	= 101.8;		//length of slide wire in cm

+L	= 200;		//length of wire in cm

+v1	= 1.018;		//voltage drop across 101.8cm length of slide wire in V

+v	= 3;		//battery voltage in V

+a	= 0.2;		//it is possible to read a of 1 mm

+

+//calculations

+R1	= (R/L)*L1;		//resistance of slide wire of 101.8 cm in Ω

+I1	= v1/R1;		//working current in A

+RT	= v/I1;		//total resistance of battery circuit in Ω

+RR	= RT-R;		//resistance of series rheostat in Ω

+r	= I1*R;		//measuring range in V

+//since 200cm length represents 2 V

+//1 mm length represents = z

+z	= (r/L)*(1/10);	//voltage represented for 1mm length

+Ri	= z*a;		//resolution of instrument in mV

+

+//result

+mprintf("working current = %3.1e A",(I1*10^3));

+mprintf("\nresistance of series rheostat = %3.2f Ω",RR);

+mprintf("\nmeasuring range = %3.2f  V",r);

+mprintf("\nresolution of the instrument = %3.2f mV",(Ri*10^3));

diff --git a/3871/CH11/EX11.4/Ex11_4.sce b/3871/CH11/EX11.4/Ex11_4.sce
new file mode 100644
index 000000000..f594688ca
--- /dev/null
+++ b/3871/CH11/EX11.4/Ex11_4.sce
@@ -0,0 +1,23 @@
+//===========================================================================

+//chapter 11 example 4

+

+clc;

+clear all;

+

+//variable declaration

+R1    = 0.1;        //standard resistance in Ω

+V2    = 0.613;        //voltage drop across standard resistance in V

+a    = 100;    

+r    = 0.781;        //volt ration box

+theta    = 50.48;

+theta1    = 12.6;

+f        = 50;          //frequency in in HZ

+

+//calculations

+I    = V2/R1;        //current through coil in A

+V1    = a*r;        //voltage drop across inductive coil in V

+theta2 = theta -theta1;

+L    = V1*sin(theta2*180/%pi)/(2*%pi*f*I);    //inducatance of coil in H

+

+//result

+mprintf("inductance of coil =%3.2f H",L);

diff --git a/3871/CH11/EX11.5/Ex11_5.sce b/3871/CH11/EX11.5/Ex11_5.sce
new file mode 100644
index 000000000..7f265a03e
--- /dev/null
+++ b/3871/CH11/EX11.5/Ex11_5.sce
@@ -0,0 +1,27 @@
+//===========================================================================

+//chapter 11 example 5

+

+clc;clear all;

+

+//variable declaration

+R1	= 1;		//standard resistance in Ω

+V3	= 0.952-0.340*%i;	//voltage  through the coil in A

+a	= 10;		//multiplying power of potential divider 

+V2	= 1.35+1.28*%i;	//voltage  across potential in A

+

+//calculations

+x  = complex([0.952,-0.342])

+y  = complex([1.35,1.28])

+I	= x/R1;,		//current through coil in A

+I	= x/R1		//current through coil in A

+I1   = 0.952-0.340*%i;

+V1	= a*y		//voltage across coil in V

+V11 = 13.5+12.8*%i;

+Z	= V11/I1

+R	= real(Z)		//resistance of coil in Ω

+X	= imag(Z)		//reactance of coil Ω

+

+//result

+mprintf("%g + %gi\n",R,X);

+mprintf("resistance of coil  = %3.4f Ω",R);

+mprintf("\nreactance of coil = %3.2f Ω",X);

diff --git a/3871/CH11/EX11.6/Ex11_6.sce b/3871/CH11/EX11.6/Ex11_6.sce
new file mode 100644
index 000000000..6bd391a01
--- /dev/null
+++ b/3871/CH11/EX11.6/Ex11_6.sce
@@ -0,0 +1,24 @@
+//===========================================================================

+//chapter 11 example 6

+

+clc;

+clear all;

+

+//variable declaration

+R       = 1;               //resistace in Ω

+V2      = 0.238-%i*0.085;           //voltage across standard resistor in V

+P       = 10;               //multiplying ower of potential divider 

+V1      = 0.3375+%i*0.232;      //voltage across potential divider in V

+

+

+

+//calculations

+I       = V2/R;             //current through coil in A

+V2      = P*V1;              //voltage acrossthe coil in V

+Z       = V2/I;             //impedance of coil in Ω

+R1       = real(Z);             // resistance of coil in Ω

+X1       =imag(Z);           //reactance of coil in Ω

+

+//result

+mprintf("resistance = %3.2f Ω",R1);

+mprintf("\nreactance = %3.3f Ω",X1);

diff --git a/3871/CH11/EX11.7/Ex11_7.sce b/3871/CH11/EX11.7/Ex11_7.sce
new file mode 100644
index 000000000..50a324f47
--- /dev/null
+++ b/3871/CH11/EX11.7/Ex11_7.sce
@@ -0,0 +1,24 @@
+//===========================================================================

+//chapter 11 example 7

+

+clc;

+clear all;

+

+//variable declaration

+R1          = 1.0;      //resistace in Ω

+V1           = 0.8-%i*0.75;     //voltage drop across the resistance in volt

+V2           = 1.2+%i*0.3;     //voltage across the coil in volt

+

+//calculations

+I       = V1/R1;        //current through coil in A

+x       = (atan(imag(V1)/real(V1)))*180/%pi;

+y       = (atan(imag(V2)/real(V2)))*180/%pi;

+phi     = y-x;

+a       =sqrt(((real(V2))^2)+((imag(V2))^2));

+b       =sqrt(((real(I))^2)+((imag(I))^2));

+V3      = a*cos(phi*%pi/180);          //resistive drop the coil in V

+P       = a*b*cos(phi*%pi/180);         //power loss in the coil in W

+

+

+//result

+mprintf("iron loss in the coil =%3.3f watt",P);

diff --git a/3871/CH11/EX11.8/Ex11_8.sce b/3871/CH11/EX11.8/Ex11_8.sce
new file mode 100644
index 000000000..0109ff7ee
--- /dev/null
+++ b/3871/CH11/EX11.8/Ex11_8.sce
@@ -0,0 +1,26 @@
+//===========================================================================

+//chapter 11 example 8

+

+clc;

+clear all;

+

+//variable declaration

+R1    = 0.1;        //standard resistance in Ω

+V1  = 0.35-%i*0.1;     //voltage drop across  resistance in V

+V2  = 0.8-%i*0.15;       //voltage  across coil in V

+

+//calculations

+I    = V1/R1;,        //current through coil in A

+V     = 300*V2;        //apply voltage V

+x1   = real(I);

+y1   = abs(imag(I));

+V1   = sqrt((x1^2)+(y1^22));

+x   = real(V);

+y   = imag(V);

+I1   = sqrt((x^2)+(y^2));

+P    = (x1*x)+(y1*y);

+//pf    = P/(V1*I);        //power factor of the load circuit in lagging

+pf      = P/(V1*I1);            //power factor of the load circuit in cos(phi)

+

+//result

+mprintf("power factor of the load circuit = %3.3f lagging",pf);