14 files changed, 260 insertions, 0 deletions
diff --git a/1859/CH6/EX6.1/exa_6_1.sce b/1859/CH6/EX6.1/exa_6_1.sce
new file mode 100755
index 000000000..0c368b48b
--- /dev/null
+++ b/1859/CH6/EX6.1/exa_6_1.sce
@@ -0,0 +1,24 @@
+// Exa 6.1
+clc;
+clear;
+close;
+// Given data
+V= 100;// in volt
+I=5;// in mA
+I=I*10^-3;// in amp
+VS= 1000;// sensitivity of voltmeter in ohm
+VR= 150;// voltmeter range in volt
+Rv= VS*VR;// in ohm
+// Part (i)
+Rm= V/I;// in ohm
+Rm= Rm*10^-3;// in kohm
+disp(Rm,"Apparent value of unknown resistor in kohm");
+
+// Part (ii)
+Rx= V/(I*(1-V/(I*Rv)));// in ohm
+Rx= Rx*10^-3;/// in kohm
+disp(Rx,"Actual value of unknown resistor in kohm")
+
+// Part (iii)
+epsilon_r= (Rm-Rx)/Rx*100;// in %
+disp(epsilon_r,"Error percentage due to loading effect of voltmeter");
diff --git a/1859/CH6/EX6.10/exa_6_10.sce b/1859/CH6/EX6.10/exa_6_10.sce
new file mode 100755
index 000000000..7ac5572b5
--- /dev/null
+++ b/1859/CH6/EX6.10/exa_6_10.sce
@@ -0,0 +1,19 @@
+// Exa 6.10
+clc;
+clear;
+close;
+// Given data
+P=1000;// in ohm
+Q=100;// in ohm
+R=200;// in ohm
+E=5;// in volt
+Si1= 10;// in mm/miuA
+Si2= 5;// in mm/miuA
+Rg1= 400;// in ohm
+Rg2= 100;// in ohm
+S=R*Q/P;// in ohm
+R_Th= R*S/(R+S)+ P*Q/(P+Q);// in ohm
+// theta=Si1*E*S*del_R/((R+S)^2*(R_Th+Rg))
+// RatioTheta21= theta2/theta1  
+RatioTheta21= Si2/Si1*(R_Th+Rg1)/(R_Th+Rg2);
+disp(RatioTheta21,"Ratio of deflection on two galvanometers ")
diff --git a/1859/CH6/EX6.11/exa_6_11.sce b/1859/CH6/EX6.11/exa_6_11.sce
new file mode 100755
index 000000000..d51e8bd05
--- /dev/null
+++ b/1859/CH6/EX6.11/exa_6_11.sce
@@ -0,0 +1,19 @@
+// Exa 6.11
+clc;
+clear;
+close;
+// Given data
+P=500;// in ohm
+S=P;
+Q=S;
+R=P;
+R_Th=R;// in ohm
+Rg=100;// in ohm
+E=10;// in volt
+Ig= 1;// in nA
+Ig=Ig*10^-9;//in amp
+// Formula Ig= E_Th/(R_Th+Rg) and E_Th= E*del_R/(4*R) so
+// Ig= (E*del_R/(4*R))/(R_Th+Rg) and
+del_R= Ig*(R_Th+Rg)*4*R/E;// in ohm
+del_R= del_R*10^3;//in mohm
+disp(del_R,"The smallest change in resistance in mohm")
diff --git a/1859/CH6/EX6.12/exa_6_12.sce b/1859/CH6/EX6.12/exa_6_12.sce
new file mode 100755
index 000000000..31cb5012f
--- /dev/null
+++ b/1859/CH6/EX6.12/exa_6_12.sce
@@ -0,0 +1,19 @@
+// Exa 6.12
+clc;
+clear;
+close;
+// Given data
+R=200;// in ohm
+S=R;
+P=S;
+Q=P;
+r=2;// in ohm
+E=24;// in volt
+Power= 0.5;// in W
+// Formula Power= I^2/R
+I= sqrt(Power/R);// in A
+disp(I,"Maximum power dissipation in amp")
+V=I*2*R;// in volt
+// Formula E= V+2*I*(r+R)
+R= (E-V)/(2*I)-r;// in ohm
+disp(R,"Series resistance in ohm")
diff --git a/1859/CH6/EX6.13/exa_6_13.sce b/1859/CH6/EX6.13/exa_6_13.sce
new file mode 100755
index 000000000..40aea9eba
--- /dev/null
+++ b/1859/CH6/EX6.13/exa_6_13.sce
@@ -0,0 +1,21 @@
+// Exa 6.13
+clc;
+clear;
+close;
+// Given data
+P=10000;// in ohm
+Q=10;// in ohm
+S=5;// in kohm
+S=S*10^3;// in ohm
+E=12;// in volt
+R=P*S/Q;// in ohm
+disp(R*10^-6,"The maximum value of resistance that can be measurement with the given argument in Mohm")
+R_Th= R*S/(R+S)+ P*Q/(P+Q);// in ohm
+
+// Part (ii)
+theta= 2.5;// in mm
+Rg=100;// in ohm
+Si=100;// in mm/miuA
+Si=Si*10^6;// in mm/amp
+del_R= theta*(R_Th+Rg)*(R+S)^2/(Si*E*S);// in ohm
+disp(del_R*10^-3,"Change in resistance  in kohm")
diff --git a/1859/CH6/EX6.14/exa_6_14.sce b/1859/CH6/EX6.14/exa_6_14.sce
new file mode 100755
index 000000000..1c9476ff4
--- /dev/null
+++ b/1859/CH6/EX6.14/exa_6_14.sce
@@ -0,0 +1,15 @@
+// Exa 6.14
+clc;
+clear;
+close;
+// Given data
+p=200.62;// in ohm
+q=400;// in ohm
+P=200.48;// in ohm
+Q=400;// in ohm
+S=100.03;// in micro ohm
+S=S*10^-6;// in ohm
+r=700;// in micro ohm
+r=r*10^-6;// in ohm
+X= P*S/Q+q*r/(p+q)*(P/Q-p/q);// in ohm
+disp(X*10^+6,"Unknown resistance in micro ohm")
diff --git a/1859/CH6/EX6.2/exa_6_2.sce b/1859/CH6/EX6.2/exa_6_2.sce
new file mode 100755
index 000000000..5354224f5
--- /dev/null
+++ b/1859/CH6/EX6.2/exa_6_2.sce
@@ -0,0 +1,31 @@
+// Exa 6.2
+clc;
+clear;
+close;
+// Given data
+V=38.4;// in volt
+I=0.4;// in amp
+ammeterRange= 1;// in amp
+voltmeterRange= 50;// in volt
+inst_acc= 1/2;// instrument accurcy in %
+R= 100;// resistance in ohm
+
+R_A= 2.5;// in ohm
+R_V= 6000;// in ohm
+Rx= sqrt(R_A*R_V);// in ohm
+disp(Rx,"Value of unknown resistance in ohm")
+disp("Since the unknown resistance is of value smaller than "+string(Rx)+" ohm, the voltmeter should be connected directly across the unknown resistance as it will give more accurate result")
+Rm= V/I;// in ohm
+Rx= V/(I*(1-V/(I*R_V)));// in ohm
+ErrorAmmeter= inst_acc*ammeterRange/R;// Error in ammeter reading in amp
+ErrorVoltmeter= inst_acc*voltmeterRange/R;// Error in voltmeter reading in volt
+// Percentage error at 0.4 A reading 
+E1= ErrorAmmeter/0.4*100;//in %
+// Percentage error at 38.4 V reading 
+E2= ErrorVoltmeter/38.4*100;//in %
+//Error due to ammeter and voltmeter
+E= sqrt(E1^2+E2^2);
+//Absolute error due to ammeter and voltmeter
+Error_ammeter_voltmeter= E/R*Rx;// in pos and neg
+disp(Error_ammeter_voltmeter,"Absolute error due to ammeter and voltmeter in ohm")
+disp("So the resistance is specified as "+string(Rx-Error_ammeter_voltmeter)+" to "+string(Rx+Error_ammeter_voltmeter));
diff --git a/1859/CH6/EX6.3/exa_6_3.sce b/1859/CH6/EX6.3/exa_6_3.sce
new file mode 100755
index 000000000..ea02b28cd
--- /dev/null
+++ b/1859/CH6/EX6.3/exa_6_3.sce
@@ -0,0 +1,26 @@
+// Exa 6.3
+clc;
+clear;
+close;
+// Given data
+V=120;// in volt
+I=8;// in amp
+R_A= 0.3;// in ohm
+ammeterReading= 0.01;// in A
+voltmeterReading= 0.1;// in V
+AmmeterRange= 10;//in A
+VoltmeterRange= 150;//in V
+EA= 0.25;// constructional error of the ammeter in %
+EV= 0.5;// constructional error of the voltmeter in %
+
+Rm= V/I;// in ohm
+Rx= Rm-R_A;// in ohm
+ErrorAmmeter= ammeterReading/AmmeterRange*100;// in %
+ErrorVoltmeter= voltmeterReading/VoltmeterRange*100;// in %
+del_I= ErrorAmmeter+EA;// in %
+del_V= ErrorVoltmeter+EV;// in %
+// since R=V/I
+TotalError= del_I+del_V;// in % in neg and pos
+disp(TotalError,"Total systematic error in measurement in % (neg and pos)")
+disp("So the value of Rx is specified as "+string(Rx-Rx*TotalError/100)+" ohm to "+string(Rx+Rx*TotalError/100) +" ohm")
+    
diff --git a/1859/CH6/EX6.4/exa_6_4.sce b/1859/CH6/EX6.4/exa_6_4.sce
new file mode 100755
index 000000000..6169760f5
--- /dev/null
+++ b/1859/CH6/EX6.4/exa_6_4.sce
@@ -0,0 +1,10 @@
+// Exa 6.4
+clc;
+clear;
+close;
+// Given data
+P=100;// in ohm
+Q=10;// in ohm
+S=46;// in ohm
+R= P*S/Q;//in ohm
+disp(R,"Unknown resistance in ohm")
diff --git a/1859/CH6/EX6.5/exa_6_5.sce b/1859/CH6/EX6.5/exa_6_5.sce
new file mode 100755
index 000000000..739891210
--- /dev/null
+++ b/1859/CH6/EX6.5/exa_6_5.sce
@@ -0,0 +1,10 @@
+// Exa 6.5
+clc;
+clear;
+close;
+// Given data
+S=6;// in ohm
+AB= 25;// in cm
+BC= 75;// in cm
+R= S*AB/BC;// in ohm
+disp(R,"Unknown resistance in ohm")
diff --git a/1859/CH6/EX6.6/exa_6_6.sce b/1859/CH6/EX6.6/exa_6_6.sce
new file mode 100755
index 000000000..d3bf24a22
--- /dev/null
+++ b/1859/CH6/EX6.6/exa_6_6.sce
@@ -0,0 +1,11 @@
+// Exa 6.6
+clc;
+clear;
+close;
+// Given data
+resistor= 5000;// in ohm
+LVR1= resistor-resistor*0.1/100;// Limiting value of 5000 ohm resistor in negative error
+LVR2= resistor+resistor*0.1/100; //Limiting value of 5000 ohm resistor in positve error
+disp("Limiting value of 5000 ohm resistance is "+string(LVR1)+" ohm to "+string(LVR2)+" ohm")
+disp("Thus dials of 1000 , 100 , 10 and 1 ohm would to be adjusted");
+
diff --git a/1859/CH6/EX6.7/exa_6_7.sce b/1859/CH6/EX6.7/exa_6_7.sce
new file mode 100755
index 000000000..66fad7c36
--- /dev/null
+++ b/1859/CH6/EX6.7/exa_6_7.sce
@@ -0,0 +1,15 @@
+// Exa 6.7
+clc;
+clear;
+close;
+// Given data
+P=100;// in ohm
+Q=100;// in ohm
+S=230;// in ohm
+R=P*S/Q;// in ohm
+del_P_BY_P= 0.02;// in %
+del_Q_BY_Q= 0.02;// in %
+del_S_BY_S= 0.01;// in %
+del_R_BY_R= del_P_BY_P + del_Q_BY_Q + del_S_BY_S;// in %
+disp(del_R_BY_R,"Relative limiting error of unknown resistance in percentage")
+disp("So limiting values of unknown resistance "+string(R-R*del_R_BY_R/100)+" ohm to "+string(R+R*del_R_BY_R/100)+" ohm")
diff --git a/1859/CH6/EX6.8/exa_6_8.sce b/1859/CH6/EX6.8/exa_6_8.sce
new file mode 100755
index 000000000..74f367b0b
--- /dev/null
+++ b/1859/CH6/EX6.8/exa_6_8.sce
@@ -0,0 +1,18 @@
+// Exa 6.8
+clc;
+clear;
+close;
+// Given data
+P=1000;// in ohm
+Q=1000;// in ohm
+S=100;// in ohm
+E=2;// in volt
+Rg=50;// in ohm
+R_desh= 101;// in ohm
+R=Q*S/P;// in ohm
+del_R= R_desh-R;// in ohm
+E_Th= E*[(R+del_R)/(R+del_R+S)- P/(P+Q)];// in volt
+R_Th= [(R+del_R)*S/(R+del_R+S)+ P*Q/(P+Q)];//in ohm
+Ig= E_Th/(R_Th+Rg);// in amp
+Ig=Ig*10^+6;// in micro amp
+disp(Ig,"The galvanometer current in micro amp")
diff --git a/1859/CH6/EX6.9/exa_6_9.sce b/1859/CH6/EX6.9/exa_6_9.sce
new file mode 100755
index 000000000..32e660c67
--- /dev/null
+++ b/1859/CH6/EX6.9/exa_6_9.sce
@@ -0,0 +1,22 @@
+// Exa 6.9
+clc;
+clear;
+close;
+// Given data
+P=100;// in ohm
+Q=1000;// in ohm
+S=2000;// in ohm
+E=5;// in volt
+Si= 5;// in mm/miuA
+Rg=200;// in ohm
+R_desh= 202;// in ohm
+R=P*S/Q;// in ohm
+del_R= R_desh-R;// in ohm
+E_Th= E*[(R+del_R)/(R+del_R+S)- P/(P+Q)];// in volt
+R_Th= [(R+del_R)*S/(R+del_R+S)+ P*Q/(P+Q)];//in ohm
+Ig= E_Th/(R_Th+Rg);// in amp
+Ig=Ig*10^+6;// in micro amp
+theta= Si*Ig;// in mm
+disp(theta,"Deflection of the galvanometer in mm")
+S_B= theta/del_R;// in mm/ohm
+disp(S_B,"Sensitivity of the bridge in mm/ohm")