initial commit / add all books

38 files changed, 380 insertions, 0 deletions

diff --git a/1760/CH4/EX4.10/EX4_10.sce b/1760/CH4/EX4.10/EX4_10.sce
new file mode 100755
index 000000000..856d243fc
--- /dev/null
+++ b/1760/CH4/EX4.10/EX4_10.sce
@@ -0,0 +1,10 @@
+                              //EXAMPLE 4-11      PG NO-233-234

+I1=-1.28;

+I2=-0.83;

+I3=0.84;

+IR1=-I1;                               //CURRENT THROUGH 2.2 RESISTANCE

+disp('i) Current (IR1)   is     =  '+string (IR1) +' A   from B to  A ');

+IR2=-I1+I2;                               //CURRENT THROUGH 4.7 RESISTANCE

+disp('ii) Current (IR2)   is     =  '+string (IR2) +' A  from C to  B ');

+IR3=-I2+I3;                               //CURRENT THROUGH 6.8 RESISTANCE

+disp('iii) Current (IR3)   is     =  '+string (IR3) +' A  from C to D ');

diff --git a/1760/CH4/EX4.12/EX4_12.sce b/1760/CH4/EX4.12/EX4_12.sce
new file mode 100755
index 000000000..b45ccb807
--- /dev/null
+++ b/1760/CH4/EX4.12/EX4_12.sce
@@ -0,0 +1,6 @@
+                 //Example 4-12  PG NO234-235

+VA=60.866;

+VB=19.13;

+R=60;

+I60=(VA-VB)/R;

+disp(' CURRENT is = '+string(I60)+' A');

diff --git a/1760/CH4/EX4.13/EX4_13.sce b/1760/CH4/EX4.13/EX4_13.sce
new file mode 100755
index 000000000..f7bfc4d6a
--- /dev/null
+++ b/1760/CH4/EX4.13/EX4_13.sce
@@ -0,0 +1,8 @@
+                           //Example       4-13             PG NO-235

+X=[1 -0.5  2;-0.5 3.5 -4;-0.5 -1 0];

+X1=[2 -0.5 -0.5;-4   3.5 -1;0 -1 2.5 ]

+X2=[1 -0.5 -0.5;-0.5 3.5 -1;-0.5 -1 2.5];

+V=det([X1-X]/X2);                          //V=VA-VC

+disp('i) VOLTAGE (V)   is     =  '+string (V) +' V ');

+I2=0.5*1.566;

+disp('i) Current (I2)   is     =  '+string (I2) +' A    ');

diff --git a/1760/CH4/EX4.14/EX4_14.sce b/1760/CH4/EX4.14/EX4_14.sce
new file mode 100755
index 000000000..f39ba7100
--- /dev/null
+++ b/1760/CH4/EX4.14/EX4_14.sce
@@ -0,0 +1,14 @@
+                //EXAMPLE 4-14  PG NO-236

+VA=61.38;

+R1=60;

+R2=110;

+R3=25;

+V1=120;

+V2=40;

+V3=60;

+I120=(V1-VA)/R1;

+disp(' CURRENT is = '+string(I120)+' A');

+I40=(VA+V2)/R2;

+disp(' CURRENT is = '+string(I40)+' A');

+I60=(VA-V3)/R3;

+disp(' CURRENT is = '+string(I60)+' A');

diff --git a/1760/CH4/EX4.16/EX4_16.sce b/1760/CH4/EX4.16/EX4_16.sce
new file mode 100755
index 000000000..613128bfa
--- /dev/null
+++ b/1760/CH4/EX4.16/EX4_16.sce
@@ -0,0 +1,5 @@
+                 //EXAMPLE 4-16        PG NO-236-237;

+VA=1.96;

+VB=3.2;

+IBA=(VB-VA)/2;

+disp(' CURRENT is = '+string(IBA)+' A');

