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

---
 2384/CH2/EX2.1/ex2_1.sce   | 18 ++++++++++++++++++
 2384/CH2/EX2.10/ex2_10.sce | 20 ++++++++++++++++++++
 2384/CH2/EX2.11/ex2_11.sce | 20 ++++++++++++++++++++
 2384/CH2/EX2.12/ex2_12.sce | 17 +++++++++++++++++
 2384/CH2/EX2.13/ex2_13.sce | 19 +++++++++++++++++++
 2384/CH2/EX2.14/ex2_14.sce | 21 +++++++++++++++++++++
 2384/CH2/EX2.15/ex2_15.sce | 21 +++++++++++++++++++++
 2384/CH2/EX2.16/ex2_16.sce | 14 ++++++++++++++
 2384/CH2/EX2.17/ex2_17.sce | 18 ++++++++++++++++++
 2384/CH2/EX2.18/ex2_18.sce | 21 +++++++++++++++++++++
 2384/CH2/EX2.19/ex2_19.sce | 24 ++++++++++++++++++++++++
 2384/CH2/EX2.2/ex2_2.sce   | 17 +++++++++++++++++
 2384/CH2/EX2.20/ex2_20.sce | 20 ++++++++++++++++++++
 2384/CH2/EX2.21/ex2_21.sce | 19 +++++++++++++++++++
 2384/CH2/EX2.22/ex2_22.sce | 22 ++++++++++++++++++++++
 2384/CH2/EX2.23/ex2_23.sce | 21 +++++++++++++++++++++
 2384/CH2/EX2.24/ex2_24.sce | 16 ++++++++++++++++
 2384/CH2/EX2.25/ex2_25.sce | 21 +++++++++++++++++++++
 2384/CH2/EX2.26/ex2_26.sce | 20 ++++++++++++++++++++
 2384/CH2/EX2.27/ex2_27.sce | 23 +++++++++++++++++++++++
 2384/CH2/EX2.28/ex2_28.sce | 24 ++++++++++++++++++++++++
 2384/CH2/EX2.29/ex2_29.sce | 21 +++++++++++++++++++++
 2384/CH2/EX2.3/ex2_3.sce   | 17 +++++++++++++++++
 2384/CH2/EX2.30/ex2_30.sce | 27 +++++++++++++++++++++++++++
 2384/CH2/EX2.31/ex2_31.sce | 28 ++++++++++++++++++++++++++++
 2384/CH2/EX2.4/ex2_4.sce   | 16 ++++++++++++++++
 2384/CH2/EX2.5/ex2_5.sce   | 20 ++++++++++++++++++++
 2384/CH2/EX2.6/ex2_6.sce   | 23 +++++++++++++++++++++++
 2384/CH2/EX2.7/ex2_7.sce   | 17 +++++++++++++++++
 2384/CH2/EX2.8/ex2_8.sce   | 19 +++++++++++++++++++
 2384/CH2/EX2.9/ex2_9.sce   | 20 ++++++++++++++++++++
 31 files changed, 624 insertions(+)
 create mode 100755 2384/CH2/EX2.1/ex2_1.sce
 create mode 100755 2384/CH2/EX2.10/ex2_10.sce
 create mode 100755 2384/CH2/EX2.11/ex2_11.sce
 create mode 100755 2384/CH2/EX2.12/ex2_12.sce
 create mode 100755 2384/CH2/EX2.13/ex2_13.sce
 create mode 100755 2384/CH2/EX2.14/ex2_14.sce
 create mode 100755 2384/CH2/EX2.15/ex2_15.sce
 create mode 100755 2384/CH2/EX2.16/ex2_16.sce
 create mode 100755 2384/CH2/EX2.17/ex2_17.sce
 create mode 100755 2384/CH2/EX2.18/ex2_18.sce
 create mode 100755 2384/CH2/EX2.19/ex2_19.sce
 create mode 100755 2384/CH2/EX2.2/ex2_2.sce
 create mode 100755 2384/CH2/EX2.20/ex2_20.sce
 create mode 100755 2384/CH2/EX2.21/ex2_21.sce
 create mode 100755 2384/CH2/EX2.22/ex2_22.sce
 create mode 100755 2384/CH2/EX2.23/ex2_23.sce
 create mode 100755 2384/CH2/EX2.24/ex2_24.sce
 create mode 100755 2384/CH2/EX2.25/ex2_25.sce
 create mode 100755 2384/CH2/EX2.26/ex2_26.sce
 create mode 100755 2384/CH2/EX2.27/ex2_27.sce
 create mode 100755 2384/CH2/EX2.28/ex2_28.sce
 create mode 100755 2384/CH2/EX2.29/ex2_29.sce
 create mode 100755 2384/CH2/EX2.3/ex2_3.sce
 create mode 100755 2384/CH2/EX2.30/ex2_30.sce
 create mode 100755 2384/CH2/EX2.31/ex2_31.sce
 create mode 100755 2384/CH2/EX2.4/ex2_4.sce
 create mode 100755 2384/CH2/EX2.5/ex2_5.sce
 create mode 100755 2384/CH2/EX2.6/ex2_6.sce
 create mode 100755 2384/CH2/EX2.7/ex2_7.sce
 create mode 100755 2384/CH2/EX2.8/ex2_8.sce
 create mode 100755 2384/CH2/EX2.9/ex2_9.sce

