initial commit / add all books

16 files changed, 260 insertions, 0 deletions

diff --git a/2360/CH5/EX5.1/ex5_1.sce b/2360/CH5/EX5.1/ex5_1.sce
new file mode 100755
index 000000000..001de876d
--- /dev/null
+++ b/2360/CH5/EX5.1/ex5_1.sce
@@ -0,0 +1,16 @@
+// Exa 5.1

+format('v',7);clc;clear;close;

+// Given data

+Rh = 1000;// in ohm

+Rm = 50;// in ohm

+V = 3;// in V

+Ifsd = 1;// in mA

+Ifsd = Ifsd * 10^-3;// in A

+R1 = Rh - ( (Ifsd*Rm*Rh)/V );// in ohm

+disp(R1,"The value of R1 in Ω is");

+R2 = (Ifsd*Rm*Rh)/(V-(Ifsd*Rh));// in ohm

+disp(R2,"The value of R2 in Ω is");

+// Due to 5 % drop in battery voltage, the voltage becomes

+V = V - (0.05*V);// in V

+R2 = (Ifsd*Rm*Rh)/(V-(Ifsd*Rh));// in ohm

+disp(R2,"Maximum value of R2 in Ω is");

diff --git a/2360/CH5/EX5.10/ex5_10.sce b/2360/CH5/EX5.10/ex5_10.sce
new file mode 100755
index 000000000..440e7a2a1
--- /dev/null
+++ b/2360/CH5/EX5.10/ex5_10.sce
@@ -0,0 +1,17 @@
+// Exa 5.10

+format('v',7);clc;clear;close;

+// Given data

+R1 = 120;// in ohm

+R2 = 120;// in ohm

+R3 = 120;// in ohm

+R_V = 121;// in ohm

+E_TH = 10;// in mV

+E_TH = E_TH * 10^-3;// in V

+// E_TH = E * ( (R3/(R3+R1)) - (R_V/(R_V+R2)) );

+E = E_TH/((R3/(R3+R1)) - (R_V/(R_V+R2)));//required supply voltage  in V

+disp(E,"The required supply voltage in V is");

+R = 120;// in ohm

+del_r = R_V-R;// in ohm

+// E_TH = (E*del_r)/(4*R);

+E = E_TH*4*R;//The approximation of slightly unbalanced bridge  in V

+disp(E,"The approximation of slightly unbalanced bridge in V is");

diff --git a/2360/CH5/EX5.11/ex5_11.sce b/2360/CH5/EX5.11/ex5_11.sce
new file mode 100755
index 000000000..af7aa69b2
--- /dev/null
+++ b/2360/CH5/EX5.11/ex5_11.sce
@@ -0,0 +1,22 @@
+// Exa 5.11

+format('v',7);clc;clear;close;

+// Given data

+R1 = 1000;// in ohm

+R2 = 100;// in ohm

+R3 = 4;// in k ohm

+R3 = R3*10^3;// in ohm

+//At bridge balance, R1*R3 = R2*R4;

+R4 = (R1*R3)/R2;// in ohm

+R4= R4*10^-3;//maximum unknown resistance in k ohm

+disp(R4,"The maximum unknown resistance in kΩ is");

+R4= R4*10^3;// in ohm

+R_TH = ((R1*R2)/(R1+R2)) + ((R3*R4)/(R3+R4));// in ohm

+Si = 70;// in mm/µA

+Si = Si * 10^6;// in mm/A

+theta = 3;// in mm

+E = 10;// in V

+Rg = 80;// in ohm

+// theta = (Si*E*R3*del_R)/((R_TH+Rg)*((R3+R4)^2));

+del_R = (theta*((R_TH+Rg)*((R3+R4)^2)))/(Si*E*R3);// in ohm

+disp(del_R,"The value of del_R in Ω is : ")

+disp("This much unbalance is necessary to cause the deflection of 3 mm")

diff --git a/2360/CH5/EX5.12/ex5_12.sce b/2360/CH5/EX5.12/ex5_12.sce
new file mode 100755
index 000000000..c3e818e55
--- /dev/null
+++ b/2360/CH5/EX5.12/ex5_12.sce
@@ -0,0 +1,10 @@
+// Exa 5.12

+format('v',7);clc;clear;close;

+// Given data

+P = 0.4;//power dissipation in each arm in W

+Rarm = 150;// in ohm

+//P = (I^2)*Rarm;

+I = sqrt(P/Rarm);// in A