diff --git a/1760/CH4/EX4.17/EX4_17.sce b/1760/CH4/EX4.17/EX4_17.sce
new file mode 100755
index 000000000..9aeb0e3db
--- /dev/null
+++ b/1760/CH4/EX4.17/EX4_17.sce
@@ -0,0 +1,5 @@
+                //EXAMPLE 4-17     PG NO-237

+A=8.08;                      //POTENTIAL

+B=7.942;                    //POTENTIAL

+VAB=A-B;                  //POTENTIAL DIFFERENCE

+disp(' POTENTIAL DIFFERENCE is = '+string(VAB)+' V');

diff --git a/1760/CH4/EX4.19/EX4_19.sce b/1760/CH4/EX4.19/EX4_19.sce
new file mode 100755
index 000000000..dbe77b156
--- /dev/null
+++ b/1760/CH4/EX4.19/EX4_19.sce
@@ -0,0 +1,9 @@
+                         //EXAMPLE 4-19            PG NO-236

+i1=11.06;

+i2=5.34;

+i3=1.907;

+IPR=i2-i3;

+disp(' CURRENT is = '+string(IPR)+' A');

+IRS=i2;

+VRS=IRS*10^-3*15*10^3;

+disp(' VOLTAGE is = '+string(VRS)+' A');   

diff --git a/1760/CH4/EX4.21/EX4_21.sce b/1760/CH4/EX4.21/EX4_21.sce
new file mode 100755
index 000000000..2e1032ce4
--- /dev/null
+++ b/1760/CH4/EX4.21/EX4_21.sce
@@ -0,0 +1,18 @@
+                      //EXAMPLE 4-21         PG NO-239

+I1=4.46;

+I2=9.46;

+I3=10;

+I4=6.22;

+V1=110.8;

+IAB=I1

+disp(' CURRENT is = '+string(IAB)+' A');

+ICD=I2;

+disp(' CURRENT is = '+string(ICD)+' A');

+IFE=I3-I1;

+disp(' CURRENT is = '+string(IFE)+' A');

+IDE=I2-I4;

+disp(' CURRENT is = '+string(IDE)+' A');

+IHG=I4;

+disp(' CURRENT is = '+string(IHG)+' A');

+I5=5*V1

+disp(' CURRENT is = '+string(I5)+' A');

diff --git a/1760/CH4/EX4.22/EX4_22.sce b/1760/CH4/EX4.22/EX4_22.sce
new file mode 100755
index 000000000..da83dcdb9
--- /dev/null
+++ b/1760/CH4/EX4.22/EX4_22.sce
@@ -0,0 +1,8 @@
+                        //EXAMPLE 4-22           PG NO-39-240

+R1=50;

+R2=20;

+R3=10;

+V1=50;

+V2=100;

+V=[(V1/R1)+(V2/R2)]/[(1/50)+(1/20)+(1/10)];

+disp(' Voltage is = '+string(V)+' V');

diff --git a/1760/CH4/EX4.23/EX4_23.sce b/1760/CH4/EX4.23/EX4_23.sce
new file mode 100755
index 000000000..537a56597
--- /dev/null
+++ b/1760/CH4/EX4.23/EX4_23.sce
@@ -0,0 +1,5 @@
+                     //EXAMPLE 4-23       PG NO-240

+I1=-3/19;

+V=12.632;

+I6=I1+1;

+disp(' CURRENT is = '+string(I6)+' A');

diff --git a/1760/CH4/EX4.24/EX4_24.sce b/1760/CH4/EX4.24/EX4_24.sce
new file mode 100755
index 000000000..f692a3dce
--- /dev/null
+++ b/1760/CH4/EX4.24/EX4_24.sce
@@ -0,0 +1,8 @@
+                        //EXAMPLE 4-24     PG NO-240-241

+I1=9;

+I2=2.5;

+I3=2;

+IR3=I2-I3;

+disp(' CURRENT is = '+string(IR3)+' A');

