8 files changed, 187 insertions, 0 deletions
diff --git a/1319/CH4/EX4.1/4_1.sce b/1319/CH4/EX4.1/4_1.sce
new file mode 100644
index 000000000..37d7839bd
--- /dev/null
+++ b/1319/CH4/EX4.1/4_1.sce
@@ -0,0 +1,17 @@
+//Torque on the coil at a current of 1mA
+
+clc;
+clear;
+
+N=60;
+B=50*(10^-3);
+I=1*(10^-3);
+
+l=3*(10^-2);
+
+// w= 2*r; w is the width
+w=2*(10^-2);
+
+Td=N*B*I*l*w;
+
+printf('The torque on the coil carrying 1mA = %g micro Nm \n',Td*(10^6))
diff --git a/1319/CH4/EX4.2/4_2.sce b/1319/CH4/EX4.2/4_2.sce
new file mode 100644
index 000000000..57abf1eda
--- /dev/null
+++ b/1319/CH4/EX4.2/4_2.sce
@@ -0,0 +1,19 @@
+//To find the deflection produced by 200V
+
+clc;
+clear;
+
+R=10*(10^3);
+V=200;
+B=80*(10^-3);
+N=100;
+A=9*(10^-4); // The area of the coil is the product of the length and width (l.2r)
+I=V/R;
+
+Td=N*B*I*A;
+
+K=30*(10^-7);
+
+theta=Td/K;
+
+printf('The deflection produced by 200V = %g degrees \n',theta)
diff --git a/1319/CH4/EX4.3/4_3.sce b/1319/CH4/EX4.3/4_3.sce
new file mode 100644
index 000000000..57cdf0b3f
--- /dev/null
+++ b/1319/CH4/EX4.3/4_3.sce
@@ -0,0 +1,31 @@
+// Reading on ammeters when their shunts are interchanged
+
+clc;
+clear;
+
+I=10;
+Ra=1000;
+Rsa=0.02;
+
+Rb=1500;
+Rsb=0.01;
+
+deff('x=cur(y,z)','x=I*z/y')
+
+Ia1=cur(Ra,Rsa); // Initial Current in meter A
+Ia2=cur(Ra,Rsb); // Changed Current in meter A
+
+Ib1=cur(Rb,Rsb); // Initial Current in meter B
+Ib2=cur(Rb,Rsa); // Changed Current in meter B
+
+//Factor by which the current readings change in the two ammeters
+
+A=Ia2/Ia1; // Ammeter A
+B=Ib2/Ib1; // Ammeter A
+
+printf('The initial current in ammeter A and ammeter B are %g A and %g A respectively. \n \n',I,I)
+
+printf('The current in ammeter A and ammeter B when the shunt resistances are interchanged are %g A and %g A respectively. \n \n',I*A,I*B)
+
+
+
diff --git a/1319/CH4/EX4.4/4_4.sce b/1319/CH4/EX4.4/4_4.sce
new file mode 100644
index 000000000..9ef519756
--- /dev/null
+++ b/1319/CH4/EX4.4/4_4.sce
@@ -0,0 +1,31 @@
+//To create an instrument that measures voltages and currents upto a rated value
+
+clc;
+clear;
+
+Rm=10;
+Im=50*(10^-3);
+V=750;
+I=100;
+
+//To Calculate the required voltage a resistor should be added in series with the internal resistance
+
+R=poly([0 1],'R','c');
+
+sr=Im*(R+Rm)-V;
+
+R=roots(sr);//Characteristic equation to find R
+
+// To attain the required current, a resistor should be added in parallel to the internal resistance
+
+r=poly([0 1],'r','c');// Characteristic equation to find r
+
+pr=Im*(r+Rm)-(I*r);
+
+r=roots(pr);
+
+printf('To Read 750 V a series resitance of %g ohms should be connected to the instrument \n',R)
+printf('To Read 100 A a parallel resitance of %g milli ohms should be connected to the instrument \n',r*1000)
+
+
+
diff --git a/1319/CH4/EX4.5/4_5.sce b/1319/CH4/EX4.5/4_5.sce
new file mode 100644
index 000000000..c72fa7841
--- /dev/null
+++ b/1319/CH4/EX4.5/4_5.sce
@@ -0,0 +1,24 @@
+//To determine the range and current and deflection at various conditions
+
+clc;
+clear;
+
+I=25;
+theta=90;
+
+// Various conditions
+ta=360; // Angle in case a
+tb=180; // Angle in case b
+Ic=20; // Current in case c
+
+// theta directly proportional to the square of the current
+
+Ia=sqrt(ta*(I^2)/theta);
+
+Ib=sqrt(tb*(I^2)/theta);
+
+tc=((Ic/I)^2)*theta;
+
+printf('a) Full Scsle deflection (360) current = %g A \n',Ia)
+printf('b) Half Scsle deflection (180) current = %g A \n',Ib)
+printf('c) Deflection for a current of 20 A = %g degrees \n',tc)
diff --git a/1319/CH4/EX4.6/4_6.sce b/1319/CH4/EX4.6/4_6.sce
new file mode 100644
index 000000000..489cab588
--- /dev/null
+++ b/1319/CH4/EX4.6/4_6.sce
@@ -0,0 +1,22 @@
+//Error calculation
+
+clc;
+clear;
+
+I=20; //Current
+V=230;// Voltage
+C=480;// Meter Constant
+L=4.6*(10^3);// Load
+t=66/3600; // Time in hour
+
+R=40; //No of revolutions
+
+Pc=L*t/1000; // Energy Consumed in kWhr
+
+Pr=R/C; // Energy recorded in kWhr
+
+err=(Pc-Pr)*100/Pc;
+
+printf('The Error in the meter is that the disc rotates %g percent slow \n',err)
+
+
diff --git a/1319/CH4/EX4.7/4_7.sce b/1319/CH4/EX4.7/4_7.sce
new file mode 100644
index 000000000..077c11f93
--- /dev/null
+++ b/1319/CH4/EX4.7/4_7.sce
@@ -0,0 +1,20 @@
+//Dynamometer wattmeter power calculation of the load
+
+clc;
+clear;
+
+P=250; // Power Recorded by the wattmeter
+
+V=200; // Load voltage
+
+R=2000; // Resistance of the highly non-inductive pressure coil
+
+I=V/R; // Ohm's Law
+
+Pcoil=V*I; // Power Absorbed by the pressure coil
+
+Pl=P-Pcoil; // Power taken by the load
+
+printf('The Power taken by the load = %g watts. \n',Pl)
+
+
diff --git a/1319/CH4/EX4.8/4_8.sce b/1319/CH4/EX4.8/4_8.sce
new file mode 100644
index 000000000..c5508363f
--- /dev/null
+++ b/1319/CH4/EX4.8/4_8.sce
@@ -0,0 +1,23 @@
+//Percentage error calculation in a wattmeter
+
+clc;
+clear;
+
+//Rated Parameters
+I=50;
+V=230;
+
+R=61;// No. of revolutions
+t=37/3600; // Time in hours
+
+C=520; // Normal Disc Speed
+
+Pfl=I*V;// Power at full load
+
+Ps=Pfl*t/1000; // Power Supplied in kWhr
+
+Pr=R/C; //Power recorded in kWhr
+
+err=(Ps-Pr)*100/Ps;
+
+printf('The Percentage Error = %g percent slow \n',err)