+//Apply KVL to the loop ABCEFA,  (-I*Rarm) - (I*Rarm) - (2*I) + 25 - (2*I*R) = 0;

+R = ((-I*Rarm) - (I*Rarm) - (2*I) + 25)/(2*I);//required series resistance in ohm

+disp(R,"The required series resistance in Ω is");

diff --git a/2360/CH5/EX5.13/ex5_13.sce b/2360/CH5/EX5.13/ex5_13.sce
new file mode 100755
index 000000000..695fe1129
--- /dev/null
+++ b/2360/CH5/EX5.13/ex5_13.sce
@@ -0,0 +1,14 @@
+// Exa 5.13

+format('v',7);clc;clear;close;

+// Given data

+R1 = 100;// in ohm

+R2 = 1000;// in ohm

+R3 = 0.00377;//standard resistance in ohm

+a = 99.92;// in ohm

+b = 1000.6;// in ohm

+Ry = 0.1;//resistance of link in ohm

+Rx =R1*R3/R2+b*Ry/(Ry+a+b)*(R1/R2-a/b);//unknown resistance in ohm

+Rx = Rx * 10^3;// in mohm

+disp(Rx,"The value of unknown resistance in mΩ is");

+

+// Note: The answer will be in mΩ not MΩ.

diff --git a/2360/CH5/EX5.14/ex5_14.sce b/2360/CH5/EX5.14/ex5_14.sce
new file mode 100755
index 000000000..d652b8e14
--- /dev/null
+++ b/2360/CH5/EX5.14/ex5_14.sce
@@ -0,0 +1,22 @@
+// Exa 5.14

+format('v',7);clc;clear;close;

+// Given data

+P = 10;// in ohm

+Q = 10;// in ohm

+S = 10;// in ohm

+// For first balance

+p = 30000;// in ohm

+q = 25000;// in ohm

+R_AB = (P*p)/(P+p);// in ohm

+R_BC = (Q*q)/(Q+q);// in ohm

+// R_AB*R = R_BC*S;

+R = (R_BC/R_AB)*S;// in ohm

+disp(R,"The value of R for first balance in Ω is");

+// For second balance

+p = 15000;// in ohm

+q = 40000;// in ohm

+R_AB = (P*p)/(P+p);// in ohm

+R_BC = (Q*q)/(Q+q);// in ohm

+// R_AB*S = R_BC*R;

+R = (R_AB/R_BC)*S;// in ohm

+disp(R,"The value of R for second balance in Ω is");

diff --git a/2360/CH5/EX5.15/ex5_15.sce b/2360/CH5/EX5.15/ex5_15.sce
new file mode 100755
index 000000000..da3133eff
--- /dev/null
+++ b/2360/CH5/EX5.15/ex5_15.sce
@@ -0,0 +1,25 @@
+// Exa 5.15

+format('v',7);clc;clear;close;

+// Given data

+P = 1000;// in ohm

+Q = 1000;// in ohm

+p = 1000;// in ohm

+q = 1000;// in ohm

+S = 0.001;// in ohm

+R = (P/Q)*S;// in ohm

+disp(R,"The value of unknown resistance in Ω is");

+Rb = 5;// in ohm

+V = 100;// in V

+I = V/(Rb+R+S);// in A

+disp(I,"The current through the unknown resistance in A is");

+R = R*0.1;// in ohm

+// Vac = ( (R+r+S)/(Rb+R+r+S) )*V;

+Vac = ((R+S)/(Rb+R+S))*V;// in V .. correction

+Vab = (P/(P+Q))*Vac;// in V

+Vab = Vab * 10^3;// in mV

+// Vamd = (R + (Pr/(p+q+r)))/(R+S+(((p+q)*r)/(p+q+r)));

+Vamd = (R/(R+S))*Vab*10^-3;// in V

+Vamd = Vamd * 10^3;// in mV

+Vout = Vab - Vamd;//output voltage in mV

+Vout = Vout*10^-3;// in V

+disp(Vout,"The output voltage in V is");

diff --git a/2360/CH5/EX5.16/ex5_16.sce b/2360/CH5/EX5.16/ex5_16.sce
new file mode 100755
index 000000000..671c8bc0f
--- /dev/null
+++ b/2360/CH5/EX5.16/ex5_16.sce
@@ -0,0 +1,13 @@
+// Exa 5.16

+format('v',7);clc;clear;close;

+// Given data

+R = 1000;// in ohm