+V=13.5;

+disp(' VOLTAGE is = '+string(V)+' V');

diff --git a/1760/CH4/EX4.25/EX4_25.sce b/1760/CH4/EX4.25/EX4_25.sce
new file mode 100755
index 000000000..cfcd1654e
--- /dev/null
+++ b/1760/CH4/EX4.25/EX4_25.sce
@@ -0,0 +1,8 @@
+                           //EXAMPLE 4-25         PG NO-241

+   //31-15I1-(I1-I2)+10V1=0

+   //-10V1-(I2-I1)-4I2=0;

+   //V1=31-5I1;

+I1=5;

+disp('i) Current (I1)   is     =  '+string (I1) +' A   ');

+I2=-11;

+disp('ii) Current (I2)   is     =  '+string (I2) +' A   ');

diff --git a/1760/CH4/EX4.28/EX4_28.sce b/1760/CH4/EX4.28/EX4_28.sce
new file mode 100755
index 000000000..98cecfea4
--- /dev/null
+++ b/1760/CH4/EX4.28/EX4_28.sce
@@ -0,0 +1,12 @@
+                            //EXAMPLE 4-28         PG  NO-243

+I1=1.42;

+I2=1.683;

+I3=0.325;

+Iba=I2-I1;

+disp(' CURRENT is = '+string(Iba)+' A');

+Ibd=I1-I3;

+disp(' CURRENT is = '+string(Ibd)+' A');

+Iac=I2;

+disp(' CURRENT is = '+string(Iac)+' A');

+Icd=I3;

+disp(' CURRENT is = '+string(Icd)+' A');

diff --git a/1760/CH4/EX4.29/EX4_29.sce b/1760/CH4/EX4.29/EX4_29.sce
new file mode 100755
index 000000000..185c2be8c
--- /dev/null
+++ b/1760/CH4/EX4.29/EX4_29.sce
@@ -0,0 +1,5 @@
+                      //EXAMPLE 4-29             PG NO-243

+I1=2;                               //CURRENT

+R=3;                                //RESISTANCE

+P=I1*I1*R;                            //POWER

+disp(' POWER is = '+string(P)+' W');

diff --git a/1760/CH4/EX4.30/EX4_30.sce b/1760/CH4/EX4.30/EX4_30.sce
new file mode 100755
index 000000000..189b3b11b
--- /dev/null
+++ b/1760/CH4/EX4.30/EX4_30.sce
@@ -0,0 +1,4 @@
+                      //EXAMPLE 4-30           PG NO-244

+I3=-0.882;

+I=-I3;

+disp(' CURRENT is = '+string(I)+' A');

diff --git a/1760/CH4/EX4.32/EX4_32.sce b/1760/CH4/EX4.32/EX4_32.sce
new file mode 100755
index 000000000..f7f3cbf87
--- /dev/null
+++ b/1760/CH4/EX4.32/EX4_32.sce
@@ -0,0 +1,16 @@
+                              //EXAMPLE 4-32        PG NO-245-246

+Vb=4.55;

+Vc=2.57;

+Vd=3.165;

+Iab=2*(-Vb+9);

+disp(' CURRENT is = '+string(Iab)+' A');

+Ida=2*Vd;

+disp(' CURRENT is = '+string(Ida)+' A');

+Ibc=Vb-Vc;

+disp(' CURRENT is = '+string(Ibc)+' A');

+Idc=Vd-Vc;

+disp(' CURRENT is = '+string(Idc)+' A');

+Ibd=5*(Vb-Vd);

+disp(' CURRENT is = '+string(Ibd)+' A');

+Ica=Vc;

+disp(' CURRENT is = '+string(Ica)+' A');

diff --git a/1760/CH4/EX4.36/EX4_36.sce b/1760/CH4/EX4.36/EX4_36.sce
new file mode 100755
index 000000000..1b0256770
--- /dev/null
+++ b/1760/CH4/EX4.36/EX4_36.sce
@@ -0,0 +1,24 @@
+                           //EXAMPLE 4-36         PG NO-250-251