(limited to '2384/CH2')

diff --git a/2384/CH2/EX2.1/ex2_1.sce b/2384/CH2/EX2.1/ex2_1.sce
new file mode 100755
index 000000000..9e5e05ce0
--- /dev/null
+++ b/2384/CH2/EX2.1/ex2_1.sce
@@ -0,0 +1,18 @@
+// Exa 2.1
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 6;// in ohm
+R2 = 6;// in ohm
+R3 = 6;// in ohm
+V = 24;// in V
+R_T =R1+R1*R2/(R1+R2);// in ohm
+I_T = V/R_T;// in A
+I1 = (R1/(R1+R2))*I_T;// in A
+V = 12;// in V
+I_T = V/R_T;// in A
+I2 = (R1/(R1+R2))*I_T;// in A
+I = I1+I2;// in A
+disp(I,"The current in A is");
diff --git a/2384/CH2/EX2.10/ex2_10.sce b/2384/CH2/EX2.10/ex2_10.sce
new file mode 100755
index 000000000..ba374e843
--- /dev/null
+++ b/2384/CH2/EX2.10/ex2_10.sce
@@ -0,0 +1,20 @@
+// Exa 2.10
+clc;
+clear;
+close;
+format('v',7)
+// Given data
+R1 = 8;// in ohm
+R2 = 5;// in ohm
+R3 = 2;// in ohm
+R_L = 10;// in ohm
+V1= 20;// in V
+V2= 12;// in V
+// V1-R3*I - R2*I = 0;
+I = V1/(R2+R3);// in A
+// Vth + V2 - R3*I = 0;
+Vth = R3*I - V2;// in V
+Rth = ((R2*R3)/(R2+R3)) + R1;// in ohm
+// current through 10 ohm resistance 
+I_L = abs(Vth)/(Rth+R_L);// in A
+disp(I_L,"The current through 10 ohm resistance in A is");
diff --git a/2384/CH2/EX2.11/ex2_11.sce b/2384/CH2/EX2.11/ex2_11.sce
new file mode 100755
index 000000000..b653481b3
--- /dev/null
+++ b/2384/CH2/EX2.11/ex2_11.sce
@@ -0,0 +1,20 @@
+// Exa 2.11
+clc;
+clear;
+close;
+format('v',4)
+// Given data
+R1 = 4;// in ohm
+R2 = 3;// in ohm
+R3 = 2;// in ohm
+R_L = 5;// in ohm
+I = 6;// in A
+V = 15;// in V
+// V-R1*I1-R3*(I1+I) = 0;
+I1 = (V-R3*I)/(R1+R3);// in A
+I = I1 + I;// in A
+Vth = R3*I;// in V
+Rth = ((R1*R3)/(R1+R3)) + R2;// in ohm
+// current in 5 ohm resistance 
+I_L = Vth/(Rth+R_L);// in A
+disp(I_L,"The current in 5 ohm resistance in A is");
diff --git a/2384/CH2/EX2.12/ex2_12.sce b/2384/CH2/EX2.12/ex2_12.sce
new file mode 100755
index 000000000..4764f7196
--- /dev/null
+++ b/2384/CH2/EX2.12/ex2_12.sce
@@ -0,0 +1,17 @@
+// Exa 2.12
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 8;// in ohm
+R2 = 32;// in ohm
+V = 60;// in V
+I1= 5;// in A
+I2= 3;// in A
+// Vth-R1*I1-(I1+I2)*R2-V=0
+Vth= R1*I1+(I1+I2)*R2+V
+Rth = R1+R2;// in ohm
+disp(Vth,"The value of Vth in volts is : ")
+disp(Rth,"The value of Rth in ohm is : ");
+
diff --git a/2384/CH2/EX2.13/ex2_13.sce b/2384/CH2/EX2.13/ex2_13.sce
new file mode 100755
index 000000000..bd8cccd8f
--- /dev/null
+++ b/2384/CH2/EX2.13/ex2_13.sce
@@ -0,0 +1,19 @@
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 6;// in ohm
+R2 = 4;// in ohm
+R3 = 3;// in ohm
+R_L = 6;// in ohm
+V1 = 6;// in V
+V2= 15;// in V
+// V1 - R1*I - R3*I -V2 = 0;
+I= (V1-V2)/(R1+R3)
+Vth = V2 + (R3*I);// in V
+Rth = ((R1*R3)/(R1+R3)) + R2;// in ohm
+I_N = Vth/Rth;// in A
+// current through 6 ohm resistor 
+I = (I_N*Rth)/(Rth+R_L);// in A
+disp(I,"The current through 6 ohm resistor in A is");
diff --git a/2384/CH2/EX2.14/ex2_14.sce b/2384/CH2/EX2.14/ex2_14.sce
new file mode 100755
index 000000000..788a27fd5
--- /dev/null
+++ b/2384/CH2/EX2.14/ex2_14.sce
@@ -0,0 +1,21 @@
+// Exa 2.14
+clc;
+clear;
+close;
+format('v',7)
+// Given data
+R1 = 5;// in ohm
+R2 = 2;// in ohm
+R3 = 8;// in ohm
+V1 = 20;// in V
+V2 = 12;// in V
+// V1-R2*I-R1*I = 0;
+I = V1/(R1+R2);// in A
+// Vth + V2 - R2*I = 0;
+Vth = (R2*I) - V2;// in V
+Rth = ((R1*R2)/(R1+R2)) + R3;// in ohm
+I_N = Vth/Rth;// in A
+R_L = 10;// in ohm
+// current through 10 ohm resistace 
+I = (abs(I_N)*Rth)/(Rth+R_L);// in A
+disp(I,"The current through 10 ohm resistace in A is");
diff --git a/2384/CH2/EX2.15/ex2_15.sce b/2384/CH2/EX2.15/ex2_15.sce
new file mode 100755
index 000000000..e8fe15e22
--- /dev/null
+++ b/2384/CH2/EX2.15/ex2_15.sce
@@ -0,0 +1,21 @@
+// Exa 2.15
+clc;
+clear;
+close;
+format('v',6)
+// Given data
+V = 15;// in V
+R1 = 4;// in  ohm
+R2 = 3;// in ohm
+R3 = 2;// in ohm
+R_L = 5;// in ohm
+Ig = 6;// in A
+// V - R1*I1 - R3*(I1+Ig) = 0;
+I1 = (V-R3*Ig)/(R1+R3);// in A
+I = I1 + Ig;// in A
+Vth = R3*I;// in V
+Rth = ((R1*R3)/(R1+R3)) + R2;// in ohm
+I_N = Vth/Rth;// in A
+// current through 5 ohm resistor 
+I = (I_N*Rth)/(Rth+R_L);// in A
+disp(I,"The current through 5 ohm resistor in A is");
diff --git a/2384/CH2/EX2.16/ex2_16.sce b/2384/CH2/EX2.16/ex2_16.sce
new file mode 100755
index 000000000..c6c1ba969
--- /dev/null
+++ b/2384/CH2/EX2.16/ex2_16.sce
@@ -0,0 +1,14 @@
+// Exa 2.16
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+V = 6;// in V
+R1 = 2;// in ohm
+R2 = 1;// in ohm
+R3 = 3;//in ohm
+R4 = 2;// in ohm
+Rth=(R1*R2/(R1+R2)+R3)*R4/((R1*R2/(R1+R2)+R3)+R4)
+R_L = Rth;// in ohm
+disp(R_L,"The value of R in ohm is");
diff --git a/2384/CH2/EX2.17/ex2_17.sce b/2384/CH2/EX2.17/ex2_17.sce
new file mode 100755
index 000000000..9958950ea
--- /dev/null
+++ b/2384/CH2/EX2.17/ex2_17.sce
@@ -0,0 +1,18 @@
+// Exa 2.17
+clc;
+clear;
+close;
+format('v',6)
+// Given data
+R1 = 10;// in ohm
+R2 = 10;// in ohm
+R3 = 4;// in ohm
+V = 20;// in V
+// V - R1*I1 - R2*I1 = 0;
+I1 = V/(R1+R2);// in A
+Vth = R1*I1;// in V
+Rth =R1*R2/(R1+R2)+R3
+R_L = Rth;// in ohm
+disp(R_L,"The value of load resistance in ohm is");
+Pmax = (Vth^2)/(4*Rth);// in W
+disp(Pmax,"The power delivered to the load in W is");
diff --git a/2384/CH2/EX2.18/ex2_18.sce b/2384/CH2/EX2.18/ex2_18.sce
new file mode 100755
index 000000000..b9646e4e5
--- /dev/null
+++ b/2384/CH2/EX2.18/ex2_18.sce
@@ -0,0 +1,21 @@
+// Exa 2.18
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 3;// in ohm
+R2 = 9;// in ohm
+R3 = 6;// in ohm
+V1 = 120;// in V
+V2 = 60;// in V
+R = (R3*R2)/(R3+R2);// in ohm
+R_T = R+R1;// in ohm
+I_T = V1/R_T;// in A
+I1 = (R2/(R2+R3)) * I_T;// in A
+R_T = 2 + R2;// in  ohm
+I_T = V2/R_T;// in A
+I2 = (R1/(R1+R3)) * I_T;// in A
+// current through 6 ohm resistor 
+I = I1-I2;// in A
+disp(I,"The current through 6 ohm resistor in A is");
diff --git a/2384/CH2/EX2.19/ex2_19.sce b/2384/CH2/EX2.19/ex2_19.sce
new file mode 100755
index 000000000..5c7173c11
--- /dev/null
+++ b/2384/CH2/EX2.19/ex2_19.sce
@@ -0,0 +1,24 @@
+// Exa 2.19
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 36;// in ohm
+R2 = 12;// in ohm
+R3 = 8;// in ohm
+V1 = 90;// in V
+V2 = 60;// in V
+R_T = (R2*R3)/(R2+R3)+R1;// in ohm
+I_T = V1/R_T;// in A
+I1 = (R2/(R2+R3)) * I_T;// in A
+R = (R1*R3)/(R1+R3);// in ohm
+R_T = R2+R;// in ohm
+I_T = V2/R_T;// in A 
+I2 = (R1/(R1+R3))*I_T;// in A
+Ra = (R1*R2)/(R1+R2);// in ohm asumed
+I_T = 2;// in A
+I3 = (Ra/(Ra+R3))*I_T;// in A
+// current in 8 ohm resistor 
+I = I1+I2+I3;// in A
+disp(I,"The current in 8 ohm resistor in A is");
diff --git a/2384/CH2/EX2.2/ex2_2.sce b/2384/CH2/EX2.2/ex2_2.sce
new file mode 100755
index 000000000..7a42ba887
--- /dev/null
+++ b/2384/CH2/EX2.2/ex2_2.sce
@@ -0,0 +1,17 @@
+// Exa 2.2
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 5;// in ohm
+Vth= 10;// in ohm
+R2 = 7;// in ohm
+R3=10;// in ohm
+R_L = 12;// in ohm
+V = 20;// in ohm
+Vth = (Vth*V)/(R1+R3);// in V
+Rth = R2 + ((Vth*R1)/(Vth+R1));// in ohm
+// The current through 12 ohm resistor 
+I = Vth/(Rth+R_L);// in A
+disp(I,"The current through 12 ohm resistor in A is");
diff --git a/2384/CH2/EX2.20/ex2_20.sce b/2384/CH2/EX2.20/ex2_20.sce
new file mode 100755
index 000000000..ce4f2014f
--- /dev/null
+++ b/2384/CH2/EX2.20/ex2_20.sce
@@ -0,0 +1,20 @@
+// Exa 2.20
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 5;// in ohm
+R2 = 10;// in ohm
+R3 = 5;// in ohm
+V1 = 60;// in v
+V2 = 30;// in V
+//-R1*i1 - R3*i1 - V2+V1 = 0;
+i1 = (V2-V1)/(R1+R3);// in A
+V_acrossR3 = R3*i1;// in V
+Vth = V_acrossR3+V1;// in V
+V_AB =Vth;// in V
+disp(V_AB,"The Thevenins voltage in V is");
+R = (R1*R3)/(R1+R3);// in ohm
+Rth = R2+R;// in ohm
+disp(Rth,"The Thevenins resistance in ohm is");
diff --git a/2384/CH2/EX2.21/ex2_21.sce b/2384/CH2/EX2.21/ex2_21.sce
new file mode 100755
index 000000000..806e15572
--- /dev/null
+++ b/2384/CH2/EX2.21/ex2_21.sce
@@ -0,0 +1,19 @@
+// Exa 2.21
+clc;
+clear;
+close;
+format('v',6)
+// Given data
+R1 = 4;// in ohm
+R2 = 3;// in  ohm
+R3 = 2;// in ohm
+R_L = 5;// in ohm
+V = 15;// in V
+I2 = 6;// in A
+// -R1*I1 - R3*I1 + R3*I2 + V = 0;
+I1 = (V+R3*I2)/(R1+R3);// in A
+Vth = I2/R3;// in V
+V_CD = Vth;// in V
+Rth = (R1*R3)/(R1+R3)+R2;// in ohm
+I = Vth/(Rth+R_L);// in A
+disp(I,"The current flowing through 5 ohm resistor in A is");
diff --git a/2384/CH2/EX2.22/ex2_22.sce b/2384/CH2/EX2.22/ex2_22.sce
new file mode 100755
index 000000000..8b9e61b47
--- /dev/null
+++ b/2384/CH2/EX2.22/ex2_22.sce
@@ -0,0 +1,22 @@
+// Exa 2.22
+clc;
+clear;
+close;
+format('v',6)
+// Given data
+R1 = 20;// in ohm
+R2 = 5;// in ohm
+R3 = 3;// in ohm
+R4 = 2;// in ohm
+V = 30;// in V
+I1=4;// in A
+V1= I1*R3;// in V
+// R1*I -R2*I+V = 0;
+I = V/(R1+R2);// in A
+V_acrossR2= R2*I;// in V
+V_AB = V_acrossR2-V1;// in V
+Vth = abs(V_AB);// in V
+Rth = (R1*R2)/(R1+R2)+R3+R4;// in ohm
+disp(Rth,"The value of Rth in ohm is");
+I_N = Vth/Rth;// in A
+disp(I_N,"The value of I_N in A is");
diff --git a/2384/CH2/EX2.23/ex2_23.sce b/2384/CH2/EX2.23/ex2_23.sce
new file mode 100755
index 000000000..011b334a4
--- /dev/null
+++ b/2384/CH2/EX2.23/ex2_23.sce
@@ -0,0 +1,21 @@
+// Exa 2.23
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 2;// in ohm
+R2 = 4;// in ohm
+R3 = 6;// in ohm
+R4 = 4;// in ohm
+V = 16;// in v
+I1= 8;// in A
+V1= I1*R2;// in V
+I2= 16;// in A
+V2= I2*R3;// in V
+// Applying KVL : R2*I+V1+R3*I-V2+V+R1*I
+I= (V2-V1-V)/(R1+R2+R3);// in A
+Vth= V2-R3*I;// in V
+Rth= (R1+R2)*R3/((R1+R2)+R3)+R4;// in ohm
+disp(Vth,"The value of Vth in volts is : ")
+disp(Rth,"The value of Rth in ohm is : ")
diff --git a/2384/CH2/EX2.24/ex2_24.sce b/2384/CH2/EX2.24/ex2_24.sce
new file mode 100755
index 000000000..f8c065bd2
--- /dev/null
+++ b/2384/CH2/EX2.24/ex2_24.sce
@@ -0,0 +1,16 @@
+// Exa 2.24
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 3;// in ohm
+R2 = 2;// in ohm
+R3 = 1;// in ohm
+R4 = 8;// in ohm
+R5 = 2;// in ohm
+V = 10;// in V
+R = ((R1+R2)*R5)/((R1+R2)+R5);// in ohm
+Rth = R + R3;// in ohm
+R_L = Rth;// in ohm
+disp(R_L,"The value of load resistance in ohm is");
diff --git a/2384/CH2/EX2.25/ex2_25.sce b/2384/CH2/EX2.25/ex2_25.sce
new file mode 100755
index 000000000..59eaa804b
--- /dev/null
+++ b/2384/CH2/EX2.25/ex2_25.sce
@@ -0,0 +1,21 @@
+// Exa 2.25
+clc;
+clear;
+close;
+format('v',8)
+// Given data
+V = 250;// in V
+R1 = 10;// in ohm
+R2 = 10;// in ohm
+R3 = 10;// in ohm
+R4 = 10;// in ohm
+I2 = 20;// in A.
+//Applying KVL in GEFHG :  -R1*I1-R2*I1-R2*I2 + V = 0;
+I1= (V-R2*I2)/(R1+R2);// in A
+V_AB= R3*I2+V-R1*I1;// in V
+Vth = V_AB;// in V
+Rth = (R1*R2)/(R1+R2)+R3+R4;// in ohm
+R_L = Rth;// in ohm
+disp(R_L,"The value of R_L in ohm is");
+Pmax = (Vth^2)/(4*R_L);//maximum power  in W
+disp(Pmax,"The value of maximum power in W is");
diff --git a/2384/CH2/EX2.26/ex2_26.sce b/2384/CH2/EX2.26/ex2_26.sce
new file mode 100755
index 000000000..e8155bcb0
--- /dev/null
+++ b/2384/CH2/EX2.26/ex2_26.sce
@@ -0,0 +1,20 @@
+// Exa 2.26
+clc;
+clear;
+close;
+format('v',7)
+// Given data
+R1 = 2;// in ohm
+R2 = 4;// in ohm
+R_L = 4;// in ohm
+V1 = 6;// in v
+V2 = 12;// in V
+// -R2*Ix -R1*Ix-V1+V2= 0;
+Ix = (V2-V1)/(R1+R2);// in A
+Vth = V1+R1*Ix;// in V
+Rth = (R1*R2)/(R1+R2);// in ohm
+I_N = Vth/Rth;// in A
+I = (I_N*Rth)/(Rth+R_L);// in A
+disp(I,"The current in A is"); 
+
+// Note: At last, there is calculation error to find the value of I, so the answer in the book is wrong.
diff --git a/2384/CH2/EX2.27/ex2_27.sce b/2384/CH2/EX2.27/ex2_27.sce
new file mode 100755
index 000000000..54b1087c5
--- /dev/null
+++ b/2384/CH2/EX2.27/ex2_27.sce
@@ -0,0 +1,23 @@
+// Exa 2.27
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 3;// in ohm
+R2 = 6;// in ohm
+R_L = 4;// in ohm
+V = 27;// in V
+I=3;// in A
+// -I1+I2= I     (i)
+// Applying KVL: I1*R1+I2*R2=V  (ii)
+A= [-1 R1; 1 R2];
+B= [I V]
+I= B*A^-1;// Solving eq(i) and (2) by Matrix method
+I1= I(1);// in A
+I2= I(2);// in A
+Vth= R2*I2;// in V
+Rth= R1*R2/(R1+R2);// in ohm
+// current in 4 ohm resistor 
+I= Vth/(Rth+R_L);// in A
+disp(I,"The current in 4 ohm resistor in A is : ")
diff --git a/2384/CH2/EX2.28/ex2_28.sce b/2384/CH2/EX2.28/ex2_28.sce
new file mode 100755
index 000000000..9dde05b4c
--- /dev/null
+++ b/2384/CH2/EX2.28/ex2_28.sce
@@ -0,0 +1,24 @@
+// Exa 2.28
+clc;
+clear;
+close;
+format('v',6)
+// Given data
+R1 = 20;// in ohm
+R2 = 12;// in ohm
+R3 = 8;// in ohm
+V1 = 90;// in V
+V2 = 60;// in V
+R_T = R1 + ((R2*R3)/(R2+R3));// in ohm
+I_T = V1/R_T;// in A
+I1 = I_T;// in A
+R_T = R2 + ((R1*R3)/(R1+R3));// in ohm
+I_T = V2/R_T;// in A
+I2 = (R3/(R3+R1))*I_T;// in A
+R_T = R1 + ((R2*R3)/(R2+R3));// in ohm
+I_T = 2;// in A (given)
+R = (R2*R3)/(R2+R3);// in ohm
+I3 = (R/(R1+R))*I_T;// in A
+// current in 20 ohm resistor 
+I20 = I1-I2-I3;// in A
+disp(I20,"The current in 20 ohm resistor in A is");
diff --git a/2384/CH2/EX2.29/ex2_29.sce b/2384/CH2/EX2.29/ex2_29.sce
new file mode 100755
index 000000000..1a287aa3a
--- /dev/null
+++ b/2384/CH2/EX2.29/ex2_29.sce
@@ -0,0 +1,21 @@
+// Exa 2.29
+clc;
+clear;
+close;
+format('v',7)
+// Given data
+R1 = 10;// in ohm
+R2 = 20;// in ohm
+R3 = 60;// in ohm
+R4 = 30;// in ohm
+E1 = 120;// in V
+E2 = 60;// in V
+R_T = ((R2*R3)/(R2+R3)) + R4+R1;// in ohm
+I_T = E1/R_T;// in A
+I1 = (R3/(R2+R3))*I_T;// in A
+R_T = ( ((R1+R4)*R2)/((R1+R4)+R2) ) + R3;// in ohm
+I_T = E2/R_T;// in A
+I2 = ((R1+R4)/(R1+R4+R2))*I_T;// in A
+// current through R2 resistor 
+I= I1+I2;// in A
+disp(I,"The current through R2 resistor in A is");
diff --git a/2384/CH2/EX2.3/ex2_3.sce b/2384/CH2/EX2.3/ex2_3.sce
new file mode 100755
index 000000000..278a4940e
--- /dev/null
+++ b/2384/CH2/EX2.3/ex2_3.sce
@@ -0,0 +1,17 @@
+// Exa 2.3
+clc;
+clear;
+close;
+format('v',6)
+// Given data
+R1 = 6;// in ohm
+R2 = 7;// in ohm
+R3 = 4;// in ohm
+R_L = 12;// in ohm
+V = 30;// in V
+Vth = (R3*V)/(R3+R1);// in V
+Rth = R2 + ((R3*R1)/(R3+R1)) ;// in ohm
+I_N = Vth/Rth;// in A
+//The current through 12 ohm resistor 
+I = (I_N*Rth)/(Rth+R_L);// in ohm
+disp(I,"The current through 12 ohm resistor in A is");
diff --git a/2384/CH2/EX2.30/ex2_30.sce b/2384/CH2/EX2.30/ex2_30.sce
new file mode 100755
index 000000000..6bd98d880
--- /dev/null
+++ b/2384/CH2/EX2.30/ex2_30.sce
@@ -0,0 +1,27 @@
+// Exa 2.30
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 4;// in ohm
+R2 = 4;// in ohm
+R3 = 8;// in ohm
+Ig = 3;// in A 
+V = 15;// in V
+I1 = R1/(R1+R2)*Ig;// in A
+I2 = -I1;// in A
+I3 = 0;// in A
+R_T = ((R1+R2)*R3)/((R1+R2)+R3);// in ohm
+I_T = V/R_T;// in A
+I_2= R3/(R1+R2+R3)*I_T;// in A
+I_1 = I_2;// in A
+// Total current through upper 4 Ω resistor 
+tot_cur_up_4ohm= I1+I2;// in A
+// Total current through lower 4 Ω resistor 
+tot_cur_low_4ohm= I_1+I_2;// in A
+// Total current through 8Ω resistor 
+tot_cur_8ohm= I3+I_T;// in A
+disp(tot_cur_up_4ohm,"Total current through upper 4 Ω resistor in A is : ")
+disp(tot_cur_low_4ohm,"Total current through lower 4 Ω resistor in A is : ")
+disp(tot_cur_8ohm,"Total current through 8 Ω resistor in A is : ")
diff --git a/2384/CH2/EX2.31/ex2_31.sce b/2384/CH2/EX2.31/ex2_31.sce
new file mode 100755
index 000000000..d4717a36e
--- /dev/null
+++ b/2384/CH2/EX2.31/ex2_31.sce
@@ -0,0 +1,28 @@
+// Exa 2.31
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 5;// in ohm
+R2 = 5;// in ohm
+R3 = 10;// in ohm
+V = 10;// in V
+Ig = 2;// in A 
+I2 = (R1/R3)*Ig;// in A
+I1 = I2;// in A
+I3 = 0;// in A
+R_T = ((R1+R2)*R3)/((R1+R2)+R3);// in ohm
+I_T = V/R_T;// in A
+I_2 = (R3/((R1+R2)+R3))*I_T;// in A
+I_1 = I_2;// in A
+I_3 = I_1;// in A
+// Total current through upper in 5 Ω resistor 
+tot_cur_up_5ohm = I1-I2;// in A
+// Total current through lower in 5 Ω resistor 
+tot_cur_low_5ohm = I_1+I_2;// in A
+// Total current through 10 Ω resistor 
+tot_cur_10ohm =  I3+I_3;// in A
+disp(tot_cur_up_5ohm ,"The total current through upper in 5 Ω resistor in A is");
+disp(tot_cur_low_5ohm,"The total current through lower in 5 Ω resistor in A is");
+disp(tot_cur_10ohm,"The total current through in 10 Ω resistor in A is");
diff --git a/2384/CH2/EX2.4/ex2_4.sce b/2384/CH2/EX2.4/ex2_4.sce
new file mode 100755
index 000000000..8aaf86e54
--- /dev/null
+++ b/2384/CH2/EX2.4/ex2_4.sce
@@ -0,0 +1,16 @@
+// Exa 2.4
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 5;// in ohm
+R2 = 10;// in ohm
+R3 = 7;// in ohm
+V = 20;// in V
+Vth = R2*V/(R1+R2);// in V
+Rth = R3 + ((R2*R1)/(R2+R1));// in ohm
+R_L = Rth;// in ohm
+disp(R_L,"The value of load resistance in ohm is");
+Pmax = (Vth^2)/(4*R_L);// in W
+disp(Pmax,"The magnitude of maximum power in W is");
diff --git a/2384/CH2/EX2.5/ex2_5.sce b/2384/CH2/EX2.5/ex2_5.sce
new file mode 100755
index 000000000..cf5dc9c34
--- /dev/null
+++ b/2384/CH2/EX2.5/ex2_5.sce
@@ -0,0 +1,20 @@
+// Exa 2.5
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+V1 = 12;// in V
+V2 = 10;// in V
+R1 = 6;// in ohm
+R2 = 7;// in ohm
+R3 = 4;// in ohm
+R_T = R1 + ( (R2*R3)/(R2+R3) );// in ohm
+I_T = V1/R_T;// in A
+I1 = (R2/(R2+R3))*I_T;// in A
+R_T = R2 + ( (R1*R3)/(R1+R3) );// in ohm
+I_T = V2/R_T;// in A
+I2 = (R1*I_T)/(R1+R3);// in A
+// current across 4 ohm resistor 
+I = I1+I2;// in A
+disp(I,"The current across 4 ohm resistor in A is");
diff --git a/2384/CH2/EX2.6/ex2_6.sce b/2384/CH2/EX2.6/ex2_6.sce
new file mode 100755
index 000000000..9969329d9
--- /dev/null
+++ b/2384/CH2/EX2.6/ex2_6.sce
@@ -0,0 +1,23 @@
+// Exa 2.6
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 2;// in ohm
+R2 = 3;// in ohm
+R3 = 1;// in ohm
+R4= 2;// in ohm
+V1 = 4.2;// in V
+V2 = 3.5;// in V
+R_T =R1+R3+R2*R4/(R2+R4);// in ohm
+I_T = V1/R_T;// in A
+I1 = (R1/(R1+R2))*I_T;// in A
+R = R1+R3;// in ohm
+R_desh = (R*R2)/(R+R2);// in ohm
+R_T = R_desh+R1;// in ohm
+I_T = V2/R_T;// in A
+I2 = (R2/(R2+R))*I_T;// in A
+// current in the branch AB 
+I = I2-I1;// in A
+disp(I,"The current in the branch AB of the circuit in A is");
diff --git a/2384/CH2/EX2.7/ex2_7.sce b/2384/CH2/EX2.7/ex2_7.sce
new file mode 100755
index 000000000..6947ec3cf
--- /dev/null
+++ b/2384/CH2/EX2.7/ex2_7.sce
@@ -0,0 +1,17 @@
+// Exa 2.7
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 2;// in ohm
+R2 = 4;// in ohm
+R3 = 8;// in ohm
+Ig = 2;// in A
+V = 20;// in V
+R_T = R1+R3;// in ohm
+I1 = V/R_T;// in A
+I2 = (R1/(R1+R3))*Ig;// in A
+// current through in 8 ohm resistor 
+I = I1-I2;// in A
+disp(I,"The current through in 8 ohm resistor in A is");
diff --git a/2384/CH2/EX2.8/ex2_8.sce b/2384/CH2/EX2.8/ex2_8.sce
new file mode 100755
index 000000000..8cc0b2cdc
--- /dev/null
+++ b/2384/CH2/EX2.8/ex2_8.sce
@@ -0,0 +1,19 @@
+// Exa 2.8
+clc;
+clear;
+close;
+format('v',7)
+// Given data
+R1 = 4;// in ohm
+R2 = 24;// in ohm
+R_L = 16;// in ohm
+V1 = 20;// in V
+V2 = 30;// in V
+// V1-R1*I-R2*I-V2 = 0;
+I= (V1-V2)/(R1+R2)
+// V1-R1*I-Vth = 0;
+Vth = V1-R1*I;// in V
+Rth = (R1*R2)/(R1+R2);// in ohm
+// current through 16 ohm resistor 
+I_L = Vth/(Rth+R_L);// in A
+disp(I_L,"The current through 16 ohm resistor in A is");
diff --git a/2384/CH2/EX2.9/ex2_9.sce b/2384/CH2/EX2.9/ex2_9.sce
new file mode 100755
index 000000000..16804bbcb
--- /dev/null
+++ b/2384/CH2/EX2.9/ex2_9.sce
@@ -0,0 +1,20 @@
+// Exa 2.9
+clc;
+clear;
+close;
+format('v',5)
+// Given data
+R1 = 6;// in ohm
+R2 = 4;// in ohm
+R3 = 3;// in ohm
+R_L = 6;// in ohm
+V1 = 6;// in V
+V2 = 15;// in V
+// V1 - R1*I - R3*I -V2 = 0
+I= (V1-V2)/(R1+R3);
+// Vth - R3*I -V2 = 0;
+Vth =V2+R3*I;// in V
+Rth = ((R1*R3)/(R1+R3)) + R2;// in ohm
+// current through 6 ohm resistance 
+I_L = Vth/(Rth+R_L);// in A
+disp(I_L,"The current through 6 ohm resistance in A is");
-- 
cgit