+E = 20;// in V

+Ig = 0.1;// in nA

+Ig = Ig * 10^-9;// in A

+Req = R;// in ohm

+//For small change in resistance, Thevenin's voltage,  V_TH = (E*del_r)/(4*R);

+// Ig = V_TH/Req;

+del_r =  (Ig*4*R*R)/E;//smallest change in resistance in ohm

+del_r= del_r*10^6;// in µΩ

+disp(del_r,"The smallest change in resistance in µΩ is");

diff --git a/2360/CH5/EX5.2/ex5_2.sce b/2360/CH5/EX5.2/ex5_2.sce
new file mode 100755
index 000000000..a2ef5c722
--- /dev/null
+++ b/2360/CH5/EX5.2/ex5_2.sce
@@ -0,0 +1,8 @@
+// Exa 5.2

+format('v',7);clc;clear;close;

+// Given data

+R1 = 10;//resistance in k ohm

+R2 = 2;//resistance in k ohm

+R3 = 5;//resistance in k ohm

+Rx = (R1/R2)*R3;//value of unknown resistance in  k ohm

+disp(Rx,"The value of unknown resistance in kΩ is");

diff --git a/2360/CH5/EX5.3/ex5_3.sce b/2360/CH5/EX5.3/ex5_3.sce
new file mode 100755
index 000000000..45477df28
--- /dev/null
+++ b/2360/CH5/EX5.3/ex5_3.sce
@@ -0,0 +1,17 @@
+// Exa 5.3

+format('v',7);clc;clear;close;

+// Given data

+// Values of resistances of the circuit

+R1 = 7;// in k ohm

+R2 = 2;// in k ohm

+R3 = 4;// in k ohm

+R4 = 20;// in k ohm

+Rg = 300;// in ohm

+E = 8;// in V

+//Use Thevenin's equivalent for Ig,  V_TH=V_BD=V_AD-V_AB=( ((E/(R3+R4))*R4) - ((E/(R1+R2))*R1) );

+V_TH = ( ((E/(R3+R4))*R4) - ((E/(R1+R2))*R1) );// in V

+Req = ((R1*R2)/(R1+R2)) + ((R3*R4)/(R3+R4));// in k ohm

+// Current through galvanometer 

+Ig = V_TH/((Req*10^3)+Rg);// in A

+Ig = Ig * 10^6;// in µA

+disp(Ig,"The current through galvanometer in µA is");

diff --git a/2360/CH5/EX5.4/ex5_4.sce b/2360/CH5/EX5.4/ex5_4.sce
new file mode 100755
index 000000000..eed552e82
--- /dev/null
+++ b/2360/CH5/EX5.4/ex5_4.sce
@@ -0,0 +1,14 @@
+// Exa 5.4

+format('v',7);clc;clear;close;

+// Given data

+R3 = 100.03;//standard resistance in µohm

+R3 = R3 * 10^-6;// in ohm

+R2 = 100.24;//outer ratio arms resistance in ohm

+R1 = 200;//outer ratio arms resistance in ohm

+b = 100.31;// in ohm

+a = 200;// in ohm

+Ry = 700;// in µohm

+Ry = Ry * 10^-6;// in ohm

+Rx = ((R1*R3)/R2) + ( ((b*Ry)/(Ry+a+b)) * ((R1/R2) - (a/b)) );// in ohm

+Rx = Rx * 10^6;//unknown resistance in µohm

+disp(Rx,"The unknown resistance in µΩ is");

diff --git a/2360/CH5/EX5.5/ex5_5.sce b/2360/CH5/EX5.5/ex5_5.sce
new file mode 100755
index 000000000..ca72f9d64
--- /dev/null
+++ b/2360/CH5/EX5.5/ex5_5.sce
@@ -0,0 +1,22 @@
+// Exa 5.5

+format('v',7);clc;clear;close;

+// Given data'

+R1 = 100;// in ohm

+R2 = 1000;// in ohm

+R3 = 200;// in ohm

+R4 = 2000;// in ohm

+Rg = 200;// in ohm

+S = 12;// in mm/µA

+R = 5;// in ohm

+R4 = R4 + R;// in ohm

+E = 10;// in V

+// By Thevenin's equivalent

+V_TH = E*( (R3/(R1+R3)) - (R4/(R2+R4)) );// in V

+Req = ((R1*R3)/(R1+R3)) + ((R2*R4)/(R2+R4));// in ohm