+I1=0.3;

+I2=-1.1;

+V1=2*I1;

+disp(' VOLTAGE is = '+string(V1)+' V');

+V2=2*I2;

+disp(' VOLTAGE is = '+string(V2)+' V');

+V3=-5;

+disp(' VOLTAGE is = '+string(V3)+' A');

+V4=-(2*I1)+4;

+disp(' VOLTAGE is = '+string(V4)+' V');

+V5=2.8;

+IAB=V4/2;

+disp(' CURRENT is = '+string(IAB)+' A');

+IAD=V5/2;

+disp(' CURRENT is = '+string(IAD)+' A');

+IAC=-V3/2;

+disp(' CURRENT is = '+string(IAC)+' A');

+IDB=V1/2;

+disp(' CURRENT is = '+string(IDB)+' A');

+IDC=-V2/2;

+disp(' CURRENT is = '+string(IDC)+' A');

+I=IAB+IAD+IAC-2;

+disp(' CURRENT is = '+string(I)+' A');

diff --git a/1760/CH4/EX4.37/EX4_37.sce b/1760/CH4/EX4.37/EX4_37.sce
new file mode 100755
index 000000000..845730218
--- /dev/null
+++ b/1760/CH4/EX4.37/EX4_37.sce
@@ -0,0 +1,14 @@
+                       //EXAMPLE 4-37           PG NO-251-252

+I1=5;

+I2=2;

+I3=1;

+IAB=I1;

+disp(' CURRENT is = '+string(IAB)+' A');

+IBE=I1-I2;

+disp(' CURRENT is = '+string(IBE)+' A');

+IBC=I2;

+disp(' CURRENT is = '+string(IBC)+' A');

+ICE=I2+I3;

+disp(' CURRENT is = '+string(ICE)+' A');

+IDC=I3;

+disp(' CURRENT is = '+string(IDC)+' A');

diff --git a/1760/CH4/EX4.38/EX4_38.sce b/1760/CH4/EX4.38/EX4_38.sce
new file mode 100755
index 000000000..28cfc5429
--- /dev/null
+++ b/1760/CH4/EX4.38/EX4_38.sce
@@ -0,0 +1,14 @@
+                            //EXAMPLE 4-38                PG NO-252-253

+VB=15;

+VC=6;

+V=20;

+IAB=(V-VB)/1;

+disp(' CURRENT is = '+string(IAB)+' A');

+IBE=VB/IAB;

+disp(' CURRENT is = '+string(IBE)+' A');

+IBC=(VB-VC)/4.5;

+disp(' CURRENT is = '+string(IBC)+' A');

+ICE=VC/2;

+disp(' CURRENT is = '+string(ICE)+' A');

+IDC=1;

+disp(' CURRENT is = '+string(IDC)+' A');

diff --git a/1760/CH4/EX4.4/EX4_4.sce b/1760/CH4/EX4.4/EX4_4.sce
new file mode 100755
index 000000000..8e078e79d
--- /dev/null
+++ b/1760/CH4/EX4.4/EX4_4.sce
@@ -0,0 +1,5 @@
+                      //EXAMPLE 4-4        PG NO-224

+A=[1 1 0 0 0 1;0 -1 1 -1 0 0;-1 0 -1 0 -1 0];

+A1=[1 0 -1;1 -1 0;0 1 -1;0 -1 0;0 0 -1;1 0 0];

+det(A*A1)=A*A1;

+disp('i) Numbers of trees  ([A*A^T]) is   =  '+string (det(A*A1)) +'  ');

diff --git a/1760/CH4/EX4.41/EX4_41.sce b/1760/CH4/EX4.41/EX4_41.sce
new file mode 100755
index 000000000..736fb8863
--- /dev/null
+++ b/1760/CH4/EX4.41/EX4_41.sce
@@ -0,0 +1,11 @@
+                                //EXAMPLE-4-41        PG NO-254

