initial commit / add all books

12 files changed, 172 insertions, 0 deletions

diff --git a/1523/CH1/EX1.1/1_1.sce b/1523/CH1/EX1.1/1_1.sce
new file mode 100755
index 000000000..d0eca6e1f
--- /dev/null
+++ b/1523/CH1/EX1.1/1_1.sce
@@ -0,0 +1,14 @@
+//Basic Circuit Concepts

+//page no-1.9

+//example1.1

+disp("Current through 15Ohm resistor is given by:");

+disp("I1=30/15");

+I1=30/15

+printf("current through 15Ohm resistor = %.2f Ampere", I1)

+disp("Current through 5Ohm resistor is given by:")

+disp("I2=5+2");

+I2=5+2

+printf("current through 5ohm resistor = %.2f Ampere", I2)

+disp("R=100-30-5*I2/I1");

+R=(100-30-5*I2)/I1

+printf("R = %.2f Ohm", R);
\ No newline at end of file
diff --git a/1523/CH1/EX1.12/1_12.sce b/1523/CH1/EX1.12/1_12.sce
new file mode 100755
index 000000000..626be8fad
--- /dev/null
+++ b/1523/CH1/EX1.12/1_12.sce
@@ -0,0 +1,9 @@
+//Basic Circuit Concepts

+//page no-1.17

+//example1.12

+disp("Applying KVL to the circuit :");

+disp("50 - 5*I - 1.2*I - 16 = 0")

+I=(50-16)/6.2;

+printf("I= %.2f Amp", I);

+P=50*I;

+printf("\nPower delivered 50 V source = 50 * 5.48= %.2f W", P);
\ No newline at end of file
diff --git a/1523/CH1/EX1.13/1_13.sce b/1523/CH1/EX1.13/1_13.sce
new file mode 100755
index 000000000..9ab46cd3d
--- /dev/null
+++ b/1523/CH1/EX1.13/1_13.sce
@@ -0,0 +1,6 @@
+//Basic Circuit Concepts

+//page no-1.18

+//example1.13

+disp("By Current Division formula ;");

+I4=4*(2/(2+4));

+printf("I4 = 4 * (2/(2+4)) = %.2f Amp", I4);
\ No newline at end of file
diff --git a/1523/CH1/EX1.14/1_14.sce b/1523/CH1/EX1.14/1_14.sce
new file mode 100755
index 000000000..9bba5a96e
--- /dev/null
+++ b/1523/CH1/EX1.14/1_14.sce
@@ -0,0 +1,9 @@
+//Basic Circuit Concepts

+//page no-1.19

+//example1.14

+disp("Applying KVL to the mesh");

+disp("15 - 50*I - 50*I - 5*I");

+I=15/105;

+printf("I=15/105 = %.2f Amp", I);

+V=15-(50*0.143);

+printf("\nVoltage at node 2 = 15 - 50*I = %.2f Volt", V);
\ No newline at end of file
diff --git a/1523/CH1/EX1.15/1_15.sce b/1523/CH1/EX1.15/1_15.sce
new file mode 100755
index 000000000..758ec863d
--- /dev/null
+++ b/1523/CH1/EX1.15/1_15.sce
@@ -0,0 +1,11 @@
+//Basic Circuit Concepts

+//pg no.-1.20

+//example 1.15

+r1=3;

+r2=2.33;

+r3=6;

+v1=18;

+v2=5.985;

+mprintf("\nApplying KCL at the node, \n(Va-18)/3+(Va-5.985)/2.33+Va/6 = 0");

+Va=((v1*r2*r3)+(v2*r1*r3))/((r2*r3)+(r1*r3)+(r1*r2));

+printf("\nSolving the equation,we get, \nVa = %.2f V",Va);

diff --git a/1523/CH1/EX1.2/1_2.sce b/1523/CH1/EX1.2/1_2.sce
new file mode 100755
index 000000000..6b450c818
--- /dev/null
+++ b/1523/CH1/EX1.2/1_2.sce
@@ -0,0 +1,20 @@
+//Basic Circuit Concepts

+//page no-1.10

+//example1.2

+disp("from the given fig:")

+disp("I2-I3=13");

+disp("-20*I1+8*I2=0");

+disp("-12*I1-16*I3=0");

+//solving these equations in the matrix form

+A=[0 1 -1;-20 8 0;-12 0 -16]

+B=[13 0 0]'

+disp("A=")

+disp(A)

+disp("B=")

+disp(B)

+X=inv(A)*B

+disp("X=")

+disp(X)

+disp("I1 = 4Ampere")

+disp("I2 = 10Ampere")

+disp("I3 = -3Ampere")
\ No newline at end of file
diff --git a/1523/CH1/EX1.3/1_3.sce b/1523/CH1/EX1.3/1_3.sce
new file mode 100755
index 000000000..7e3c0dae4
--- /dev/null
+++ b/1523/CH1/EX1.3/1_3.sce
@@ -0,0 +1,24 @@
+//Basic Circuit Concepts

+//pg no-1.11

+//example 1.3

+disp("Iaf=x")

+disp("Ife=x-30")

+disp("Ied=x+40")

+disp("Idc=x-80")

+disp("Icb=x-20")

+disp("Iba=x-80")

+disp("Applying KVL to the closed path AFEDCBA:")//Applying KVL to the path AFEDCBA

+disp("x=4.1/0.1")

+x=4.1/0.1;

+Iaf=x;

+printf("\nIaf = %.2f Ampere", Iaf);

+Ife=x-30

+printf("\nIfe = %.2f Ampere", Ife);

+Ied=x+40;