+Ig = abs(V_TH)/(Req+Rg);// in A

+Ig = Ig * 10^6;// in µA

+// S =D/I;

+D = S*Ig;//deflection of the galvanomter  in mm

+disp(D,"The deflection of the galvanomter in mm is");

+

+// Note:In the book the calculated value of V_TH is not correct. Correct value of V_TH is -5.546312 mV not -5.213 mV, So there is some difference between coding and the answer of the book.

diff --git a/2360/CH5/EX5.6/ex5_6.sce b/2360/CH5/EX5.6/ex5_6.sce
new file mode 100755
index 000000000..4a0bfd79b
--- /dev/null
+++ b/2360/CH5/EX5.6/ex5_6.sce
@@ -0,0 +1,18 @@
+// Exa 5.6

+format('v',7);clc;clear;close;

+// Given data

+R1 = 1000;// in ohm

+R2 = 1000;// in ohm

+R3 = 121;// in ohm

+R4 = 119;// in ohm

+Rg = 200;// in ohm

+E = 5;// in V

+S = 1;// in mm/µA

+// Calculation of Thevenin's equivalent due to change in R3 and R4

+V_TH = E*( (R3/(R3+R1)) - (R4/(R4+R2)) );// in V

+Req = ((R1*R3)/(R1+R3)) + ((R2*R4)/(R2+R4));// in ohm

+Ig = V_TH/(Req+Rg);// in A 

+Ig = Ig * 10^6;// in µA

+// S = D/I;

+D = S*Ig;//deflection of the galvanometer  in mm

+disp(D,"The deflection of the galvanometer in mm is");

diff --git a/2360/CH5/EX5.7/ex5_7.sce b/2360/CH5/EX5.7/ex5_7.sce
new file mode 100755
index 000000000..675410c07
--- /dev/null
+++ b/2360/CH5/EX5.7/ex5_7.sce
@@ -0,0 +1,13 @@
+// Exa 5.7

+format('v',7);clc;clear;close;

+// Given data

+R = 500;// in ohm

+del_r = 20;// in ohm

+E = 10;// in V

+Rg = 125;// in ohm

+V_TH = (E*del_r)/(4*R);// in V

+Req = R;// in ohm

+// The current through the galvanometer 

+Ig = V_TH/(Req+Rg);// in A

+Ig = Ig * 10^6;// in µA

+disp(Ig,"The current through the galvanometer in µA is");

diff --git a/2360/CH5/EX5.8/ex5_8.sce b/2360/CH5/EX5.8/ex5_8.sce
new file mode 100755
index 000000000..e1ec83da9
--- /dev/null
+++ b/2360/CH5/EX5.8/ex5_8.sce
@@ -0,0 +1,9 @@
+// Exa 5.8

+format('v',7);clc;clear;close;

+// Given data

+// Rx/R2 = Rb/Ra = 1/1200;

+R1 = 10;// in ohm

+// Rx/R2= Rb/Ra= 1/1200

+R2 = R1/0.5;// in ohm

+Rx = R2/1200;//unknown resistance in ohm

+disp(Rx,"The value of unknown resistance in Ω is");

diff --git a/2360/CH5/EX5.9/ex5_9.sce b/2360/CH5/EX5.9/ex5_9.sce
new file mode 100755
index 000000000..0d2e4a77a
--- /dev/null
+++ b/2360/CH5/EX5.9/ex5_9.sce
@@ -0,0 +1,20 @@
+// Exa 5.9

+format('v',7);clc;clear;close;

+// Given data

+//format()

+R1 = 10;// in k ohm

+R2 = 10;// in k ohm

+R3 = 10;// in k ohm

+E = 10;// in V

+// R2/R_V = R1/R3;

+R_V = (R2*R3)/R1;// in k ohm

+T=80;// in °C

+Rv=9;// in kΩ

+// Evaluation of error voltage by Thevenin's equivalent voltage

+e = E*( (R3/(R1+R3)) - (Rv/(R2+Rv)) );// in V

+// Evaluation of error voltage by approximation of slightly unbalanced bridge

+del_r = R_V-Rv;// in k ohm

+errorVoltage = (E*del_r)/(4*R1);// in V

+disp(T,"The temperature at which the bridge is balanced in °C is : ");

+disp(e,"The error voltage at 60 °C by Thevenin''s voltage in volts is : ")

+disp(errorVoltage,"The error voltage at 60 °C by approximation of slightly unbalanced bridge in Volts is ");