+I2=0.5;

+I3=1.5;

+R=11/3;

+V=I3*R;

+disp(' VOLTAGE is = '+string(V)+' V');

+R1=20/9;

+Req=(R*R1)/(R+R1);

+disp(' RESISTANCE is = '+string(Req)+' ohm');

+I=V/Req;

+disp(' CURRENT is = '+string(I)+' A');

diff --git a/1760/CH4/EX4.43/EX4_43.sce b/1760/CH4/EX4.43/EX4_43.sce
new file mode 100755
index 000000000..d8566c603
--- /dev/null
+++ b/1760/CH4/EX4.43/EX4_43.sce
@@ -0,0 +1,12 @@
+                   //EXAMPLE 4-43              PG NO-256-257

+X=[3 -1 -2;6 -1 -2;6 -5 -16];

+disp('i) Ditermenent X   is     =  '+string (det(X)) +'  ');

+X1=[0 -1 -2;80 -1 -2;40 -5 -16];

+V1=X1/X;

+disp('ii) Ditermenent V1   is     =  '+string (det(V1)) +' V ');

+X2=[3 0 -2;6 80 -2;6 40 -16];

+V3=X2/X;

+disp('iii) Ditermenent V3   is     =  '+string (det(V3)) +' V ');

+X3=[3 -1 0;6 -1 80;6 -5 40];

+V4=X3/X;

+disp('iv) Ditermenent V4   is     =  '+string (det(V4)) +' V ');

diff --git a/1760/CH4/EX4.44/EX4_44.sce b/1760/CH4/EX4.44/EX4_44.sce
new file mode 100755
index 000000000..ecae39e48
--- /dev/null
+++ b/1760/CH4/EX4.44/EX4_44.sce
@@ -0,0 +1,6 @@
+                      //EXAMPLE 4-44                 PG NO 257    

+                           //6I1+14I2=20    I1-I2=-6

+I1=-3.2;

+I2=2.8;

+disp('i) Current(I1)   is     =  '+string (I1) +' A '); 

+disp('Ii) Current (I2)   is     =  '+string (I2) +' A ');

diff --git a/1760/CH4/EX4.46/EX4_46.sci b/1760/CH4/EX4.46/EX4_46.sci
new file mode 100755
index 000000000..bf30e1cbb
--- /dev/null
+++ b/1760/CH4/EX4.46/EX4_46.sci
@@ -0,0 +1,12 @@
+                     //EXAMPLE 4-46           PG NO-258-259

+X1=[10 -104-%i*200;0 205+%i*150];

+X2=[200+%i*200 -104-%i*200;-104-%i*200 205+%i*150];

+I1=det(X1/X2);

+disp(' Current is  in polar form= '+string(I1)+' A');

+X3=[200+%i*200 10;-104-%i*200 0];

+X4=[200+%i*200 -104-%i*200;-104-%i*200 205+%i*150];

+I2=det(X3/X4);

+disp(' Current is in polar form = '+string(I2)+' A');

+V=10;                               //VOLTAGE

+P=V*5.1*10^-2;                       //POWERE

+disp(' POWER is = '+string(P)+' W');

diff --git a/1760/CH4/EX4.47/EX4_47.sce b/1760/CH4/EX4.47/EX4_47.sce
new file mode 100755
index 000000000..9f13e069d
--- /dev/null
+++ b/1760/CH4/EX4.47/EX4_47.sce
@@ -0,0 +1,6 @@
+                              //EXAMPLE 4-47   PG NO259-260

+I2=0;

+x=%i*1500;

+y=30+%i*30;

+V2=x/y;                    //VOLTAGE

+disp(' VOLTAGE is  in polar form = '+string(V2)+' V');