+printf("\nIed = %.2f Ampere", Ied);

+Idc=x-80;

+printf("\nIdc = %.2f Ampere", Idc);

+Icb=x-20;

+printf("\nIcb = %.2f Ampere", Icb);

+Iba=x-80;

+printf("\nIba = %.2f Ampere", Iba);
\ No newline at end of file
diff --git a/1523/CH1/EX1.4/1_4.sce b/1523/CH1/EX1.4/1_4.sce
new file mode 100755
index 000000000..d057a1f76
--- /dev/null
+++ b/1523/CH1/EX1.4/1_4.sce
@@ -0,0 +1,27 @@
+//Basic Circuit Concepts
+//pg no- 1.12
+//example 1.4
+disp("Applying KVL to the closed path OBAO");//Applying KVL to the closed path OBAO
+disp("3*x-3*y=2");
+disp("Applying KVL to the closed path ABCA");//Applying KVL to the closed path ABCA
+disp("9*x+12*y=4");
+a=[3 -3;9 12];
+b=[2 4]'
+disp("a=")
+disp(a)
+disp("b=")
+disp(b)
+X=inv(a)*b;
+disp(X)
+disp("x=0.5714286 Ampere");
+disp("y=-0.095238 Ampere");
+disp("Ioa=0.57A")
+disp("Iob=1-0.57")
+Iob=1-0.57;
+printf("\nIob = %2f A", Iob);
+disp("Iab = 0.095");
+Iac=0.57-0.095;
+printf("\nIac = %2f A", Iac);
+disp("Iab=1-0.57 + 0.095")
+Iab=1-0.57 + 0.095;
+printf("\nIob = %2f A", Iab) 
\ No newline at end of file
diff --git a/1523/CH1/EX1.5/1_5.sce b/1523/CH1/EX1.5/1_5.sce
new file mode 100755
index 000000000..c7da8df56
--- /dev/null
+++ b/1523/CH1/EX1.5/1_5.sce
@@ -0,0 +1,14 @@
+//Basic Circuit Concepts

+//pg no-1.12

+//example 1.5

+I1=2/5;

+printf("I1=2/5= %2f Ampere", I1)

+I2=4/8;

+printf("\nI2=4/8= %2f Ampere", I2)

+printf("\nPotential difference between points x and y = Vxy = Vx-Vy")

+printf("\nWriting KVL equations for the path x to y")//Writing KVL equation from x to y

+printf("\nVs+3*I1+4-3*I2-Vy=0")

+printf("\nVs+3*(0.4) + 4- 3*(0.5) -Vy = 0")

+printf("\nVs+3*I1+4-3*I2-Vy = 0")

+printf("\nVx-Vy = -3.7")

+printf("\nVxy = -3.7V")
\ No newline at end of file
diff --git a/1523/CH1/EX1.6/1_6.sce b/1523/CH1/EX1.6/1_6.sce
new file mode 100755
index 000000000..5cdf3cae4
--- /dev/null
+++ b/1523/CH1/EX1.6/1_6.sce
@@ -0,0 +1,13 @@
+//Basic Circuit Concepts

+//pg no-1.13

+//example 1.6

+I1=20/15;

+printf("I1=2/5= %2f Ampere", I1)

+I2=15/10;

+printf("\nI2=4/8= %2f Ampere", I2)

+disp("Voltage between points A and B = VAB = VA-VB");

+disp("Writing KVL equations for the path A to B:");//Writing KVL equations for the path A to B

+disp("VA - 5*I1 - 5 - 15 + 6*I2 - VB = 0");

+disp("VA - VB = 5*1.33 + 5 + 15 + 6*1.5");

+VAB=(5*1.33)+5+15-(6*1.5);

+printf("VAB = %.2f Volt", VAB)
\ No newline at end of file
diff --git a/1523/CH1/EX1.7/1_7.sce b/1523/CH1/EX1.7/1_7.sce
new file mode 100755
index 000000000..270e02999
--- /dev/null
+++ b/1523/CH1/EX1.7/1_7.sce
@@ -0,0 +1,13 @@
+//Basic Circuit Concepts

+//page no-1.13

+//example1.7

+I1=5/2;

+printf("I1=2/5= %2f Ampere", I1)

+I2=2;

+printf("\nI2=4/8= %2f Ampere", I2)

+disp("Potential difference VAB = VA - VB");

+disp("Writing KVL equations for path A to B")  //Writing KVL equations for path A to B

+disp("VA - 2*I1 + 8 - 5*I2 - VB = 0");

+disp("VA - VB = (2*2.5) - 8 5 + (5*2)");

+VAB=(2*2.5)-8+(5*2)

+printf("VAB = %.2f Volt", VAB);
\ No newline at end of file
diff --git a/1523/CH1/EX1.8/1_8.sce b/1523/CH1/EX1.8/1_8.sce
new file mode 100755
index 000000000..12ccbaef1
--- /dev/null
+++ b/1523/CH1/EX1.8/1_8.sce
@@ -0,0 +1,12 @@
+//Basic Circuit Concepts

+//page no-1.14

+//example1.8

+I1=10/8;

+printf("I1=2/5= %2f Ampere", I1)

+I2=5;

+printf("\nI2=4/8= %2f Ampere", I2)

+disp("Applying KVL to the path from A to B")  //Applying KVL to the path from A to B

+disp("VA - 3*I1 - 8 + 3*I2 - VB = 0");

+disp("VA - VB = 3*1.25 + 8 - 3*5")

+VAB= (3*1.25)+8-(3*5);

+printf("VAB = %.2f Volt", VAB);
\ No newline at end of file