From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2360/CH5/EX5.1/ex5_1.sce   | 16 ++++++++++++++++
 2360/CH5/EX5.10/ex5_10.sce | 17 +++++++++++++++++
 2360/CH5/EX5.11/ex5_11.sce | 22 ++++++++++++++++++++++
 2360/CH5/EX5.12/ex5_12.sce | 10 ++++++++++
 2360/CH5/EX5.13/ex5_13.sce | 14 ++++++++++++++
 2360/CH5/EX5.14/ex5_14.sce | 22 ++++++++++++++++++++++
 2360/CH5/EX5.15/ex5_15.sce | 25 +++++++++++++++++++++++++
 2360/CH5/EX5.16/ex5_16.sce | 13 +++++++++++++
 2360/CH5/EX5.2/ex5_2.sce   |  8 ++++++++
 2360/CH5/EX5.3/ex5_3.sce   | 17 +++++++++++++++++
 2360/CH5/EX5.4/ex5_4.sce   | 14 ++++++++++++++
 2360/CH5/EX5.5/ex5_5.sce   | 22 ++++++++++++++++++++++
 2360/CH5/EX5.6/ex5_6.sce   | 18 ++++++++++++++++++
 2360/CH5/EX5.7/ex5_7.sce   | 13 +++++++++++++
 2360/CH5/EX5.8/ex5_8.sce   |  9 +++++++++
 2360/CH5/EX5.9/ex5_9.sce   | 20 ++++++++++++++++++++
 16 files changed, 260 insertions(+)
 create mode 100755 2360/CH5/EX5.1/ex5_1.sce
 create mode 100755 2360/CH5/EX5.10/ex5_10.sce
 create mode 100755 2360/CH5/EX5.11/ex5_11.sce
 create mode 100755 2360/CH5/EX5.12/ex5_12.sce
 create mode 100755 2360/CH5/EX5.13/ex5_13.sce
 create mode 100755 2360/CH5/EX5.14/ex5_14.sce
 create mode 100755 2360/CH5/EX5.15/ex5_15.sce
 create mode 100755 2360/CH5/EX5.16/ex5_16.sce
 create mode 100755 2360/CH5/EX5.2/ex5_2.sce
 create mode 100755 2360/CH5/EX5.3/ex5_3.sce
 create mode 100755 2360/CH5/EX5.4/ex5_4.sce
 create mode 100755 2360/CH5/EX5.5/ex5_5.sce
 create mode 100755 2360/CH5/EX5.6/ex5_6.sce
 create mode 100755 2360/CH5/EX5.7/ex5_7.sce
 create mode 100755 2360/CH5/EX5.8/ex5_8.sce
 create mode 100755 2360/CH5/EX5.9/ex5_9.sce

(limited to '2360/CH5')

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 ");
-- 
cgit