diff --git a/1760/CH4/EX4.48/EX4_48.sce b/1760/CH4/EX4.48/EX4_48.sce
new file mode 100755
index 000000000..96007baed
--- /dev/null
+++ b/1760/CH4/EX4.48/EX4_48.sce
@@ -0,0 +1,13 @@
+                        //EXAMPLE 4-48         PG NO-260

+Vm=63.43+%i*33.38;

+V=100+%i*0;

+V1=0+%i*50

+R1=5+%i*0;

+R2=8+%i*6;

+R3=12+%i*16;

+I1=(V-Vm)/R1;

+disp('i) Current (I1)   is     =  '+string (I1) +' A ');

+I2=(V1-Vm)/R2;

+disp('ii) Current (I2)   is     =  '+string (I2) +' A ');

+I3=(Vm)/R3;

+disp('iii) Current (I3)   is     =  '+string (I3) +' A ');

diff --git a/1760/CH4/EX4.49/EX4_49.sce b/1760/CH4/EX4.49/EX4_49.sce
new file mode 100755
index 000000000..cdd413da8
--- /dev/null
+++ b/1760/CH4/EX4.49/EX4_49.sce
@@ -0,0 +1,5 @@
+                             //EXAMPLE 4-49          PG NO  260-261

+Vm=[10 -0.25;%i*25  0.75+%i*0.5]/[0.45-%i*0.5 -0.25;-0.25 0.75+%i*0.5];

+disp('i) Voltage (Vm)   is     =  '+string (det(Vm)) +' V ');

+Vn=[0.45-%i*0.5 10;-0.25 0.75+%i*0.5]/[0.45-%i*0.5 10;-0.25 0.75+%i*0.5];

+disp('ii) Voltage (Vn)   is     =  '+string (det(Vn)) +' V ');

diff --git a/1760/CH4/EX4.50/EX4_50.sce b/1760/CH4/EX4.50/EX4_50.sce
new file mode 100755
index 000000000..ee843148e
--- /dev/null
+++ b/1760/CH4/EX4.50/EX4_50.sce
@@ -0,0 +1,9 @@
+                     //EXAMPLE 4-50        PG  NO 261-262

+I1=(17.32+%i*10)/(10+%i*10);

+VCA=I1*5;

+disp('i) VOLTAGE (VCA)   is     =  '+string (VCA) +' V   ');

+I2=(35.35-%i*35.35)/(5-%i*5);

+VBD=(-I2)*5;

+disp('ii) VOLTAGE (VBD)   is     =  '+string (VBD) +' V   ');

+VCD=VCA+VBD;

+disp('ii) VOLTAGE (VCD)   is     =  '+string (VCD) +' V   ');

diff --git a/1760/CH4/EX4.51/EX4_51.sce b/1760/CH4/EX4.51/EX4_51.sce
new file mode 100755
index 000000000..720609ca4
--- /dev/null
+++ b/1760/CH4/EX4.51/EX4_51.sce
@@ -0,0 +1,5 @@
+                     //EXAMPLE 4-51              PG NO-262

+X1=[14+%i*6 -%i*10  20+%i*0;-%i*10 24+%i*6 -8.66+%i*5;-%i*10 -(4-%i*4) 0];

+X2=[14+%i*6 -%i*10  -%i*10;-%i*10 24+%i*6 -(4-%i*4);-%i*10 -(4-%i*4) (34-%i*4)]

+I3=det(X1/X2);

+disp('i) Current (I3)   is     =  '+string (I3) +' A   ');

diff --git a/1760/CH4/EX4.52/EX4_52.sce b/1760/CH4/EX4.52/EX4_52.sce
new file mode 100755
index 000000000..f5e7d1b39
--- /dev/null
+++ b/1760/CH4/EX4.52/EX4_52.sce
@@ -0,0 +1,7 @@
+                             //EXAMPLE 4-52         PG NO-263

+X=[(6+%i*2)  (100+%i*0);(-6-%i*3.32)   0];

+X1=[(6+%i*2) (-6-%i*3.32); (-6-%i*3.32)  (16+%i*12)];

+I2=det(X/X1);

+disp('i) Current (I2)   is     =  '+string (I2) +' A   ');

+V=10*I2;

+disp('ii) VOLTAGE (V)   is     =  '+string (V) +' V   ');

diff --git a/1760/CH4/EX4.56/EX4_56.sce b/1760/CH4/EX4.56/EX4_56.sce
new file mode 100755
index 000000000..a957b17eb
--- /dev/null
+++ b/1760/CH4/EX4.56/EX4_56.sce
@@ -0,0 +1,5 @@
+                       //EXAMPLE 4-56    PG NO-265 

+I1=5.92-%i*4.833;

+V=12+%i*0;

+Z=V/I1;

+disp('i) Input Impedance (Z)   is     =  '+string (Z) +' ohm   ');

diff --git a/1760/CH4/EX4.57/EX4_57.sce b/1760/CH4/EX4.57/EX4_57.sce
new file mode 100755
index 000000000..7e5171985
--- /dev/null
+++ b/1760/CH4/EX4.57/EX4_57.sce
@@ -0,0 +1,9 @@
+                                      //EXAMPLE 4-57        PG N 265-266

+Z1=[200 +%i*4;0 5+%i*10];

+Z2=[2+%i*5 %i*4;%i*4 5+%i*10];

+I1=det(Z1/Z2);

+disp('i) Current (I1)   is     =  '+string (I1) +' A   ');

+Z3=[2+%i*5 %i*4;%i*4 5+%i*10];

+Z4=[2+%i*5 %i*4;%i*4 5+%i*10];

+I2=det(Z3/Z4);

+disp('ii) Current (I2)   is     =  '+string (I2) +' A   ');

diff --git a/1760/CH4/EX4.58/Ex4_58.sce b/1760/CH4/EX4.58/Ex4_58.sce
new file mode 100755
index 000000000..e7f942f5c
--- /dev/null
+++ b/1760/CH4/EX4.58/Ex4_58.sce
@@ -0,0 +1,15 @@
+

+// Example : 4.58

+   

+v1=233.73-%i*8.934;

+vs=240+%i*0;

+r1=0.6+%i*0.8;

+i1=(vs-v1)/r1;

+disp('the value of I1 is = '+string(i1)+' Amp');

+r2=0.5+%i*0.866;

+vs1=239.5-%i*14.359;

+i2=(vs1-v1)/r2;

+disp('the value of I1 is = '+string(i2)+' Amp');

+r3=16+%i*12;

+il=i1/r3;

+disp('the value of I1 is = '+string(il)+' Amp');

diff --git a/1760/CH4/EX4.6/EX4_6.sce b/1760/CH4/EX4.6/EX4_6.sce
new file mode 100755
index 000000000..ffa4865b8
--- /dev/null
+++ b/1760/CH4/EX4.6/EX4_6.sce
@@ -0,0 +1,13 @@
+             //  EXAMPLE 4-6           PG NO-228

+I1=-2.59*10^-3;

+I2=-1.45*10^-3;

+IR1=I1;

+disp('i) CURRENT  (IR1) is     from A  to B  =  '+string (IR1) +' A ');

+IR2=I2;

+disp('ii) CURRENT  (IR2) is     from B  to E  =  '+string (IR2) +' A ');

+IR3=I1-I2;

+disp('iii) CURRENT  (IR1) is     from B  to C  =  '+string (IR3) +' A ');

+IR4=I1;

+disp('vi) CURRENT  (IR4) is     from C  to F  =  '+string (IR4) +' A ');

+IR5=I2;

+disp('v) CURRENT  (IR1) is     from D  to C  =  '+string (IR5) +' A ');

diff --git a/1760/CH4/EX4.62/EX4_62.sce b/1760/CH4/EX4.62/EX4_62.sce
new file mode 100755
index 000000000..622c4593c
--- /dev/null
+++ b/1760/CH4/EX4.62/EX4_62.sce
@@ -0,0 +1,7 @@
+                      //EXAMPLE 4-61    PG NO-267-268

+I1=0.05-%i*6.49;

+I2=0.040+%i*0.02;

+R1=100;

+R2=4+%i*200;

+Vab=(R1*I2)-[R2*(I1-I2)];

+disp('i) VOLTAGE  (Vab) is    =  '+string (Vab) +' V ');

diff --git a/1760/CH4/EX4.8/EX4_8.sce b/1760/CH4/EX4.8/EX4_8.sce
new file mode 100755
index 000000000..f36d6673b
--- /dev/null
+++ b/1760/CH4/EX4.8/EX4_8.sce
@@ -0,0 +1,16 @@
+                        //EXAMPLE 4-8            PG  NO-230-231

+V=25;

+Vm=0.64;

+Vn=3.05;

+R1=5;

+R2=9.64

+I1=(V-R2)/R1

+disp('i) CURRENT  (I1) is       =  '+string (I1) +' A ');

+I2=R2/4;

+disp('ii) CURRENT  (I2) is     =  '+string (I2) +' A ');

+I3=(R2-Vn)/10;

+disp('iii) CURRENT  (I3) is     =  '+string (I3) +' A ');

+I4=(10-Vn)/8;

+disp('vi) CURRENT  (I4) is     =  '+string (I4) +' A ');

+I5=Vn/2;

+disp('v) CURRENT  (I5) is     =  '+string (I5) +' A ');

diff --git a/1760/CH4/EX4.9/EX4_9.sce b/1760/CH4/EX4.9/EX4_9.sce
new file mode 100755
index 000000000..13a39e004
--- /dev/null
+++ b/1760/CH4/EX4.9/EX4_9.sce
@@ -0,0 +1,19 @@
+                  //EXAMPLE 4-9      PG NO-232-233

+X=[40 -8 -20;-8 18 -6;-20 -6 36];

+Y=[24 -8 -20;0 18 -6;0 -6 36];

+Z=[40 24 -20;-8 0 -6;-20 0 36];

+U=[40 -8 24;-8 18 0;-20 -6 0]

+I1=det(Y/X);

+disp('CURRENT = '+string((I1))+' A');

+I2=det(Z/X);

+disp(' CURRENT = '+string(I2)+' A');

+I3=det(U/X);

+disp(' CURRENT is = '+string(I3)+' A');

+IR3=I2;

+disp(' CURRENT is = '+string(IR3)+' A');

+IR4=0;

+disp(' CURRENT is = '+string(IR4)+' A');

+IR5=I1-I3;

+disp(' CURRENT is = '+string(IR5)+' A');

+IR6=I3;

+disp(' CURRENT is = '+string(IR6)+' A');

diff --git a/1760/CH4/EX5.13/EX5_13.sce b/1760/CH4/EX5.13/EX5_13.sce
new file mode 100755
index 000000000..8991e7927
--- /dev/null
+++ b/1760/CH4/EX5.13/EX5_13.sce
@@ -0,0 +1,12 @@
+           //EXAMPLE 5-13  PG NO-305

+Z1=10+%i*0;

+Z2=-%i*5;

+Z3=3+%i*4;

+Z4=3-%i*4;

+Z5=10+%i*2.5;

+VTH=(Z1*Z2)/(Z3+Z2);

+ZTH=2+((20-%i*15)/(3-%i*1));

+ZL=VTH/(ZTH+Z5);

+disp('i) VOLTAGE (VTH) is   =  '+string (VTH)+'V ');

+disp('i) IMPEDANCE (ZTH) is   =  '+string (ZTH)+'ohm ');

+disp('i) IMPEDANCE (ZL) is   =  '+string (ZL)+'A ');