diff options
Diffstat (limited to '1760')
376 files changed, 4713 insertions, 0 deletions
diff --git a/1760/CH1/EX1.1/EX1_1.sce b/1760/CH1/EX1.1/EX1_1.sce new file mode 100755 index 000000000..3ca981d6f --- /dev/null +++ b/1760/CH1/EX1.1/EX1_1.sce @@ -0,0 +1,8 @@ + //CHAPTER1 EX 1-1 PG NO 17
+L=5*10^-3; //length
+B=2*10^-2; //breath
+A=(5*10^-3)*(2*10^-2); //area
+P=1.72*10^-5 ; //resistivity of copper
+R=P*L/A; //resistance of copper
+disp('i) resistance = '+string (R)+' ohm');
+R=P*L/A; //resistance in ohm
diff --git a/1760/CH1/EX1.11/EX1_11.sce b/1760/CH1/EX1.11/EX1_11.sce new file mode 100755 index 000000000..941de13e3 --- /dev/null +++ b/1760/CH1/EX1.11/EX1_11.sce @@ -0,0 +1,12 @@ + //EXAMPLE 1-11 PG NO-21
+R55=58; //resistance
+R15=50; //Resistance
+T1=55; //Temperature
+T2=15; //Temperature
+A15=[(R55/R15)-1]/(T1-T2); //alpha 15
+disp('i) ALPHA (A15) = '+string (A15)+' ');
+T3=0;
+A2=A15/[1+A15*(T3-T2)]; //Alpha 2
+disp('ii) ALPHA (A2) = '+string (A2)+' ');
+
+
diff --git a/1760/CH1/EX1.13/EX1_13.sce b/1760/CH1/EX1.13/EX1_13.sce new file mode 100755 index 000000000..8b9c6f7bc --- /dev/null +++ b/1760/CH1/EX1.13/EX1_13.sce @@ -0,0 +1,5 @@ + //EXAMPLE 1-13 PG NO 21-22
+R=10; //RESISTANCE
+V=230; //VOLTAGE
+P=(V*V)/R; //POWER
+disp('i) POWER = '+string (P)+' W')
diff --git a/1760/CH1/EX1.14/EX1_14.sce b/1760/CH1/EX1.14/EX1_14.sce new file mode 100755 index 000000000..19b9d60bb --- /dev/null +++ b/1760/CH1/EX1.14/EX1_14.sce @@ -0,0 +1,8 @@ + //EXAMPLE 1-14 PG NO-22
+R1=4; //Resistance
+R2=2; //Resistance
+R3=8; //Resistance
+RS=R1+R2; //resistance When Point A&B is short circuit
+disp('i)resistance When Point A&B is short circuit = '+string (RS)+' ohm');
+RO=R1+R2+R3; //resistance When Point A&B is open circuit
+disp('i)resistance When Point A&B is open circuit = '+string (RO)+' ohm');
diff --git a/1760/CH1/EX1.15/EX1_15.sce b/1760/CH1/EX1.15/EX1_15.sce new file mode 100755 index 000000000..9d5e77fc4 --- /dev/null +++ b/1760/CH1/EX1.15/EX1_15.sce @@ -0,0 +1,17 @@ + //EXAMPLE 1-15 PG NO-22
+I1=0.04; //CURRENT
+I2=0.01; //CURRENT
+V1=200; //VOLTAGE
+R=V1/I1; //Resistance
+disp('i)resistance (R) = '+string (R)+' ohm');
+V2=10; //VOLTAGE
+I3=50; //CURRENT
+A=0.1; //AMMETER RESISTANCE
+R1=(V2/I3)-0.1;
+disp('i)Resistance (R1) = '+string (R1)+' ohm');
+V3=5000;
+V4=250;
+I=I3/V3;
+disp('i)Current (I) = '+string (I)+' A');
+R2=(V4-I3)/I;
+disp('i)resistance (R2) = '+string (R2)+' ohm');
diff --git a/1760/CH1/EX1.16/EX1_16.sce b/1760/CH1/EX1.16/EX1_16.sce new file mode 100755 index 000000000..c3b2022b1 --- /dev/null +++ b/1760/CH1/EX1.16/EX1_16.sce @@ -0,0 +1,16 @@ + //EXAMPLE 1-16 PG NO-23
+V=1; //ASSUMING
+t=1; //ASSUMING
+R1=30; //RESISTANCE
+R2=20;
+R3=10;
+E30=(V/R1)*t; //ENERGY AT 30 ohm RESISTANCE
+disp('i) ENERGY = '+string (E30)+' ');
+E20=(V/R2)*t; //ENERGY AT 20 ohm RESISTANCE
+disp('ii) ENERGY = '+string (E20)+' ');
+E10=(V/R3)*t; //ENERGY AT 10 ohm RESISTANCE
+disp('iii) ENERGY = '+string (E10)+' ');
+TE=E30+E20+E10; //TOTAL ENERGY
+disp('iv) TOTAL ENERGY = '+string (TE)+' ');
+PTE=(E30/TE)*100; //PERCENTAGE OF TOTAL ENERGY
+disp('ii) PERCENTAGE OF TOTAL ENERGY = '+string (PTE)+'% ');
diff --git a/1760/CH1/EX1.17/EX1_17.sce b/1760/CH1/EX1.17/EX1_17.sce new file mode 100755 index 000000000..f74260575 --- /dev/null +++ b/1760/CH1/EX1.17/EX1_17.sce @@ -0,0 +1,8 @@ + //EXAMPLE 1-17 PG NO-23
+N=10^3; //Number of Turns
+a=6.25*10^-4; //Diameter
+l=0.25;
+L=(N*N*4*%pi*10^-7*a)/(%pi*l); //INDUCTANCE
+disp('i)inductance = '+string (L)+' H');
+e=L*100; //EMF
+disp('ii)EMF = '+string (e)+' V')
diff --git a/1760/CH1/EX1.18/EX1_18.sce b/1760/CH1/EX1.18/EX1_18.sce new file mode 100755 index 000000000..54cf4666c --- /dev/null +++ b/1760/CH1/EX1.18/EX1_18.sce @@ -0,0 +1,5 @@ + //EXAMPLE 1-18 PG NO-23
+E=0.05; //ENERGY
+i=0.1; //CURRENT
+L=2*E/i^2 //INDUCTANCE OF COIL
+disp('i)inductance = '+string (L)+' H')
diff --git a/1760/CH1/EX1.19/EX1_19.sce b/1760/CH1/EX1.19/EX1_19.sce new file mode 100755 index 000000000..dd8611a2d --- /dev/null +++ b/1760/CH1/EX1.19/EX1_19.sce @@ -0,0 +1,6 @@ + //EXAMPLE 1-19 PG NO 23
+i=0.184 //derivative of I
+e=0.16;
+L=e/i; //Inductance
+disp('i)Inductance = '+string (L)+' H')
+
diff --git a/1760/CH1/EX1.2/EX1_2.sce b/1760/CH1/EX1.2/EX1_2.sce new file mode 100755 index 000000000..d727de114 --- /dev/null +++ b/1760/CH1/EX1.2/EX1_2.sce @@ -0,0 +1,8 @@ + //EXAMPLE 1-2 PG NO 18
+R=0.69; //RESISTANCE
+P=2.83*10^-8; //PRO
+L=60; //LENGTH OF CABLE
+a=(P*L)/R;
+disp('i) a = '+string (a)+' m^2');
+D=[(4*a)/%pi]^0.5; //DIAMETER
+disp('i) DIAMETER = '+string (D)+' mm');
diff --git a/1760/CH1/EX1.20/EX1_20.sce b/1760/CH1/EX1.20/EX1_20.sce new file mode 100755 index 000000000..16fa0ff3c --- /dev/null +++ b/1760/CH1/EX1.20/EX1_20.sce @@ -0,0 +1,14 @@ + //EXAMPLE 1-20 PG NO-24
+A=20*10^-6;
+L=30;
+P20=1.72*10^-8;
+R20=P20*L/A;
+X0=0.00426;
+I=5;
+X20=X0/[1+(X0*20)];
+R55=R20*(1+X20*(55-20));
+P=I*I*R55;
+disp('i)RESISTANCE = '+string (R20)+' ohm');
+disp('i) ALPHA 20(X20)= '+string(X20)+' ohm');
+disp('i)RESISTANCE = '+string (R55)+' ohm')
+disp('i)POWER = '+string (P)+' w')
diff --git a/1760/CH1/EX1.21/EX1_21.sce b/1760/CH1/EX1.21/EX1_21.sce new file mode 100755 index 000000000..4893e5cbc --- /dev/null +++ b/1760/CH1/EX1.21/EX1_21.sce @@ -0,0 +1,8 @@ + //EXAMPLE 1-21 PG NO-24
+L=200*10^-3; //INDUCTAR
+t1=1; //di/dt=(-2e^-t+4e^-2t)=-1.9*10^-7;
+V=L*(-1.94*10^-7); //VOLTAGE AT TIME 1
+disp('i) Voltage = '+string (V)+'V ');
+t2=0.1; //di/dt=(-2e^-t+4e^-2t)^2=0.216;
+V1=L*0.5*(0.216); //VOLTAGE AT TIME O.1
+disp('ii) Voltage = '+string (V1)+'V ');
diff --git a/1760/CH1/EX1.26/EX1_26.sce b/1760/CH1/EX1.26/EX1_26.sce new file mode 100755 index 000000000..3fd53db73 --- /dev/null +++ b/1760/CH1/EX1.26/EX1_26.sce @@ -0,0 +1,7 @@ + //EXAMPLE 1-26 PG NO 27
+L1=(1.1-0.8)/0.75; //Inductance
+disp('i)Inductance = '+string (L1)+' H')
+L2=3*L1; //Inductance
+disp('ii)Inductance = '+string (L2)+' H')
+
+
diff --git a/1760/CH1/EX1.27/EX1_27.sce b/1760/CH1/EX1.27/EX1_27.sce new file mode 100755 index 000000000..75eb95e65 --- /dev/null +++ b/1760/CH1/EX1.27/EX1_27.sce @@ -0,0 +1,10 @@ + //EXAMPLE 1-27 PG NO27
+L1=50*10^-3; // Inductar
+L2=100*10^-3; //Inductar
+X=(L1/L2);
+disp('i) (L1/L2) = '+string (X)+' ')
+Q1+Q2=600;
+Q11=200; //flux
+Q22=400 //flux
+disp('ii) Flux Q11 = '+string (Q11)+' mWb');
+disp('iii) Flux Q22 = '+string (Q22)+' mWb');
diff --git a/1760/CH1/EX1.28/EX1_28.sce b/1760/CH1/EX1.28/EX1_28.sce new file mode 100755 index 000000000..f557fc0f5 --- /dev/null +++ b/1760/CH1/EX1.28/EX1_28.sce @@ -0,0 +1,4 @@ + //EXAMPLE 1-28 PG NO-27
+C1=60; //TWO CAPACITOR CONNECTED IN SERIES
+EC=(C1*C1)/(C1+C1); //EQUIVALENT CAPACITOR
+disp('i) Equivalent Cpacitor (EC) is = '+string (EC) +' microF ');
diff --git a/1760/CH1/EX1.29/EX1_29.sce b/1760/CH1/EX1.29/EX1_29.sce new file mode 100755 index 000000000..a5f96c95f --- /dev/null +++ b/1760/CH1/EX1.29/EX1_29.sce @@ -0,0 +1,9 @@ + //EXAMPLE 1-29 PG NO-27-28
+C1=12; //CAPACITOR
+C2=4; //CAPACITOR
+C3=8;
+C4=7;
+C1=(C1*C2)/(C1+C2); //CAPACITOR IN SEREIS
+disp('i) Capacitor = '+string (C1)+' muF')
+C2=(C3*C4)/(C3+C4); //CAPACITOR IN PARALLEL
+disp('i) Capacitor = '+string (C2)+' muF')
diff --git a/1760/CH1/EX1.3/EX1_3.sce b/1760/CH1/EX1.3/EX1_3.sce new file mode 100755 index 000000000..be1fd8fc8 --- /dev/null +++ b/1760/CH1/EX1.3/EX1_3.sce @@ -0,0 +1,9 @@ + //EXAMPLE 1-3 PG NO-18
+A20=0.00393; //ALPHA 20
+R30=1.3; //RESITANCE 30
+A30=A20/(1+A20*(30-20)); //ALPHA 30
+disp('i)Alpha30 (A30) = '+string (A30)+' ');
+T=[((1.6/1.3)-1)/0.00378]; // THE RISE IN TEMPERATURE TO BE FIND where T=t-30
+disp('ii)Resistance Temperature (t-30) = '+string (T)+' degree celcious');
+
+
diff --git a/1760/CH1/EX1.30/EX1_30.sce b/1760/CH1/EX1.30/EX1_30.sce new file mode 100755 index 000000000..766918d85 --- /dev/null +++ b/1760/CH1/EX1.30/EX1_30.sce @@ -0,0 +1,13 @@ + //EXAMPLE 1-30 PG NO-28
+Q=80*10^-4; //COULUMB CHARGR
+C=150*10^-6;
+C1=100*10^-6; //CAPACITANCE
+C2=50*10^-6;
+Va=Q/C1;
+Vb=Q/C2;
+E1=(0.5*C1*Va*Va)+(0.5*C2*Vb*Vb); //ENERGY
+E2=0.5*C*(Va+Vb)*(Va+Vb);
+disp('i)variable = '+string (Va)+' ohm')
+disp('i)variable = '+string (Vb)+' ohm')
+disp('i)energy = '+string (E1)+' J')
+disp('i)energy = '+string (E2)+' J')
diff --git a/1760/CH1/EX1.32/EX1_32.sce b/1760/CH1/EX1.32/EX1_32.sce new file mode 100755 index 000000000..7fccf02ae --- /dev/null +++ b/1760/CH1/EX1.32/EX1_32.sce @@ -0,0 +1,9 @@ + //EXAMPLE 1-32 PG NO-29
+V=10; //VOLTAGE
+R1=2;
+R2=8; //RESISTANCE
+I1=V/(R1+R2); //CURRENT
+I2=1.25; //CURRENT THROUGH SECOND BRANCH
+R=V/I2-5;
+disp('i)CURRENT = '+string (I1)+' A')
+disp('ii)RESISTANCE = '+string (R)+' ohm')
diff --git a/1760/CH1/EX1.33/EX1_33.sce b/1760/CH1/EX1.33/EX1_33.sce new file mode 100755 index 000000000..e0de79384 --- /dev/null +++ b/1760/CH1/EX1.33/EX1_33.sce @@ -0,0 +1,9 @@ + //EXAMPLE 1-33 PG NO-29-30
+R1=29980; //RESISTANCE
+I1=9.99; //current
+R2=20;
+I2=0.01; //current
+r=20*0.01/9.99; //resistance
+disp('i)resistance = '+string (r)+' ohm')
+
+
diff --git a/1760/CH1/EX1.34/EX1_34.sce b/1760/CH1/EX1.34/EX1_34.sce new file mode 100755 index 000000000..80334f0be --- /dev/null +++ b/1760/CH1/EX1.34/EX1_34.sce @@ -0,0 +1,6 @@ + //Example 1-34 PG NO-30
+V=20; //VOLTAGE
+R1=5; //Resistance
+X=7.5;
+P=(20/(R1+X))^2*(X); //Power
+disp('i) Power (P) is = '+string (P) +' W ');
diff --git a/1760/CH1/EX1.35/EX1_35.sce b/1760/CH1/EX1.35/EX1_35.sce new file mode 100755 index 000000000..3f76e1c75 --- /dev/null +++ b/1760/CH1/EX1.35/EX1_35.sce @@ -0,0 +1,25 @@ + //EXAMPLE 1-35 PG NO 30-31
+I1=4; //Current
+I2=6; //Current
+V=110; //Voltage
+Vab1=V-(6+4)*2;
+VB=80;
+VC=50;
+R11=(Vab1-VB)/I1;
+R12=(Vab1-VC)/I2;
+Vab2=V-(-2+20)*2; //Voltage
+R21=(VB-Vab2)/2; //Resistance
+R22=(Vab2-VC)/20; //Resistance
+I=(V-VB)/2; //Current
+R=(VB-VC)/I; //Resistance
+disp('i)variable = '+string (Vab1)+' ohm')
+disp('ii)resistance = '+string (R11)+' ohm')
+disp('iii)resistance = '+string (R12)+' ohm')
+disp('iv)variable = '+string (Vab2)+' ohm')
+disp('v)resistance = '+string (R21)+' ohm')
+disp('vi)resistance = '+string (R22)+' ohm')
+disp('vii) resistance = '+string (R) + ' ohm')
+disp('viii) Current = '+string (I) + ' A')
+
+
+
diff --git a/1760/CH1/EX1.36/EX1_36.sce b/1760/CH1/EX1.36/EX1_36.sce new file mode 100755 index 000000000..37aeb0b7f --- /dev/null +++ b/1760/CH1/EX1.36/EX1_36.sce @@ -0,0 +1,20 @@ + //EXAMPLE 1-36 PG NO-31
+T=0.99425; //TIME
+disp('i)Time = '+string (T)+' seconds')
+X=0.37; //DERAVATIVES OF 'I' W.R.T
+disp('ii)(di\dt) = '+string (X)+' A\sec')
+LI=0.63; //CURRENT
+dli=0.37; // deravatives of 'SI' w.r.t
+disp('iii)(dsi\dt) = '+string (dli)+' Wb-turns\sec')
+VL=dli;
+disp('iv)(VL) = '+string (VL)+' V')
+Ri=0.63;
+VR=Ri;
+disp('v)VR = '+string (VR)+' V')
+E=0.5*LI*LI; //ENERGY
+disp('vi)ENERGY stored in magnetic field = '+string (E)+' J')
+E1=LI*v; //ENERGY STORED IN MAGNETIC FIELD
+H=Ri*Ri; //HEAT
+disp('vii) Rate of Energy stored in magnetic field = '+string (E1)+' W')
+disp('viii)Rate of dissipation of heat in resistor = '+string (H)+' W')
+disp('ix)Rate of supply of battery energy = '+string (Ri)+' W')
diff --git a/1760/CH1/EX1.37/EX1_37.sce b/1760/CH1/EX1.37/EX1_37.sce new file mode 100755 index 000000000..b41e6d73e --- /dev/null +++ b/1760/CH1/EX1.37/EX1_37.sce @@ -0,0 +1,11 @@ +T=2000; //TEMPERATURE
+T1=15; //ROOM TEMPERATURE
+V=220; //VOLTAGE
+P=40; //POWER
+A15=0.005;
+R=V*V/P; //RESISTANCE
+R15=R/(1+A15*(T-T1)); //RESISTANCE AT TIME OF SWITICHING
+I=V/R15; //CURRENT
+disp('i)resistance = '+string (R)+' ohm')
+disp('ii)resistance = '+string (R15)+' ohm')
+disp('iii)current = '+string (I)+' A')
diff --git a/1760/CH1/EX1.38/EX1_38.sce b/1760/CH1/EX1.38/EX1_38.sce new file mode 100755 index 000000000..895ed2271 --- /dev/null +++ b/1760/CH1/EX1.38/EX1_38.sce @@ -0,0 +1,12 @@ + //EXAMPLE 1-38 PG NO-32
+F=50; //Frequency
+W=2*%pi*F;
+disp('i)W = '+string (W)+' rad/sec');
+t=0.0025; //time
+Vm=10;
+A1=0.01;
+A2=0.005;
+i=[(A2*Vm^2)/2]+0.0707;
+disp('ii)Current = '+string (i)+' A')
+
+
diff --git a/1760/CH1/EX1.39/EX1_39.sce b/1760/CH1/EX1.39/EX1_39.sce new file mode 100755 index 000000000..fcbc6f6f8 --- /dev/null +++ b/1760/CH1/EX1.39/EX1_39.sce @@ -0,0 +1,10 @@ + //EXAMPLE 1-39 PG NO-32-33
+V=440; //voltage
+V1=5; //voltage
+R=40; //resistance
+V2=220;
+V3=100;
+Rv=(V3*R)/[V2-V3]; //insulation resistance
+disp('i)Resistance (Rv) = ' + string (Rv)+' Kohm')
+Ri=[Rv*(V-V1)]/V1; //insulation resistance
+disp('iii)Resistance(Ri) = '+string (Ri)+' Kohm')
diff --git a/1760/CH1/EX1.4/EX1_4.sce b/1760/CH1/EX1.4/EX1_4.sce new file mode 100755 index 000000000..3c796bad8 --- /dev/null +++ b/1760/CH1/EX1.4/EX1_4.sce @@ -0,0 +1,26 @@ + //EXAMPLE 1-4 PG NO 18-19
+R1=2.22; //RESISTANCE
+R2=0.6; //RESISTANCE
+R3=3; //Resistance
+R4=4;
+R5=5;
+R6=6;
+R7=2;
+R=R1+R2+R3;
+disp('i) Resistance (R) is = '+string ([R]) +' ohm ');
+V=12; //VOLTAGE
+I=V/R; //Current
+disp('ii) CURRENT (I) is = '+string ([I]) +' A ');
+I3=I; //CURRENT THROUGH 3 ohm RESISTANCE
+disp('iii) CURRENT (I3) is = '+string ([I3]) +' A ');
+I5=(I3*R4)/(R4+R5); //CURRENT THROUGH 5 ohm RESISTANCE
+disp('iv) CURRENT (I5) is = '+string ([I5]) +' A ');
+I4=(I3*R5)/(R4+R5); //CURRENT THROUGH 4 ohm RESISTANCE
+disp('v) CURRENT (I4) is = '+string ([I4]) +' A ');
+V1=1.236; //VOLTAGE ACROSS THREE PARALLEL RESISTANCE
+I2=V1/R7; //current
+disp('vi) CURRENT (I2) is = '+string ([I2]) +' A ');
+I1=V1; //CURRENT THROUGH 1 ohm RESISTANCE
+disp('iv) CURRENT (I1) is = '+string ([I1]) +' A ');
+I6=V1/R6; //CURRENT THROUGH 6 ohm RESISTANCE
+disp('vii) CURRENT (I6) is = '+string ([I6]) +' A ');
diff --git a/1760/CH1/EX1.40/EX1_40.sce b/1760/CH1/EX1.40/EX1_40.sce new file mode 100755 index 000000000..04ee8a821 --- /dev/null +++ b/1760/CH1/EX1.40/EX1_40.sce @@ -0,0 +1,5 @@ + //EXAMPLE 1-40 PG NO-33
+P=1.72*10^-8; //PRO
+t=0.03; //distance
+R=[(4*P)/(%pi*0.03)]*0.47; //Resistance
+disp('i) Resistance = '+string (R)+' ohm')
diff --git a/1760/CH1/EX1.41/EX1_41.sce b/1760/CH1/EX1.41/EX1_41.sce new file mode 100755 index 000000000..c3c8f4738 --- /dev/null +++ b/1760/CH1/EX1.41/EX1_41.sce @@ -0,0 +1,5 @@ + //EXAMPLE 1-41 PG NO-33
+P=1.72*10^-8; //PRO
+t=0.03;
+R=[(P*%pi)/(4*0.03*0.47)];
+disp('i) Resistance = '+string (R)+' ohm')
diff --git a/1760/CH1/EX1.42/EX1_42.sce b/1760/CH1/EX1.42/EX1_42.sce new file mode 100755 index 000000000..1cd48cb67 --- /dev/null +++ b/1760/CH1/EX1.42/EX1_42.sce @@ -0,0 +1,7 @@ + //EXAMPLE 1-42 PG NO-34
+P=100; //pro
+L=0.5; //inductance
+r1=0.15; //radius
+r2=0.075; //radius
+R=[100/(2*%pi*L)]*(0.731); //resistance
+disp('i) Resistance = '+string (R)+' ohm')
diff --git a/1760/CH1/EX1.44/EX1_44.sce b/1760/CH1/EX1.44/EX1_44.sce new file mode 100755 index 000000000..855d72a87 --- /dev/null +++ b/1760/CH1/EX1.44/EX1_44.sce @@ -0,0 +1,6 @@ + //EXAMPLE 1-44 PG NO-36
+R1=12; //Resistance
+R2=0.2; //Resistance
+R3=15;
+V1=[-(R2*R3)+R1]/3; //voltage drop
+disp('i) VOLTAGE = '+string (V1)+' V');
diff --git a/1760/CH1/EX1.46/EX1_46sce.sce b/1760/CH1/EX1.46/EX1_46sce.sce new file mode 100755 index 000000000..1d4620335 --- /dev/null +++ b/1760/CH1/EX1.46/EX1_46sce.sce @@ -0,0 +1,9 @@ + //EXAMPLE 1-46 PG NO37
+A=[85 -25;-25 135]; // Finding current
+B=[60;100];
+X=A\B; // current
+disp('i)CURRENT = '+string (X)+' A')
+I1=0.977;
+I2=0.922; //WE HAVE FOUNDED I1 and I2
+I3=I1-I2;
+disp('ii)CURRENT = '+string (I3)+' A')
diff --git a/1760/CH1/EX1.47/EX1_47.sce b/1760/CH1/EX1.47/EX1_47.sce new file mode 100755 index 000000000..39ce1a89e --- /dev/null +++ b/1760/CH1/EX1.47/EX1_47.sce @@ -0,0 +1,10 @@ + //EXAMPLE 1-48 PG NO-39-40
+R1=4; //Resistance
+R2=4; //Resistance
+R3=8; //Resistance
+RA=(R1*R2)/(R1+R2+R3);
+disp('i)RESISTANCE = '+string (RA)+' ohm');
+RB=(R1*R3)/(R1+R2+R3);
+disp('ii)RESISTANCE = '+string (RB)+' ohm');
+RC=(R2*R3)/(R1+R2+R3);
+disp('iii)RESISTANCE = '+string (RC)+' ohm')
diff --git a/1760/CH1/EX1.48/EX1_48.sce b/1760/CH1/EX1.48/EX1_48.sce new file mode 100755 index 000000000..37acdb962 --- /dev/null +++ b/1760/CH1/EX1.48/EX1_48.sce @@ -0,0 +1,10 @@ + //EXAMPLE 1-48 PG NO-39-40
+R1=6.8; //Resistance
+R2=15;
+R3=10;
+RA=(R1*R2)/(R1+R2+R3);
+disp('i)RESISTANCE = '+string (RA)+' ohm');
+RB=(R1*R3)/(R1+R2+R3);
+disp('ii)RESISTANCE = '+string (RB)+' ohm');
+RC=(R2*R3)/(R1+R2+R3);
+disp('iii)RESISTANCE = '+string (RC)+' ohm')
diff --git a/1760/CH1/EX1.5/EX1_5.sce b/1760/CH1/EX1.5/EX1_5.sce new file mode 100755 index 000000000..0687a896a --- /dev/null +++ b/1760/CH1/EX1.5/EX1_5.sce @@ -0,0 +1,11 @@ + //EXAMPLE 1-5 PG NO-19
+V1=230; //VOLTAGE ONE
+P1=1000; //POWER
+R=V1*V1/P1; //RESISTANCE OF HEATER
+V2=210; //VOLTAGE TWO
+P2=V2*V2/R; //POWER OF HEATER WHEN VOLTAGE IS 210
+R=(V1*V1)/P1 //Resistance
+disp('i)RESISTANCE = '+string (R)+' ohm');
+P2=(V2*V2)/R; //Power
+disp('ii)POWER = '+string (P2)+' ohm');
+
diff --git a/1760/CH1/EX1.50/EX1_50.sce b/1760/CH1/EX1.50/EX1_50.sce new file mode 100755 index 000000000..c2df79263 --- /dev/null +++ b/1760/CH1/EX1.50/EX1_50.sce @@ -0,0 +1,6 @@ + //EXAMPLE 1-50 PG NO-45
+TR=17/6; //TOTAL RESISTANCE
+V=40; //VOLTAGE
+I=5; //CURRENT
+Vs=(TR*I)-V;
+disp('i)VOLTAGE = '+string (Vs)+' V')
diff --git a/1760/CH1/EX1.51/EX1_51.sce b/1760/CH1/EX1.51/EX1_51.sce new file mode 100755 index 000000000..479ed07ad --- /dev/null +++ b/1760/CH1/EX1.51/EX1_51.sce @@ -0,0 +1,5 @@ + //EXAMPLE 1-51 PG NO-45-46
+TR=2.05; //TOTAL RESISTANCE
+V=2; //VOLTAGE
+P=V^2/TR; //ower
+disp('i)POWER = '+string (P)+' W')
diff --git a/1760/CH1/EX1.52/EX1_52.sce b/1760/CH1/EX1.52/EX1_52.sce new file mode 100755 index 000000000..e5251d944 --- /dev/null +++ b/1760/CH1/EX1.52/EX1_52.sce @@ -0,0 +1,11 @@ + //EXAMPLE 1-52 PG NO-46
+L1=1;
+L2=1;
+L3=1; //INDUCTANCE
+DL1=[(L1*L2)+(L2*L3)+(L3*L1)]/(L1*L2*L3);
+disp('i)DELTA INDUCTANCE = '+string (DL1)+' H')
+L4=1.5;
+L5=1.5; //Inductance
+L6=1.5;
+L=[L4*(L5+L6)]/[L4+L5+L6];
+disp('ii)INDUCTANCE = '+string (L)+' H')
diff --git a/1760/CH1/EX1.53/EX1_53.sce b/1760/CH1/EX1.53/EX1_53.sce new file mode 100755 index 000000000..9bfbd5a83 --- /dev/null +++ b/1760/CH1/EX1.53/EX1_53.sce @@ -0,0 +1,7 @@ + //EXAMPLE 1-53 PG NO-46-47
+R1=200; //RESISTANCE
+R2=50;
+R3=30;
+R4=20;
+Rab=[R1*(R2+R3+R4)]/(R1+R2+R3+R4); //equvalent resistance
+disp('i)RESISTANCE = '+string (Rab)+' ohm')
diff --git a/1760/CH1/EX1.6/EX1_6.sce b/1760/CH1/EX1.6/EX1_6.sce new file mode 100755 index 000000000..df83eb521 --- /dev/null +++ b/1760/CH1/EX1.6/EX1_6.sce @@ -0,0 +1,15 @@ + //EXAMPLE 1-6 PG NO-19-20
+I=12; //CURRENT
+V=230; //VOLTAGE
+P=1000; //POWER
+T=3; //TIME
+S=3600;
+E=(I*V/P)*T; //ENERGY USED
+Q=I*T*S; //QUANTITY OF ELECTRICITY USED
+IC=6.24*10^18;
+N.C=IC*Q; //NUMBER OF ELECTRON
+R=I*V; //RATE OF ENERGY
+disp('i) ENERGY = '+string (E)+' KWh');
+disp('ii) QUANTITY = '+string (Q)+' C');
+disp('iiI) NUMBER OF ELECTRON = '+string (N.C)+' ');
+disp('iiII) RATE OF ENERGY = '+string (R)+' W');
diff --git a/1760/CH1/EX1.7/EX1_7.sce b/1760/CH1/EX1.7/EX1_7.sce new file mode 100755 index 000000000..574ba2dd9 --- /dev/null +++ b/1760/CH1/EX1.7/EX1_7.sce @@ -0,0 +1,14 @@ + //Example 1_7 PG NO-20
+I1=3; //current
+I2=1; //current
+R=4; //Resistor
+I=I1-I2; //current through resistance
+disp('i)Current Through resistance (I) = '+string (I)+' A');
+P=I*I*R;
+disp('ii)Power dissipated in resistor (P) = '+string (P)+' W');
+V=I*R;
+disp('iii)voltage (V) = '+string (V)+' V');
+P1=V*I1; //power dissipated with 3A source
+disp('iv)power dissipated with 3A source (P1) = '+string (P1)+' W');
+
+
diff --git a/1760/CH2/EX2.1/EX2_1.sce b/1760/CH2/EX2.1/EX2_1.sce new file mode 100755 index 000000000..1a230834e --- /dev/null +++ b/1760/CH2/EX2.1/EX2_1.sce @@ -0,0 +1,16 @@ + //EXAMPLE-2-1 EXAMPLE-59
+t=0.5;
+x=115;
+z=310.6 //time
+A.V=0.2*x; //average value
+R.M.S=(1/10)*z; //rms value
+F=R.M.S/A.V; //form factor
+P.F=60/R.M.S; //peak factor
+S=60/(2)^0.5; //rms value of sine wave
+disp('i)R.M.S = '+string (R.M.S)+' V')
+disp('i) average value = '+string (A.V)+' V')
+disp('i)orm factor = '+string (F)+' ')
+disp('i peak factor = '+string (P.F)+' ')
+disp('i)sine wave = '+string (S)+' V')
+
+
diff --git a/1760/CH2/EX2.10/EX2_10.sce b/1760/CH2/EX2.10/EX2_10.sce new file mode 100755 index 000000000..5fbbc804e --- /dev/null +++ b/1760/CH2/EX2.10/EX2_10.sce @@ -0,0 +1,5 @@ + //EXAMPLE 2-10 PG NO-66
+I1=5; //current
+I2=7.071; //current
+RMS=(I1*I1+I2*I2)^0.5; //resultant rms value
+disp('i) RMS = '+string (RMS)+'A ')
diff --git a/1760/CH2/EX2.100/EX2_100.sce b/1760/CH2/EX2.100/EX2_100.sce new file mode 100755 index 000000000..80c004d56 --- /dev/null +++ b/1760/CH2/EX2.100/EX2_100.sce @@ -0,0 +1,6 @@ + //example 2.100 pg no-141
+L1=15;
+L2=35;
+M=10;
+K=M/((L1*L2)^0.5); //coefficient of coupling
+disp('i) COEFFICENT OF CUPLING (K) = '+string (K)+' ')
diff --git a/1760/CH2/EX2.102/EX2_102.sce b/1760/CH2/EX2.102/EX2_102.sce new file mode 100755 index 000000000..56ef079c2 --- /dev/null +++ b/1760/CH2/EX2.102/EX2_102.sce @@ -0,0 +1,8 @@ + //EXAMPLE 2-102 PG NO-142
+L1=0.3;
+L2=0.8; //INDUCTANCE
+K=0.7;
+M=K*sqrt(L1*L2);
+disp('i) M (M) is = '+string (M) +' H ');
+Lp=[(L1*L2)-M^2]/[L1+L2-(2*M)];
+disp('ii) Lp (Lp) is = '+string (Lp) +' H ');
diff --git a/1760/CH2/EX2.103/EX2_103.sce b/1760/CH2/EX2.103/EX2_103.sce new file mode 100755 index 000000000..47c35eaf7 --- /dev/null +++ b/1760/CH2/EX2.103/EX2_103.sce @@ -0,0 +1,18 @@ + //Example 2-103 pg no-142
+L1=10;
+L2=5;
+L3=6;
+M12=2;
+M23=1;
+M13=1;
+X=1 // X=di/dt
+V1=(L1*X)+(M12*X)+(M13*X);
+V2=(M12*X)+(L2*X)+(M23*X);
+V3=(-M13*X)+(-M23*X)+(L3*X);
+V=V1+V2+V3;
+Ls=L1+L2+L3+(2*M12)-(2*M23)-(2*M13);
+disp('i) V1 = '+string (V1)+' ')
+disp('ii) V2 = '+string (V2)+' ')
+disp('iii) V3 = '+string (V3)+' ')
+disp('iv) V = '+string (V)+' ')
+disp('v)equivlent indutance (Ls) = '+string (Ls)+' mH')
diff --git a/1760/CH2/EX2.104/EX2_104.sce b/1760/CH2/EX2.104/EX2_104.sce new file mode 100755 index 000000000..91633bf23 --- /dev/null +++ b/1760/CH2/EX2.104/EX2_104.sce @@ -0,0 +1,15 @@ + // Example-2.104 pg no-143
+L=38.5*10^-3;
+La=100*10^-3;
+Lb=53.8*10^-3;
+C=0.3; //CAPACITOR
+i=3;
+M=(C*L);
+E1=(0.5*La*(3^2)); //energy in seriesauding connection
+E2=(0.5*Lb*(i^2)); //ENERGY IN SERIES OPPOSING CONNECTION
+disp('i) M = '+string (M)+' H')
+disp('i) ENERGY aiding = '+string (E1)+' J')
+disp('i) ENERGY opposing = '+string (E2)+' J')
+
+
+
diff --git a/1760/CH2/EX2.105/EX2_105.sce b/1760/CH2/EX2.105/EX2_105.sce new file mode 100755 index 000000000..5f831c502 --- /dev/null +++ b/1760/CH2/EX2.105/EX2_105.sce @@ -0,0 +1,18 @@ + //EXAMPLE-2.105 PG-NO143
+N1=250; //number of turn
+I1=2; //current
+Q1=0.3*10^-3; //phi
+L1=(N1*Q1)/I1;
+V2=63.75;
+K=0.85;
+x=10^3; //x=di/dt
+M=V2/x;
+L2=((V2/K)^2)/((37.510^-3)^0.5);
+Q12=0.255*10^-3;
+y=1.275*10^-7; //y=dQ12/dt
+N2=V2/y
+;
+disp('i) L1 = '+string (L1)+' Tesla')
+disp('ii) M = '+string (M)+' ')
+disp('iii) L2 = '+string (L2)+' ')
+disp('iv) N2 = '+string (N2)+'')
diff --git a/1760/CH2/EX2.106/EX2_106.sce b/1760/CH2/EX2.106/EX2_106.sce new file mode 100755 index 000000000..89e13fb16 --- /dev/null +++ b/1760/CH2/EX2.106/EX2_106.sce @@ -0,0 +1,21 @@ + //EXAMPLE-2.106 PG NO-144
+Fo=35.59; //frequency in HZ
+V=50;
+R=100;
+I=V/R;
+L=0.5;
+XL=(2*%pi*Fo*L);
+V.I=XL*L; //VOLTAGE ACROSS INDUCTION
+XC=XL;
+Q=XC/R;
+S=L/Q;
+W2=323.55; //UPPER HALF REQUENCY
+W1=123.65; //LOWER HAL FREQUENCY
+B.W=W2-W1; // BAND WIDTH
+disp('i) INDUCTION = '+string (XL)+ ' ohm ');
+disp('i)VOLTAGE ACROSS INDUCTION = '+string (V.I)+ ' V ');
+disp('i) Q = '+string (Q)+ ' ');
+disp('i) REQUENCY = '+ string (S)+ ' ohm ');
+disp('i) BAND WIDTH = ' +string (B.W) + ' rad/sec');
+
+
diff --git a/1760/CH2/EX2.107/EX2_107.sce b/1760/CH2/EX2.107/EX2_107.sce new file mode 100755 index 000000000..3aebaf261 --- /dev/null +++ b/1760/CH2/EX2.107/EX2_107.sce @@ -0,0 +1,7 @@ + //EXAMPLE 2-107 PG NO-145
+Vm=100;
+RMS=Vm/{sqrt(3)};
+disp('i) RMS (RMS) is = '+string (RMS) +' ');
+AVG=50;
+FF=RMS/AVG;
+disp('ii) Form Factor (FF) is = '+string (FF) +' ');
diff --git a/1760/CH2/EX2.108/EX2_108.sce b/1760/CH2/EX2.108/EX2_108.sce new file mode 100755 index 000000000..78494ca34 --- /dev/null +++ b/1760/CH2/EX2.108/EX2_108.sce @@ -0,0 +1,5 @@ + //EXAMPLE 2-108 PG NO-146
+I1=(100/1.414)^2;
+I2=(10/1.414)^2;
+R.M.S=(I1+I2)^0.5;
+disp('R.M.S VALUE is = '+string(R.M.S)+' A');
diff --git a/1760/CH2/EX2.109/EX2_109.sce b/1760/CH2/EX2.109/EX2_109.sce new file mode 100755 index 000000000..690c4065a --- /dev/null +++ b/1760/CH2/EX2.109/EX2_109.sce @@ -0,0 +1,16 @@ + //EXAMPLE 2-109 PG NO-146
+V=200;
+I=10;
+W=314;
+Z=V/I;
+disp('i) IMPEDANCE (Z) is = '+string (Z) +' ohm ');
+R=Z*0.707;
+disp('ii) RESISTANCE (R) is = '+string (R) +' ohm ');
+XC=Z*0.707;
+disp('iv) INDUCTANCE (XC) is = '+string (XC) +' ohm ');
+C=1/(W*XC);
+disp('iv) CAPACITOR (C) is = '+string (C) +' F ');
+P=V*I*0.707;
+disp('i) Active Power (P) is in polar form = '+string (P) +' W ');
+Q=V*I*0.707;
+disp('i) Reactive Power (Q) is in polar form = '+string (Q) +' Var ');
diff --git a/1760/CH2/EX2.11/EX2_11.sce b/1760/CH2/EX2.11/EX2_11.sce new file mode 100755 index 000000000..ab39134e7 --- /dev/null +++ b/1760/CH2/EX2.11/EX2_11.sce @@ -0,0 +1,9 @@ + //EXAMPLE 2-11 PG NO-66
+W=314.16;
+PV=14.14; //PEAK VALUE
+t=0.0025; //TIME
+i=PV*sin(W*t); //CURRENT
+T=0.0175; //TOTAL TIME
+I=PV*sin(W*T);
+disp('ii) CURRNT (i) is = '+string (i) +' ');
+disp('ii) CURRNT (I) is = '+string (I) +' ');
diff --git a/1760/CH2/EX2.111/EX2_111.sce b/1760/CH2/EX2.111/EX2_111.sce new file mode 100755 index 000000000..c220a05c7 --- /dev/null +++ b/1760/CH2/EX2.111/EX2_111.sce @@ -0,0 +1,12 @@ + //EXAMPLE 2-111 PG NO-147
+VCB=2.49-%i*12.50;
+R=4+%i*2;
+I1=VCB/R;
+disp('i) CURRENT (I1) is in polar form = '+string (I1) +' A ');
+I2=2.5+%i*0;
+I=I1+I2;
+disp('i) CURRENT (I) is in polar form = '+string (I) +' A ');
+VAC=11.8-%i*0.12;
+VCB=2.5-%i*12.5;
+VAB=VAC+VCB;
+disp('i) VOLTAGE (VAB) is in polar form = '+string (VAB) +' V ')
diff --git a/1760/CH2/EX2.112/EX2_112.sce b/1760/CH2/EX2.112/EX2_112.sce new file mode 100755 index 000000000..8cbbe25a4 --- /dev/null +++ b/1760/CH2/EX2.112/EX2_112.sce @@ -0,0 +1,13 @@ + //EXAMPLE 2-112 PG NO-148
+I=5;
+R=25;
+Z=50;
+Z1=40;
+R1=[Z^2-R^2-1600]/50;
+disp('i) RESISTANCE (R1) is = '+string (R1) +' ohm ')
+X1=[1600-R1^2]^0.5;
+disp('ii) INDUCTANCE (X1) is = '+string (X1) +' ohm ')
+Pc=I*I*R1;
+disp('iii) Power (Pc) is = '+string (Pc) +' W ');
+P=I*I*(R+R1);
+disp('iv) Power (P) is = '+string (P) +' W ');
diff --git a/1760/CH2/EX2.113/EX2_113.sce b/1760/CH2/EX2.113/EX2_113.sce new file mode 100755 index 000000000..a413668ec --- /dev/null +++ b/1760/CH2/EX2.113/EX2_113.sce @@ -0,0 +1,13 @@ + //example-2.113 pg no -149
+Wo=9.798*10^3;
+Fo=1559.39;
+C=2;
+R=10*10^-6;
+L=10^-3;
+D.R=L/(C*R); //DYNAMIC RESISTANCE
+Q=(1/C)*((L/R)^0.5);
+B.W=Wo/Q; //BAND WIDTH
+disp('i) DYNAMIC RESISTANCE = '+string (D.R)+ ' ohm ');
+disp('ii) Q = '+string (Q)+' ');
+disp('iii) BAND WIDTH = '+string (B.W)+'rad/sec ');
+
diff --git a/1760/CH2/EX2.12/EX2_12.sce b/1760/CH2/EX2.12/EX2_12.sce new file mode 100755 index 000000000..91af2c4e0 --- /dev/null +++ b/1760/CH2/EX2.12/EX2_12.sce @@ -0,0 +1,13 @@ + //EXAMPLE 2-12 PG NO-66-67
+W1=80*%pi; //womega
+W2=100*%pi;
+PV=14.14; //peak value
+t1=0.025; //time
+t2=0.05;
+t3=0.075;
+I1=PV*(cos(80*%pi*t1)+cos(100*%pi*t1)); //current
+I2=PV*(cos(80*%pi*t2)+cos(100*%pi*t2)); //current
+I3=PV*(cos(80*%pi*t3)+cos(100*%pi*t3)); //current
+disp('ii) CURRNT (I) is = '+string (I1) +' A');
+disp('ii) CURRNT (I) is = '+string (I2) +' A ');
+disp('ii) CURRNT (I) is = '+string (I3) +' A ');
diff --git a/1760/CH2/EX2.13/EX2_13.sce b/1760/CH2/EX2.13/EX2_13.sce new file mode 100755 index 000000000..dd5ad47c2 --- /dev/null +++ b/1760/CH2/EX2.13/EX2_13.sce @@ -0,0 +1,5 @@ + //EXAMPLE 2-13 PG NO-67
+T=20*10^-3; //TIME PERIOD
+Ta=300*10^-3; //TOTAL AREA
+A=(Ta)/T; //AVERAGE VALUE
+disp('ii) AVERAGE VALUE (A) is = '+string (A) +' V ');
diff --git a/1760/CH2/EX2.14/EX2_14.sce b/1760/CH2/EX2.14/EX2_14.sce new file mode 100755 index 000000000..a54e5d1b9 --- /dev/null +++ b/1760/CH2/EX2.14/EX2_14.sce @@ -0,0 +1,9 @@ + //EXAMPLE 2-14 PG NO-67
+Ta=5; //TOTAL AREA
+T=20*10^-3; //TIME
+Av=Ta/T; //AVERAGE VALUE
+Ev=[Av]^0.5; //EFFECTIVE VALUE
+FF=Ev/15; //FORM FACTOR
+disp('ii) AVERAGE VALUE (Av) is = '+string (Av) +' ');
+disp('ii) EFFECTIVE VALUE (Ev) is = '+string (Ev) +' V ');
+disp('ii) FORM FACTOR (FF) is = '+string (FF) +' ');
diff --git a/1760/CH2/EX2.15/EX2_15.sce b/1760/CH2/EX2.15/EX2_15.sce new file mode 100755 index 000000000..70c5a3992 --- /dev/null +++ b/1760/CH2/EX2.15/EX2_15.sce @@ -0,0 +1,6 @@ +Eav=50; //in volts
+T=2; //time
+E=[(1/T)*2500*2.66]^0.5; //energy //integrate('0','t',2)=2.66
+disp('i) Energy = '+string (E)+'V ');
+FF=E/Eav; //form factor
+disp('i) Form Factor = '+string (FF)+' ');
diff --git a/1760/CH2/EX2.16/EX2_16.sce b/1760/CH2/EX2.16/EX2_16.sce new file mode 100755 index 000000000..06e39be48 --- /dev/null +++ b/1760/CH2/EX2.16/EX2_16.sce @@ -0,0 +1,6 @@ + //EXAMPLE 2-16 PG NO 68
+Eav=2.5; //AVERAGE ENERGY
+E=8.333;
+disp('i) ENERGY (E) is = '+string (sqrt(E)) +' V ');
+FF=sqrt(E)/Eav;
+disp('ii) Form Factor (FF) is = '+string (FF) +' ');
diff --git a/1760/CH2/EX2.17/EX2_17.sce b/1760/CH2/EX2.17/EX2_17.sce new file mode 100755 index 000000000..591b14e1b --- /dev/null +++ b/1760/CH2/EX2.17/EX2_17.sce @@ -0,0 +1,8 @@ + //EXAMPLE 2-17 PG NO-69
+I1=10; //CURRENT
+I2=-4;
+I3=2;
+I4=0;
+T=8; //TIME
+Irms=[({I1*I1*2}+{I2*I2*2}+{I3*I3*2}+{I4*I4*2})/T]^0.5; //RMS
+disp('ii) CURRENT R.M.S (Irms) is = '+string (Irms) +' A ');
diff --git a/1760/CH2/EX2.20/EX2_20.sce b/1760/CH2/EX2.20/EX2_20.sce new file mode 100755 index 000000000..be619521b --- /dev/null +++ b/1760/CH2/EX2.20/EX2_20.sce @@ -0,0 +1,8 @@ + //EXAMPLE 2-20 PG NO-70
+T=0.03; //TIME
+ // (1000*integrate('0','t',0.01,0.01))^2=-0.333
+ //100*integrate('0.01','t',0.02,0.02)=-1
+ //integrate('0.02', '',0.03,0.03)]=0
+V=(-0.33-1)/T;
+disp('i) Voltage (V) is = '+string (V) +' V ');
+disp('i) Square Root of Voltage (V) is = '+string (sqrt(-V)) +' seconds ');
diff --git a/1760/CH2/EX2.21/EX2_21.sce b/1760/CH2/EX2.21/EX2_21.sce new file mode 100755 index 000000000..0387e6b5a --- /dev/null +++ b/1760/CH2/EX2.21/EX2_21.sce @@ -0,0 +1,7 @@ + //EXAMPLE 2-21 PG NO-70
+T=0.05; //TIME
+ // (400*integrate('0','t',0.025,))^2=--0.8333
+ //100*integrate('0.01','t',0.02,0.02)=-1.738
+V=(-0.833-1.738*10^-86)/T;
+disp('i) Voltage (V) is = '+string (V) +' V ');
+disp('i) Square Root of Voltage (V) is = '+string (sqrt(-V)) +' seconds ');
diff --git a/1760/CH2/EX2.22/EX2_22.sce b/1760/CH2/EX2.22/EX2_22.sce new file mode 100755 index 000000000..82d76f87b --- /dev/null +++ b/1760/CH2/EX2.22/EX2_22.sce @@ -0,0 +1,5 @@ + //EXAMPLE 2-22 PG NO-70-71
+A=%pi/2;
+ //integrate(wt)=%pi/6
+Eavg=1/A*(%pi+%pi)/6;
+disp('i) Average Energy (Eavg) is = '+string (Eavg) +' Em ');
diff --git a/1760/CH2/EX2.23/EX2_23.sce b/1760/CH2/EX2.23/EX2_23.sce new file mode 100755 index 000000000..bcd7d07b7 --- /dev/null +++ b/1760/CH2/EX2.23/EX2_23.sce @@ -0,0 +1,9 @@ + //EXAMPLE 2-23 PG NO-71
+A=%pi/2;
+ //[integrate('0',wt,'%pi/3')]^2=%pi/9
+ //integrate('%pi/3',wt,'%pi/2')=%pi/6;
+E=1/A*[(%pi/9)+(%pi/6)];
+disp('i) Energy (E) is = '+string (E) +' ');
+disp('ii) Square Energy (E) is = '+string (sqrt(E)) +' ');
+FF=[sqrt(E)*3]/2;
+disp('iii) FORM FACTOR (FF) is = '+string (FF) +' ');
diff --git a/1760/CH2/EX2.24/EX2_24.sce b/1760/CH2/EX2.24/EX2_24.sce new file mode 100755 index 000000000..daa9d1f7f --- /dev/null +++ b/1760/CH2/EX2.24/EX2_24.sce @@ -0,0 +1,5 @@ + //EXAMPLE 2-24 PG NO 71
+//integration of is=1008sinQ^2=0.5
+I=150 //CURRENT
+disp('i) CURRENT (I^2) is = '+string (I) +' A ');
+disp('ii) CURRENT (I) is = '+string (sqrt(I)) +' A ');
diff --git a/1760/CH2/EX2.25/EX2_25.sce b/1760/CH2/EX2.25/EX2_25.sce new file mode 100755 index 000000000..5923c3d25 --- /dev/null +++ b/1760/CH2/EX2.25/EX2_25.sce @@ -0,0 +1,5 @@ + //EXAMPLE 2-25 PG NO-72
+V1=50+%i*0;
+V2=37.5-%i*64.95;
+X=V1+V2; //ADDITION OF V1&V2
+disp('ii) ADDITION (X) is in polar form = '+string (X) +' V ');
diff --git a/1760/CH2/EX2.26/EX2_26.sce b/1760/CH2/EX2.26/EX2_26.sce new file mode 100755 index 000000000..39841c894 --- /dev/null +++ b/1760/CH2/EX2.26/EX2_26.sce @@ -0,0 +1,21 @@ + //EXAMPLE 2-26 PG NO-72
+V=200;
+R=100;
+R1=500;
+R2=0.9009; //resistance
+RMS1=V/(R+R); //RMS
+disp('ii) CURRENT R.M.S in forward (R.M.S.1) is = '+string (RMS1) +' A ');
+RMS2=-V/(R+R1);
+disp('ii) CURRENT R.M.S in Backward (R.M.S.2) is = '+string (RMS2) +' A ');
+I1=RMS1*R2; //Current
+disp('ii) Average CURRENT in forward (I1) is = '+string (I1) +' A ');
+I2=RMS2*R2;
+disp('ii) Average CURRENT in Backward (I2) is = '+string (I2) +' A ');
+A=[I1+I2]/2; //Ammeter
+disp('ii) Reading of moving coil ammeter (A) is = '+string (A) +' A ');
+H.A=[0.5*[RMS1+(RMS2)^2]]^0.5; //HOT AMMETER
+disp('ii) Reading of hot wire ammeter (H.A) is = '+string (H.A) +' A ');
+P=0.5*[(RMS1*V)+(RMS2*RMS2*600)]; //POWER
+disp('ii) TOTAL AVERAGE POWER (P) is = '+string (P) +' W ');
+P1=0.5*[(RMS1*R)+(RMS2*RMS2*R1)];
+disp('ii) TOTAL POWER dissipated in rectifier (P) is = '+string (P1) +' W ');
diff --git a/1760/CH2/EX2.27/EX2_27.sce b/1760/CH2/EX2.27/EX2_27.sce new file mode 100755 index 000000000..b5ab798bb --- /dev/null +++ b/1760/CH2/EX2.27/EX2_27.sce @@ -0,0 +1,13 @@ + //EXAMPLE 2-27 PG NO 74
+F=50
+V=230; //voltage
+R=20; //resisance
+I=V/R; //current
+P=V*I; //power
+Im=I*1.414; //Maximum current
+W=2*%pi*F;
+disp(' current is = '+string(I)+' A');
+disp(' POWER is = '+string(P)+' W');
+disp(' MAXIMUM CURENT is = '+string(Im)+' A');
+disp(' W is = '+string(W)+' ');
+
diff --git a/1760/CH2/EX2.28/EX2_28.sce b/1760/CH2/EX2.28/EX2_28.sce new file mode 100755 index 000000000..0792c928c --- /dev/null +++ b/1760/CH2/EX2.28/EX2_28.sce @@ -0,0 +1,8 @@ + //EXAMPLE 2-28 PG NO-76
+F=50; //Frequency
+L=0.2; //inductance
+XL1=500;
+XL=(2*%pi*F*L);
+f=XL1/(2*%pi*L); //FREQUENCY
+disp(' XL is = '+string(XL)+' ohms');
+disp(' frequency is = '+string(f)+' Hz');
diff --git a/1760/CH2/EX2.29/EX2_29.sce b/1760/CH2/EX2.29/EX2_29.sce new file mode 100755 index 000000000..27530e094 --- /dev/null +++ b/1760/CH2/EX2.29/EX2_29.sce @@ -0,0 +1,11 @@ + //EXAMPLE 2-29 PG NO=77-78
+V=230;
+F=50; //Frequency
+C=10*10^-6; //Capacitor
+Xc=1/(%pi*2*F*C);
+Bc=1/Xc;
+I=V/Xc; //susceptance current
+disp(' Xc is = '+string(Xc)+' ohms');
+disp(' Bc is = '+string(Bc)+' siemens');
+disp(' Current is = '+string(I)+' A');
+
diff --git a/1760/CH2/EX2.3/EX2_3.sce b/1760/CH2/EX2.3/EX2_3.sce new file mode 100755 index 000000000..435ea0eaf --- /dev/null +++ b/1760/CH2/EX2.3/EX2_3.sce @@ -0,0 +1,14 @@ + //EXAMPLE 2-3 PG NO-59-60
+Vm=1;
+AV1=0.318*Vm; //avegare value
+RMS1=0.5*Vm; //RMS value
+FF1=RMS1/AV1; //Form Factor
+PF1=Vm/RMS1; //Peak Factor
+AV2=0.637*Vm; //Average value
+RMS2=0.707*Vm; //RMS value
+FF2=RMS2/AV2; //Form Factor
+PF2=Vm/RMS2; //Peak Factor
+disp('i)Form Factor = '+string (FF1)+' ')
+disp('i)peak Factor = '+string (PF1)+' ')
+disp('i)Form Factor = '+string (FF2)+' ')
+disp('i)PEAK Factor = '+string (PF2)+' ')
diff --git a/1760/CH2/EX2.30/EX2_30.sce b/1760/CH2/EX2.30/EX2_30.sce new file mode 100755 index 000000000..7342e908e --- /dev/null +++ b/1760/CH2/EX2.30/EX2_30.sce @@ -0,0 +1,27 @@ + //EXAMPLE 2-30 PG NO-81-82
+V=230+%i*0;
+F=50;
+L=0.03;
+R=20;
+XL=2*%pi*F*L;
+disp('i) INDUCTANCE (XL) is in polar form = '+string (XL) +' ohm ');
+Z=R+%i*XL;
+disp('ii) IMPEDANCE (Z) is in polar form = '+string (Z) +' ohm ');
+Y=1/Z;
+disp('iii) ADMITTANCE (Y) is in polar form = '+string (Y) +' siemens ');
+I=V/Z;
+disp('iv) CURRENT (I) is in polar form = '+string (I) +' A ');
+Vr=I*R;
+disp('v) VOLTAGE (Vr) is in polar form = '+string (Vr) +' V ');
+VL=%i*XL*I
+disp('vi) VOLTAGE (VL) is in polar form = '+string (VL) +' V ');
+Q=25.23; //TETA
+PF=cos(Q);
+disp('vi) POWER FACTOR (PF) is = '+string (PF) +' lagging ');
+P=V*I*cos(Q); //ACTIVE POWER
+disp('vi) ACTIVE POWER (P) is in polar form = '+string (P) +' W ');
+q=V*I*sin(Q)
+disp('vi) REACTIVE POWER (q) is in polar form = '+string (q) +' W ');
+S=230*10.4;
+disp('vi) APPARENT POWER (S) is in polar form = '+string (S) +' VA ');
+
diff --git a/1760/CH2/EX2.31/EX2_31.sce b/1760/CH2/EX2.31/EX2_31.sce new file mode 100755 index 000000000..a37bbd5cc --- /dev/null +++ b/1760/CH2/EX2.31/EX2_31.sce @@ -0,0 +1,13 @@ + //EXAMPLE 2-31 PG NO=82
+Z1=20.15+%i*15.18;
+Z2=6.99+%i*17.29;
+Z=Z1+Z2; //impedance
+V=230+%i*0;
+I=V/Z; //Current
+PF=0.64; //Power Factotr
+S=V*I; //Apparent Power
+P=S*PF; //Active Power
+disp(' Impedanceis in rectangular form = '+string(Z)+' ohm');
+disp(' current is in rectangular form = '+string(I)+' A');
+disp(' S is in rectangular form = '+string(S)+' VA');
+disp(' POWER is in rectangular form = '+string(P)+' W');
diff --git a/1760/CH2/EX2.32/EX2_32.sce b/1760/CH2/EX2.32/EX2_32.sce new file mode 100755 index 000000000..813c0bfaa --- /dev/null +++ b/1760/CH2/EX2.32/EX2_32.sce @@ -0,0 +1,12 @@ + //EXAMPLE 2-32 PG NO-83
+cos30=0.866;
+sin30=0.5;
+E1=141.42+%i*0;
+E2=144.566+%i*11.976;
+V=E1+141.42*(cos30 * sin30 );
+disp('1) Voltage is in rectangular form = '+string(V)+' W');
+Z=8+%i*6; //IMPEDANCE
+I=V/Z;
+disp('1) Current is in rectangular form = '+string(I)+' A');
+P=I*V*0.743;
+disp(' POWER is in rectangular form = '+string(P)+' W');
diff --git a/1760/CH2/EX2.33/EX2_33.sce b/1760/CH2/EX2.33/EX2_33.sce new file mode 100755 index 000000000..3469333f4 --- /dev/null +++ b/1760/CH2/EX2.33/EX2_33.sce @@ -0,0 +1,17 @@ + //EXAMPLE 2-33 PG NO-84-85
+V=230+%i*0; //Voltage
+F=50; //Frequency
+C=10^-4; //Capacitor
+R=10; //Resistance
+XC=1/[2*%pi*F*C]; //Capacitor
+disp('i) CAPACITOR (XC) is in polar form = '+string (XC) +' ohm ');
+Z=R-%i*XC; //Impedance
+disp('ii) IMPEDANCE (Z) is in polar form = '+string (Z) +' ohm ');
+Y=1/Z; //Admittance
+disp('iii) ADMITTANCE (Y) is in polar form = '+string (Y) +' siemens ');
+I=V/Z; //current
+disp('iv) CURRENT (I) is in polar form = '+string (I) +' A ');
+Vr=I*R; // Voltage
+disp('v) VOLTAGE (Vr) is in polar form = '+string (Vr) +' V ');
+VC=%i*XC*I //Voltage
+disp('vi) VOLTAGE (VL) is in polar form = '+string (VC) +' V ');
diff --git a/1760/CH2/EX2.34/EX2_34.sce b/1760/CH2/EX2.34/EX2_34.sce new file mode 100755 index 000000000..72af93785 --- /dev/null +++ b/1760/CH2/EX2.34/EX2_34.sce @@ -0,0 +1,8 @@ + //EXAMPLE 2-34 PG NO-85
+V=80+%i*60; //voltage
+I=-4+%i*10; //current
+Z=V/I; //Impedance
+PF=0.26; //power factor
+P=V*I*PF; //Power
+disp(' IMPEDANCE is in rectangular form = '+string(Z)+' ohm');
+disp(' POWER is in rectangular form = '+string(P)+' W');
diff --git a/1760/CH2/EX2.35/EX2_35.sce b/1760/CH2/EX2.35/EX2_35.sce new file mode 100755 index 000000000..5c262e374 --- /dev/null +++ b/1760/CH2/EX2.35/EX2_35.sce @@ -0,0 +1,23 @@ + //EXAMPLE-2-35 PG NO-86
+Vr=100; //VOLTAGE
+P=300; //POWER
+I=P/Vr; //CURRENT
+V=240; //voltage
+F=50; //frequency
+Z=V/I; //IMPEDANCE
+R=Vr/I;
+Xc=[Z^2-R^2]^0.5;
+C=1/[2*F*%pi*Xc]; //CAPACITOR
+Vc=[(V*V)-(Vr*Vr)]^0.5;
+Vm=sqrt(2)*Vc;
+Qm=(sqrt(2)*Vc)*(C); //CHARGE
+Em=0.5*[Xc*Vm*Vm]; //MAXIMUM ENERGY
+disp('i) CURRENT (I) is = '+string (I) +' A ');
+disp('ii) IMPEDANCE (Z) is = '+string (Z) +' ohm ');
+disp('iii) RESISTANCE (R) is = '+string (R) +' ohm ');
+disp('i) CAPACITOR (Xc) is = '+string (Xc) +' ohm ');
+disp('i) CAPACITOR (C) is = '+string (C) +' F ');
+disp('i) VOLTAGE (Vc) is = '+string (Vc) +' V ');
+disp('i) MAXIMUM VOLTAGE (Vm) is = '+string (Vm) +' V ');
+disp('i) MAXIMUM CHARGE (Qm) is = '+string (Qm) +' C ');
+disp('i) MAXIMUM ENERGY (Em) is = '+string (Em) +' J ');
diff --git a/1760/CH2/EX2.36/EX2_36.sce b/1760/CH2/EX2.36/EX2_36.sce new file mode 100755 index 000000000..e839d214b --- /dev/null +++ b/1760/CH2/EX2.36/EX2_36.sce @@ -0,0 +1,20 @@ + //EXAMPLE 2-36 PG NO-87
+F=50; //FREQUENCY
+L=0.2; //INDUCTANCE
+C=150*10^-6; //CAPACITOR
+R=20;
+V=230;
+XL=2*%pi*L*F;
+disp('i) INDUCTANCE (XL) is = '+string (XL) +' ohm ');
+XC=1/(2*%pi*F*C)
+disp('i) CAPACITOR (Xc) is = '+string (XC) +' ohm ');
+Z=R+%i*(XL-XC)
+disp('i) IMPEDANCE (Z) is in polar form = '+string (Z) +' ohm ');
+I=V/Z; //CURRENT
+disp('i) CURRENT (I) is in polar form = '+string (I) +' ohm ');
+AP=V*I; //APPARENT POWER
+disp('i) Apparent Power (AP) is in polar form = '+string (AP) +' VA ');
+P=V*I*0.433; //active power
+disp('i) ACTIVE POWER (P) is in polar form = '+string (P) +' W ');
+Q=V*I*0.9013; //Reactive Power
+disp('i) Reactive Power (Q) is in polar form = '+string (Q) +' vars ');
diff --git a/1760/CH2/EX2.37/EX2_37.sce b/1760/CH2/EX2.37/EX2_37.sce new file mode 100755 index 000000000..9e0faf887 --- /dev/null +++ b/1760/CH2/EX2.37/EX2_37.sce @@ -0,0 +1,17 @@ + //EXAMPLE 2-37 PG NO-88
+Xc=4;
+XL=6;
+R=2; //RESISTANCE
+v=8.48+%i*30;;
+Z=R+%i*(XL-Xc); //IMPEDANCE
+V=v;
+I=V/Z; //CURRENT
+VL=%i*I*XL;
+Vc=-%i*I*Xc;
+P=V*I*0.707; //ACTIVE POWER
+disp('i) Active Power = '+string(P)+' W');
+disp('ii) Impedance = '+string(Z)+' ohm');
+disp('iii) Current is = '+string(I)+' A');
+disp('iv) VL is = '+string(VL)+' V');
+disp('v)Vc is = '+string(Vc)+' V');
+
diff --git a/1760/CH2/EX2.38/EX2_38.sce b/1760/CH2/EX2.38/EX2_38.sce new file mode 100755 index 000000000..5a45160c6 --- /dev/null +++ b/1760/CH2/EX2.38/EX2_38.sce @@ -0,0 +1,15 @@ + //EXAMPLE 2-38 PG N0-88-89
+Z=12-%i*5;
+V=100; //VOLTAGE
+I=V/Z; //CURRENT
+disp('i) CURRENT (I) is in polar form = '+string (I) +' A ');
+Z1=4+%i*3;
+Z2=6-%i*8; //impedance
+V1=I*Z1;
+disp('i) voltage (V1) is in polar form = '+string (V1) +' V ');
+V2=I*Z2; //voltage
+disp('i) voltage (V2) is in polar form = '+string (V2) +' V ');
+V3=2*I; //voltage
+disp('i) voltage (V3) is in polar form = '+string (V3) +' V ');
+P=V*I*0.9230; //ACTIVE POWER
+disp('i) Active Power (P) is in polar form = '+string (P) +' W ');
diff --git a/1760/CH2/EX2.39/EX2_39.sce b/1760/CH2/EX2.39/EX2_39.sce new file mode 100755 index 000000000..9937b8270 --- /dev/null +++ b/1760/CH2/EX2.39/EX2_39.sce @@ -0,0 +1,29 @@ + //EXAMPLE-2-39 PG NO-89
+V=7.07;
+I=4.24;
+W=500;
+S=V*I;
+cosQ=0.6428;
+sinQ=0.766;
+P=S*cosQ; //ACTIVE POWER
+Q=S*sinQ; //REACTIVE POWER
+Z=V/I; //IMPEDANCE
+R=Z*cosQ; //RESISTANCE
+Xc=Z*sinQ; //Xc
+C=1/(W*Xc); //CAPACITOR
+P2 =S*(cosQ-1); //NEGATIVE PEAK POWER
+P3 =S*(cosQ+1); //POSITIVE PEAK POWER
+P1=(P3 +P2)/2; // POWER
+S1=(P3-P1); //apparent power
+disp(' S is = '+string(S)+' VA');
+disp(' ACTIVE POWER is = '+string(P)+' W');
+disp(' REACTIVE POWER is = '+string(Q)+' VAr');
+disp(' IMPEDANCE is = '+string(Z)+' ohm');
+disp(' RESISTANCE is = '+string(R)+'ohm ');
+disp(' Xc is = '+string(Xc)+' ohm');
+disp(' CAPACITOR is = '+string(C)+' F');
+disp(' POWER CURVE is = '+string(P2)+' W');
+disp(' POWER CURVE is = '+string(P3)+' W');
+disp(' POWER is = '+string(P1)+' W');
+disp(' S is = '+string(S1)+' VA');
+
diff --git a/1760/CH2/EX2.40/EX2_40.sce b/1760/CH2/EX2.40/EX2_40.sce new file mode 100755 index 000000000..b57c6815b --- /dev/null +++ b/1760/CH2/EX2.40/EX2_40.sce @@ -0,0 +1,15 @@ + //EXAMPLE 2-40 PG NO-89-90
+V1=52.33-%i*34.15878;
+Z1=7.5-%i*9.999; //IMPEDANCE
+Z2=3.488+%i*12; //IMPEDANCE
+Z3=11.99+%i*5;
+V2=[Z2/Z1]*V1;
+disp('i) voltage (V2) is in polar form = '+string (V2) +' V ');
+V3=[Z3/Z1]*V1; //voltage
+disp('ii) voltage (V3) is in polar form = '+string (V3) +' V ');
+V=V1+V2+V3; //total voltage
+disp('i) voltage (V) is in polar form = '+string (V) +' V ');
+Z=Z1+Z2+Z3; //Total Impedance
+disp('i) IMPEDANCE (Z) is in polar form = '+string (Z) +' V ');
+Y=1/Z; //Admittance
+disp('i) Y (Y) is in polar form = '+string (Y) +' ohm ');
diff --git a/1760/CH2/EX2.41/EX2_41.sce b/1760/CH2/EX2.41/EX2_41.sce new file mode 100755 index 000000000..ecfa57d3c --- /dev/null +++ b/1760/CH2/EX2.41/EX2_41.sce @@ -0,0 +1,18 @@ + //EXAMPLE 2-41 PG NO-90
+F1=50; //frequency
+W=(2*%pi*F1);
+L=1; //inductar
+C=10^-6; //capacitor
+XL1=W*L;
+Xc1=1/(W*C);
+Z1=XL1-Xc1;
+F2=1000;
+XL2=(2*%pi*F2*L);
+Xc2=1/(2*%pi*F2*C);
+Z2=(XL2-Xc2); //impedance
+disp(' IMPEDANCE(Z1) is = '+string(Z1)+' ohm');
+disp(' IMPEDANCE(Z2) is = '+string(Z2)+'ohm');
+disp(' XL1 is = '+string(XL1)+' ohm');
+disp(' Xc1 is = '+string(Xc1)+' ohm');
+disp(' XL2 is = '+string(XL2)+' ohm');
+disp(' Xc2 is = '+string(Xc2)+' ohm');
diff --git a/1760/CH2/EX2.42/EX2_42.sce b/1760/CH2/EX2.42/EX2_42.sce new file mode 100755 index 000000000..5eb867165 --- /dev/null +++ b/1760/CH2/EX2.42/EX2_42.sce @@ -0,0 +1,10 @@ + //EXAMPLE 2-42 PG NO-90
+F=50; //frequency
+C=100*10^-6; //capacitor
+W=(2*%pi*F);
+Xc=1/(W*C);
+R=19.1; //resistance
+XL=25.46;
+L=XL/(2*%pi*F); //inductance
+disp(' Xc is = '+string(Xc)+' ohms');
+disp(' INDUCTANCE is = '+string(L)+' H');
diff --git a/1760/CH2/EX2.43/EX2_43.sce b/1760/CH2/EX2.43/EX2_43.sce new file mode 100755 index 000000000..881b4e540 --- /dev/null +++ b/1760/CH2/EX2.43/EX2_43.sce @@ -0,0 +1,35 @@ + //EXAMPLE 2-43 PG NO-91
+R1=6; //RESISTANCE
+R2=3; //RESISTANCE
+R3=8; //RESISTANCE
+Z1=7; //IMPEDANCE
+Z2=5; //IMPEDANCE
+Z3=10; //IMPEDANCE
+V=7;
+I=1;
+PF1=R1/Z1; //POWER FACTOR
+disp('i) Power Factor (PF1) is = '+string (PF1) +' ');
+PD1=V*I*0.857; //POWER dissipated
+disp('i) Power Dissipated (PD1) is = '+string (PD1) +' W ');
+PF2=R2/Z2;
+disp('iii) Power Factor (PF2) is = '+string (PF2) +' W ');
+PD2=Z2*PF2;
+disp('i) Power Dissipated (PD2) is = '+string (PD2) +' W ');
+PF3=R3/Z3;
+disp('iii) Power Factor (PF3) is = '+string (PF3) +' W ');
+PD3=Z3*PF3;
+disp('i) Power Dissipated (PD3) is = '+string (PD3) +' W ');
+A=[Z1^2-R1^2]^0.5;
+disp('i) REACTANCE OF COIL (A) is = '+string (A) +' ohm ');
+B=[Z2^2-R2^2]^0.5;
+disp('i) REACTANCE OF COIL (B) is = '+string (B) +' ohm ');
+C=[Z3^2-R3^2]^0.5;
+disp('i) REACTANCE OF COIL (C) is = '+string (C) +' ohm ');
+TR=R1+R2+R3; //TOTAL RESISTANCE
+disp('i) TOTAL RESISTANCE (TR) is = '+string (TR) +' ohm ');
+TRC=A+B+C; //TOTAL RACTANCE
+disp('i) TOTAL REACTANCE (TRC) is = '+string (TRC) +' ohm ');
+TI=[TR^2+TRC^2]^0.5; //TOTAL IMPEADNCE
+disp('i) TOTAL IMPEDANCE (TI) is = '+string (TI) +' ohm ');
+PF=TR/TI; //POWER FACTOR
+disp('i) POWER FACTOR (PF) is = '+string (PF) +' lagging ');
diff --git a/1760/CH2/EX2.44/EX2_44.sce b/1760/CH2/EX2.44/EX2_44.sce new file mode 100755 index 000000000..e76306cdf --- /dev/null +++ b/1760/CH2/EX2.44/EX2_44.sce @@ -0,0 +1,10 @@ + //EXAMPLE 2-44 PG NO 91-92
+R=20; //Resistance
+V=125; //VOLTAGE
+I=2.2; //CURRENT
+Z=V/I; //IMPEDANCE
+disp('i) Impedance is = '+string(Z)+' ');
+F=50; //FREQUENCY
+XC=53.18
+C=1/[2*%pi*F*XC]; //CAPACITANCE
+disp('ii) Capacitor is = '+string(C)+' F');
diff --git a/1760/CH2/EX2.45/EX2_45.sce b/1760/CH2/EX2.45/EX2_45.sce new file mode 100755 index 000000000..feaa1d15d --- /dev/null +++ b/1760/CH2/EX2.45/EX2_45.sce @@ -0,0 +1,16 @@ + //EXAMPLE 2-45 PG NO-92
+I=10; //CURRENT
+R=5; //RESISTANCE
+P=I*I*R; //POWER
+IL=250; //IRON LOSS
+Z=20;
+r=5;
+F=50;
+W=2*%pi*F;
+p1=750;
+v=200; //voltage
+L=(Z*Z-r*r)^0.5/W; //iductance
+cosQ=p1/(v*I);
+disp(' power is = '+string(P)+' W')
+disp(' inductance is = '+string(L)+' H');
+disp(' cos Q is = '+string(cosQ)+' lagging');
diff --git a/1760/CH2/EX2.46/EX2_46.sce b/1760/CH2/EX2.46/EX2_46.sce new file mode 100755 index 000000000..cd0a12562 --- /dev/null +++ b/1760/CH2/EX2.46/EX2_46.sce @@ -0,0 +1,8 @@ + //Example 2-46 PG NO-92
+Z=50+%i*49.95; //IMPEDANCE
+V=283; //VOLTAGE
+T=1; //ASSUMING
+i=(V/70.675)*[sin(100*%pi-44.97)];
+disp('i) Current (i) is in polar form = '+string (i) +' A');
+P=(V/sqrt(2))*(4/sqrt(2))*(0.707);
+disp('ii) POWER (P) is = '+string (P) +' W ');
diff --git a/1760/CH2/EX2.47/EX2_47.sce b/1760/CH2/EX2.47/EX2_47.sce new file mode 100755 index 000000000..f63dfe9c1 --- /dev/null +++ b/1760/CH2/EX2.47/EX2_47.sce @@ -0,0 +1,10 @@ + //EXAMPLE 2-47 PG NO 92
+V=100/sqrt(2); //VOLTAGE
+F=100; //FREQUENCY
+L=0.018; //INDUCTANCE
+XL=2*%pi*F*L;
+disp('i) INDUCTANCE (XL) is in polar form = '+string (XL) +' ohm ');
+I=V/[(11.3+%i*11.3)]; //current
+disp('ii) CURRENT (I) is in polar form = '+string (I) +' A ');
+VR=I*10; //voltage
+disp('i) Voltage Across Resister (VR) is = '+string (VR) +' V ');
diff --git a/1760/CH2/EX2.49/EX2_49.sce b/1760/CH2/EX2.49/EX2_49.sce new file mode 100755 index 000000000..364de25f7 --- /dev/null +++ b/1760/CH2/EX2.49/EX2_49.sce @@ -0,0 +1,12 @@ + //EXAMPLE 2-49 PG NO-93
+K=0.35; //CONSTANT
+L1=0.1; //INDUCTANCE
+L2=0.2; //INDUCTANCE
+M=K*(L1*L2)^0.5;
+V=125; //VOLTAGE
+F=50; //FREQUENCY
+L=0.2; // TOTAL INDUCTANCE
+I=V/(2*%pi*F*L); //CURRENT
+disp(' M is = '+string(M)+' H');
+disp(' current is = '+string(I)+' A');
+
diff --git a/1760/CH2/EX2.51/EX2_51.sce b/1760/CH2/EX2.51/EX2_51.sce new file mode 100755 index 000000000..b0a18fafb --- /dev/null +++ b/1760/CH2/EX2.51/EX2_51.sce @@ -0,0 +1,26 @@ + //example 2-51 pg no-94
+V=230+%i*0; //VOLTAGE
+F=50; //FREQUENCY
+C=10^-4; //CAPACITOR
+R=10; //RESISTANCE
+cos(72.56)=0.299;
+XC=1/[2*%pi*F*C];
+disp('i) INDUCTANCE (XC) is = '+string (XC) +' ohm ');
+Z=R-%i*XC; //impedance
+disp('i) IMPEDANCE (Z) is in rectangular form = '+string (Z) +' ohm ');
+Y=1/Z; //admittance
+disp('i) ADMITTANCE (Y) is in rectangular form = '+string (Y) +' ohm ');
+I=V/Z; //CURRENT
+disp('i) CURRENT (I) is in rectangular form = '+string (I) +' A ');
+PF=0.299; //POWER FACTOR
+disp('i) POWER FACTOR (PF) is = '+string (PF) +' leading ');
+S=V*I; //APPARENT POWER
+disp('i) APPARENT POWER (S) is IN rectangular FORM = '+string (S) +' VA ');
+P=V*I*0.3; //ACTIVE POWER
+disp('i) ACTIVE POWER (P) is in rectangular form = '+string (P) +' W ');
+Q=V*I*-0.1315; //REACTIVE POWER
+disp('i) REACTIVE POWER (Q) is in rectangular form = '+string (Q) +' vars ');
+Vr=I*R;
+disp('i) VOLTAGE (Vr) is in rectangular form = '+string (Vr) +' V ');
+Vc=-%i*I*XC;
+disp('i) VOLTAGE (Vc) is = '+string (Vc) +' V ');
diff --git a/1760/CH2/EX2.52/EX2_52.sce b/1760/CH2/EX2.52/EX2_52.sce new file mode 100755 index 000000000..2a5d6a840 --- /dev/null +++ b/1760/CH2/EX2.52/EX2_52.sce @@ -0,0 +1,14 @@ +// EXAMPLE 2-53 PG NO-96
+W=1000;
+L=0.02;
+XL=W*L;
+Z=4.85;
+V=(100/1.414);
+I=(20.62/1.414);
+cos(14.06)=0.97; //
+P=V*I*0.97;
+z=1.18;
+Leq=z/W;
+disp(' XL is = '+string(XL)+' ohms');
+disp(' POWER is = '+string(P)+' W');
+disp(' Leq is = '+string(Leq)+' H');
diff --git a/1760/CH2/EX2.53/EX2_53.sce b/1760/CH2/EX2.53/EX2_53.sce new file mode 100755 index 000000000..aa3007318 --- /dev/null +++ b/1760/CH2/EX2.53/EX2_53.sce @@ -0,0 +1,16 @@ + //EXAMPLE 2-53 PG NO=97
+R=15; //RESISTANCE
+V=240+%i*0; //VOLTAGE
+I=22.1;
+Ir=V/R; //CURENT
+disp('i) CURRENT (Ir) is = '+string (Ir) +' A ');
+IL=[I^2-Ir^2]^0.5;
+disp('i) CURRENT (IL) is = '+string (IL) +' A ');
+XL=V/IL;
+disp('i) INDUCTANCE (XL) is = '+string (XL) +' ohm ');
+L=XL/[2*%pi*50];
+disp('i) INDUCTANCE (L) is = '+string (L) +' H ');
+IL1=[34^2-Ir^2]^0.5;
+disp('i) INDUCTANCE (IL1) is = '+string (IL1) +' A ');
+F=8/[2*%pi*0.05];
+disp('i) FREQUENCY (F) is = '+string (F) +' Hz ');
diff --git a/1760/CH2/EX2.54/EX2_54.sce b/1760/CH2/EX2.54/EX2_54.sce new file mode 100755 index 000000000..082a49f86 --- /dev/null +++ b/1760/CH2/EX2.54/EX2_54.sce @@ -0,0 +1,15 @@ + //EXAMPLE 2-54 PG NO-98
+C=159*10^-6; //capacitor
+F=50; //frequency
+Xc=1/(2*%pi*F*C);
+Z=8.94; //impedance
+V=100; //voltage
+I=V/Z; //Current
+PF=0.894 //power factor
+S=V*I;
+P=V*I*PF;
+Q=V*I*(-0.447);
+disp(' CURRENT is = '+string(P)+' A');
+disp(' APPARENT POWER is = '+string(S)+' VA');
+disp(' active power is = '+string(P)+' W');
+disp(' reactive power is = '+string(Q)+' vars');
diff --git a/1760/CH2/EX2.55/EX2_55.sce b/1760/CH2/EX2.55/EX2_55.sce new file mode 100755 index 000000000..a2af12e45 --- /dev/null +++ b/1760/CH2/EX2.55/EX2_55.sce @@ -0,0 +1,10 @@ + //EXAMPLE 2-55 PG NO-99
+
+Q=72.4;
+tan(Q)=3.1524;
+W=3000;
+C=35*10^-6;
+Xc=1/[W*C];
+R=3.1524*Xc
+disp('i) CAPACITOR (XC) is = '+string (Xc) +' ohm ');
+disp('i) RESISTANCE (R) is = '+string (R) +' ohm ');
diff --git a/1760/CH2/EX2.56/EX2_56.sce b/1760/CH2/EX2.56/EX2_56.sce new file mode 100755 index 000000000..1cbb20f83 --- /dev/null +++ b/1760/CH2/EX2.56/EX2_56.sce @@ -0,0 +1,18 @@ + //EXAMPLE 2-56 PG NO-99-100
+V=230+%i*0;
+R=15+%i*0;
+L=%i*7.5;
+Ir=V/R;
+Z1=-%i*12
+disp('i) CURRENT (Ir) is = '+string (Ir) +' A ');
+IL=V/L;
+disp('i) INDUCTANCE CURRENT (IL) is = '+string (IL) +' A ');
+Ic=V/Z1;
+disp('i) CAPACITOR CURRENT (Ic) is = '+string (Ic) +' A ');
+I=Ir+IL+Ic;
+disp('i) CURRENT (I) is = '+string (I) +' A ');
+Z=V/I;
+disp('i) IMPEDANCE (Z) is = '+string (Z) +' A ');
+PF=0.8;
+Leq=7.2/[2*%pi*50];
+disp('i) EQUIVALENT CURRENT (Ieq) is = '+string (Leq) +' H ');
diff --git a/1760/CH2/EX2.57/EX2_57.sce b/1760/CH2/EX2.57/EX2_57.sce new file mode 100755 index 000000000..62c7c9044 --- /dev/null +++ b/1760/CH2/EX2.57/EX2_57.sce @@ -0,0 +1,23 @@ + //EXAMPLE 2-57 PG N0-100-101
+V=240+%i*0;
+R=400+%i*0;
+Z1=%i*50;
+Z2=-%i*40;
+IR=V/R;
+disp('i) CURRENT (IR) is = '+string (IR) +' A ');
+IL=V/Z1;
+disp('i) CURRENT (IL) is = '+string (IL) +' A ');
+IC=V/Z2;
+disp('i) CURRENT (IC) is = '+string (IC) +' A ');
+I=IR+IL+IC;
+disp('i) CURRENT (I) is = '+string (I) +' A ');
+Z=V/I;
+disp('i) IMPEDANCE (Z) is = '+string (Z) +' ohms ');
+Y=1/Z;
+disp('i) ADMITTANCE (Y) is = '+string (Y) +' ohm ');
+S=V*I;
+disp('i) APPARENT POWER (S) is = '+string (S) +' VA ');
+P=V*I*0.448;
+disp('i) ACTIVE POWER (P) is = '+string (P) +' W ');
+Q=V*I*-0.94;
+disp('i) REACTIVE POWER (Q) is = '+string (Q) +' vars ');
diff --git a/1760/CH2/EX2.58/EX2_58.sce b/1760/CH2/EX2.58/EX2_58.sce new file mode 100755 index 000000000..bc88064f9 --- /dev/null +++ b/1760/CH2/EX2.58/EX2_58.sce @@ -0,0 +1,24 @@ + //EXAMPLE 2-58 PG NO-101-102
+Z1=2+%i*3;
+Z2=1-%i*5;
+Z3=4+%i*2;
+Zeq=[Z2*Z3]/[Z2+Z3];
+disp('i) IMPEDANCE EQUVALENT (Zeq) is = '+string (Zeq) +' ohms ');
+Z=Z1+Zeq;
+disp('i) TOTAL IMPEDANCE (Z) is = '+string (Z) +' ohm ');
+V=10;
+R=5.65+%i*1.588;
+I=V/R;
+disp('i) CURRENT (I) is = '+string (I) +' A ');
+VBC=I*Zeq;
+disp('i) VOLTAGE (VBC) is = '+string (VBC) +' V ');
+I2=VBC/Z2;
+disp('i) CURRENT (I2) is = '+string (I2) +' A ');
+I3=VBC/Z3;
+disp('i) CURRENT (I3) is in polar form = '+string (I3) +' A ');
+S=V*I;
+disp('i) APPARENT POWER (S) is in polar form = '+string (S) +' VA ');
+P=V*I*0.963;
+disp('i) ACTIVE POWER (P) is in polar form = '+string (P) +' W ');
+Q=V*I*-0.27;
+disp('i) REACTIVE POWER (Q) is in polar form = '+string (Q) +' vars ');
diff --git a/1760/CH2/EX2.59/EX2_59.sce b/1760/CH2/EX2.59/EX2_59.sce new file mode 100755 index 000000000..74525fbfe --- /dev/null +++ b/1760/CH2/EX2.59/EX2_59.sce @@ -0,0 +1,25 @@ + //EXAMPLE 2-59 PG NO-103
+C1=15.5*10^3;
+L=1000;
+V=230;
+PL1=10; //active load power
+PL2=6; //active load power
+QL1=7.5; //reactive load power
+QL2=8; //reactiveload power
+P=PL1+PL2; //total active power
+Q=QL1+QL2; //total reactive power
+AP=(P*P+Q*Q)^0.5; //total apparent power
+I=(AP*L)/V; //TOTAL CURRENT
+Ic=(C1/V);
+Xc=V/Ic;
+K=16;
+C=1/(2*%pi*50*Xc);
+I1=(L*K)/V;
+disp(' total active power is = '+string(P)+' KW');
+disp(' total reactive power is = '+string(Q)+'K var ');
+disp(' total apparent power is = '+string(AP)+' KVA');
+disp(' total current(I) is = '+string(P)+' A');
+disp(' Ic is = '+string(P)+' A');
+disp(' Xc is = '+string(Xc)+' ohm');
+disp(' capacitor is = '+string(C)+' F');
+disp(' current(I1) is = '+string(I1)+' A');
diff --git a/1760/CH2/EX2.60/EX2_60.sce b/1760/CH2/EX2.60/EX2_60.sce new file mode 100755 index 000000000..649bbe1b6 --- /dev/null +++ b/1760/CH2/EX2.60/EX2_60.sce @@ -0,0 +1,24 @@ + //EXAMPLE 2-60 PG NO-103-104
+Z1=6+%i*8;
+V=230; // VOLTAGE
+Y1=1/Z1;
+disp('i) ADMITTANCE (Y1) is = '+string (Y1) +' siemens ');
+G1=0.06;
+B1=-0.08;
+Z2=4-%i*3;
+Y2=1/Z2;
+disp('ii) ADMITTANCE (Y2) is = '+string (Y2) +' siemens ');
+G2=0.16;
+B2=0.12;
+TL=G1+G2; //TOTAL CONDUCTANCE
+disp('iii) TOTAL CONDUCTANCE (TL) is = '+string (TL) +' siemens');
+TS=B1+B2; //TOTAL SUSCEPTANCE
+disp('iv) TOTAL SUSCEPTANCE (TS) is = '+string (TS) +' siemens ');
+I1=V*Y1; // CURRENT
+disp('v) CURRENT (I1) is = '+string (I1) +' A ');
+I2=V*Y2;
+disp('vi) CURRENT (I2) is = '+string (I2) +' A ');
+TI=I1+I2; //TOTAL CURRENT
+disp('vii) TOTAL CURRENT (TI) is = '+string (TI) +' A ');
+PF=cos(degree(10.3));
+disp('i) POWER FACTOR (PF) is = '+string (PF) +' leading ');
diff --git a/1760/CH2/EX2.61/EX2_61.sce b/1760/CH2/EX2.61/EX2_61.sce new file mode 100755 index 000000000..167f1d532 --- /dev/null +++ b/1760/CH2/EX2.61/EX2_61.sce @@ -0,0 +1,31 @@ + //EXAMPLE 2-61 PG NO-104-105
+V=100+%i*0;
+Zab=1.6+%i*7.2;
+Yab=1/Zab;
+disp('i) ADMITTANCE (Yab) is in polar form = '+string (Yab) +' siemens');
+Zcd=4+%i*3;
+Ycd=1/Zcd;
+disp('i) ADMITTANCE (Ycd) is in polar form = '+string (Ycd) +' siemens ');
+Zef=6-%i*8;
+Yef=1/Zef;
+disp('i) ADMITTANCE (Yef) is in polar form = '+string (Yef) +' siemens ');
+Ybg=Yef+Ycd;
+disp('i) ADMITTANCE (Ybg) is in polar form = '+string (Ybg) +' siemens ');
+Zbg=1/Ybg;
+disp('i) IMPEDANCE (Zbg) is in polar form = '+string (Zbg) +' ohms ');
+TZ=1.6+%i*7.2+4.4+%i*0.8;
+disp('i) TOTAL IMPEDANCE (TZ) is in polar form = '+string (TZ) +' ohms ');
+TI=V/TZ;
+disp('i) TOTAL CURRENT (TI) is in polar form = '+string (TI) +' A ');
+Icd=TI*[Zef/(Zcd+Zef)]
+disp('i) CURRENT (Icd) is in polar form = '+string (Icd) +' A ');
+Ief=TI*[Zcd/(Zcd+Zef)];
+disp('i) CURRENT (Ief) is in polar form = '+string (Ief) +' A ');
+Pab=TI*TI*1.6;
+disp('i) POWER (Pab) is in polar form = '+string (Pab) +' W ');
+Pcd=Icd*Icd*4;
+disp('i) POWER (Pcd) is in polar form = '+string (Pcd) +' W ');
+Pef=Ief*Ief*6;
+disp('i) POWER (Pef) is in polar form = '+string (Pef) +' W ');
+TP=Pab+Pcd+Pef;
+disp('i) TOTAL POWER (TP) is in polar form = '+string (TP) +' W ');
diff --git a/1760/CH2/EX2.62/EX2_62.sce b/1760/CH2/EX2.62/EX2_62.sce new file mode 100755 index 000000000..39c697a51 --- /dev/null +++ b/1760/CH2/EX2.62/EX2_62.sce @@ -0,0 +1,43 @@ + //EXAMPLE 2-62 PG NO-105-106
+Z1=24+%i*18;
+Z2=24-%i*10;
+Z3=2-%i*0.148;
+R1=24;
+R2=24;
+R3=32;
+R4=16;
+V=2;
+v1=128.3;
+I=2;
+I3=32+%i*24;
+I4=16-%i*30;
+Z=Z1+Z2;
+disp('i) IMPEDANCE (Z) is in polar form = '+string (Z) +' ohms ');
+I1=[Z2/(Z1+Z2)]*Z3;
+disp('i) CURRENT (I1) is in polar form = '+string (I1) +' ohms ');
+I2=[Z1/(Z1+Z2)]*Z3;
+disp('i) CURRENT (I2) is in polar form = '+string (I2) +' ohms ');
+P1=I1*I1*R1;
+disp('i) POWER (P1) is in polar form = '+string (P1) +' W ');
+P2=I2*I2*R2;
+disp('i) POWER (P2) is in polar form = '+string (P2) +' W ');
+P3=V*V*R3;
+disp('i) POWER (P3) is in polar form = '+string (P3) +' W ');
+P4=V*V*R4;
+disp('i) POWER (P4) is in polar form = '+string (P4) +' W ');
+P=P1+P2+P3+P4;
+disp('i) TOTAL POWER (P) is in polar form = '+string (P) +' W ');
+V1=I1*Z1;
+disp('i) VOLTAGE (V1) is in polar form = '+string (V1) +' V ');
+V2=V1;
+disp('i) VOLTAGE (V2) is in polar form = '+string (V2) +' V ');
+V3=I3*Z3;
+disp('i) VOLTAGE (V3) is in polar form = '+string (V3) +' V ');
+V4=I4*Z3;
+disp('i) VOLTAGE (V4) is in polar form = '+string (V4) +' V ');
+V=V1+V4+V3;
+disp('i%) VOLTAGE (V) is in polar form = '+string (V) +' V ');
+S=v1*I;
+disp('i) Apparent Power (S) is = '+string (S) +' VA ');
+Q=S*0.0726;
+disp('i) Reactive Power (Q) is = '+string (Q) +' Var ');
diff --git a/1760/CH2/EX2.63/EX2_63.sce b/1760/CH2/EX2.63/EX2_63.sce new file mode 100755 index 000000000..c7e0256c6 --- /dev/null +++ b/1760/CH2/EX2.63/EX2_63.sce @@ -0,0 +1,29 @@ + //EXAMPLE 2-63 PG NO-106-107
+Z1=14+%i*48;
+Z2=30+%i*40;
+Z3=24+%i*70;
+V=230+%i*0;
+Y1=1/Z1;
+disp('i) ADMITTANCE (Y1) is in polar form = '+string (Y1) +' siemens');
+Y2=1/Z2;
+disp('ii) ADMITTANCE (Y2) is in polar form = '+string (Y2) +' siemens');
+Y3=1/Z3;
+disp('iii) ADMITTANCE (Y3) is in polar form = '+string (Y3) +' siemens');
+Y=Y1+Y2+Y3;
+disp('i) ADMITTANCE (Y) is in polar form = '+string (Y) +' siemens');
+Z13=29.763+%i*21.62;
+Z14=10-%i*24;
+X=Z13+Z14;
+Y=18+%i*80;
+A=8-%i*6;
+disp('i) IMPEDANCE (X) is in polar form = '+string (X) +' ohm');
+Z=[{X*Y}/{X+Y}]+A;
+disp('i) IMPEDANCE (Z) is in polar form = '+string (Z) +' ohm');
+I=V/Z;
+disp('vi) CURRENT (I) is = '+string (I) +' A ');
+S=V*I;
+disp('i) Apparent Power (S) is = '+string (S) +' VA ');
+P=V*I*0.989;
+disp('i) Active Power (P) is = '+string (P) +' W ');
+Q=V*I*0.146;
+disp('i) Reactive Power (Q) is = '+string (Q) +' Var ');
diff --git a/1760/CH2/EX2.64/EX2_64.sce b/1760/CH2/EX2.64/EX2_64.sce new file mode 100755 index 000000000..3745b5d4c --- /dev/null +++ b/1760/CH2/EX2.64/EX2_64.sce @@ -0,0 +1,9 @@ +ZA=15+%i*15.708;
+ZB=20+%i*0;
+V=200+%i*0;
+IA=V/ZA;
+disp('i) CURRENT (IA) is = '+string (IA) +' A ');
+IB=V/ZB;
+disp('ii) CURRENT (IB) is = '+string (IB) +' A ');
+I=IA+IB;
+disp('vi) TOTAL CURRENT (I) is = '+string (I) +' A ');
diff --git a/1760/CH2/EX2.66/EX2_66.sce b/1760/CH2/EX2.66/EX2_66.sce new file mode 100755 index 000000000..c84e6fac0 --- /dev/null +++ b/1760/CH2/EX2.66/EX2_66.sce @@ -0,0 +1,12 @@ + //EXAMPLE 2-66 PG NO-108
+I=15;
+Z1=10+%i*15
+Z2=6-%i*8;
+I1=[I*Z2]/(Z1+Z2);
+disp('ii) CURRENT (I1) is in polar form = '+string (I1) +' A ');
+I2=(I*Z1)/(Z1+Z2);
+disp('ii) CURRENT (I2) is in polar form = '+string (I2) +' A ');
+P1=8.59^2*10;
+disp('ii) Power (P1) is in polar form = '+string (P1) +' W ');
+P2=15.49^2*6;
+disp('ii) Power (P2) is in polar form = '+string (P2) +' W ');
diff --git a/1760/CH2/EX2.67/EX2_67.sce b/1760/CH2/EX2.67/EX2_67.sce new file mode 100755 index 000000000..4cd55dd75 --- /dev/null +++ b/1760/CH2/EX2.67/EX2_67.sce @@ -0,0 +1,27 @@ + //EXAMPLE 2-67 PG NO-108-109
+Z1=5;
+V=100+%i*200;
+I1=16; //CURRENT
+P1=I1*I1*Z1;
+disp('i) POWER (P1) is = '+string (P1) +' W ');
+P2=5000-P1;
+disp('ii) POWER (P2) is = '+string (P2) +' W ');
+Q1=-69.02;
+cos(-69.02)=0.35;
+Z2=Z1/0.358;
+disp('iii) IMPEDANCE (Z2) is in polar form = '+string (Z2) +' ohms ');
+X1=Z2*-0.933;
+disp('i) (X1) is in polar form = '+string (X1) +' ohms ');
+Z3=5-%i*13.04;
+I1=V/Z3;
+disp('ii) CURRENT (I1) is in polar form = '+string (I1) +' A ');
+P3=3720;
+I2=P3/(223.6*0.8);
+disp('ii) CURRENT (I2) is in polar form = '+string (I2) +' A ');
+z2=8.6+%i*6.45;
+I3=V/z2;
+disp('ii) CURRENT (I3) is in polar form = '+string (I3) +' A ');
+I=I1+I3;
+disp('ii) CURRENT (I) is in polar form = '+string (I) +' A ');
+Z=V/I;
+disp('iii) IMPEDANCE (Z) is in polar form = '+string (Z) +' ohms ')
diff --git a/1760/CH2/EX2.68/EX2_68.sce b/1760/CH2/EX2.68/EX2_68.sce new file mode 100755 index 000000000..59c0fec1b --- /dev/null +++ b/1760/CH2/EX2.68/EX2_68.sce @@ -0,0 +1,12 @@ + //EXAMPLE 2-68 PG NO-109-110
+V=100;
+Y1=0.16+%i*0.12;
+Y2=-%i*0.15;
+I1=V*Y1;
+disp('i) CURRENT (I1) is in polar form = '+string (I1) +' A ');
+I2=V*Y2;
+disp('ii) CURRENT (I2) is in polar form = '+string (I2) +' A ');
+P=(V*I1*0.8)+(V*I2*0);
+disp('iii) Power (P) is in polar form = '+string (P) +' W ');
+I=I1+I2;
+disp('ii) CURRENT (I) is in polar form = '+string (I) +' A ');
diff --git a/1760/CH2/EX2.69/EX2_69.sce b/1760/CH2/EX2.69/EX2_69.sce new file mode 100755 index 000000000..cd3c7b2e1 --- /dev/null +++ b/1760/CH2/EX2.69/EX2_69.sce @@ -0,0 +1,19 @@ + //EXAMPLE 2-69 PG NO-110
+F=50;
+L=0.6;
+R=100;
+XL=(%pi*2*F*L)
+disp('i) INDUCTANCE (XL) is = '+string (XL) +' ohm ');
+V=230+%i*0;
+IR=V/R;
+disp('ii) CURRENT (IR) is in polar form = '+string (IR) +' A ');
+IL=V/(0+%i*XL);
+disp('iii) CURRENT (IL) is in polar form = '+string (IL) +' A ');
+I=IR+IL;
+disp('iv) CURRENT (I) is in polar form = '+string (I) +' A ');
+P=V*I*cos(degree(27.9));
+disp('v) POWER (P) is in polar form = '+string (P) +' W ');
+Z=V/I;
+disp('vi) IMPEDANCE (Z) is = '+string (Z) +' ohm ');
+LEQ=41.39/(2*%pi*F);
+disp('ii) INDUCTANCE (LEQ) is = '+string (LEQ) +' H ');
diff --git a/1760/CH2/EX2.7/EX2_7.sce b/1760/CH2/EX2.7/EX2_7.sce new file mode 100755 index 000000000..338a3af4d --- /dev/null +++ b/1760/CH2/EX2.7/EX2_7.sce @@ -0,0 +1,7 @@ + //EXAMPLE 2-7 PG NO 64-65
+V1=24.15+%i*6.47; //VOLTAGE
+V2=7.5+%i*12.99; //VOLTAGE
+X=V1+V2; //ADITION fo v1&v2
+disp('i)ADITION is in rectangular form = '+string (X)+' V')
+X1=V1-V2; //subsraction of v1&v2
+disp('i)substraction is in rectangular form = '+string (X1)+' V')
diff --git a/1760/CH2/EX2.70/EX2_70.sce b/1760/CH2/EX2.70/EX2_70.sce new file mode 100755 index 000000000..513998f6e --- /dev/null +++ b/1760/CH2/EX2.70/EX2_70.sce @@ -0,0 +1,17 @@ + //EXAMPLE 2-70 PG NO-110-111
+ZA=-%i*227.36; //IMPEDANCE
+ZB=-%i*795.77; //IMPEDANCE
+ZC=500; //IMPEDANCE
+V=230+%i*0; //VOLTAGE
+IA=V/ZA; //CURRENT
+disp('i) CURRENT (IA) is in polar form = '+string (IA) +' A ');
+IB=V/ZB;
+disp('i) CURRENT (IB) is in polar form = '+string (IB) +' A ');
+IC=V/ZC;
+disp('i) CURRENT (IC) is in polar form = '+string (IC) +' A ');
+I=IA+IB+IC;
+disp('i) CURRENT (I) is in polar form = '+string (I) +' A ');
+P=V*I*0.334;
+disp('i) POWER (P) is in polar form = '+string (P) +' W ');
+Z=V/I;
+disp('vi) IMPEDANCE (Z) is = '+string (Z) +' ohm ');
diff --git a/1760/CH2/EX2.71/EX2_71.sce b/1760/CH2/EX2.71/EX2_71.sce new file mode 100755 index 000000000..d74f665a1 --- /dev/null +++ b/1760/CH2/EX2.71/EX2_71.sce @@ -0,0 +1,9 @@ + //EXAMPLE 2-71 PG NO-111
+V=240;
+cos (degree(62.74))=0.458;
+Pm=V*2*0.458;
+disp('i) POWER (Pm) is in rectangular form = '+string (Pm) +' W ');
+I=(2*0.458+1.5)-%i*(2*0.89);
+disp('i) CURRENT (I) is in rectangular form = '+string (I) +' A ')
+P=V*3*0.805
+disp('i) Power (P) is in rectangular form = '+string (P) +' W ')
diff --git a/1760/CH2/EX2.72/EX2_72.sce b/1760/CH2/EX2.72/EX2_72.sce new file mode 100755 index 000000000..b598aa10a --- /dev/null +++ b/1760/CH2/EX2.72/EX2_72.sce @@ -0,0 +1,12 @@ + //EXAMPLE 2-72 PG NO 111
+P.F=0.5;
+cosQ=0.5;
+sinQ=0.866;
+V=552;
+I=2.3;
+v=240;
+PF1=0.89;
+P=v*I*PF1;
+Q=(V*V-P*P)^0.5;
+disp(' ACTIVE POWER is = '+string(P)+' W');
+disp(' REACTIVE POWER is = '+string(Q)+' vars');
diff --git a/1760/CH2/EX2.73/EX2_73.sce b/1760/CH2/EX2.73/EX2_73.sce new file mode 100755 index 000000000..37f58436b --- /dev/null +++ b/1760/CH2/EX2.73/EX2_73.sce @@ -0,0 +1,15 @@ + //EXAMPLE 2-73 PG NO-112
+R=44.074;
+V=230;
+I=3.05;
+Z=V/I;
+Y=2.475;
+X=(Z*Z-R*R)^0.5;
+L=X/(2*%pi*50)
+Xc=V/Y;
+C=1/(2*50*Xc*%pi);
+disp(' impedance is = '+string(Z)+' ohm');
+disp(' X is = '+string(X)+' W');
+disp('inductance is = '+string(L)+'H ');
+disp(' Xc is = '+string(Xc)+' ohm');
+disp(' Capacitor is = '+string(C)+' F');
diff --git a/1760/CH2/EX2.74/EX2_74.sce b/1760/CH2/EX2.74/EX2_74.sce new file mode 100755 index 000000000..2ac6c44c3 --- /dev/null +++ b/1760/CH2/EX2.74/EX2_74.sce @@ -0,0 +1,16 @@ + //EXAMPLE 2-74 PG NO-112
+ZA=10+%i*7.226; //IMPEDANCE
+ZB=5+%i*10.99; //IMPEDANCE
+V=200+%i*0; //VOLTAGE
+IA=V/ZA; //CURRENT
+disp('i) CURRENT (IA) is in polar form = '+string (IA) +' A ');
+IB=V/ZB;
+disp('ii) CURRENT (IB) is in polar form = '+string (IB) +' A ');
+I=IA+IB;
+disp('iii) CURRENT (I) is in polar form = '+string (I) +' A ');
+S=V*I;
+disp('i) Apparent Power (S) is = '+string (S) +' VA ');
+P=V*I*0.63;
+disp('i) Active Power (P) is = '+string (P) +' W ');
+Q=V*I*0.775;
+disp('i) Reactive Power (Q) is = '+string (Q) +' Var ');
diff --git a/1760/CH2/EX2.75/EX2_75.sce b/1760/CH2/EX2.75/EX2_75.sce new file mode 100755 index 000000000..4314123fe --- /dev/null +++ b/1760/CH2/EX2.75/EX2_75.sce @@ -0,0 +1,22 @@ + //EXAMPLE 2-75 PG NO-113
+V=100+%i*0;
+R=3+%i*2;
+I=V/R;
+disp('i) CURRENT (I) is in polar form = '+string (I) +' A ');
+ZA=10+%i*8;
+ZB=9-%i*6;
+ZC=3+%i*2;
+IB=I*[ZA/(ZA+ZB)];
+disp('i) CURRENT (IB) is in polar form = '+string (IB) +' A ');
+IA=I*[ZB/(ZA+ZB)];
+disp('i) CURRENT (IA) is in polar form = '+string (IA) +' A ');
+Z=[(ZA*ZB)/{ZA+ZB}]+ZC;
+disp('vi) IMPEDANCE (Z) is = '+string (Z) +' ohm ');
+V1=I*Z;
+disp('vi)VOLTAGE (V1) is = '+string (V1) +' V ');
+S=V1*I;
+disp('i) Apparent Power (S) is = '+string (S) +' VA ');
+P=V1*I*0.984;
+disp('i) Active Power (P) is = '+string (P) +' W ');
+Q=[S^2-P^2]^0.5;
+disp('i) Reactive Power (Q) is = '+string (Q) +' Var ');
diff --git a/1760/CH2/EX2.76/EX2_76.sce b/1760/CH2/EX2.76/EX2_76.sce new file mode 100755 index 000000000..b2c5855c4 --- /dev/null +++ b/1760/CH2/EX2.76/EX2_76.sce @@ -0,0 +1,7 @@ +Z1=8+%i*10;
+Z2=7+%i*9;
+Z3=5-%i*2;
+Z={Z1*Z2}/{Z1+Z2};
+disp('vi) IMPEDANCE (Z) is in polar form = '+string (Z) +' ohm ');
+TZ=Z+Z3;
+disp('vi) TOTAL IMPEDANCE (TZ) is = '+string (TZ) +' ohm ');
diff --git a/1760/CH2/EX2.77/EX2_77.sce b/1760/CH2/EX2.77/EX2_77.sce new file mode 100755 index 000000000..4a7d1760a --- /dev/null +++ b/1760/CH2/EX2.77/EX2_77.sce @@ -0,0 +1,11 @@ + //EXAMPLE 2-77 PG NO-114
+R=sqrt(2.5^2-1.724^2)-0.69;
+disp('i) Resistance (R) is = '+string (R) +' ohm ');
+R1=sqrt(2.5^2-1.92^2)-0.384;
+disp('ii) Resistance (R1) is = '+string (R1) +' ohm ');
+r=5;
+PF=(0.69+R)/2.5;
+disp('iii) Power Factor (PF) is = '+string (PF) +' lagging ');
+r1=10;
+PF1=(0.384+R1)/2.5;
+disp('iv) Power Factor (PF1) is = '+string (PF1) +' lagging ');
diff --git a/1760/CH2/EX2.78/EX2_78.sce b/1760/CH2/EX2.78/EX2_78.sce new file mode 100755 index 000000000..a3faf5748 --- /dev/null +++ b/1760/CH2/EX2.78/EX2_78.sce @@ -0,0 +1,19 @@ + //EXAMPLE 2-78 PG NO-114-115
+I=10;
+L1=0.0318; //INDUCTANCE
+L2=0.0191;
+F=50; //FREQUENCY
+C=398*10^-6; //CAPACITOR
+XL1=[2*%pi*F*L1];
+disp('i) INDUCYANCE (XL1) is = '+string (XL1) +' ohm ');
+XL2=[2*%pi*F*L2];
+disp('ii) INDUCYANCE (XL2) is = '+string (XL2) +' ohm ');
+XC=1/[2*%pi*F*C];
+disp('iii) CAPACITOR (XC) is = '+string (XC) +' ohm ');
+Z1=5+%i*6;
+Z2=7-%i*8;
+Z3=8+%i*9.99;
+Z=[(Z1*Z2)/(Z1+Z2)]+Z3;
+disp('iv) IMPEDANCE (Z) is in polar form = '+string (Z) +' ohm ');
+VAB=I*Z;
+disp('i) VOLTAGE (VAB) is in polar form = '+string (VAB) +' V ')
diff --git a/1760/CH2/EX2.79/EX2_79.sce b/1760/CH2/EX2.79/EX2_79.sce new file mode 100755 index 000000000..44923c7a2 --- /dev/null +++ b/1760/CH2/EX2.79/EX2_79.sce @@ -0,0 +1,12 @@ + //EXAMPLE 2-79 PG NO-115
+I2=10+%i*0;
+Z1=7-%i*8;
+Z2=5+%i*6
+V=I2*Z1;
+disp('i) VOLTAGE (V) is in polar form = '+string (V) +' V ');
+I1=V/Z2;
+disp('i) CURRENT (I1) is in polar form = '+string (I1) +' A ')
+I=I2-%i*13.44;
+disp('i) CURRENT (I) is in polar form = '+string (I) +' A ')
+VAB=15.57*18.52;
+disp('i) VOLTAGE (VAB) is in polar form = '+string (VAB) +' V ')
diff --git a/1760/CH2/EX2.8/EX2_8.sce b/1760/CH2/EX2.8/EX2_8.sce new file mode 100755 index 000000000..2a942238e --- /dev/null +++ b/1760/CH2/EX2.8/EX2_8.sce @@ -0,0 +1,15 @@ + //EXAMPLE 2-8 PG NO-65
+A=3+%i*1;
+B=4+%i*3;
+X=A+B; //ADDITION
+Y=A-B; //SUBSTRACTION
+Z=A*B; //MULTIPLICATION
+U=A/B; //DIVISION
+V=A^4;
+P=B^(1/3);
+disp('ii) ADDITION (A+B) is in polar form = '+string (X) +' ohm ');
+disp('ii) SUBSTRACTION (A-B) is in polar form = '+string (Y) +' ohm ');
+disp('ii) MULTIPLICATION (A*B) is in polar form = '+string (Z) +' ohm ');
+disp('ii) DIVISION (A/B) is is in polar form = '+string (U) +' ohm ');
+disp('ii) SQUARE OF A(A^4) is in polar form = '+string (V) +' ohm ');
+disp('ii) CUBE ROOT OF B (B^(1/3)) is in polar form = '+string (P) +' ohm ');
diff --git a/1760/CH2/EX2.80/EX2_80.sce b/1760/CH2/EX2.80/EX2_80.sce new file mode 100755 index 000000000..20229c9b8 --- /dev/null +++ b/1760/CH2/EX2.80/EX2_80.sce @@ -0,0 +1,10 @@ + //EXAMPLE 2-80 PG NO-115-16
+I=12+%i*0;
+X2=13.33;
+R=10+%i*13.33;
+V=I*R;
+disp('i) VOLTAGE (V) is in polar form = '+string (V) +' V ')
+V1=30-%i*27.67;
+Z1=10.6165+%i*1.5;
+R1=V1/Z1;
+disp('i) RESISTANCE (R1) is in polar form = '+string (R1) +' ohm ')
diff --git a/1760/CH2/EX2.81/EX2_81.sce b/1760/CH2/EX2.81/EX2_81.sce new file mode 100755 index 000000000..2df5d69c1 --- /dev/null +++ b/1760/CH2/EX2.81/EX2_81.sce @@ -0,0 +1,19 @@ + //EXAMPLE 2-81 PG NO-116-117
+Z1=10+%i*10;
+Z2=20+%i*0;
+Z3=20-%i*0.2;
+V=100+%i*0;
+I1=V/Z1;
+disp('i) CURRENT (I1) is in polar form = '+string (I1) +' A ')
+I2=V/Z2;
+disp('i) CURRENT (I2) is in polar form = '+string (I2) +' A ')
+I3=V/Z3;
+disp('i) CURRENT (I3) is in polar form = '+string (I3) +' A ')
+I=I1+I2+I3;
+disp('i) CURRENT (I) is in polar form = '+string (I) +' A ')
+S=V*I;
+disp('i) Apparent Power (S) is in polar form = '+string (S) +' VA ');
+P=V*I*0.95;
+disp('i) Active Power (P) is in polar form = '+string (P) +' W ');
+Q=[S^2-P^2]^0.5;
+disp('i) Reactive Power (Q) is in polar form = '+string (Q) +' Var ');
diff --git a/1760/CH2/EX2.82/EX2_82.sce b/1760/CH2/EX2.82/EX2_82.sce new file mode 100755 index 000000000..da8c9ce5d --- /dev/null +++ b/1760/CH2/EX2.82/EX2_82.sce @@ -0,0 +1,13 @@ + //EXAMPLE 2-82 PG NO-117
+Z1=4+%i*314.16; //Impedance
+I1=1/Z1; //CURRENT
+disp('i) Current (I1) is = '+string (I1) +' A ');
+I2=I1+%i*90; //CURRENT
+disp('ii) Current (I2) is = '+string (I2) +' A ');
+Z2=1/I2; //IMPEDANCE
+disp('i) Impedance (Z2) is = '+string (Z2) +' ohm ');
+R=310.16; //RESISTANCE
+Xc=310.16;
+F=50;
+C=1/(2*%pi*F*Xc);
+disp('i) Capacitor (C) is = '+string (C) +' F ');
diff --git a/1760/CH2/EX2.83/EX2_83.sce b/1760/CH2/EX2.83/EX2_83.sce new file mode 100755 index 000000000..a8651b2ac --- /dev/null +++ b/1760/CH2/EX2.83/EX2_83.sce @@ -0,0 +1,19 @@ + //EXAMPLE 2-83 PG NO-117-118
+V=125+%i*0;
+I1=5+%i*0;
+I2=1.2+%i*1.964;
+Z2=V/I2;
+disp('iv) IMPEDANCE (Z2) is in polar form = '+string (Z2) +' ohm ');
+R=28.26;
+XC=46.43;
+F=50;
+C=1/[2*%pi*F*XC];
+disp('iv) CAPACITOR (C) is in polar form = '+string (C) +' F ');
+I=I1+I2;
+disp('iv) CURRENT (I) is in polar form = '+string (I) +' A ');
+S=V*I;
+disp('i) Apparent Power (S) is in polar form = '+string (S) +' VA ');
+P=S*0.953;
+disp('i) Active Power (P) is in polar form = '+string (P) +' W ');
+Q=S*0.302;
+disp('i) Reactive Power (Q) is in polar form = '+string (Q) +' Var ');
diff --git a/1760/CH2/EX2.84/EX2_84.sce b/1760/CH2/EX2.84/EX2_84.sce new file mode 100755 index 000000000..c9382272d --- /dev/null +++ b/1760/CH2/EX2.84/EX2_84.sce @@ -0,0 +1,22 @@ + //EXAMPLE 2-84 PG NO 121-122
+L=0.01; //Inductance
+C=0.04*10^-6; //Capacitor
+Fo=1/[2*%pi*(sqrt(L*C))];
+disp('i) Resonant Frequency (Fo) is = '+string (Fo) +' Hz ');
+Z=50;
+R=Z;
+V=100;
+Io=V/R;
+disp('ii) Current (Io) is = '+string (Io) +' A ');
+Fc=(1/(2*%pi))*[(1/(L*C))-(R^2/(2*L^2))]^0.5;
+disp('iii) Cutt Frequency (Fc) is = '+string (Fc) +' Hz ');
+Z1=50-%i*2.5;
+Xc=1/[2*%pi*Fc*C];
+disp('iv) Xc (Xc) is = '+string (Xc) +' ');
+Vc=[100/Z1]*Xc;
+disp('v) VOLTAGE (Vc) is = '+string (Vc) +' V ');
+FL=1/[(2*%pi)*[(L*C)-[(R^2*C^2)/2]]^0.5];
+disp('vi) Frequency (FL) is = '+string (FL) +' Hz ');
+Z2=50+%i*2.5;
+VL=[100/Z2]*(2*%pi*FL*0.1);
+disp('i) VOLTAGE (VL) is = '+string (VL) +' V ');
diff --git a/1760/CH2/EX2.85/EX2_85.sce b/1760/CH2/EX2.85/EX2_85.sce new file mode 100755 index 000000000..978c1ee01 --- /dev/null +++ b/1760/CH2/EX2.85/EX2_85.sce @@ -0,0 +1,5 @@ + //example 285 pg no-126
+I1=0.707;
+I2=0.707;
+db=20*log10(0.707);
+disp(' Ration in db is = '+string(db)+' ');
diff --git a/1760/CH2/EX2.86/EX2_86.sce b/1760/CH2/EX2.86/EX2_86.sce new file mode 100755 index 000000000..1911a54c2 --- /dev/null +++ b/1760/CH2/EX2.86/EX2_86.sce @@ -0,0 +1,21 @@ + //EXAMPLE 2-86 PG NO 126
+L=0.5; //inductance
+C=40*10^-6; //capacitor
+Wo=1/(L*C)^0.5;
+R=10; //resistance
+V=100; //voltage
+Fo=Wo/(2*%pi); //frequency
+Q=(Wo*L)/R;
+W2=233.6; //frequency
+W1=213.6; //frequency
+B.W=W2-W1; //Band width
+Io=V/R; //current at resonance
+Io1=0.707*Io; //current at half power points
+V1=Q*V; //voltage aacross inductance at resonance
+disp(' frequency is = '+string(Wo)+' rad/sec');
+disp(' frequency is = '+string(Fo)+' Hz');
+disp(' Q is = '+string(Q)+' ');
+disp(' BAND WIDTH is = '+string(B.W)+' rad/sec');
+disp(' current at resonance is = '+string(Io)+' A');
+disp(' current at half power points is = '+string(Io1)+' A');
+disp('voltage aacross inductance at resonance is = '+string(V1)+' V');
diff --git a/1760/CH2/EX2.87/EX2_87.sce b/1760/CH2/EX2.87/EX2_87.sce new file mode 100755 index 000000000..a1f51e3cb --- /dev/null +++ b/1760/CH2/EX2.87/EX2_87.sce @@ -0,0 +1,17 @@ + //EXAMPLE 2-87 PG NO-127
+Wo=1000;
+C=20*10^-6;
+R=2;
+V=10;
+L=1/((Wo^2)*C);
+Q=(Wo*L)/R;
+I=V/R;
+Vr=I*R;
+VL=Q*V;
+Vc=Q*V;
+disp(' INDUCTANCE is = '+string(L)+' H');
+disp(' Q is = '+string(Q)+' ');
+disp(' CURRENT(I) is = '+string(I)+' A');
+disp('VOLTAGE ACROSS RESISTANCE is = '+string(Vr)+' V');
+disp('VOLTAGE ACROSS INDUCTANCE is = '+string(VL)+' V');
+disp(' VOLTAGE ACROSS CAPACITANCE is = '+string(Vc)+' V');
diff --git a/1760/CH2/EX2.88/EX2_88.sce b/1760/CH2/EX2.88/EX2_88.sce new file mode 100755 index 000000000..a59a7c737 --- /dev/null +++ b/1760/CH2/EX2.88/EX2_88.sce @@ -0,0 +1,7 @@ + //EXAMPLE 2-88 PG NO-130
+L=10^-3; //INDUCTANCE
+C=20*10^-6; //CAPACITOR
+Rc=4; //CAPACITOR RESISTANCE
+RL=6; //LOAD RESISTANCE
+Wo=(1/(L*C)^0.5)*(((RL*RL)-(L/C))/((Rc*Rc)-(L/C)))^0.5;
+disp(' Wo is = '+string(Wo)+' rad/sec');
diff --git a/1760/CH2/EX2.89/EX2_89.sce b/1760/CH2/EX2.89/EX2_89.sce new file mode 100755 index 000000000..7b4a5e796 --- /dev/null +++ b/1760/CH2/EX2.89/EX2_89.sce @@ -0,0 +1,23 @@ + //example 2-89 pg no-134
+L=8*10^-3; //INDUCTANCE
+C=16*10^-9;
+Wo=1/[L*C]^0.5;
+R=10; //RESISTANCE
+Fo=Wo/(2*%pi); //FREQUENCY
+Q=(Wo*L)/R;
+Rp=((R*R)+(Wo*Wo*L*L))/R
+Vo1=100;
+B.W1=Wo/Q;
+R2=10*10^3;
+R3=60*10^3;
+LR=(Rp*R2)/R3;
+Q1=(Q*LR)/Rp
+Vo2=16.666;
+B.W2=Wo/Q1;
+disp(' Wo is = '+string(Wo)+' rad/sec');
+disp(' Q is = '+string(Q)+' ');
+disp(' Rp is = '+string(Rp)+' ohm');
+disp('BAND WIDTH 1 is = '+string(B.W1)+' rad/sec');
+disp('Load resistance is = '+string(LR)+' ohm');
+disp(' Q1 is = '+string (Q1)+' ');
+disp('BAND WIDTH2is = '+string(B.W2)+' rad/sec');
diff --git a/1760/CH2/EX2.9/EX2_9.sce b/1760/CH2/EX2.9/EX2_9.sce new file mode 100755 index 000000000..494b52afa --- /dev/null +++ b/1760/CH2/EX2.9/EX2_9.sce @@ -0,0 +1,10 @@ + //EXAMPLE 2-9 PG NO-65
+t1=0.0025; //time
+t2=0.005; //time
+t3=0.01; //time
+i1=10*314.16*cos(314.16*t1); //i1 is derivatives of i wrt t;
+disp('i) Current = '+string (i1)+'A ');
+i2=10*314.16*cos(314.16*t2);
+disp('ii) Current = '+string (i2)+'A ');
+i3=10*314.16*cos(314.16*t3);
+disp('iii) Current = '+string (i3)+'A ');
diff --git a/1760/CH2/EX2.90/EX2_90.sce b/1760/CH2/EX2.90/EX2_90.sce new file mode 100755 index 000000000..ad27ae9ad --- /dev/null +++ b/1760/CH2/EX2.90/EX2_90.sce @@ -0,0 +1,12 @@ + //EX 2-90 PG NO-135
+R=20; //RESISTANCE
+Vc=250; //VOLTAGE
+I=1; //CURRENT
+F=50; //FREQUENCY
+W=2*%pi*F;
+C=1/(W*50); //CAPACITOR
+L=1/(W*W*C); //INDUTANCE
+disp('W is = '+string(W)+' ');
+disp('CAPACITANCE(C) is = '+string(C)+' F');
+disp('INDUCTANCE(L) is = '+string(L)+' H');
+
diff --git a/1760/CH2/EX2.91/EX2_91.sce b/1760/CH2/EX2.91/EX2_91.sce new file mode 100755 index 000000000..c094bfa93 --- /dev/null +++ b/1760/CH2/EX2.91/EX2_91.sce @@ -0,0 +1,9 @@ + //EXAMPLE 2-91 PG NO-135
+L=10*10^-6; //INDUCTANCE
+R=1; //RESISTANCE
+C=10^4*10^-12; //CAPACITOR
+V=100; //VOLTAGE
+Z=L/(C*R); //IMPEDANCE
+I=V/Z; //CURRENT
+disp('IMPEDANCE is = '+string(Z)+'ohm');
+disp('CURRENT is = '+string(I)+' A');
diff --git a/1760/CH2/EX2.92/EX2_92.sce b/1760/CH2/EX2.92/EX2_92.sce new file mode 100755 index 000000000..e18b968e5 --- /dev/null +++ b/1760/CH2/EX2.92/EX2_92.sce @@ -0,0 +1,10 @@ +//EXAMPL2-92 PG NO-136
+L=0.5;
+R=25;
+C=10^-6;
+Wo= ((L- (R*R*C))/(5*10^-6*(0.5*0.5)))^0.5;
+Q=(Wo*L)/R;
+B.W=Wo/Q;
+disp('FREQUENCY is = '+string(Wo)+' rad/sec');
+disp('Q is = '+string(Q)+' ');
+disp('band width is = '+string(B.W)+'rad/sec');
diff --git a/1760/CH2/EX2.93/EX2_93.sce b/1760/CH2/EX2.93/EX2_93.sce new file mode 100755 index 000000000..c121611b0 --- /dev/null +++ b/1760/CH2/EX2.93/EX2_93.sce @@ -0,0 +1,12 @@ + //EXAMPLE 2-93 PG NO-139
+N1=100;
+Q1=0.05*10^-3;
+I1=5;
+L1=0.01;
+L2=0.01;
+K=0.6;
+i=1000; //(di/dt=20/0.02)
+M=K*((L1*L2)^0.5);
+V=M*i;
+disp('mutual induction is = '+string(M)+' H');
+disp('voltage induce is = '+string(V)+' v');
diff --git a/1760/CH2/EX2.94/EX2_94.sce b/1760/CH2/EX2.94/EX2_94.sce new file mode 100755 index 000000000..7ea71a652 --- /dev/null +++ b/1760/CH2/EX2.94/EX2_94.sce @@ -0,0 +1,13 @@ + //EXAMPLE 2.94 PG NO-139-140
+L=0.6; //LENGTH
+a=20*10^-4; //AREA
+MU=(4*%pi*10^-7);
+R=L/(MU*a);
+N1=1500;
+N2=500;
+i=250;
+M=(N1*N2)/R;
+e=M*(i);
+disp('R = '+string(R)+' ');
+disp('mutual induction is = '+string(M)+' H');
+disp('E.M.F INDUCE is = '+string(e)+' V');
diff --git a/1760/CH2/EX2.95/EX2_95.sce b/1760/CH2/EX2.95/EX2_95.sce new file mode 100755 index 000000000..fc3f3daf4 --- /dev/null +++ b/1760/CH2/EX2.95/EX2_95.sce @@ -0,0 +1,11 @@ + //EXAMPLE 2-95 PG NO-140
+L=1.5; //INDUCTANCE
+a=(2000*0.01);
+R=L/(4*%pi*10^-7*a); //RESISTANCE
+disp('i) Resistance (R) is = '+string (R) +' ohm ');
+N1=30;
+N2=600;
+M=(N1*N2)/R;
+disp('ii) M (M) is = '+string (M) +' H ');
+e=M*(10/0.01);
+disp('iii) e (e) is = '+string (e) +' V ');
diff --git a/1760/CH2/EX2.96/EX2_96.sce b/1760/CH2/EX2.96/EX2_96.sce new file mode 100755 index 000000000..23085baf4 --- /dev/null +++ b/1760/CH2/EX2.96/EX2_96.sce @@ -0,0 +1,6 @@ + //EXAMPLE-2.96 PG NO-140
+M=0.125;
+L1=0.2;
+L2=0.15;
+K=M/((L1*L2)^0.5)
+disp('i) K = '+string (K)+' ');
diff --git a/1760/CH2/EX2.97/EX2_97.sce b/1760/CH2/EX2.97/EX2_97.sce new file mode 100755 index 000000000..8aa22c2a9 --- /dev/null +++ b/1760/CH2/EX2.97/EX2_97.sce @@ -0,0 +1,15 @@ + //EXAMPLE-2.97 PG NO-140
+N1=500; //NUMBER OF TURN
+N22=1500;
+N12=500
+Q1=0.6*10^-3; //FLUX OF COIL
+I1=5; //CURRENT
+Q12=0.3*10^-3;
+L1=(N1*Q1)/I1
+K=Q12/Q1;
+L2=(N22/N12)*L1;
+M=K*((L1*L2)^0.5);
+disp('i) L1 = '+string (L2)+' ');
+disp('ii) K = '+string (K)+' H');
+disp('iii) L2 = '+string (L2)+' H');
+disp('i) M = '+string (M)+' H ');
diff --git a/1760/CH2/EX2.98/EX2_98.sce b/1760/CH2/EX2.98/EX2_98.sce new file mode 100755 index 000000000..8d2d6832e --- /dev/null +++ b/1760/CH2/EX2.98/EX2_98.sce @@ -0,0 +1,9 @@ + //example-2.98 pg no-141
+L1=37.5*10^-3;
+M=63.75*10^-3;
+K=0.85;
+N1=250;
+L2=((M/K)^2)/L1;
+N2=250/((L1/L2)^0.5);
+disp('i) L2 = '+string (L2)+' ');
+disp('i) N2 = '+string (N2)+' ');
diff --git a/1760/CH2/EX2.99/EX2_99.sce b/1760/CH2/EX2.99/EX2_99.sce new file mode 100755 index 000000000..753df8301 --- /dev/null +++ b/1760/CH2/EX2.99/EX2_99.sce @@ -0,0 +1,9 @@ + //EXAMPLE 2-99 PG NO -141
+L1=6.8;
+L2=4.5;
+C1=19.6;
+C2=3;
+M=(C1-C2)/4;
+disp('i) M (M) is = '+string (M) +' mH ');
+K=M/sqrt(L1*L2);
+disp('ii) K (K) is = '+string (K) +' ');
diff --git a/1760/CH3/EX3.1/EX3_1.sce b/1760/CH3/EX3.1/EX3_1.sce new file mode 100755 index 000000000..3ef633c68 --- /dev/null +++ b/1760/CH3/EX3.1/EX3_1.sce @@ -0,0 +1,11 @@ + //EXAMPLE 3-1 PG NO-172
+VL=400;
+Vp=400/sqrt(3);
+Z=8-%i*10;
+IL=Vp/Z;
+S=sqrt(3)*(VL*IL);
+P=S*(cos(-51.34));
+Q=S*(sin(-51.34));
+Von=230.94+%i*0;
+Vbn=-115.47-%i*99.99
+disp('i) RMS = '+string (S)+'A ')
diff --git a/1760/CH3/EX3.10/EX3_10.sce b/1760/CH3/EX3.10/EX3_10.sce new file mode 100755 index 000000000..81d6da0de --- /dev/null +++ b/1760/CH3/EX3.10/EX3_10.sce @@ -0,0 +1,27 @@ + //EXAMPLE 3-10 PG NO-180
+Za=6+%i*0;
+Zb=5.26+%i*3;
+Zc=3.535+%i*3.535;
+Van=230.94+%i*0;
+Vcn=-115.47-%i*200;
+Vbn=-115.47+%i*200;
+Ya=1/Za;
+disp('i) admittance (Ya) is in rectangular form = '+string (Ya) +' siemens ');
+Yb=1/Zb;
+disp('i) admittance (Yb) is in rectangular form = '+string (Yb) +' siemens ');
+Yc=1/Zc;
+disp('i) admittance (Yc) is in rectangular form = '+string (Yc) +' siemens ');
+Von=[(Van*Ya)+(Vbn*Yb)+(Vcn*Yc)]/(Ya+Yb+Yc);
+disp('i) Voltage (Von) is in rectangular form = '+string (Von) +' V');
+Vao=Van-Von;
+disp('i) Voltage (Vao) is in rectangular form = '+string (Vao) +' V');
+Vbo=Vbn-Von;
+disp('i) Voltage (Vbo) is in rectangular form = '+string (Vbo) +' V');
+Vco=Vcn-Von;
+disp('i) Voltage (Vco) is in rectangular form = '+string (Vco) +' V');
+Ia=Vao*Ya;
+disp('i) CURRENT (Ia) is in rectangular form = '+string (Ia) +' A ');
+Ib=Vbo*Yc;
+disp('i) CURRENT (Ib) is in rectangular form = '+string (Ib) +' A ');
+Ic=Vco*Yc;
+disp('i) CURRENT (Ic) is in rectangular form = '+string (Ic) +' A ');
diff --git a/1760/CH3/EX3.11/EX3_11.sce b/1760/CH3/EX3.11/EX3_11.sce new file mode 100755 index 000000000..8ee95b28d --- /dev/null +++ b/1760/CH3/EX3.11/EX3_11.sce @@ -0,0 +1,14 @@ + //EXAMPLE 3-11 PG NO-181
+
+Vrn=230.94+%i*0;
+Vyn=-115.47-%i*200;
+Vbn=-115.47+%i*200;
+Yr=-%i*0.05;
+Yy=%i*0.05;
+Yb=0.05;
+Von=[(Vrn*Yr)+(Vyn*Yy)+(Vbn*Yb)]/(Yr+Yy+Yb);
+disp('i) Voltage (Von) is in rectangular form = '+string (Von) +' V');
+Vyo=Vyn-Von;
+disp('i) Voltage (Vyo) is in rectangular form = '+string (Vyo) +' V');
+Iy=Vyo*Yy;
+disp('iii) CURRENT (Iy) is in rectangular form = '+string (Iy) +' A ');
diff --git a/1760/CH3/EX3.12/EX3_12.sce b/1760/CH3/EX3.12/EX3_12.sce new file mode 100755 index 000000000..8e9f50b64 --- /dev/null +++ b/1760/CH3/EX3.12/EX3_12.sce @@ -0,0 +1,28 @@ + //EXAMPLE 3-12 PG NO-181-182
+Vp=400;
+Zp=10+%i*24;
+Zpy=6-%i*8;
+Ip=Vp/Zp;
+disp('i) CURRENT (Ip) is in rectangular form = '+string (Ip) +' A ');
+Ipy=[Vp/sqrt(3)]/Zpy;
+disp('ii) CURRENT (Ipy) is in rectangular form = '+string (Ipy) +' A ');
+Rp=10;
+Rpy=6;
+Xp=24;
+Xpy=-8;
+P1=3*Ip*Ip*Rp;
+disp('iii) Power (P1) is = '+string (P1) +' W ');
+P2=Ipy*Ipy*3*Rpy;
+disp('iv) Power (P2) is = '+string (P2) +' W ');
+Q1=3*Ip*Ip*Xp;
+disp('v) Power (Q1) is = '+string (Q1) +' W ');
+Qy=3*Ipy*Ipy*Xpy;
+disp('vi) Power (Qy) is = '+string (Qy) +' W ');
+P=P1+P2;
+disp('vii) Power (P) is = '+string (P) +' W ');
+Q=Q1+Qy;
+disp('viii) Power (Q) is = '+string (Q) +' W ');
+S=P+%i*Q;
+disp('ix) Power (S) is = '+string (S) +' W ');
+LI=S/[sqrt(3)*Vp];
+disp('x) CURRENT (LI) is in rectangular form = '+string (LI) +' A ');
diff --git a/1760/CH3/EX3.13/EX3_13.sce b/1760/CH3/EX3.13/EX3_13.sce new file mode 100755 index 000000000..5cb2fda5e --- /dev/null +++ b/1760/CH3/EX3.13/EX3_13.sce @@ -0,0 +1,13 @@ + //EXAMPLE 3-13 PG NO 182
+VRY=375.877+%i*136.80;
+disp('i) LINE VOLTAGE (VRY) is in rectangular form = '+string (VRY) +' V ');
+VYB=-69.45-%i*393.923;
+disp('ii) LINE VOLTAGE (VYB) is in rectangular form = '+string (VYB) +' V ');
+VBR=-306.41+%i*257.11;
+disp('iii) LINE VOLTAGE (VBR) is in rectangular form = '+string (VBR) +' V ');
+VYR=-VRY;
+disp('i) LINE VOLTAGE (VYR) is in rectangular form = '+string (VYR) +' V ');
+VRB=69.45+%i*393.923;
+disp('i) LINE VOLTAGE (VRB) is in rectangular form = '+string (VRB) +' V ');
+VBY=306.41-%i*257.11;
+disp('i) LINE VOLTAGE (VBY) is in rectangular form = '+string (VBY) +' V ');
diff --git a/1760/CH3/EX3.15/EX3_15.sce b/1760/CH3/EX3.15/EX3_15.sce new file mode 100755 index 000000000..3c5d277db --- /dev/null +++ b/1760/CH3/EX3.15/EX3_15.sce @@ -0,0 +1,17 @@ + //EXAMPLE 3-15 PG NO-185-186
+Van=230.94+%i*0;
+Vbn=-115.47-%i*200;
+Vcn=-115.47+%i*200;
+V1=10*10^3;
+Ia=V1/Van;
+disp('i) CURRENT (Ia) is in rectangular form = '+string (Ia) +' A ');
+V2=4*10^3;
+Ic=V2/Van;
+disp('i) CURRENT (Ic) is in rectangular form = '+string (Ic) +' A ');
+V3=6*10^3;
+Ib=V3/Van;
+disp('i) CURRENT (Ib) is in rectangular form = '+string (Ib) +' A ');
+In=(Ia+Ib+Ic);
+disp('i) CURRENT (In) is in rectangular form = '+string (In) +' A ');
+W1=[V1+V2+V3]/2;
+disp('iv) Power (W1) is in rectangular form = '+string (W1) +' W ');
diff --git a/1760/CH3/EX3.16/EX3_16.sce b/1760/CH3/EX3.16/EX3_16.sce new file mode 100755 index 000000000..cd4b7de76 --- /dev/null +++ b/1760/CH3/EX3.16/EX3_16.sce @@ -0,0 +1,10 @@ + //example-3.16 pg no-186
+W1=5920;
+W2=2610;
+P=8530;
+tanQ=(1.732*(W2-W1))/(W1+W2);
+cosQ=0.83;
+P.F=cosQ;
+disp('i) tanQ = '+string (tanQ)+' ');
+disp('ii) POWER FACTOR = '+string (P.F)+' ');
+
diff --git a/1760/CH3/EX3.18/EX3_18.sce b/1760/CH3/EX3.18/EX3_18.sce new file mode 100755 index 000000000..d045ed493 --- /dev/null +++ b/1760/CH3/EX3.18/EX3_18.sce @@ -0,0 +1,14 @@ + //Example 3.18 pg no-186-187
+cosQ=0.8;
+sinQ=0.6;
+VL=10000;
+V=5000*10^3; //VOLTAGE
+P.F=0.9; //POWER FACTOR
+IL=V/(1.732*VL*cosQ) ;
+I1=IL*cosQ; //ACTIVE COMPONENT
+I2=IL*sinQ; //REACTIVE COMPONENT
+P=1.732*(VL*IL*P.F)
+disp('i) IL = '+string (IL)+' A');
+disp('i) ACTIVE COMPONENT = '+string (I1)+' A');
+disp('i) REACTIVE COMPONENT = '+string (I2)+' A');
+disp('i) P = '+string (P)+' KW');
diff --git a/1760/CH3/EX3.19/EX3_19.sce b/1760/CH3/EX3.19/EX3_19.sce new file mode 100755 index 000000000..88accced6 --- /dev/null +++ b/1760/CH3/EX3.19/EX3_19.sce @@ -0,0 +1,12 @@ + //EXAMPLE 3.19 PG NO-187
+VL=230;
+VP=VL/1.732;
+IL=13.279;
+COSQ=0.8;
+SINQ=0.6;
+P=(1.732*VL*IL*COSQ)
+R.P=(1.732*VL*IL*SINQ)
+VA=(1.732*VL*VP)
+disp('i) POWER FACTOR = '+string (P)+' W');
+disp('i) POWER FACTOR = '+string (R.P)+' var');
+disp('i)TOTAL VA = '+string (VA)+' VA');
diff --git a/1760/CH3/EX3.2/EX3_2.sce b/1760/CH3/EX3.2/EX3_2.sce new file mode 100755 index 000000000..7a1a4b051 --- /dev/null +++ b/1760/CH3/EX3.2/EX3_2.sce @@ -0,0 +1,28 @@ + //EXAMPLE 2-32 PG NO 173
+Vp=400; //Peak voltage
+VL=400;
+Z=8-%i*10; //Impedance
+Ip=VL/12.81;
+IL=sqrt(3)*Ip;
+S=sqrt(3)*VL*IL;
+P=S*cos(-51.34);
+Q=S*sin(-51.34);
+Vab=Vp+%i*0;
+Vbc=-200-%i*346.410;
+Vca=-200+%i*346;
+Iab=Vab/Z;
+Ibc=Vbc/Z;
+Ica=Vca/Z;
+Ia=Iab-Ibc;
+Ib=Ibc-Iab;
+Ic=Ica-Ibc;
+disp('i) Peak current = '+string (Ip)+'A ')
+disp('i) S = '+string (S)+'VA ')
+disp('i) Active Power = '+string (P)+'W ')
+disp('i) Reactive power = '+string (Q)+'Vars ')
+disp('i) Iab is in reactance form = '+string (Iab)+'A ')
+disp('i) Ibc is in reactance form = '+string (Ibc)+'A ')
+disp('i) Ica is in reactance form= '+string (Ica)+'A ')
+disp('i) Ia is in reactance form = '+string (Ia)+'A ')
+disp('i) Ib is in reactance form = '+string (Ib)+'A ')
+disp('i) Ic is in reactance = '+string (Ic)+'A ')
diff --git a/1760/CH3/EX3.20/EX3_20.sce b/1760/CH3/EX3.20/EX3_20.sce new file mode 100755 index 000000000..2c17f4695 --- /dev/null +++ b/1760/CH3/EX3.20/EX3_20.sce @@ -0,0 +1,15 @@ + //Example 3.20 pg no-187
+Ip=100; //LINE CURRENT
+COSQ=0.787;
+SINQ=0.617;
+pi=3.14;
+Vp=1100/1.732;
+W=(2*pi*50)
+Z=Vp/Ip;
+R=Z*COSQ;
+Xc=Z*SINQ
+C=1/(W*Xc)
+disp('i) Z = '+string (Z)+' ohm');
+disp('ii) R = '+string (R)+' ohm');
+disp('iii) Xc = '+string (Xc)+' ohm');
+disp('iiii)capacitance (C) = '+string (C)+' F');
diff --git a/1760/CH3/EX3.21/EX3_21.sce b/1760/CH3/EX3.21/EX3_21.sce new file mode 100755 index 000000000..a83c2daec --- /dev/null +++ b/1760/CH3/EX3.21/EX3_21.sce @@ -0,0 +1,13 @@ + // EXAMPLE 3.21 PG NO-187
+Ip=20;
+IL=(1.732*Ip);
+VL=400;
+cos40=0.766;
+sin40=0.642;
+VA=(1.732*VL*IL);
+p=(VA*cos40);
+q=(VA*sin40);
+disp('i) VA = '+string (VA)+' VA');
+disp('ii) P = '+string (p)+' W');
+disp('iii) Q = '+string (q)+' vars');
+
diff --git a/1760/CH3/EX3.22/EX3_22.sce b/1760/CH3/EX3.22/EX3_22.sce new file mode 100755 index 000000000..eddf0ccc0 --- /dev/null +++ b/1760/CH3/EX3.22/EX3_22.sce @@ -0,0 +1,6 @@ + //EXAMPLE 3.22 PG NO-188
+Vp=230;
+VL=230;
+Z=8+%i*6;
+Ip=Vp/Z;
+disp('i) CURRENT (Ip) is in rectangular form = '+string (Ip) +' A ');
diff --git a/1760/CH3/EX3.23/EX3_23.sce b/1760/CH3/EX3.23/EX3_23.sce new file mode 100755 index 000000000..441dc57be --- /dev/null +++ b/1760/CH3/EX3.23/EX3_23.sce @@ -0,0 +1,17 @@ + //EXAMPLE 3-23 PG NO-188
+Za=8.66+%i*5;
+Zc=8.48+%i*8.48;
+Zb=11.50+%i*9.642;
+VRn=254+%i*0;
+VYn=-127.02-%i*220;
+Vbn=-127.02+%i*220;
+Yr=1/Za;
+disp('i) admittance (Ya) is in rectangular form = '+string (Yr) +' siemens ');
+Yb=1/Zb;
+disp('i) admittance (Yb) is in rectangular form = '+string (Yb) +' siemens ');
+Yy=1/Zc;
+disp('i) admittance (Yc) is in rectangular form = '+string (Yy) +' siemens ');
+
+Von=[(VRn*Yr)+(Vbn*Yb)+(VYn*Yy)]/(Yr+Yb+Yy);
+
+disp('i) Voltage (Von) is in rectangular form = '+string (Von) +' V');
diff --git a/1760/CH3/EX3.24/EX3_24.sce b/1760/CH3/EX3.24/EX3_24.sce new file mode 100755 index 000000000..c431dd9e1 --- /dev/null +++ b/1760/CH3/EX3.24/EX3_24.sce @@ -0,0 +1,7 @@ + //EXAMPLE 3-24 PG NO-189
+W1=-1200;
+W2=3400;
+P=W1+W2;
+disp('iv) Power (P) is = '+string (P) +' W ');
+X=[sqrt(3)*(W2-W1)]/P;
+disp('iv) (tan (Q)) is = '+string (X) +' ');
diff --git a/1760/CH3/EX3.25/EX3_25.sce b/1760/CH3/EX3.25/EX3_25.sce new file mode 100755 index 000000000..07fdc9ff2 --- /dev/null +++ b/1760/CH3/EX3.25/EX3_25.sce @@ -0,0 +1,21 @@ + //EXAMPLE 3-25 PG NO-189
+Vac=240+%i*0;
+Vcb=-120-%i*207.84;
+Vba=-120+%i*207.84;
+Zac=20+%i*0;
+Zcb=12.99+%i*7.5;
+Zba=0+%i*25;
+Iac=Vac/Zac;
+disp('i) CURRENT (Iac) is in rectangular form = '+string (Iac) +' A ');
+Icb=Vcb/Zcb;
+disp('i) CURRENT (Icb) is in rectangular form = '+string (Icb) +' A ');
+Iba=Vba/Zba;
+disp('i) CURRENT (Iba) is in rectangular form = '+string (Iba) +' A ');
+Ia=Iac-Iba;
+disp('i) CURRENT (Ia) is in rectangular form = '+string (Ia) +' A ');
+Ib=Iba-Icb;
+disp('i) CURRENT (Ib) is in rectangular form = '+string (Ib) +' A ');
+Ic=Icb-Iac;
+disp('i) CURRENT (Ic) is in rectangular form = '+string (Ic) +' A ');
+P=(240*12)+(240*16*0.866)+(240*9.6*0);
+disp('iv) Power (P) is = '+string (P) +' W ');
diff --git a/1760/CH3/EX3.26/EX3_26.sce b/1760/CH3/EX3.26/EX3_26.sce new file mode 100755 index 000000000..6c3d046be --- /dev/null +++ b/1760/CH3/EX3.26/EX3_26.sce @@ -0,0 +1,20 @@ +Vab=200+%i*0;
+Vbc=-100-%i*173.20;
+Vca=-100+%i*173.20;
+Zac=31+%i*59;
+Zcb=30-%i*40;
+Zba=80+%i*60;
+Iab=Vab/Zac;
+disp('i) CURRENT (Iac) is in rectangular form = '+string (Iab) +' A ');
+Ibc=Vbc/Zcb;
+disp('i) CURRENT (Icb) is in rectangular form = '+string (Ibc) +' A ');
+Ica=Vca/Zba;
+disp('i) CURRENT (Iba) is in rectangular form = '+string (Ica) +' A ');
+Ia=Iab-Ica;
+disp('i) CURRENT (Ia) is in rectangular form = '+string (Ia) +' A ');
+Ib=Ibc-Iab;
+disp('i) CURRENT (Ib) is in rectangular form = '+string (Ib) +' A ');
+Ic=Ica-Ibc;
+disp('i) CURRENT (Ic) is in rectangular form = '+string (Ic) +' A ');
+P=(200*3*0.46)+(200*4*0.6)+(200*2*0.8);
+disp('iv) Power (P) is = '+string (P) +' W ');
diff --git a/1760/CH3/EX3.27/EX3_27.sce b/1760/CH3/EX3.27/EX3_27.sce new file mode 100755 index 000000000..2dfde5dd2 --- /dev/null +++ b/1760/CH3/EX3.27/EX3_27.sce @@ -0,0 +1,9 @@ + //EXAMPLE-3.27 PG NO-190-191
+Zr=4;
+Zy=5;
+VL=400;
+IL=103.1;
+Q=36.6 //Q=TETA
+COSQ=0.8028;
+P=(1.732*VL*IL*COSQ)
+disp('i) P = '+string (P)+' W');
diff --git a/1760/CH3/EX3.28/EX3_28.sce b/1760/CH3/EX3.28/EX3_28.sce new file mode 100755 index 000000000..aa7dc140e --- /dev/null +++ b/1760/CH3/EX3.28/EX3_28.sce @@ -0,0 +1,17 @@ + //EXAMPLE 3-28 PG NO-191
+Van=230.94+%i*0;
+Vbn=-115.47-%i*200;
+Vcn=-115.47+%i*200;
+Za=12-%i*16;
+Zb=12+%i*0;
+Zc=8+%i*6;
+Ia=Van/Za;
+disp('i) CURRENT (Ia) is in rectangular form = '+string (Ia) +' A ');
+Ib=Vbn/Zb;
+disp('i) CURRENT (Ib) is in rectangular form = '+string (Ib) +' A ');
+Ic=Vcn/Zc;
+disp('i) CURRENT (Ic) is in rectangular form = '+string (Ic) +' A ');
+NI=-(Ia+Ib+Ic);
+disp('i)NEUTRAL CURRENT (NI) is in rectangular form = '+string (NI) +' A ');
+P=(230.95*11.55*0.6)+(230.95*19.25*1)+(230.95*23.095*0.8);
+disp('iv) Power (P) is = '+string (P) +' W ');
diff --git a/1760/CH3/EX3.29/EX3_29.sce b/1760/CH3/EX3.29/EX3_29.sce new file mode 100755 index 000000000..4be27f95e --- /dev/null +++ b/1760/CH3/EX3.29/EX3_29.sce @@ -0,0 +1,5 @@ + //Example-3.29 PG NO-191-192
+IL=12.55;
+V=460;
+Z=V/(1.732*IL)
+disp('i) Z = '+string (Z)+' ohm');
diff --git a/1760/CH3/EX3.3/EX3_3.sce b/1760/CH3/EX3.3/EX3_3.sce new file mode 100755 index 000000000..80403a2f5 --- /dev/null +++ b/1760/CH3/EX3.3/EX3_3.sce @@ -0,0 +1,15 @@ + //EXAMPLE 3.3 PG NO 174
+Zy=3+%i*5.196;
+Zeq=2.55+%i*2.916;
+Vp=230.94;
+IL=59.61;
+Ip=59.61;
+VL=400;
+cos(48.83)=0.658;
+sin(48.83)=0.7527;
+S=sqrt(3)*VL*IL;
+P=sqrt(3)*VL*IL*0.658;
+Q=sqrt(3)*VL*IL*0.7527;
+disp('i) S = '+string (S)+'VA ')
+disp('i) Active power = '+string (P)+'W ')
+disp('i) Reactive power = '+string (Q)+'Vars ')
diff --git a/1760/CH3/EX3.30/EX3_30.sce b/1760/CH3/EX3.30/EX3_30.sce new file mode 100755 index 000000000..17a68415e --- /dev/null +++ b/1760/CH3/EX3.30/EX3_30.sce @@ -0,0 +1,5 @@ + //EXAMPLE 3-30 PG NO-192
+R=8*0.866; //cos30=0.866
+disp('i) Resistance (R) is = '+string (R) +' ohm ');
+X=8*0.5;
+disp('ii) X (X) is = '+string (X) +' ohm ');
diff --git a/1760/CH3/EX3.31/EX3_31.sce b/1760/CH3/EX3.31/EX3_31.sce new file mode 100755 index 000000000..84e8ff63c --- /dev/null +++ b/1760/CH3/EX3.31/EX3_31.sce @@ -0,0 +1,9 @@ + //EXAMPLE -3.31 PG NO -193
+Zr=3333.33;
+Vry=200;
+X=16666.66;
+Y=346.40; //Y=(300-j173.2)
+I=Y/X;
+R.V=I*Zr;
+disp('i) I = '+string (I)+'<-29.99 A');
+disp('ii) READING OF VOLTMETER = '+string (R.V)+' <-30 degree V');
diff --git a/1760/CH3/EX3.32/EX3_32.sce b/1760/CH3/EX3.32/EX3_32.sce new file mode 100755 index 000000000..ad54359ee --- /dev/null +++ b/1760/CH3/EX3.32/EX3_32.sce @@ -0,0 +1,24 @@ + //EXAMPLE 3-32 PG NO-193
+Vry=400+%i*0;
+Vyb=-200-%i*346.41;
+Vbr=-200+%i*346.410;
+I1=14.74-%i*7.3;
+I2=2.105-%i*10.94;
+Ir=I1;
+disp('i) CURRENT (Ir) is in rectangular form = '+string (Ir) +' A ');
+Iy=I2-I1;
+disp('i) CURRENT (Iy) is in rectangular form = '+string (Iy) +' A ');
+Ib=-I2;
+disp('i) CURRENT (Ib) is in rectangular form = '+string (Ib) +' A ');
+Pr=16.45*16.45*10;
+disp('i) Power (Pr) is = '+string (Pr) +' W ');
+Py=Iy*Iy*20;
+disp('i) Power (Py) is in rectangular form = '+string (Py) +' W ');
+Pb=11.24*11.24*25;
+disp('i) Power (Pb) is in rectangular form = '+string (Pb) +' W ');
+Vro=-(Ir*10);
+disp('i) VOLTAGE (Vro) is in rectangular form = '+string (Vro) +' V ');
+Vrn=200-%i*115.475;
+disp('i) VOLTAGE (Vrn) is in rectangular form = '+string (Vrn) +' V ');
+Von=Vro+Vrn;
+disp('i) VOLTAGE (Von) is in rectangular form = '+string (Von) +' V ');
diff --git a/1760/CH3/EX3.33/EX3_33.sce b/1760/CH3/EX3.33/EX3_33.sce new file mode 100755 index 000000000..055ce9213 --- /dev/null +++ b/1760/CH3/EX3.33/EX3_33.sce @@ -0,0 +1,5 @@ + //EXAMPLE 3-33 PG NO-194
+Z1=8-%i*6;
+Z2=3.6-%i*4.8;
+In=-(Z1+Z2);
+disp('i) CURRENT (In) is in rectangular form = '+string (In) +' A ');
diff --git a/1760/CH3/EX3.34/EX3_34.sce b/1760/CH3/EX3.34/EX3_34.sce new file mode 100755 index 000000000..46c518949 --- /dev/null +++ b/1760/CH3/EX3.34/EX3_34.sce @@ -0,0 +1,20 @@ + //EXAMPLE 3-34 PG NO-194
+Vp=230.94;
+Van=230.94+%i*0;
+Vbn=-115.47-%i*200;
+Vcn=-115.47+%i*200;
+Z=8-%i*10;
+Ia=Van/Z;
+disp('i) CURRENT (Ia) is in rectangular form = '+string (Ia) +' A ');
+Ib=Vbn/Z;
+disp('ii) CURRENT (Ib) is in rectangular form = '+string (Ib) +' A ');
+Ic=Vcn/Z;
+disp('iii) CURRENT (Ic) is in rectangular form = '+string (Ic) +' A ');
+S=sqrt(3)*400*18.03;
+disp('iv) APPARENT POWER (S) is = '+string (S) +' VA ');
+P=S*0.62;
+disp('v) Power (P) is = '+string (P) +' W ');
+Q=S*-0.8;
+disp('vi) Power (Q) is = '+string (Q) +' vars ');
+
+
diff --git a/1760/CH3/EX3.35/EX3_35.sce b/1760/CH3/EX3.35/EX3_35.sce new file mode 100755 index 000000000..dd5e310ff --- /dev/null +++ b/1760/CH3/EX3.35/EX3_35.sce @@ -0,0 +1,14 @@ + //EXAMPLE -3.35 PG NO-195
+I.P=163.44; //POWER INPUT
+T.A.P=253.44; //TOTAL ACTIVE POWER
+R.P=122.58; //REACTIVE POWER INDUCTION MOTOR
+L=40; //REACTIVE POWER OF SPECIAL LOAD
+T.P=R.P+L; //TOTAL REACTIVE POWER
+S=301.1; //P+JQ
+X=T.A.P/S; //OVERALL POWRER FACTOR
+IL=S*10^3/(1.732*400)
+disp('i)TOTAL REACTIVE POWER = '+string (T.P)+' Kvar')
+disp('i) S = '+string (S)+' KVA')
+disp('i)OVERALL POWER FACTOR (x) = '+string (X)+' lagging')
+disp('iiii)LOAD CURRENT (IL) = '+string (IL)+' A')
+
diff --git a/1760/CH3/EX3.36/EX3_36.sce b/1760/CH3/EX3.36/EX3_36.sce new file mode 100755 index 000000000..8184f6f0c --- /dev/null +++ b/1760/CH3/EX3.36/EX3_36.sce @@ -0,0 +1,11 @@ + //EXAMPLE-3.36 PG NO -195
+Vp=400/(3)^0.5;
+R.p=162.58*10^3;
+Ipc=R.p/(3*Vp);
+IL=365.82;
+Xc=Vp/Ipc;
+pi=3.14;
+C=1/(2*pi*50*Xc)
+disp('i) Ipc = '+string (Ipc)+' A');
+disp('ii) Xc = '+string (Xc)+' ohm');
+disp('i) CAPACITANCE = '+string (C)+' F');
diff --git a/1760/CH3/EX3.37/EX3_37.sce b/1760/CH3/EX3.37/EX3_37.sce new file mode 100755 index 000000000..821427dcb --- /dev/null +++ b/1760/CH3/EX3.37/EX3_37.sce @@ -0,0 +1,39 @@ + //EXAMPLE 3-37 PG NO-196-197
+Vry=450+%i*0;
+Vyb=-225-%i*389.711;
+Vbr=-225+%i*389.711;
+Vrn=225-%i*130;
+Vyn=-225-%i*130;
+Vbn=0+%i*259.8;
+Z1=10.60+%i*10.60;
+Z2=5+%i*8.66;
+Z3=2.6+%i*1.5;
+Z4=12.21+%i*4.44;
+Iry=Vry/Z1;
+disp('i) CURRENT (Iry) is in rectangular form = '+string (Iry) +' A ');
+Iyb=Vyb/Z2;
+disp('i) CURRENT (Iyb) is in rectangular form = '+string (Iyb) +' A ');
+Ibr=Vbr/Z3;
+disp('i) CURRENT (Ibr) is in rectangular form = '+string (Ibr) +' A ');
+I1=Iry-Ibr;
+disp('i) CURRENT (I1) is in rectangular form = '+string (I1) +' A ');
+I2=Iyb-Iry;
+disp('i) CURRENT (I2) is in rectangular form = '+string (I2) +' A ');
+I3=Ibr-Iyb;
+disp('i) CURRENT (I3) is in rectangular form = '+string (I3) +' A ');
+I4=Vrn/Z4;
+disp('i) CURRENT (I4) is in rectangular form = '+string (I4) +' A ');
+I5=Vyn/Z4;
+disp('i) CURRENT (I5) is in rectangular form = '+string (I5) +' A ');
+I6=Vbn/Z4;
+disp('i) CURRENT (I6) is in rectangular form = '+string (I6) +' A ');
+I7=Vbn/(3+%i*4);
+disp('i) CURRENT (I7) is in rectangular form = '+string (I7) +' A ');
+IR=I1+I4;
+disp('i) CURRENT (IR) is in rectangular form = '+string (IR) +' A ');
+IY=I1+I4;
+disp('i) CURRENT (IY) is in rectangular form = '+string (IY) +' A ');
+IB=I3+I6+I7;
+disp('i) CURRENT (IB) is in rectangular form = '+string (IB) +' A ');
+IN=-(I7);
+disp('i) CURRENT (IN) is in rectangular form = '+string (IN) +' A ');
diff --git a/1760/CH3/EX3.39/EX3_39.sce b/1760/CH3/EX3.39/EX3_39.sce new file mode 100755 index 000000000..2b65d656b --- /dev/null +++ b/1760/CH3/EX3.39/EX3_39.sce @@ -0,0 +1,23 @@ +VAB=400+%i*0;
+VBC=-200-%i*346.41;
+VCA=400+%i*0;
+Z1=300-%i*398;
+IAB=VAB/Z1;
+disp('i) CURRENT (IAB) is in rectangular form = '+string (IAB) +' A ');
+VAD=IAB*300;
+disp('ii) VOLTAGE (VAD) is in rectangular form = '+string (VAD) +' V ');
+VDA=-VAD;
+disp('iii) VOLTAGE (VDA) is in rectangular form = '+string (VDA) +' V ');
+VDC=VDA-VCA;
+disp('iv) VOLTAGE (VDC) is in rectangular form = '+string (VDC) +' VA ');
+VAC=400+%i*0;
+VCB=-200-%i*346.41;
+VBA=-200+%i*346.410;
+IAB1=-(VAC)/Z1;
+disp('v) CURRENT (IAB1) is in rectangular form = '+string (IAB1) +' A ');
+VAD1=IAB1*300;
+disp('vi) VOLTAGE (VAD1) is in rectangular form = '+string (VAD1) +' V ');
+VDA=-VAD;
+disp('vii) VOLTAGE (VAAD) is in rectangular form = '+string (VDA) +' V ');
+VDC=VDA+VAC;
+disp('viii) VOLTAGE (VDC) is in rectangular form = '+string (VDC) +' V ');
diff --git a/1760/CH3/EX3.4/EX3_4.sce b/1760/CH3/EX3.4/EX3_4.sce new file mode 100755 index 000000000..91ba2924d --- /dev/null +++ b/1760/CH3/EX3.4/EX3_4.sce @@ -0,0 +1,11 @@ + //EXAMPLE 3-4 PG NO-174
+V=220;
+Im=15.75+%i*21;
+Z=5.33-%i*4;
+LI=V/(sqrt(3)*Z);
+TLI=LI+Im;
+cos(-17.16)=0.955;
+PF=sqrt(3)*0.955*V*32.42;
+disp('i) Line current = '+string (LI)+'A ');
+disp('i) TOTAL line current = '+string (TLI)+'A ');
+disp('i) Power Factor = '+string (PF)+'W ');
diff --git a/1760/CH3/EX3.40/EX3_40.sce b/1760/CH3/EX3.40/EX3_40.sce new file mode 100755 index 000000000..f7ecc68dd --- /dev/null +++ b/1760/CH3/EX3.40/EX3_40.sce @@ -0,0 +1,11 @@ + //EXAMPLE-3.40 PG NO-199
+Vry=200;
+Vbr=200;
+Vbn=115.47;
+I1=10; //10-j12
+W1=200*I1;
+X1=173.2;
+X2=26.66;
+W2=X1*X2;
+disp('i)WATTMETERS (W2) = '+string (W2)+' W')
+
diff --git a/1760/CH3/EX3.41/EX3_41.sce b/1760/CH3/EX3.41/EX3_41.sce new file mode 100755 index 000000000..8d944a996 --- /dev/null +++ b/1760/CH3/EX3.41/EX3_41.sce @@ -0,0 +1,7 @@ + // CHAPTER -3 EXAMPLE NO 3.41 PG NO-200
+Vp=230.94;
+Xa=100+%i*155;
+Ia=Vp/Xa;
+COSQ=0.542;
+P=COSQ;
+disp('i) (Ia) = '+string (Ia)+' A')
diff --git a/1760/CH3/EX3.42/EX3_42.sce b/1760/CH3/EX3.42/EX3_42.sce new file mode 100755 index 000000000..32fc17ada --- /dev/null +++ b/1760/CH3/EX3.42/EX3_42.sce @@ -0,0 +1,20 @@ +Van=254+%i*0;
+Vbn=-127.02-%i*220;
+Vcn=-127.02+%i*220;
+Ib=0-%i*10;
+Ic=0+%i*20;
+Ia=-(Ib+Ic);
+disp('i) CURRENT (Ia) is in rectangular form = '+string (Ia) +' A ');
+Von=-173.20+%i*100;
+Vao=Van-Von;
+disp('i) VOLTAGE (Vao) is in rectangular form = '+string (Vao) +' V ');
+Vbo=Vbn-Von;
+disp('i) VOLTAGE (Vbo) is in rectangular form = '+string (Vbo) +' V ');
+Vco=Vcn-Von;
+disp('i) VOLTAGE (Vco) is in rectangular form = '+string (Vco) +' V ');
+Za=Vao/Ia;
+disp('i) IMPEDANCE (Za) is in rectangular form = '+string (Za) +' ohm ');
+Zb=Vbo/Ib;
+disp('i) IMPEDANCE (Zb) is in rectangular form = '+string (Zb) +' ohm ');
+Zc=Vco/Ic;
+disp('i) IMPEDANCE (Zc) is in rectangular form = '+string (Zc) +' ohm ');
diff --git a/1760/CH3/EX3.43/EX3_43.sce b/1760/CH3/EX3.43/EX3_43.sce new file mode 100755 index 000000000..d003693b6 --- /dev/null +++ b/1760/CH3/EX3.43/EX3_43.sce @@ -0,0 +1,14 @@ + //example-3.43 pg no-200-201
+Ip=11<36.87;
+PL=5808;
+QL=4356;
+Pm=6000;
+Qm=8000;
+P=PL+Pm;
+Q=Qm-QL;
+S=((P*P)+(Q*Q))^0.5;
+X=P/S; //POWER FACTOR
+disp('i)ACTIVE POWER (P) = '+string (P)+' W')
+disp('i)REACTIVE POWER (Q) = '+string (Q)+' vars(inductive)')
+disp('i)APPARENT POWER (S) = '+string (S)+' A')
+disp('i)power factor (X) = '+string (X)+' lagging')
diff --git a/1760/CH3/EX3.44/EX3_44.sce b/1760/CH3/EX3.44/EX3_44.sce new file mode 100755 index 000000000..8fdd0ddf6 --- /dev/null +++ b/1760/CH3/EX3.44/EX3_44.sce @@ -0,0 +1,10 @@ + //EXAMPLE 3.44 PG NO-201
+W1=800;
+W2=-400;
+P=W1+W2;
+x=(1.723*(W2-W1))/(W1+W2) //tanQ=x
+Q=-79.10;
+y=0.189;
+P=y //POWER FACTOR
+disp('i)tanQ (x) = '+string (x)+' ')
+disp('i) POWER factor (P) = '+string (P)+' ')
diff --git a/1760/CH3/EX3.45/EX3_45.sce b/1760/CH3/EX3.45/EX3_45.sce new file mode 100755 index 000000000..bbab6d8bb --- /dev/null +++ b/1760/CH3/EX3.45/EX3_45.sce @@ -0,0 +1,25 @@ + //EXAMPLE 3-45 PG NO-201-202
+Vab=0+%i*212;
+Vbc=-183.6-%i*106;
+Vca=183.6-%i*106;
+Za=10+%i*0;
+Zb=10+%i*10;
+Zc=0-%i*20;
+Zab=[(Za*Zb)+(Zb*Zc)+(Za*Zc)]/Zc;
+disp('i) IMPEDANCE (Zab) is in rectangular form = '+string (Zab) +' ohm ');
+Zbc=[(Za*Zb)+(Zb*Zc)+(Za*Zc)]/Za;
+disp('i) IMPEDANCE (Zbc) is in rectangular form = '+string (Zbc) +' ohm ');
+Zca=[(Za*Zb)+(Zb*Zc)+(Za*Zc)]/Zb;
+disp('i) IMPEDANCE (Zca) is in rectangular form = '+string (Zca) +' ohm ');
+Iab=Vab/Zab;
+disp('i) CURRENT (Iab) is in rectangular form = '+string (Iab) +' A ');
+Ibc=Vbc/Zbc;
+disp('i) CURRENT (Ibc) is in rectangular form = '+string (Ibc) +' A ');
+Ica=Vca/Zca;
+disp('i) CURRENT (Ica) is in rectangular form = '+string (Ica) +' A ');
+Ia=Iab-Ica;
+disp('i) CURRENT (Ia) is in rectangular form = '+string (Ia) +' A ');
+Ib=Ibc-Iab;
+disp('i) CURRENT (Ib) is in rectangular form = '+string (Ib) +' A ');
+Ic=Ica-Ibc;
+disp('i) CURRENT (Ic) is in rectangular form = '+string (Ic) +' A ');
diff --git a/1760/CH3/EX3.47/EX3_47.sce b/1760/CH3/EX3.47/EX3_47.sce new file mode 100755 index 000000000..e0dade497 --- /dev/null +++ b/1760/CH3/EX3.47/EX3_47.sce @@ -0,0 +1,13 @@ + //EXAMPLE 3-47 PG NO-202-203
+Vab=212;
+Vbc=212;
+Vca=212;
+Iab=10;
+Ibc=5;
+Ica=7.07;
+P=[(Vab*Iab*0.707)+(Vbc*Ibc*0.707)+(212*7.07*0)];
+disp('i) ACTIVE POWER (P) is = '+string (P) +' W ');
+Q=[(Vab*Iab*0.707)+(Vbc*Ibc*-0.707)+(212*7.07*-1)]
+disp('ii)REACTIVE POWER (Q) is = '+string (Q) +' vars ');
+S=[P^2+(Q^2)]^0.5;
+disp('i) APPARENT POWER (S) is = '+string (S) +' VA ');
diff --git a/1760/CH3/EX3.48/EX3_48.sce b/1760/CH3/EX3.48/EX3_48.sce new file mode 100755 index 000000000..2da7a497b --- /dev/null +++ b/1760/CH3/EX3.48/EX3_48.sce @@ -0,0 +1,10 @@ + //EXAMPLE 3-48 PG NO-202-203
+Vao=186.7-%i*87.06;
+Vco=-38.5+%i*292.48;
+Vbo=-(Vao+Vco);
+disp('i) VOLTAGE (Vbo) is in rectangular form = '+string (Vbo) +' V ');
+Vab=Vao-Vbo;
+disp('i) VOLTAGE (Vab) is in rectangular form = '+string (Vab) +' V ');
+Van=201-%i*37.51;
+Von=Van-Vao;
+disp('i) VOLTAGE (Von) is in rectangular form = '+string (Von) +' V ');
diff --git a/1760/CH3/EX3.49/EX3_49.sce b/1760/CH3/EX3.49/EX3_49.sce new file mode 100755 index 000000000..15d516f7f --- /dev/null +++ b/1760/CH3/EX3.49/EX3_49.sce @@ -0,0 +1,25 @@ + //EXAMPLE 3-49 PG NO-203-204
+Vab=400+%i*0;
+Vbc=-200-%i*346.41;
+Vca=-200+%i*346.410;
+Z1=%i*10;
+Z2=-%i*20;
+Z3=10;
+Iab=Vab/Z1;
+disp('i) CURRENT (Iab) is in rectangular form = '+string (Iab) +' A ');
+Ibc=Vbc/Z2;
+disp('ii) CURRENT (Ibc) is in rectangular form = '+string (Ibc) +' A ');
+Ica=Vca/Z3;
+disp('iii) CURRENT (Ica) is in rectangular form = '+string (Ica) +' A ');
+Ia=Iab-Ica;
+disp('iv) CURRENT (Ia) is in rectangular form = '+string (Ia) +' A ');
+Ib=Ibc-Iab;
+disp('v) CURRENT (Ib) is in rectangular form = '+string (Ib) +' A ');
+Ic=Ica-Ibc;
+disp('vi) CURRENT (Ic) is in rectangular form = '+string (Ic) +' A ');
+P=Ica*Z3;
+disp('vii)ACTIVE POWER (P) is in rectangular form = '+string (P) +' W ');
+Q=(Iab^2*Z3)-(Ibc^2*20);
+disp('viii) REACTIVE POWER (Q) is in rectangular form = '+string (Q) +' vars ');
+S=[P^2+Q^2]^0.5;
+disp('i)APPARENT POWER (S) is in rectangular form = '+string (S) +' VA ');
diff --git a/1760/CH3/EX3.5/EX3_5.sce b/1760/CH3/EX3.5/EX3_5.sce new file mode 100755 index 000000000..53e97f645 --- /dev/null +++ b/1760/CH3/EX3.5/EX3_5.sce @@ -0,0 +1,20 @@ + //EXAMPLE 3-5 PG NO-175
+Pm=6000;
+Qm=8000;
+Z=16-%i*12;
+V=220;
+PC=V/Z;
+PL=3*V*11*0.799;
+QL=3*V*11*(-0.6);
+P=Pm+PL;
+Q=Qm+QL;
+PF=cos(1/tan(Q/P));
+IL=P/(sqrt(3)*V*0.9555);
+disp('i) Phase current = '+string (PC)+'A ');
+disp('i) PL = '+string (PL)+'W ');
+disp('i) QL = '+string (QL)+'Vars ');
+disp('i) Active power = '+string (P)+'W ');
+disp('i) Reactive Power = '+string (Q)+'Vars ');
+disp('i) Power factor = '+string (PF)+'lagging ');
+disp('i) line current (IL) = '+string (IL)+'A ');
+
diff --git a/1760/CH3/EX3.50/EX3_50.sce b/1760/CH3/EX3.50/EX3_50.sce new file mode 100755 index 000000000..ffa95c129 --- /dev/null +++ b/1760/CH3/EX3.50/EX3_50.sce @@ -0,0 +1,9 @@ + //EXAMPLE 3-50 PG NO-204
+I1=13.12-%i*9.15;
+I2=-6.80-%i*19.55;
+IaA=I1;
+disp('i) CURRENT (IaA) is in rectangular form = '+string (IaA) +' A ');
+IbB=I2-I1;
+disp('i) CURRENT (IbB) is in rectangular form = '+string (IbB) +' A ');
+IcC=-I2;
+disp('i) CURRENT (IcC) is in rectangular form = '+string (IcC) +' A ');
diff --git a/1760/CH3/EX3.51/EX3_51.sce b/1760/CH3/EX3.51/EX3_51.sce new file mode 100755 index 000000000..0d3e605d5 --- /dev/null +++ b/1760/CH3/EX3.51/EX3_51.sce @@ -0,0 +1,14 @@ + //EXAMPLE 3-51 PG NO -205
+R1=1.5;
+X=2.396;
+X1=sqrt(X^2-R1^2);
+disp('i) X1 is = '+string (X1) +'ohm ');
+IL=100;
+Ip=IL/1.732;
+disp('ii) Peak Current = '+string (Ip) +' A ');
+R2=4.5;
+Z=7.1878;
+X2=sqrt(Z^2-R2^2)
+disp('iii) X2 is = '+string (X2) +'ohm ');
+PF=R2/(Z);
+disp('vi) Power Factor is = '+string (PF) +' ');
diff --git a/1760/CH3/EX3.52/EX3_52.sce b/1760/CH3/EX3.52/EX3_52.sce new file mode 100755 index 000000000..423c91d13 --- /dev/null +++ b/1760/CH3/EX3.52/EX3_52.sce @@ -0,0 +1,22 @@ + //EXAMPLE 3-52 PG NO-205-206
+Vp=230.94;
+R=20+%i*30;
+V=400;
+IL=Vp/R;
+disp('i) CURRENT (IL) is in rectangular form = '+string (IL) +' A ');
+PF=0.555;
+P=sqrt(3)*V*IL*PF;
+disp('ii)ACTIVE POWER (P) is in rectangular form = '+string (P) +' W ');
+Q=sqrt(3)*V*IL*56.289;
+disp('iii) REACTIVE POWER (Q) is in rectangular form = '+string (Q) +' vars ');
+S=sqrt(3)*V*IL;
+disp('iv)APPARENT POWER (S) is in rectangular form = '+string (S) +' VA ');
+Ip=3.698;
+Z=V/Ip;
+disp('i) IMPEDANCE (Z) is in rectangular form = '+string (Z) +' ohm ');
+R1=Z*0.555;
+disp('i) RESISTANCE (R1) is in rectangular form = '+string (R1) +' ohm ');
+Xc=Z*0.83;
+disp('i) INDUCTANCE (Xc) is in rectangular form = '+string (Xc) +' ohm ');
+C=Xc/(2*%pi*50);
+disp('i) CAPACITOR (C) is in rectangular form = '+string (C) +' F ');
diff --git a/1760/CH3/EX3.53/EX3_53.sce b/1760/CH3/EX3.53/EX3_53.sce new file mode 100755 index 000000000..acc2ef67a --- /dev/null +++ b/1760/CH3/EX3.53/EX3_53.sce @@ -0,0 +1,18 @@ + //EXAMPLE 3-53 PG NO-206-207
+HP=2000;
+Vp=2200;
+E=0.93;
+MI=(HP*735.5)/E;
+disp('i) MOTOR INPUT (MI) is in rectangular form = '+string (MI) +' W ');
+Ip=MI/[3*Vp*0.85];
+disp('i) CURRENT (Ip) is in rectangular form = '+string (Ip) +' A ');
+AC=Ip*0.85;
+disp('i) ACTIVE CURRENT (AC) is in rectangular form = '+string (AC) +' A ');
+RC=(Ip^2-AC^2)^0.5;
+disp('i) REACTIVE CURRENT (RC) is in rectangular form = '+string (RC) +' A ');
+LC=sqrt(3)*Ip;
+disp('i) LINE CURRENT (LC) is in rectangular form = '+string (LC) +' A ');
+ALC=LC*0.85;
+disp('i)ACTIVE LINE CURRENT (ALC) is in rectangular form = '+string (ALC) +' A ');
+RLC=(LC^2-ALC^2)^0.5;
+disp('i) REACTIVE LINE CURRENT (RLC) is in rectangular form = '+string (RLC) +' A ');
diff --git a/1760/CH3/EX3.54/EX3_54.sce b/1760/CH3/EX3.54/EX3_54.sce new file mode 100755 index 000000000..3db51a7f6 --- /dev/null +++ b/1760/CH3/EX3.54/EX3_54.sce @@ -0,0 +1,21 @@ + //EXAMPLE 3-54 PG NO-207-208
+Van=161.66+%i*0;
+Vbn=-80.83-%i*140;
+Vcn=-80.83+%i*140;
+Z1=10+%i*0;
+Z2=8.66+%i*5;
+Z3=8.66-%i*5;
+YA=1/Z1;
+disp('i) ADMITTANCE (YA) is in rectangular form = '+string (YA) +' siemens ');
+YB=1/Z2;
+disp('ii) ADMITTANCE (YB) is in rectangular form = '+string (YB) +' siemens ');
+YC=1/Z3;
+disp('iii) ADMITTANCE (YC) is in rectangular form = '+string (YC) +' siemens ');
+Von=-[(Van*YA)+(Vbn*YB)+(Vcn*YC)]/[YA+YB+YC];
+disp('iv) VOLTAGE (Von) is in rectangular form = '+string (Von) +' V ');
+Vao=Van-Von;
+disp('v) VOLTAGE (Vao) is in rectangular form = '+string (Vao) +' V ');
+Vbo=Vbn-Von;
+disp('vi) VOLTAGE (Vbo) is in rectangular form = '+string (Vbo) +' V ');
+Vco=Vcn-Von;
+disp('vii) VOLTAGE (Vco) is in rectangular form = '+string (Vco) +' V ');
diff --git a/1760/CH3/EX3.55/EX3_55.sce b/1760/CH3/EX3.55/EX3_55.sce new file mode 100755 index 000000000..3bba38623 --- /dev/null +++ b/1760/CH3/EX3.55/EX3_55.sce @@ -0,0 +1,19 @@ + //EXAMPLE 3-55 PG NO-208-209
+Vab=400+%i*0;
+Vbc=-220-%i*381.05;
+Vca=-220+%i*381.05;
+Z1=0+%i*25;
+Z2=13+%i*7.5;
+Z3=20+%i*0;
+IAB=Vab/Z1;
+disp('i) CURRENT (IAB) is in rectangular form = '+string (IAB) +' A ');
+IBC=Vbc/Z2;
+disp('i) CURRENT (IBC) is in rectangular form = '+string (IBC) +' A ');
+ICA=Vca/Z3;
+disp('i) CURRENT (ICA) is in rectangular form = '+string (ICA) +' A ');
+IA=IAB-ICA;
+disp('i) CURRENT (IA) is in rectangular form = '+string (IA) +' A ');
+IB=IBC-IAB;
+disp('i) CURRENT (IB) is in rectangular form = '+string (IB) +' A ');
+IC=ICA-IBC;
+disp('i) CURRENT (IC) is in rectangular form = '+string (IC) +' A ');
diff --git a/1760/CH3/EX3.59/EX3_59.sce b/1760/CH3/EX3.59/EX3_59.sce new file mode 100755 index 000000000..21bd71ffd --- /dev/null +++ b/1760/CH3/EX3.59/EX3_59.sce @@ -0,0 +1,13 @@ + //EXAMPLE 3-59 PG NO 267
+V2=240-%i*14.35;
+V1=240+%i*0;
+VL=233.73-%i*8.938;
+R1=0.6+%i*0.8;
+R2=0.5+%i*0.866;
+I1=(V1-VL)/R1;
+I2=(V2-VL)/R2;
+R3=16+%i*12;
+I3=(VL/R3);
+disp('i) current(I1) is in polar form = '+string (I1)+'A ');
+disp('i) current(I2) is in polar form = '+string (I2)+'A ');
+disp('i) current(I3) is in polar form = '+string (I3)+'A ');
diff --git a/1760/CH3/EX3.6/EX3_6.sce b/1760/CH3/EX3.6/EX3_6.sce new file mode 100755 index 000000000..d534477cf --- /dev/null +++ b/1760/CH3/EX3.6/EX3_6.sce @@ -0,0 +1,35 @@ + //EXAMPLE 3-6 PG NO-175
+Vac=100+%i*0;
+Vcb=-50-%i*86.6;
+Vba=-50+%i*86.6;
+Zac=6+%i*8;
+Rcb=20+%i*0;
+Zba=4-%i*3;
+Zcb=20+%i*0;
+Iac=Vac/Zac;
+disp('i) CURRENT (Iac) is in rectangular form = '+string (Iac) +' A ');
+Icb=Vcb/Zcb;
+disp('i) CURRENT (Icb) is in rectangular form = '+string (Icb) +' A ');
+Iba=Vba/Zba;
+disp('i) CURRENT (IbA) is in rectangular form = '+string (Iba) +' A ');
+Ia=Iac-Iba;
+disp('i) CURRENT (Ia) is in rectangular form = '+string (Ia) +' A ');
+Ic=Icb-Iac;
+disp('i) CURRENT (Ic) is in rectangular form = '+string (Ic) +' A ');
+Ib=Iba-Icb;
+disp('i) CURRENT (Ib) is in rectangular form = '+string (Ib) +' A ');
+Pac=Vac*Iac*0.6;
+disp('iv) Power (Pac) is in rectangular form = '+string (Pac) +' W ');
+Pcb=Vcb*Icb;
+disp('iv) Power (Pcb) is in rectangular form = '+string (Pcb) +' W ');
+Pba=Vba*Iba*0.8;
+disp('iv) Power (Pba) is in rectangular form = '+string (Pba) +' W ');
+Qac=100*20*0.8;
+disp('iv) Reactive Power (Qac) is in rectangular form = '+string (Qac) +' vars ');
+Qba=100*20*-0.6
+disp('iv) Reactive Power (Qba) is in rectangular form = '+string (Qba) +' vars ');
+P=600+500+1600;
+disp('iv) Power (P) is = '+string (P) +' W ');
+Q=800-1200;
+disp('iv) Power (Q) is = '+string (Q) +' vars ');
+
diff --git a/1760/CH3/EX3.7/EX3_7.sce b/1760/CH3/EX3.7/EX3_7.sce new file mode 100755 index 000000000..357bc7a9e --- /dev/null +++ b/1760/CH3/EX3.7/EX3_7.sce @@ -0,0 +1,15 @@ + //EXAMPLE 3-7 PG NO-176-177
+Vab=400+%i*0;
+Vbc=-200-%i*346.410;
+R=100;
+Ica=0;
+Iab=Vab/R;
+disp('i) CURRENT (Iab) is in rectangular form = '+string (Iab) +' A ');
+Ibc=Vbc/R;
+disp('i) CURRENT (Ibc) is in rectangular form = '+string (Ibc) +' A ');
+Ia=Iab-Ica;
+disp('i) CURRENT (Ia) is in rectangular form = '+string (Ia) +' A ');
+Ib=Ibc-Iab;
+disp('i) CURRENT (Ib) is in rectangular form = '+string (Ib) +' A ');
+Ic=Ica-Ibc;
+disp('i) CURRENT (Ic) is in rectangular form = '+string (Ic) +' A ');
diff --git a/1760/CH3/EX3.8/EX3_8.sce b/1760/CH3/EX3.8/EX3_8.sce new file mode 100755 index 000000000..b1ec4689c --- /dev/null +++ b/1760/CH3/EX3.8/EX3_8.sce @@ -0,0 +1,19 @@ + //EXAMPLE 3-8 PG NO-177
+Za=10-%i*8;
+Zb=12+%i*0;
+Zc=8+%i*10;
+Van=230.94+%i*0;
+Vbn=-115.47-%i*200;
+Vcn=-115.47+%i*200;
+Ia=Van/Za;
+disp('i) CURRENT (Ia) is in rectangular form = '+string (Ia) +' A ');
+Ib=Vbn/Zb;
+disp('ii) CURRENT (Ib) is in rectangular form = '+string (Ib) +' A ');
+Ic=Vcn/Zc;
+disp('iii) CURRENT (Ic) is in rectangular form = '+string (Ic) +' A ');
+In=Ia+Ib+Ic;
+disp('iv) CURRENT (In) is in rectangular form = '+string (In) +' A ');
+
+P=(230.94*18.028*0.78)+(230.94*19.245)+(230.94*18.028*0.62)
+
+disp('v) POWER (P) is in rectangular form = '+string (P) +' W ');
diff --git a/1760/CH3/EX3.9/EX3_9.sce b/1760/CH3/EX3.9/EX3_9.sce new file mode 100755 index 000000000..983ed6ceb --- /dev/null +++ b/1760/CH3/EX3.9/EX3_9.sce @@ -0,0 +1,11 @@ + //EXAMPLE 3-9 PG NO-178-179
+Z1=10+%i*0;
+Z2=13+%i*7.5;
+Z3=-13+%i&7.5;
+Z4=8.66-%i*5;
+X=[Z1+Z2 Z3;Z3 Z2+Z4];
+Z5=-104+%i*180.13;
+Z6=280+%i*0;
+Y=[Z5 Z3;Z6 Z2+Z4];
+I1=det(Y/X);
+disp('i) Current (I1) is = '+string (I1) +' A ');
diff --git a/1760/CH3/EX4.14/EX3_14.sce b/1760/CH3/EX4.14/EX3_14.sce new file mode 100755 index 000000000..cac8e2158 --- /dev/null +++ b/1760/CH3/EX4.14/EX3_14.sce @@ -0,0 +1,18 @@ + //EXAMPLE 3-14 PG NO 182-183
+X=[400+%i*0 -6+%i*0,-200-%i*346.410 6-%i*0];
+Y=[12+%i*0 -6+%i*0,-6+%i*0 6-%i*8];
+I1=52.31-%i*7.120;
+I2=37.957-%i*14.23;
+Ia=I1;
+disp('i) CURRENT (Ia) is in rectangular form = '+string (Ia) +' A ');
+Ib=I2-I1;
+disp('i) CURRENT (Ib) is in rectangular form = '+string (Ib) +' A ');
+IC=-I2;
+disp('i) CURRENT (Ic) is in rectangular form = '+string (IC) +' A ');
+Z1=6+%i*0;
+Vao=Ia*Z1;
+disp('i) VOLTAGE (Vao) is in rectangular form = '+string (Vao) +' V ');
+Vbo=Ib*Z1;
+disp('i) VOLTAGE (Vbo) is in rectangular form = '+string (Vbo) +' V ');
+Vco=IC*(-%i*8);
+disp('i) VOLTAGE (Vco) is in rectangular form = '+string (Vco) +' V ');
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 ');
diff --git a/1760/CH5/EX5.1/EX5_1.sce b/1760/CH5/EX5.1/EX5_1.sce new file mode 100755 index 000000000..471672af8 --- /dev/null +++ b/1760/CH5/EX5.1/EX5_1.sce @@ -0,0 +1,22 @@ + //EXAMPLE 5-1 PG NO-294
+TR1=32;
+R1=20;
+R2=30;
+R3=20;
+V=32;
+Ir11=V/TR1;
+Ir12=Ir11*(R1/(R1+R2));
+Ir13=Ir11*(R2/(R1+R3));
+TR2=40;
+I#r2=R3/TR2;
+I#r1=(R3/TR2)*I#r2;
+I#r3=(R3/TR2)*I#r1;
+Ir3=Ir13+I#r3;
+Ir1=Ir11-I#r1;
+Ir2=Ir12-I#r2;
+disp('i) current(Ir3) is = '+string (Ir3)+'A ');
+Ir3=Ir13+I#r3;
+disp('i) current(Ir1) is = '+string (Ir1)+'A ');
+Ir1=Ir11-I#r1;
+disp('i) current(Ir2) is = '+string (Ir2)+'A ');
+Ir2=0.5-0.4;
diff --git a/1760/CH5/EX5.10/EX5_10.sce b/1760/CH5/EX5.10/EX5_10.sce new file mode 100755 index 000000000..aa818b1a5 --- /dev/null +++ b/1760/CH5/EX5.10/EX5_10.sce @@ -0,0 +1,13 @@ + //EXAMPLE 5-10 PG NO-303
+I1=(58/21);
+R1=2;
+R2=5;
+R3=15;
+VTH=R1+I1; //Thevenins Voltage
+RTH=(1*(R2+R3))/(1+(R2+R3)); //Thevenins resistance
+I=VTH/(10+RTH); //CURRENT
+P=I*I*10; //POWER
+disp('i)Thevenins voltage (VTH) is = '+string (VTH)+'V ');
+disp('i) Thevenins resistance (RTH) is = '+string (RTH)+'ohm ');
+disp('i) current (I) is = '+string (I)+'A ');
+disp('i) power (P) is = '+string (P)+'W ');
diff --git a/1760/CH5/EX5.11/EX5_11.sce b/1760/CH5/EX5.11/EX5_11.sce new file mode 100755 index 000000000..314ae95e9 --- /dev/null +++ b/1760/CH5/EX5.11/EX5_11.sce @@ -0,0 +1,5 @@ + //EXAMPLE 5-11 PG NO-303
+X=8+%i*8; //X=I1/V1;
+X1=0+%i*30/25+%i*80; //X1=Va/V1;
+V1=[20*(25+%i*80)]/(0+%i*30);
+disp(' VOLTAGE is in polar form = '+string(V1)+'V');
diff --git a/1760/CH5/EX5.12/EX5_12.sce b/1760/CH5/EX5.12/EX5_12.sce new file mode 100755 index 000000000..922681328 --- /dev/null +++ b/1760/CH5/EX5.12/EX5_12.sce @@ -0,0 +1,8 @@ + //EXAMPLE 5-12 PG NO304-305
+I2=0.411+%i*0;
+VTH=5+%i*0-(I2*5);
+ZTH=1/(1+(1/2)+(1/5));
+Iab=VTH/(ZTH+(2+%i*2));
+disp('i) VOLTAGE (VTH) is in polar form = '+string (VTH)+'V ');
+disp('i) IMPEDANCE (ZTH) is in polar form = '+string (ZTH)+'ohms ');
+disp('i) Current (Iab) is in polar form = '+string (Iab)+'A ');
diff --git a/1760/CH5/EX5.13/EX5_13.sce b/1760/CH5/EX5.13/EX5_13.sce new file mode 100755 index 000000000..8991e7927 --- /dev/null +++ b/1760/CH5/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 ');
diff --git a/1760/CH5/EX5.14/EX5_14.sce b/1760/CH5/EX5.14/EX5_14.sce new file mode 100755 index 000000000..4bfece6af --- /dev/null +++ b/1760/CH5/EX5.14/EX5_14.sce @@ -0,0 +1,11 @@ + //EXAMPLE 5-14 PG NO-306
+V1=120;
+V2=65;
+R1=40;
+R2=60;
+IN=(V1/R1)+(V2/R2);
+RN=(R1*R2)/(R1+R2);
+IRL=IN*(RN/(RN+11));
+disp('i) Current (IN) is = '+string (IN)+'A ');
+disp('i) Current (RN) is = '+string (RN)+'ohms ');
+disp('i) Current (IRL) is = '+string (IRL)+'A ');
diff --git a/1760/CH5/EX5.15/EX5_15.sce b/1760/CH5/EX5.15/EX5_15.sce new file mode 100755 index 000000000..264aae8d5 --- /dev/null +++ b/1760/CH5/EX5.15/EX5_15.sce @@ -0,0 +1,9 @@ + //EXAMPLE 5-15 PG NO-306
+I2=-0.67;
+R1=8;
+R2=2;
+R3=5;
+RN=R1+((R2*R3)/(R2+R3));
+I=-I2*(RN/(10+RN));
+disp('i) Resistance (RN) is = '+string (RN)+'ohm ');
+disp('i) Current3 (I) is = '+string (I)+'A ');
diff --git a/1760/CH5/EX5.16/EX5_16.sce b/1760/CH5/EX5.16/EX5_16.sce new file mode 100755 index 000000000..408aefc73 --- /dev/null +++ b/1760/CH5/EX5.16/EX5_16.sce @@ -0,0 +1,10 @@ + //EXAMPLE 5-16 PG NO-307
+Z1=2.828+%i*2.828;
+Z2=0+%i*2.5;
+R=10;
+Z3=3+%i*4;
+IN=Z1+Z2;
+ZN=(R*Z3)/(R+Z3);
+disp('i) current (IN) is = '+string (IN)+'A ');
+disp('i) impedance (ZN) is = '+string (ZN)+'ohms ');
+
diff --git a/1760/CH5/EX5.17/EX5_17.sce b/1760/CH5/EX5.17/EX5_17.sce new file mode 100755 index 000000000..3e973839d --- /dev/null +++ b/1760/CH5/EX5.17/EX5_17.sce @@ -0,0 +1,21 @@ + //EXAMPLE 5-17 PG NO-307-308
+Z1=60+%i*0;
+Z2=15.6-%i*9;
+Z3=10.42-%i*6;
+Z4=25.98-%i*15;
+Z5=11.92-%i*1.4;
+I=2.5*10^-3;
+Vab=((Z1*Z2)/(Z3+Z2));
+ZTH=(Z3*Z2)/(Z3+Z2);
+Vax=I*Z3*10^3;
+Vxy=Vab-Z4;
+Zxy=ZTH+Z3;
+IN=Z5/(Zxy*10^3);
+ZN=Zxy;
+disp('i) Voltage (Vab) is = '+string (Vab)+'V');
+disp('i) Impedance (ZTH) is = '+string (ZTH)+'K ohms ');
+disp('i) Voltage (Vax) is = '+string (Vax)+' ');
+disp('i) Voltage (Vxy) is = '+string (Vxy)+'V');
+disp('i) Impedance (Zxy) is = '+string (Zxy)+'K ohms ');
+disp('i) Current (IN) is = '+string (IN)+'A ');
+disp('i) Impedance (ZN) is = '+string (ZN)+'K ohms ');
diff --git a/1760/CH5/EX5.18/EX5_18.sce b/1760/CH5/EX5.18/EX5_18.sce new file mode 100755 index 000000000..94b132f79 --- /dev/null +++ b/1760/CH5/EX5.18/EX5_18.sce @@ -0,0 +1,12 @@ + //example 5-18 pg no-308-309
+V=120;
+R1=1200;
+R2=400;
+Vab=(V*R1)/(R1+R2);
+Rab=(R1*R2)/(R1+R2);
+IN=40/450;
+RN=450;
+disp('i) Voltage (Vab) is = '+string (Vab)+'V ');
+disp('i) Resistance (Rab) is = '+string (Rab)+' ohms ');
+disp('i) Current (IN) is = '+string (IN)+' mA');
+disp('i) Resistance (RN) is = '+string (RN)+' ohms ');
diff --git a/1760/CH5/EX5.19/EX5_19.sce b/1760/CH5/EX5.19/EX5_19.sce new file mode 100755 index 000000000..9909b205d --- /dev/null +++ b/1760/CH5/EX5.19/EX5_19.sce @@ -0,0 +1,19 @@ + //EXAMPLE -19 PG NO-312
+V=360;
+R1=150;
+R2=30;
+Pm=900;
+RL=25;
+VTH=(V*R1)/(R1+R2);
+RTH=(R1*R2)/(R1+R2);
+TR=30+((R1*RL)/(R1+RL)); //total resistance
+I=V/TR; //Current supplied by battery
+P=V*7; //Power supplied by battery
+%PL=Pm*100/P //Percentage of power delivered to load
+disp('i) Voltage (VTH) is = '+string (VTH)+'V ');
+disp('i) Resistance (RTH) is = '+string (RTH)+' ohms ');
+disp('i) Total resistance (TR) is = '+string (TR)+' ohms');
+disp('i) Current (I) is = '+string (I)+' A ');
+disp('i) power (P) is = '+string (P)+' W ');
+disp('i) Percentage of power (%PL) is = '+string (%PL)+' % ');
+
diff --git a/1760/CH5/EX5.2/EX5_2.sce b/1760/CH5/EX5.2/EX5_2.sce new file mode 100755 index 000000000..09ba2abf2 --- /dev/null +++ b/1760/CH5/EX5.2/EX5_2.sce @@ -0,0 +1,5 @@ + //EXAMPLE 5-2 PG NO-295
+Vab1=7.059;
+Vab2=2.353;
+Vab=Vab1+Vab2;
+disp('i) Votage(Vab) is = '+string (Vab)+'V ');
diff --git a/1760/CH5/EX5.20/EX5_20.sce b/1760/CH5/EX5.20/EX5_20.sce new file mode 100755 index 000000000..390fbea37 --- /dev/null +++ b/1760/CH5/EX5.20/EX5_20.sce @@ -0,0 +1,7 @@ + //EXAMPLE 5-20 PG NO -313
+Z1=5+%i*0;
+Z2=4-%i*3;
+Z3=3+%i*3;
+Z4=%i*3;
+VTH=((Z1)/(3+(((Z4*Z2)/(Z3-Z4)))))*(Z4/(Z3-Z4))*(-Z4);
+disp('i) Voltage (VTH) is = '+string (VTH)+'V ');
diff --git a/1760/CH5/EX5.21/EX5_21.sce b/1760/CH5/EX5.21/EX5_21.sce new file mode 100755 index 000000000..69105ad2a --- /dev/null +++ b/1760/CH5/EX5.21/EX5_21.sce @@ -0,0 +1,11 @@ + //EXAMPLE 5-21 PG NO -313-314
+Z1=8.66+%i*5;
+Z2=%i*1;
+VTH=Z1-(Z1-1)*0.9;
+ZTH=Z2+((9*1)/(9+1));
+I=VTH/((0.9+%i*1)+(0.9-%i*1));
+P=1.02^2*0.9;
+disp('i) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('i) Impedance(ZTH) is = '+string (ZTH) +' ');
+disp('i) Current (I) is = '+string (I) +'A ');
+disp('i) Power (VTH) is = '+string (P) +' W ');
diff --git a/1760/CH5/EX5.22/EX5_22.sce b/1760/CH5/EX5.22/EX5_22.sce new file mode 100755 index 000000000..717c7650a --- /dev/null +++ b/1760/CH5/EX5.22/EX5_22.sce @@ -0,0 +1,16 @@ + //EXAMPLE 5-22 PG NO-315-316
+I1=100;
+I2=80;
+I3=5;
+R1=100;
+R2=50;
+R3=200;
+IN=I1+I2-I3;
+X=1/R1+1/R2+1/R3; //1/RN=X
+RN=X;
+VTH=IN*RN;
+RTH=RN
+disp('i) Voltage (VTH) is = '+string (IN) +'V ');
+disp('i) Voltage (VTH) is = '+string (1/RN) +'V ');
+disp('i) Voltage (VTH) is = '+string (VTH) +'V ');
+disp('i) Voltage (VTH) is = '+string (RTH) +'V ');
diff --git a/1760/CH5/EX5.23/EX5_23.sce b/1760/CH5/EX5.23/EX5_23.sce new file mode 100755 index 000000000..550e3bd64 --- /dev/null +++ b/1760/CH5/EX5.23/EX5_23.sce @@ -0,0 +1,16 @@ + //EXAMPLE 5-23 PG -NO 316-317
+V11=-5;
+V12=5;
+V13=0;
+G1=1/2200;
+G2=1/3300;
+G3=1/1500;
+VO1=((V11*G1)+(V12*G2)+(V13*G3))/(G1+G2+G3);
+V21=-5;
+V22=10;
+V23=0;
+VO2=((V21*G1)+(V22*G2)+(V23*G3))/(G1+G2+G3);
+disp('i) Voltage (VO1) is = '+string (VO1) +'V ');
+disp('i) Voltage (VO2) is = '+string (VO2) +'V ');
+
+
diff --git a/1760/CH5/EX5.24/EX5_24.sce b/1760/CH5/EX5.24/EX5_24.sce new file mode 100755 index 000000000..63bb4734d --- /dev/null +++ b/1760/CH5/EX5.24/EX5_24.sce @@ -0,0 +1,15 @@ +Z1=10+%i*0;
+Z2=99.33-%i*49.09222;
+Z3=20+%i*0;
+Z4=10+%i*20;
+Z5=20.03+%i*30.03;
+Z6=15+%i*20;
+Z7=89.32-%i*49.105;
+IN=Z1+Z2-Z3;
+ZN=1/((1/Z4)+(1/Z5)+(1/Z6));
+VTH=(Z7/1000)*ZN;
+ZTH=ZN
+disp('i) Current (IN) is in rectangular form = '+string (IN) +'V ');
+disp('i) Impedance (1/ZN) is in rectangular form = '+string (1/ZN) +'V ');
+disp('i) Voltage (VTH) is in rectangular form = '+string (VTH) +'V ');
+disp('i) Impedance (ZTH) is in rectangular form = '+string (ZTH) +'ohm ');
diff --git a/1760/CH5/EX5.25/EX5_25.sce b/1760/CH5/EX5.25/EX5_25.sce new file mode 100755 index 000000000..bf9850709 --- /dev/null +++ b/1760/CH5/EX5.25/EX5_25.sce @@ -0,0 +1,10 @@ + //EXAMPLE 5-25 PG NO-318-319
+I1=4.4-%i*1.012; //Current
+I2=I1*[(%i*5)/(3+%i*9)];
+Z1=1;
+I11=[I2/[10*%i*5]]*[%i*5/10+%i*5];
+disp(' Current is in polar form = '+string(I1)+'A');
+disp(' Current is in polar form = '+string(I2)+'A');
+disp(' Current is in polar form = '+string(I11)+'A');
+I12=I1-I11;
+disp(' Current is in polar form = '+string(I12)+'A');
diff --git a/1760/CH5/EX5.26/EX5_26.sce b/1760/CH5/EX5.26/EX5_26.sce new file mode 100755 index 000000000..a82a87e5b --- /dev/null +++ b/1760/CH5/EX5.26/EX5_26.sce @@ -0,0 +1,14 @@ + //EXAMPLE 5-26 PG NO-319-320
+Z1=70.71+%i*70.71;
+Z2=10+%i*5;
+Z3=-%i*5;
+Z4=%i*5;
+Z5=5-%i*5;
+X1=[Z2 Z3 Z1,Z3 10 0,0 Z4 0];
+X2=[Z2 Z3 0,Z3 10 Z4,0 Z4 Z5];
+X3=[0 Z3 0,0 10 Z4,Z1 Z4 Z5];
+X4=[Z2 Z3 0,Z3 10 Z4,0 Z4 Z5];
+I3=X1/X2;
+I1=X3/X4;
+disp('i) Current (I3) is in polar = '+string (I3) +' A ');
+disp('i) Current (I1) is in polar = '+string (I1) +' A ');
diff --git a/1760/CH5/EX5.27/EX5_27.sce b/1760/CH5/EX5.27/EX5_27.sce new file mode 100755 index 000000000..ea9a04507 --- /dev/null +++ b/1760/CH5/EX5.27/EX5_27.sce @@ -0,0 +1,13 @@ + //EXAMPLE 5-27 PG NO-321
+Z1=(6-%i*2.41); //Impedance
+Z2=(0-%i*9.64); //Impedance
+Z3=4+%i*0; //Impedance
+Z4=2+%i*0; //Impedance
+Z5=0-%i*2.41; //Impedance
+Za=Z2/Z1; //Impedance
+Zb=(Z3*Z4)/Z1; //Impedance
+Zc=(Z4*Z5)/Z1; //Impedance
+disp('i) Impedance (Za) is in polar = '+string (Za) +' ohms ');
+disp('ii) Impedance (Zb) is in polar = '+string (Zb) +' ohms ');
+disp('iii) Impedance (Zc) is in polar = '+string (Zc) +' ohms ');
+
diff --git a/1760/CH5/EX5.28/EX5_28.sce b/1760/CH5/EX5.28/EX5_28.sce new file mode 100755 index 000000000..6738c9e18 --- /dev/null +++ b/1760/CH5/EX5.28/EX5_28.sce @@ -0,0 +1,6 @@ + //EXAMPLE 5-28 PG NO-322
+Z1=0.6-%i*1.2;
+Z2=0.6-%i*1.2;
+Z3=1.2+%i*0.6;
+Z=Z1+(((Z2+3)*(Z3+%i*3))/(Z2+3+Z3+%i*3));
+disp('i) Impedance (Z) is in polar = '+string (Z) +' ohms ');
diff --git a/1760/CH5/EX5.29/EX5_29.sce b/1760/CH5/EX5.29/EX5_29.sce new file mode 100755 index 000000000..c770a4cd6 --- /dev/null +++ b/1760/CH5/EX5.29/EX5_29.sce @@ -0,0 +1,19 @@ + //EXAMPLE 5-29 PG NO 323
+V1=5; //Voltage
+V2=0.05; //Voltage
+R1=100; //Resistance
+R2=1000; //Resistance
+R3=85;
+R4=880;;
+I1=0.00266; //Current
+I2=0.02676; //Current
+Va=V1-R1*I2;
+Vb=V1-R2*I1;
+VTH=Va-Vb;
+RTH=((R1*R3)/(R1+R3))+(R2*R4)/(R2+R4)
+I=(0.016)/(RTH+20);
+disp('i) Voltage (Va) is in polar = '+string (Va) +' V ');
+disp('i) Voltage (Vb) is in polar = '+string (Vb) +' V ');
+disp('i) Voltage (VTH) is in polar = '+string (VTH) +' V ');
+disp('i) Resistance (RTH) is in polar = '+string (RTH) +' ohms ');
+disp('i) Current (I) is = '+string (I) +' A ');
diff --git a/1760/CH5/EX5.3/EX5_3.sce b/1760/CH5/EX5.3/EX5_3.sce new file mode 100755 index 000000000..b5b3c832f --- /dev/null +++ b/1760/CH5/EX5.3/EX5_3.sce @@ -0,0 +1,39 @@ + //EXAMPLE 5-3 PG NO-296
+TR1=(90/14); //TOTAL RESISTANCE
+R1=8;
+R2=6;
+R3=3;
+E1=10; //VOLTS
+IR11=E1*(1/TR1); //Current in resistance one
+IR12=IR11*(R1/(R1+R2)); //Current in resistance Two
+IR13=IR11*(R2/(R1+R2)); //Current in resistance one
+IR14=0;
+TR2=10; //TOTAL RESISTANCE
+IR23=TR2/E1;
+IR21=IR23*(R2/(R2+R3));
+IR22=IR23*(R3/(R2+R3));
+IR24=0;
+IR34=(10/12);
+IR32=TR2/(R2+(R3*R1/11));
+IR31=IR32*(R1/(R1+R3));
+IR33=IR32*(R3/(R1+R3));
+IR1=(14-6-8)/9;
+IR2=(8+3-11)/9;
+IR3=(6+3)/9-1;
+IR4=IR34+0+0;
+disp('i) CURRENT IN RESISTANCE ONE is = '+string (IR11)+'V ');
+disp('i) CURRENT IN RESISTANCE ONE is = '+string (IR12)+'V ');
+disp('i) CURRENT IN RESISTANCE ONE is = '+string (IR13)+'V ');
+disp('i) CURRENT IN RESISTANCE ONE is = '+string (IR14)+'V ');
+disp('i) CURRENT IN RESISTANCE ONE is = '+string (IR21)+'V ');
+disp('i) CURRENT IN RESISTANCE ONE is = '+string (IR22)+'V ');
+disp('i) CURRENT IN RESISTANCE ONE is = '+string (IR23)+'V ');
+disp('i) CURRENT IN RESISTANCE ONE is = '+string (IR24)+'V ');
+disp('i) CURRENT IN RESISTANCE ONE is = '+string (IR31)+'V ');
+disp('i) CURRENT IN RESISTANCE ONE is = '+string (IR32)+'V ');
+disp('i) CURRENT IN RESISTANCE ONE is = '+string (IR33)+'V ');
+disp('i) CURRENT IN RESISTANCE ONE is = '+string (IR34)+'V ');
+disp('i) CURRENT IN RESISTANCE ONE is = '+string (IR1)+'V ');
+disp('i) CURRENT IN RESISTANCE TWO is = '+string (IR2)+'V ');
+disp('i)CURRENT IN RESISTANCE THREE is = '+string (IR3)+'V ');
+disp('i) CURRENT IN RESISTANCE FOUR is = '+string (IR4)+'');
diff --git a/1760/CH5/EX5.30/EX5_30.sce b/1760/CH5/EX5.30/EX5_30.sce new file mode 100755 index 000000000..c44b12d9d --- /dev/null +++ b/1760/CH5/EX5.30/EX5_30.sce @@ -0,0 +1,14 @@ + //EXAMPLE 5-30 PG NO 324-325
+V=25; //Voltage
+R1=50; //RESISTANCE
+R2=35; //RESISTANCE
+R3=60; //RESISTANCE
+R4=10;
+VTH=V-(R1*(R2/R3)); //THEVENINS VOLTAGE
+RTH=(R1*R4)/R3;
+I40=-(VTH/(40+RTH));
+V40=40*I40;
+disp('i) Impedance (VTH) is = '+string (VTH) +' V ');
+disp('i) Impedance (RTH) is = '+string (RTH) +' ohm ');
+disp('i) Impedance (I40) is = '+string (I40) +' A ');
+disp('i) Impedance (V40) is = '+string (V40) +' V ');
diff --git a/1760/CH5/EX5.31/EX5_31.sce b/1760/CH5/EX5.31/EX5_31.sce new file mode 100755 index 000000000..a8fa87bbe --- /dev/null +++ b/1760/CH5/EX5.31/EX5_31.sce @@ -0,0 +1,7 @@ + //EXAMPLE 5-31 PG NO-326;
+V=25;
+R1=50;
+R2=40;
+R3=10;
+I=(V/(R1+((R2*R3)/(R2+R3))))*(R3/(R2+R3));
+disp('i) Current (I) is = '+string (I) +' A ');
diff --git a/1760/CH5/EX5.32/EX5_32.sce b/1760/CH5/EX5.32/EX5_32.sce new file mode 100755 index 000000000..6670fe96e --- /dev/null +++ b/1760/CH5/EX5.32/EX5_32.sce @@ -0,0 +1,17 @@ + //EXAMPLE 5-32 PG NO=326
+V1=60; //VOLTAGE
+V2=50; //VOLTAGE
+V3=100; //VOLTAGE
+R1=60; //RESISTANCE
+R2=30; //RESISTANCE
+R3=40; //RESISTANCE
+VTH=V2+(R2*(2/3))-(R1*1);
+RTH=((R1*R2)/(R1+R2))+((R1*R3)/(R1+R3));
+RL=RTH;
+I=VTH/(RTH+RTH); //CURRENT
+P=(I*I)*RL; //POWER
+disp('i) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('i) Resistance (RTH) is = '+string (RTH) +' ');
+disp('i) Load Resistance (RL) is = '+string (RL) +' ohm ');
+disp('i) Current (I) is = '+string (I) +' A ');
+disp('i) Power (P) is = '+string (I) +' W ');
diff --git a/1760/CH5/EX5.33/EX5_33.sce b/1760/CH5/EX5.33/EX5_33.sce new file mode 100755 index 000000000..2888a30af --- /dev/null +++ b/1760/CH5/EX5.33/EX5_33.sce @@ -0,0 +1,19 @@ + //EXAMPLE 5-33 PG NO=327
+R1=15; //RESISTANCE
+R2=8; //RESISTANCE
+R3=12; //RESISTANCE
+R4=10;
+R5=5.14;;
+R6=7.429;
+R7=32.74;
+V=60;
+Ra=(R1*R2)/ (R1+R2+R3);
+Rb=(R3*R2)/(R1+R2+R3);
+Rc=(R1*R3)/(R1+R2+R3);
+TR=R4+R5+((R6*R7)/(R6+R7)); //TOTAL RESISTANCE
+I=V/TR
+disp('i) Resistance (Ra) is = '+string (Ra) +' ohms ');
+disp('i) Resistance (Rb) is = '+string (Rb) +' ohms ');
+disp('i) Resistance (Rc) is = '+string (Rc) +' ohms ');
+disp('i) Total Resistance (TR) is = '+string (TR) +' ohms ');
+disp('i) Current (I) is = '+string (I) +' A ');
diff --git a/1760/CH5/EX5.34/EX5_34.sce b/1760/CH5/EX5.34/EX5_34.sce new file mode 100755 index 000000000..b190c1ac4 --- /dev/null +++ b/1760/CH5/EX5.34/EX5_34.sce @@ -0,0 +1,15 @@ + //EXAMPLE 5-34 PG NO-327-328
+V=10;
+R1=1;
+R2=2;
+R3=8.5;
+VTH=V*(R1/R2); //Thevenins Voltage
+RTH=R2+((R1*R1)/(R1+R1))+R2; //Thevenins Resistance
+Pmax=(5/9)^2*RTH;
+TR=R1+((R1*R3)/(R1+R3)); //Total Resistance
+TP=V*(V/TR); //Total Power
+disp('i) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('i) Resistance (RTH) is = '+string (RTH) +' ohms ');
+disp('i) Power (Pmax) is = '+string (Pmax) +' W ');
+disp('i) Total resistance (TR) is = '+string (TR) +' ohms ');
+disp('i) Total Power (TP) is = '+string (TP) +' W ');
diff --git a/1760/CH5/EX5.35/EX5_35.sce b/1760/CH5/EX5.35/EX5_35.sce new file mode 100755 index 000000000..32ea55998 --- /dev/null +++ b/1760/CH5/EX5.35/EX5_35.sce @@ -0,0 +1,10 @@ + //EXAMPLE 5-35 PG NO-328-329
+Va=6; //VOLTAGE at PONT A
+Vb=-3; //VOLTAGE at POINT B
+VTH=Va-Vb;
+R1=1;
+R2=2;
+R3=3;
+RTH=((R2*R3)/(R2+R3))+((R1*R3)/(R1+R3));
+disp('i) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('i) Resistance (RTH) is = '+string (RTH) +' ohm ');
diff --git a/1760/CH5/EX5.36/EX5_36.sce b/1760/CH5/EX5.36/EX5_36.sce new file mode 100755 index 000000000..2e00a5209 --- /dev/null +++ b/1760/CH5/EX5.36/EX5_36.sce @@ -0,0 +1,11 @@ + //EXAMPLE 5-36 PG NO=329
+I1=-10; //CURRENT
+Vpc=15;
+I2=7.5;
+Vqc=I2*1;
+disp(' Voltage is = '+string(Vqc)+'V');
+Vpq=Vpc-Vqc;
+disp(' Voltage is = '+string(Vpq)+'V');
+RTH=1.406;
+Pmax=[I2/(2*RTH)]^2*RTH;
+disp(' Power is = '+string(Pmax)+'W');
diff --git a/1760/CH5/EX5.37/EX5_37.sce b/1760/CH5/EX5.37/EX5_37.sce new file mode 100755 index 000000000..9d978f0c9 --- /dev/null +++ b/1760/CH5/EX5.37/EX5_37.sce @@ -0,0 +1,21 @@ + //EXAMPLE 5-37 PG NO-330-331
+R=8;
+R1=12.67;
+R2=4;
+R3=10;
+R4=3.077;
+R5=13.077;
+R50=9.9; //RESISTANCE AT 50 V BATTERY
+V=50; //VOLTAGE
+I1=V/R50; //CURRENT
+I=I1*[R/(R+R1)];
+disp(' Current is (I1) = '+string(I1)+'A');
+disp(' Current is (I) = '+string(I)+'A');
+R100=R+[(R2*(R3+R4))/(R2+R3+R4)];
+disp(' Resistance at 100 (R100) is = '+string(R100)+'ohm');
+I2=100/R100;
+disp(' Current is (I2) = '+string(I2)+'A');
+I3=[(I2*R2)/(R2+R5)];
+disp(' Current is (I3) = '+string(I3)+'A');
+I10=I3-I;
+disp(' Current is (I10) = '+string(I10)+'A');
diff --git a/1760/CH5/EX5.38/EX5_38.sce b/1760/CH5/EX5.38/EX5_38.sce new file mode 100755 index 000000000..2bceb794f --- /dev/null +++ b/1760/CH5/EX5.38/EX5_38.sce @@ -0,0 +1,14 @@ + //EXAMPLE 5-38 PG NO-331
+R1=100;
+R2=4;
+R3=8;
+R4=50;
+R5=5;
+VTH=(R1*((R2)/(R2+R3)))-((R3*R4)/(R3+R5));
+RTH=((R3*R5)/(R3+R5))+((R2*R3)/(R2+R3));
+I=VTH/(10+RTH);
+disp('i) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('i) Resistance (RTH) is = '+string (RTH) +' ohm ');
+disp('i) Current (I) is = '+string (I) +' A ');
+
+
diff --git a/1760/CH5/EX5.39/EX5_39.sce b/1760/CH5/EX5.39/EX5_39.sce new file mode 100755 index 000000000..96f5a1854 --- /dev/null +++ b/1760/CH5/EX5.39/EX5_39.sce @@ -0,0 +1,13 @@ + //EXAMPLE 5-39 PG NO-331
+V=36;
+R1=5;
+R2=11;
+R3=6;
+VTH=V*(R1/R2);
+RTH=(R1*R3)/(R1+R3);
+R=RTH;
+Pmax=(VTH/(2*RTH))^2*(RTH);
+disp('i) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('i) Resistance (RTH) is = '+string (RTH) +' ohm ');
+disp('i) Maximum Power (Pmax) is = '+string (Pmax) +' W ');
+
diff --git a/1760/CH5/EX5.4/EX5_4.sce b/1760/CH5/EX5.4/EX5_4.sce new file mode 100755 index 000000000..1913301b3 --- /dev/null +++ b/1760/CH5/EX5.4/EX5_4.sce @@ -0,0 +1,16 @@ +
+E1=100+%i*0;
+E2=43.30+%i*25
+Z1=1+%i*3;
+Z2=1-%i*3;
+Z3=2+%i*4;
+Z4=3-%i*3
+Z5=1+%i*5;
+Z6=2-%i*8;
+Iab1=E1/((Z1+Z2)+((Z3*Z4)/(Z3+Z4)));
+I2=E2/((Z5-Z6)+((Z3*Z1+Z2)/(Z3+Z1+Z2)));
+Iab2=(I2*Z3)/(Z3+Z1+Z2)
+disp('i) CURRENT (Iab1) is = '+string (Iab1)+'A ');
+disp('i) CURRENT (I2) is = '+string (I2)+'A ');
+disp('i) CURRENT (Iab2) is = '+string (Iab2)+'A ');
+
diff --git a/1760/CH5/EX5.40/EX5_40.sce b/1760/CH5/EX5.40/EX5_40.sce new file mode 100755 index 000000000..b1aeec90f --- /dev/null +++ b/1760/CH5/EX5.40/EX5_40.sce @@ -0,0 +1,15 @@ + //EXAMPLE 5-40 PG NO-331-332
+R1=3;
+R2=2;
+R3=12;
+R4=4;
+R5=8;
+V=10;
+R=R3/(R1/R2);
+TR=R4+((R2*R5)/(R2+R5))+((R1*R3)/(R1+R3));
+I=V/TR;
+Ir=I*(R2/(R5+R2));
+disp('i) Resistance (R) is = '+string (R) +' ohm ');
+disp('i) Total Resistance (TR) is = '+string (TR) +' ohm ');
+disp('i) Current (I) is = '+string (I) +' A ');
+disp('i) Current (Ir) is = '+string (Ir) +' A ');
diff --git a/1760/CH5/EX5.41/EX5_41.sce b/1760/CH5/EX5.41/EX5_41.sce new file mode 100755 index 000000000..dc5501b57 --- /dev/null +++ b/1760/CH5/EX5.41/EX5_41.sce @@ -0,0 +1,13 @@ + //EXAMPLE 5-41 PG NO-332-333
+VTH=10;
+V=10;
+R1=10;
+R2=10;
+R3=16.67;
+R4=50;
+R5=5.56;
+R6=3.33;
+RTH=V+R5+(((R1+R3)*(R4+R6))/(R1+R3+R4+R6));
+I=(V/RTH)-0.4;
+disp('i) Resistance (RTH) is = '+string (RTH) +' ohm ');
+disp('i) Currrent (I) is = '+string (I) +' A ');
diff --git a/1760/CH5/EX5.42/EX5_42.sce b/1760/CH5/EX5.42/EX5_42.sce new file mode 100755 index 000000000..494af0252 --- /dev/null +++ b/1760/CH5/EX5.42/EX5_42.sce @@ -0,0 +1,6 @@ + //EXAMPLE 5-42 PG NO-333
+V=100; //Voltage
+RTH=0; //Resistance
+Iab=V/20; //Current
+disp('i) Current (Iab) is = '+string (Iab) +' A ');
+Iab=V/20;
diff --git a/1760/CH5/EX5.43/EX5_43.sce b/1760/CH5/EX5.43/EX5_43.sce new file mode 100755 index 000000000..d1dce2897 --- /dev/null +++ b/1760/CH5/EX5.43/EX5_43.sce @@ -0,0 +1,8 @@ + //EXAMPLE 5-43 PG NO-333
+Vab=38; //Voltage
+R1=12;
+R2=6;
+RTH=(R1*R2)/(R1+R2);
+Iab=Vab/(RTH+3);
+disp('i) Resistance (RTH) is = '+string (RTH) +' ohm ');
+disp('i) Current (Iab) is = '+string (Iab) +' A ');
diff --git a/1760/CH5/EX5.44/EX5_44.sce b/1760/CH5/EX5.44/EX5_44.sce new file mode 100755 index 000000000..098e36845 --- /dev/null +++ b/1760/CH5/EX5.44/EX5_44.sce @@ -0,0 +1,15 @@ + //EXAMPLE 5-44 PG NO-333-334
+I1=1.6;
+I2=0.8;
+VTH=6*I2; // ((R1*R2)/(R1+R2))
+R1=3;
+R2=9;
+R3=6;
+R4=3;
+RTH=((((R1*R2)/(R1+R2))+R1)*R3)/(((R1*R2)/(R1+R2))+R1+R2);
+IN=VTH/RTH;
+RN=RTH;
+disp('i) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('i) Resistance (RTH) is = '+string (RTH) +' ohm ');
+disp('i) Current (IN) is = '+string (IN) +' A ');
+disp('i) Resistance (RN) is = '+string (RN) +' ohm ');
diff --git a/1760/CH5/EX5.45/EX5_45.sce b/1760/CH5/EX5.45/EX5_45.sce new file mode 100755 index 000000000..712f13ca3 --- /dev/null +++ b/1760/CH5/EX5.45/EX5_45.sce @@ -0,0 +1,15 @@ + //EXAMPLE5-45 PG NO-334-335
+R1=10;
+R2=5;
+V=15;
+Vb=9;
+Va=(V*R2)/(R1+R2);
+Vba=Vb-Va;
+RTH=(R1*R2)/(R1+R2);
+VTH=Vba;
+Iba=VTH/(RTH+Vba);
+disp('i) Voltage (Va) is = '+string (Va) +' V ');
+disp('i) Voltage (Vba) is = '+string (Vba) +' V ');
+disp('i) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('i) REsistance (RTH) is = '+string (RTH) +' ohms ');
+disp('i) Current (Iba) is = '+string (Iba) +' A ');
diff --git a/1760/CH5/EX5.46/EX5_46.sce b/1760/CH5/EX5.46/EX5_46.sce new file mode 100755 index 000000000..5d1827326 --- /dev/null +++ b/1760/CH5/EX5.46/EX5_46.sce @@ -0,0 +1,10 @@ + //EXAMPLE 5-46 PG NO-335
+R1=1;
+R2=1;
+R3=3;
+RTH=R1+((R2*R3)/(R2+R3));
+RL=R3/(RTH+RTH);
+P=RL^2*RTH;
+disp('i) Resistance (RTH) is = '+string (RTH) +' ohms ');
+disp('i) Resistance (RL) is = '+string (RL) +' A ');
+disp('i) Power (P) is = '+string (P) +' W ');
diff --git a/1760/CH5/EX5.47/EX5_47.sce b/1760/CH5/EX5.47/EX5_47.sce new file mode 100755 index 000000000..c167eb044 --- /dev/null +++ b/1760/CH5/EX5.47/EX5_47.sce @@ -0,0 +1,10 @@ + //EXAMPLE 5-47 PG NO-336
+V=5; //VOLTAGE
+R1=2;
+R2=1;
+VTH=R1+((V-R1)/3);
+RTH=R2+((R1*R2)/(R1+R2));
+IN=((V*0.5)/(R1+0.5))+((R1/RTH)*(R1/VTH))
+disp('i) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('i) Resistance (RTH) is = '+string (RTH) +' ohm ');
+disp('i) Current (IN) is = '+string (IN) +' A ');
diff --git a/1760/CH5/EX5.48/EX5_48.sce b/1760/CH5/EX5.48/EX5_48.sce new file mode 100755 index 000000000..e7a0002df --- /dev/null +++ b/1760/CH5/EX5.48/EX5_48.sce @@ -0,0 +1,13 @@ + //EXAMPLE 5-48 PG NO-336-337
+V=24;
+R1=4;
+R2=4;
+Iab=V/(R1+R2);
+Idb=6;
+Iba=(Idb/(R1+R2))*R1;
+Ibc=Iab+Iba;
+IDB=Ibc;
+disp('i) CURRENT (Iab) is = '+string (Iab) +' A ');
+disp('i) CURRENT (Iba) is = '+string (Iba) +' A ');
+disp('i) CURRENT (Ibc) is = '+string (Ibc) +' A ');
+disp('i) CURRENT (IDB) is = '+string (IDB) +' A ');
diff --git a/1760/CH5/EX5.49/EX5_49.sce b/1760/CH5/EX5.49/EX5_49.sce new file mode 100755 index 000000000..a128b109a --- /dev/null +++ b/1760/CH5/EX5.49/EX5_49.sce @@ -0,0 +1,9 @@ + //EXAMPE 5-49 PG NO-337-338
+V1=120;
+V2=65;
+R1=20;
+R2=30;
+VTH=V1-((V1-V2)/(R1+R2))*R1;
+RTH=(R1*R2)/(R1+R2);
+disp('i) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('i) Resistance (RTH) is = '+string (RTH) +' ohms ');
diff --git a/1760/CH5/EX5.50/EX5_50.sce b/1760/CH5/EX5.50/EX5_50.sce new file mode 100755 index 000000000..a7592c269 --- /dev/null +++ b/1760/CH5/EX5.50/EX5_50.sce @@ -0,0 +1,13 @@ + //EXAMPLE - 5-50 PG NO-338
+V1=240;
+V2=140;
+V=40;
+R1=2;
+R2=8;
+R3=30;
+VTH=((V1/V)*R3)-V2;
+RTH=R1+((R3*(R1+R2))/V)+0.5;
+I=VTH/(RTH+V2);
+disp('i) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('i) Reesistance (RTH) is = '+string (RTH) +' ohms ');
+disp('i) CURRENT (I) is = '+string (I) +' A ');
diff --git a/1760/CH5/EX5.51/EX5_51.sce b/1760/CH5/EX5.51/EX5_51.sce new file mode 100755 index 000000000..fccc01202 --- /dev/null +++ b/1760/CH5/EX5.51/EX5_51.sce @@ -0,0 +1,11 @@ + //EXAMPLE 5-51 PG NO-338
+I=10; //CURRENT
+R1=1;
+R2=1;
+R3=1;
+VTH=(I*R1)/(R1+R2+R3);
+RTH=(R1*(R1+R2))/(R1+R2+R3);
+P=(VTH/(RTH+RTH))^2*(RTH);
+disp('i) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('i) Resistance (RTH) is = '+string (RTH) +' ohms ');
+disp('i) Power (P) is = '+string (P) +' W ');
diff --git a/1760/CH5/EX5.52/EX5_52.sce b/1760/CH5/EX5.52/EX5_52.sce new file mode 100755 index 000000000..ce8b75fd7 --- /dev/null +++ b/1760/CH5/EX5.52/EX5_52.sce @@ -0,0 +1,12 @@ + //EXAMPLE 5-52 PG NO-339
+R1=2;
+R2=4;
+R3=2;
+V=0.389; //VOLTAGE
+I1=3.89; //CURRENT
+TR=((R1*R2)/(R1+R2))+R2; //TOTAL RESISTANCE
+I=V/TR; //CURRENT
+TI=I1+I; //TOTAL CURRENT
+disp('i) Total resistance (TR) is = '+string (TR) +' ohms ');
+disp('i) Current (I) is = '+string (I) +' A ');
+disp('i) Total current (TI) is = '+string (TI) +' A ');
diff --git a/1760/CH5/EX5.53/EX5_53.sce b/1760/CH5/EX5.53/EX5_53.sce new file mode 100755 index 000000000..36a7cb708 --- /dev/null +++ b/1760/CH5/EX5.53/EX5_53.sce @@ -0,0 +1,14 @@ + //EXAMPLE 5-53 PG NO-339
+R1=16;
+R2=8;
+R3=12;
+Rd=(R1*R2)/(R1+R2+R1);
+Rb=Rd;
+Rc=(R1*R1)/(R1+R1+R2);
+V=180;
+VTH=[180/(R1+Rd+Rc)]*Rc;
+RTH=R3+[((Rc*(R1+Rd)))/(R1+Rc+Rd)]+Rd;
+disp('i) Resistance (Rd) is = '+string (Rd) +' ohms ');
+disp('i) Resistance (RC) is = '+string (Rc) +' ohms ');
+disp('i) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('i) Resistance (RTH) is = '+string (RTH) +' ohms ');
diff --git a/1760/CH5/EX5.54/EX5_54.sce b/1760/CH5/EX5.54/EX5_54.sce new file mode 100755 index 000000000..ce8269dfb --- /dev/null +++ b/1760/CH5/EX5.54/EX5_54.sce @@ -0,0 +1,8 @@ + //EXAMPLE 5-54 PG NO-340
+V1=48; //VOLTAGE
+V2=16; //VOLTAGE
+R1=12;
+R2=4;
+R3=4;
+I=(V1-V2)/(R1+R2+R3);
+disp('i) Current (I) is = '+string (I) +' A ');
diff --git a/1760/CH5/EX5.55/EX5_55.sce b/1760/CH5/EX5.55/EX5_55.sce new file mode 100755 index 000000000..33c8256dc --- /dev/null +++ b/1760/CH5/EX5.55/EX5_55.sce @@ -0,0 +1,5 @@ + //EXAMPLE 5-55 PG NO-340-341
+I1=1.2; //Current
+I2=0.3; //Current
+I=I1+I2;
+disp(' Current is = '+string(I)+'A');
diff --git a/1760/CH5/EX5.56/EX5_56.sce b/1760/CH5/EX5.56/EX5_56.sce new file mode 100755 index 000000000..1f3a8253b --- /dev/null +++ b/1760/CH5/EX5.56/EX5_56.sce @@ -0,0 +1,6 @@ + //EXAMPLE 5-56 PG NO-341
+VTH=15; //THEVENINS VOLTAGE
+R1=4;
+R2=6;
+I4=VTH/(R1+R2); //CURRENT THROUGH 4 ohms Resistance
+disp('i) CURRENT (I4) is = '+string (I4) +' A ');
diff --git a/1760/CH5/EX5.57/EX5_57.sce b/1760/CH5/EX5.57/EX5_57.sce new file mode 100755 index 000000000..ea2b5a9d5 --- /dev/null +++ b/1760/CH5/EX5.57/EX5_57.sce @@ -0,0 +1,10 @@ + //EXAMPLE 5-57 PG NO-341-342
+R1=22;
+R2=33;
+R3=10;
+R4=15;
+V=24;
+TR=[(R1+R2)*(R3+R4)]/(R1+R2+R3+R4);
+I=V/TR;
+disp('i) Total Resistance (TR) is = '+string (TR) +' Kohms ');
+disp('ii) CURRENT (I) is = '+string (I) +' A ');
diff --git a/1760/CH5/EX5.58/EX5_58.sce b/1760/CH5/EX5.58/EX5_58.sce new file mode 100755 index 000000000..ea2b5a9d5 --- /dev/null +++ b/1760/CH5/EX5.58/EX5_58.sce @@ -0,0 +1,10 @@ + //EXAMPLE 5-57 PG NO-341-342
+R1=22;
+R2=33;
+R3=10;
+R4=15;
+V=24;
+TR=[(R1+R2)*(R3+R4)]/(R1+R2+R3+R4);
+I=V/TR;
+disp('i) Total Resistance (TR) is = '+string (TR) +' Kohms ');
+disp('ii) CURRENT (I) is = '+string (I) +' A ');
diff --git a/1760/CH5/EX5.6/EX5_6.sce b/1760/CH5/EX5.6/EX5_6.sce new file mode 100755 index 000000000..90efd2c0a --- /dev/null +++ b/1760/CH5/EX5.6/EX5_6.sce @@ -0,0 +1,15 @@ + //EXAMPLE 5-6 PG NO=299-300
+TZ1=54.90+%i*85;
+Z1=40+%i*0;
+Z2=250-%i*132.625;
+Z3=0-%i*132.625;
+IR1=[Z1/TZ1]*[Z3/Z2];
+disp(' CURRENT is in polar form = '+string(IR1)+'A');
+TZ2=173.64+%i*48.84;
+Z4=20+%i*0;
+Z5=250+%i*377;
+Z6=0+%i*377;
+IR2=[Z4/TZ2]*[Z6/Z5];
+disp(' CURRENT is in polar form = '+string(IR2)+'A');
+IR=[IR1^2+IR2^2]^0.5;
+disp(' CURRENT is in polar form = '+string(IR)+'A');
diff --git a/1760/CH5/EX5.60/EX5_60.sce b/1760/CH5/EX5.60/EX5_60.sce new file mode 100755 index 000000000..0171c86b6 --- /dev/null +++ b/1760/CH5/EX5.60/EX5_60.sce @@ -0,0 +1,16 @@ + //EXAMPLE 5-60 PG NO-343
+V=60; //VOLTAGE
+R1=3;
+R2=4;
+R3=1.5;
+R4=2.5;
+IAB=12;
+IBC=6;
+ICD=6;
+IBD=6;
+VAB=36;
+VBC=9;
+VCD=15;
+VBD=24;
+VkIk=VAB*IAB+VBC*IBC+VCD*ICD+VBD*IBD-V*IAB
+disp('ii) SUBMISSION OF VkIk (VkIk) is = '+string (VkIk) +' ');
diff --git a/1760/CH5/EX5.62/EX5_62.sce b/1760/CH5/EX5.62/EX5_62.sce new file mode 100755 index 000000000..3303e4589 --- /dev/null +++ b/1760/CH5/EX5.62/EX5_62.sce @@ -0,0 +1,11 @@ + //EXAMPLE 5-62 PG NO-344-345
+Z1=16+%i*0;
+Z2=2+%i*1;
+Z3=3-%i*1;
+R=4;
+I=Z1/[Z2+[(R*Z3)/(R+Z3)]];
+disp(' Current is = '+string(I)+'A');
+IN=[I*Z3]/(R+Z3);
+disp(' Current is = '+string(IN)+'A');
+ZN=[[Z3*Z2]/5]+R;
+disp(' Impedance is = '+string(ZN)+'A');
diff --git a/1760/CH5/EX5.63/EX5_63.sce b/1760/CH5/EX5.63/EX5_63.sce new file mode 100755 index 000000000..bae1dcbb8 --- /dev/null +++ b/1760/CH5/EX5.63/EX5_63.sce @@ -0,0 +1,10 @@ + //EXAMPLE 5-63 PG NO-345
+IN=1.638-%i*0.614;
+Z1=15+%i*0;
+Z2=3-%i*1;
+Z3=2+%i*1;
+VTH=(Z1*Z2)/(Z3+Z2);
+ZN=5.4+%i*0.21;
+VTH1=IN*ZN
+disp('ii) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('ii) Voltage (VTH) is = '+string (VTH) +' V ');
diff --git a/1760/CH5/EX5.64/EX5_64.sce b/1760/CH5/EX5.64/EX5_64.sce new file mode 100755 index 000000000..fb7c2579c --- /dev/null +++ b/1760/CH5/EX5.64/EX5_64.sce @@ -0,0 +1,8 @@ + //EXAMPLE 5-64 PG NO-345-346
+Z1=4+%i*6;
+R1=1;
+V=100;
+ZTH=(Z1*R1)/(Z1+R1);
+Pmax=[100/(ZTH+ZTH)]^2*[0.93*cos(-6.11)]
+disp('i) IMPEDANCE (ZTH) is = '+string (ZTH) +' ohms ');
+disp('ii) POWER (Pmax) is = '+string ([Pmax]) +' W ');
diff --git a/1760/CH5/EX5.65/EX5_65.sce b/1760/CH5/EX5.65/EX5_65.sce new file mode 100755 index 000000000..89d14cda6 --- /dev/null +++ b/1760/CH5/EX5.65/EX5_65.sce @@ -0,0 +1,13 @@ + //EXAMPLE 5-65 PG NO-346
+V1=5;
+G1=1;
+V2=5;
+G2=(1/2);
+V3=10;
+G3=(1/4);
+EV=(V1*G1+V2*G2+V3*G3)/(G1+G2+G3); //EQUIVALENT VOLTAGE
+ER=1/(G1+G2+G3);
+I=(EV*ER)/(EV+ER);
+disp('i) Euivalent Resistance (EV) is = '+string (EV) +' V ');
+disp('ii) Equivalent Resistance (ER) is = '+string (ER) +' ohms ');
+disp('ii) CURRENT (I) is = '+string (I) +' A ');
diff --git a/1760/CH5/EX5.66/EX5_66.sce b/1760/CH5/EX5.66/EX5_66.sce new file mode 100755 index 000000000..b9aa7edf5 --- /dev/null +++ b/1760/CH5/EX5.66/EX5_66.sce @@ -0,0 +1,9 @@ +Z1=12.99+%i*7.5;
+Z2=4-%i*3;
+Z3=6+%i*8;
+I1=Z1/Z2;
+Z=Z3-Z2
+I=(I1*Z)/Z3;
+disp('ii) CURRENT (I1) is in polar form = '+string (I1) +' A ');
+disp('i) IMPEDANCE (Z) is in polar form = '+string (Z) +' V ');
+disp('ii) CURRENT (I) is in polar form = '+string (I) +' A ');
diff --git a/1760/CH5/EX5.67/EX5_67.sce b/1760/CH5/EX5.67/EX5_67.sce new file mode 100755 index 000000000..9872ae332 --- /dev/null +++ b/1760/CH5/EX5.67/EX5_67.sce @@ -0,0 +1,10 @@ + //EXAMPLE 5-67 PG NO-347-348
+V=10; //VOLTAGE
+R1=3;
+R2=4.91; //RESISTANCE
+I1=V/R1; //CURRENT
+Isc1=1.11;
+I2=V/R2;
+Isc2=1.11;
+disp('ii) CURRENT (I1) is = '+string (I1) +' A ');
+disp('ii) CURRENT (I2) is = '+string (I2) +' A ');
diff --git a/1760/CH5/EX5.68/EX5_68.sce b/1760/CH5/EX5.68/EX5_68.sce new file mode 100755 index 000000000..4baca1a5e --- /dev/null +++ b/1760/CH5/EX5.68/EX5_68.sce @@ -0,0 +1,9 @@ + //EXAMPLE 5-68 PG NO-348
+V1=3;
+V2=0.75;
+R1=1;
+R2=0.75;
+V=V1+V2;
+R=R1+R2;
+disp('ii) Voltage (V) is = '+string (V) +' V ');
+disp('ii)Resistance (R) is = '+string (R) +' ohms ');
diff --git a/1760/CH5/EX5.69/EX5_69.sce b/1760/CH5/EX5.69/EX5_69.sce new file mode 100755 index 000000000..8bb4c9f87 --- /dev/null +++ b/1760/CH5/EX5.69/EX5_69.sce @@ -0,0 +1,16 @@ + //EXAMPLE 5-69 PG NO-349
+V=24; //VOLTAGE
+R1=0.1;
+R2=6;
+R3=5;
+I=V/[R1+(R3*R2)/(R3+R2)];
+I1=I*(R3/(R2+R3));
+I2=I*(R2/(R2+R3));
+VTH=-(I1*2)-(-2*I2);
+RTH=2.533;
+IAB=VTH/(RTH+1);
+disp('ii) CURRENT (I) is = '+string (I) +' A ');
+disp('ii) CURRENT (I1) is = '+string (I1) +' A ');
+disp('ii) CURRENT (I2) is = '+string (I2) +' A ');
+disp('ii) Voltage (VTH) is = '+string (VTH) +' V ');
+disp('ii) CURRENT (IAB) is = '+string (IAB) +' A ');
diff --git a/1760/CH5/EX5.7/EX5_7.sce b/1760/CH5/EX5.7/EX5_7.sce new file mode 100755 index 000000000..67e3e249c --- /dev/null +++ b/1760/CH5/EX5.7/EX5_7.sce @@ -0,0 +1,10 @@ + //EXAMPLE 5-7 PG NO-300
+IR1=0.185; //current
+IR2=0.0924; //current
+R=250; //Resistance
+P1=IR1*IR1*R; //POWER
+P2=IR2*IR2*R; //POWER
+P=P1+P2; //POWER
+disp('i) POWER (P1) is = '+string (P1)+'W ');
+disp('i) POWER (P2) is = '+string (P2)+'W ');
+disp('i) POWER (P) is = '+string (P)+'W ');
diff --git a/1760/CH5/EX5.70/EX5_70.sce b/1760/CH5/EX5.70/EX5_70.sce new file mode 100755 index 000000000..9705d2d61 --- /dev/null +++ b/1760/CH5/EX5.70/EX5_70.sce @@ -0,0 +1,8 @@ + //EXAMPLE 5-70 PG NO-350
+R1=2;
+R2=3;
+R3=6;
+I4=R2*(R1/R3); //CURRENT THROUGH 4 OHMS RESISTANCE
+TI=I4+I4; //TOTAL CURRENT
+disp('ii) CURRENT (I4) is = '+string (I4) +' A ');
+disp('ii) CURRENT (TI) is = '+string (TI) +' A ');
diff --git a/1760/CH5/EX5.71/EX5_71.sce b/1760/CH5/EX5.71/EX5_71.sce new file mode 100755 index 000000000..5aea657b6 --- /dev/null +++ b/1760/CH5/EX5.71/EX5_71.sce @@ -0,0 +1,8 @@ + //EXAMPLE 5-71 PG NO=350-351
+R1=5;
+R2=4;
+R3=10;
+R=R1*R2/(R1+R2);
+I=(R*R3)/(R+R3);
+disp('ii) Resitance (R) is = '+string (R) +' ohms ');
+disp('ii) CURRENT (I) is = '+string (I) +' A ');
diff --git a/1760/CH5/EX5.73/EX5_73.sce b/1760/CH5/EX5.73/EX5_73.sce new file mode 100755 index 000000000..005dd0d4f --- /dev/null +++ b/1760/CH5/EX5.73/EX5_73.sce @@ -0,0 +1,4 @@ +X=[4 2 ;2 4 ];
+B=[20;10];
+X=B
+disp(' Current is = '+string(X)+'A');
diff --git a/1760/CH5/EX5.74/EX5_74.sce b/1760/CH5/EX5.74/EX5_74.sce new file mode 100755 index 000000000..15f9dbfeb --- /dev/null +++ b/1760/CH5/EX5.74/EX5_74.sce @@ -0,0 +1,11 @@ +R1=15;
+V=20 //RESISTANCE
+I1=V/R1;
+I2=I1*(1/2);
+R2=15;
+I1=V/R2;
+I2=I1*(1/2);
+disp('ii) CURRENT (I1) is = '+string (I1) +' A ');
+disp('ii) CURRENT (I2) is = '+string (I2) +' A ');
+disp('ii) CURRENT (I1) is = '+string (I1) +' A ');
+disp('ii) CURRENT (I2) is = '+string (I2) +' A ');
diff --git a/1760/CH5/EX5.8/EX5_8.sce b/1760/CH5/EX5.8/EX5_8.sce new file mode 100755 index 000000000..f5146a004 --- /dev/null +++ b/1760/CH5/EX5.8/EX5_8.sce @@ -0,0 +1,7 @@ + //EXAMPLE 5-8 PG NO-301
+Vcb=40/7;
+Vth=-6.2857;
+RTH=9.4286;
+R=10;
+I=-Vth/[R+RTH];
+disp(' CURRENT is in polar form = '+string(I)+'A');
diff --git a/1760/CH5/EX5.9/EX5_9.sce b/1760/CH5/EX5.9/EX5_9.sce new file mode 100755 index 000000000..e5e888e68 --- /dev/null +++ b/1760/CH5/EX5.9/EX5_9.sce @@ -0,0 +1,20 @@ + //EXAMPLE 5-9 PG NO-302
+V=10; //Voltage
+S=0.5*10^-5;
+R1=2500;
+R2=1050;
+R3=200;
+R4=500;
+Van=(V/(R1+R4))*R4;
+Vbn=(V/(R2+R3))*R3;
+VTH=Van-Vbn;
+RTH=((R1*R4)/(R1+R4))+((R2*R3)/(R2+R3));
+I=VTH/(RTH+100);
+GD=I/S; //Galvonater Deflection
+disp('i) voltage (Van) is = '+string (Van)+'V ');
+disp('i) Voltage (Vbn) is = '+string (Vbn)+'V ');
+disp('i) Voltage (VTH) is = '+string (VTH)+'V ');
+disp('i) Resistance (RTH) is = '+string (RTH)+'ohms ');
+disp('i) CURRENT (I) is = '+string (I)+'A ');
+disp('i) Galvoneter Deflection (GD) is = '+string (GD)+'mm ');
+
diff --git a/1760/CH7/EX7.14/EX7_14.sce b/1760/CH7/EX7.14/EX7_14.sce new file mode 100755 index 000000000..661581b4c --- /dev/null +++ b/1760/CH7/EX7.14/EX7_14.sce @@ -0,0 +1,17 @@ + //EXAMPLE 7-14 PG NO469-470
+Y11a=0.86;
+Y11b=1.5;
+Y12a=-0.57;
+Y12b=-0.5;
+Y21a=-0.57;
+Y21b=-0.5;
+Y22a=0.714;
+Y22b=2.5;
+Y11=Y11a+Y11b;
+disp('i) IMPEDANCE (Y11) is = '+string (Y11) +'mho ');
+Y12=Y12a+Y12b;
+disp('i) IMPEDANCE (Y12) is = '+string (Y12) +'mho ');
+Y21=Y21a+Y21b;
+disp('i) IMPEDANCE (Y21) is = '+string (Y21) +'mho ');
+Y22=Y22a+Y22b;
+disp('i) IMPEDANCE (Y22) is = '+string (Y22) +'mho ');
diff --git a/1760/CH7/EX7.16/EX7_16.sce b/1760/CH7/EX7.16/EX7_16.sce new file mode 100755 index 000000000..83a7b461b --- /dev/null +++ b/1760/CH7/EX7.16/EX7_16.sce @@ -0,0 +1,11 @@ + //EXAMPLE 7-16 PG NO-473
+Zoc1=40;
+Zsc1=36.67;
+Zi1=sqrt((Zoc1*Zsc1));
+disp('i) IMPEDANCE (Zi1) is = '+string (Zi1) +'ohm ');
+Zoc2=30;
+Zsc2=27.5;
+Zi2=sqrt((Zoc2*Zsc2));
+disp('ii) IMPEDANCE (Zi2) is = '+string (Zi2) +'ohm ');
+TETA=1/tanh(0.9167);
+disp('iii) (TETA) is = '+string (TETA) +'degree ');
diff --git a/1760/CH7/EX7.17/EX7_17.sce b/1760/CH7/EX7.17/EX7_17.sce new file mode 100755 index 000000000..e86871636 --- /dev/null +++ b/1760/CH7/EX7.17/EX7_17.sce @@ -0,0 +1,10 @@ + //EXAMPLE 7-17 PG NO-474-475
+R=600; //RESISTANCE
+I1=1/1200.13;
+disp(' Current is = '+string(I1)+'A');
+I2=1/3793.54;
+disp(' Current is = '+string(I2)+'A');
+P20=23984.9;
+P2=2400;
+IL=10*log10(P20/P2);
+disp(' Insertion Loss is = '+string(IL)+'dB');
diff --git a/1760/CH7/EX7.18/EX7_18.sce b/1760/CH7/EX7.18/EX7_18.sce new file mode 100755 index 000000000..a4561361b --- /dev/null +++ b/1760/CH7/EX7.18/EX7_18.sce @@ -0,0 +1,19 @@ + //EXAMPLE 7-18 PG NO-477-478
+Ra=7;
+Rb=3;
+Rc=3;
+A=(Ra+Rb)/Rb;
+disp(' A is = '+string(A)+'');
+B=Ra+Rc+[(Ra*Rc)/Rb];
+disp(' B is = '+string(B)+'');
+C=1/Rb;
+disp(' C is = '+string(C)+'');
+D=(Rb+Rc)/Rb;
+disp(' D is = '+string(D)+'');
+Z11=[(A*B)/(C*D)]^0.5;
+disp(' Impedance is = '+string(Z11)+'ohm');
+Z12=[(B*D)/(A*C)]^0.5;
+disp(' Impedance is = '+string(Z12)+'ohm');
+Q=1/cosh(2.62);
+Y12=-(1/17);
+disp(' Admittance is = '+string(Y12)+'siemens');
diff --git a/1760/CH7/EX7.2/EX7_2.sce b/1760/CH7/EX7.2/EX7_2.sce new file mode 100755 index 000000000..466204c7c --- /dev/null +++ b/1760/CH7/EX7.2/EX7_2.sce @@ -0,0 +1,11 @@ + //EXAMPLE 7-2 PG NO-437-438
+Z11=99+%i*99;
+Z12=-%i*100;
+Z21=20-%i*102.26;
+Z22=90.06-%i*120;
+Z1=Z11-Z12;
+disp('i) Impedance (Z1) is in rectangular form = '+string (Z1) +'ohm ');
+Z2=Z22-Z12;
+disp('ii) Impedance (Z2) is in rectangular form = '+string (Z2) +'ohm ');
+Z3=Z21-Z12;
+disp('iii) Impedance (Z3) is in rectangular form = '+string (Z3) +'ohm ');
diff --git a/1760/CH7/EX7.20/EX7_20.sce b/1760/CH7/EX7.20/EX7_20.sce new file mode 100755 index 000000000..2431c779a --- /dev/null +++ b/1760/CH7/EX7.20/EX7_20.sce @@ -0,0 +1,10 @@ +Zoc1=2.923;
+Zsc1=1.80;
+Zi1=sqrt((Zoc1*Zsc1));
+disp('i) IMPEDANCE (Zi1) is = '+string (Zi1) +'ohm ');
+Zoc2=4.77;
+Zsc2=2.95;
+Zi2=sqrt((Zoc2*Zsc2));
+disp('ii) IMPEDANCE (Zi2) is = '+string (Zi2) +'ohm ');
+TETA=1/tanh(0.619);
+disp('iii) (TETA) is = '+string (TETA) +'degree ');
diff --git a/1760/CH7/EX7.21/EX7_21.sce b/1760/CH7/EX7.21/EX7_21.sce new file mode 100755 index 000000000..74f197069 --- /dev/null +++ b/1760/CH7/EX7.21/EX7_21.sce @@ -0,0 +1,8 @@ + //EXAMPLE 7-21 PG NO-481
+Rb=0.05;
+C=0.09;
+Ra=1/[C-(Rb)];
+disp('i) RESISTANCE = '+string (Ra)+' ohm');
+C1=0.07;
+Rc=1/(C1-Rb);
+disp('ii) RESISTANCE = '+string (Rc)+' ohm');
diff --git a/1760/CH7/EX7.22/EX7_22.sce b/1760/CH7/EX7.22/EX7_22.sce new file mode 100755 index 000000000..1aab64568 --- /dev/null +++ b/1760/CH7/EX7.22/EX7_22.sce @@ -0,0 +1,10 @@ + //EXAMPLE 7-22 PG NO-482
+Z11=4;
+Z21=3;
+Z12=3;
+Z22=5;
+Z=[Z11 Z12;Z21 Z22];
+X=det(Z);
+disp(' delta is = '+string(X)+'');
+Y=[(Z22/X) (-Z12/X);(-Z21/X) (Z11/X)];
+disp(' ADMITTANCE is = '+string(Y)+'');
diff --git a/1760/CH7/EX7.25/EX7_25.sce b/1760/CH7/EX7.25/EX7_25.sce new file mode 100755 index 000000000..63d06d499 --- /dev/null +++ b/1760/CH7/EX7.25/EX7_25.sce @@ -0,0 +1,18 @@ + //EXAMPLE 7_25 PG NO-484-485
+A1=4/3;
+A2=5/3;
+B1=11/3;
+B2=2;
+C1=1/3;
+C2=2;
+D1=5/3;
+D2=3;
+A=A1+A2;
+B=B1+B2;
+C=C1+C2;
+D=D1+D2;
+X=(A*D)-(B*C);
+disp(' X is = '+string(X)+'');
+Z=[A1 B1;C1 D1]*[A2 B2; C2 D2];
+disp(' ABCD MATRIX is = '+string(Z)+'');
+
diff --git a/1760/CH7/EX7.34/EX7_34.sce b/1760/CH7/EX7.34/EX7_34.sce new file mode 100755 index 000000000..9abfd6435 --- /dev/null +++ b/1760/CH7/EX7.34/EX7_34.sce @@ -0,0 +1,6 @@ + //EXAMPLE 7-34 PG NO-489-490
+h21=0.98;
+h22=0.3*10^-6;
+I1=(h22+(1/10^4))/h21;
+disp('i) Current (I1) is = '+string (I1) +' A ');
+
diff --git a/1760/CH7/EX7.37/EX7_37.sce b/1760/CH7/EX7.37/EX7_37.sce new file mode 100755 index 000000000..f9f92f262 --- /dev/null +++ b/1760/CH7/EX7.37/EX7_37.sce @@ -0,0 +1,10 @@ + //EXAMPLE 7-37 PG NO 438-439
+Z11=3.25;
+Z21=0.75;
+Z12=-0.75;
+Z22=1.75;
+Z=[Z11 Z12;Z21 Z22];
+X=det(Z);
+disp(' delta is = '+string(X)+'');
+Y=[(Z22/X) (-Z12/X);(-Z21/X) (Z11/X)];
+disp(' ADMITTANCE is = '+string(Y)+'');
diff --git a/1760/CH7/EX7.38/EX7_38.sce b/1760/CH7/EX7.38/EX7_38.sce new file mode 100755 index 000000000..9f3ee1c10 --- /dev/null +++ b/1760/CH7/EX7.38/EX7_38.sce @@ -0,0 +1,12 @@ + //EXAMPLE 7-38 PG NO-493
+R1=4; //RESISTANCE
+R2=4; //RESISTANCE
+R3=8/9; //RESISTANCE
+Z10=[R1*(R3+R2)]/[R1+R2+R3];
+disp(' Impedance is (Z10) = '+string(Z10)+'ohm');
+Z20=[R1*(R3+R2)]/[R1+R2+R3];
+disp(' Impedance is (Z20) = '+string(Z20)+'ohm');
+Z1S=[R1*R3]/[R1+R3];
+disp(' Impedance is (Z1S) = '+string(Z1S)+'ohm');
+Z2S=[R1*R3]/[R1+R3];
+disp(' Impedance is (Z1S) = '+string(Z2S)+'ohm');
diff --git a/1760/CH7/EX7.4/EX7_4.sce b/1760/CH7/EX7.4/EX7_4.sce new file mode 100755 index 000000000..0f4b0f4a7 --- /dev/null +++ b/1760/CH7/EX7.4/EX7_4.sce @@ -0,0 +1,10 @@ + //EXAMPLE 7-4 PG NO 438-439
+Z11=-0.4;
+Z21=0.4;
+Z12=-3.2;
+Z22=1.2;
+Z=[Z11 Z12;Z21 Z22];
+X=det(Z);
+disp(' delta is = '+string(X)+'');
+Y=[(Z22/X) (-Z12/X);(-Z21/X) (Z11/X)];
+disp(' ADMITTANCE is = '+string(Y)+'');
diff --git a/1760/CH7/EX7.42/EX7_42.sce b/1760/CH7/EX7.42/EX7_42.sce new file mode 100755 index 000000000..35b14e81d --- /dev/null +++ b/1760/CH7/EX7.42/EX7_42.sce @@ -0,0 +1,16 @@ + //EXAMPLE7-42 PG NO-495-496
+Z11=2/3;
+Z22=Z11;
+Z12=1/3;
+Z21=Z12;
+A=Z11/Z21;
+disp(' A is (A) = '+string(A)+'ohm');
+Z=[Z11 Z12;Z21 Z22]
+X=det(Z);
+disp(' Determinent is (X) = '+string(X)+'');
+B=X/Z21;
+disp(' B is (B) = '+string(B)+'ohm');
+C=1/Z21;
+disp(' C is (C) = '+string(C)+'mho');
+D=Z22/Z21;
+disp(' D is (D) = '+string(D)+'mho');
diff --git a/1760/CH7/EX7.5/EX7_5.sce b/1760/CH7/EX7.5/EX7_5.sce new file mode 100755 index 000000000..9a04800c7 --- /dev/null +++ b/1760/CH7/EX7.5/EX7_5.sce @@ -0,0 +1,10 @@ + //EXAMPLE 7-5 PG NO-439-440
+Z11=-0.4;
+Z21=-3.2;
+Z12=0.4;
+Z22=1.2;
+Z=[Z11 Z12;Z21 Z22];
+X=det(Z);
+disp(' delta is = '+string(X)+'');
+Y=[(Z22/X) (-Z12/X);(-Z21/X) (Z11/X)];
+disp(' ADMITTANCE is = '+string(Y)+'');
diff --git a/1760/CH7/EX7.8/EX7_8.sce b/1760/CH7/EX7.8/EX7_8.sce new file mode 100755 index 000000000..eaa342a4f --- /dev/null +++ b/1760/CH7/EX7.8/EX7_8.sce @@ -0,0 +1,11 @@ + //EXAMPLE 7-8 PG NO-442
+Y11=0.5;
+Y21=-0.1;
+Z1=0.1;
+Z2=0.9;
+Z=(Z1*Z2)/(Z1+Z2);
+disp('i) Impedance (Z) is in rectangular form = '+string (Z) +'mho ');
+I1=10*Z;
+disp('ii) Current (I) is in rectangular form = '+string (I1) +'A ');
+V11=I1/I1;
+disp('i) VOLTAGE (V11) is in rectangular form = '+string (V11) +'V ');
diff --git a/1760/CH8/EX8.1/EX8_1.sce b/1760/CH8/EX8.1/EX8_1.sce new file mode 100755 index 000000000..da64c8db4 --- /dev/null +++ b/1760/CH8/EX8.1/EX8_1.sce @@ -0,0 +1,21 @@ + //EXAMPLE 8-1 PG N0-510
+L=0.02; //INDUCTANCE
+C=4*10^-6; //CAPACITOR
+Z=200;
+Fc=1/(%pi*(L*C)^0.5);
+Z0=(L/C)^0.5;
+Z1=(%i*2)*%pi*Z*L;
+Z2=1/(%i*2*%pi*Z*C);
+Z0*(%pi)=[(4*Z1*Z2*Z2)/(Z1+4*Z2)]^0.5
+F1=2000;
+Z11=%i*%pi*F1*L;
+Z22=1/(%i*%pi*F1*C);
+Z01=[(4*Z11*Z22*Z22)/(Z1+4*Z22)]^0.5;
+disp('ii) POWER (Pmax) is = '+string ([Z1]) +' W ');
+disp('ii) POWER (Pmax) is = '+string ([Z2]) +' W ');
+disp('ii) POWER (Pmax) is = '+string ([Z0*(%pi)]) +' W ');
+disp('ii) POWER (Pmax) is = '+string ([Z11]) +' W ');
+disp('ii) POWER (Pmax) is = '+string ([Z22]) +' W ');
+disp('ii) POWER (Pmax) is = '+string ([Z01]) +' W ');
+
+
diff --git a/1760/CH8/EX8.10/EX8_10.sce b/1760/CH8/EX8.10/EX8_10.sce new file mode 100755 index 000000000..f5732c57e --- /dev/null +++ b/1760/CH8/EX8.10/EX8_10.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-10 PG NO- 529
+Ro=100;
+Fc=1000;
+L=Ro/Fc*%pi;
+disp('i) INDUCTANCE (L) is = '+string ([L]) +' H ')
+C=1/(%pi*Ro*Fc)
+disp('ii) CAPACITOR (C) is = '+string (C) +' F ')
diff --git a/1760/CH8/EX8.11/EX8_11.sce b/1760/CH8/EX8.11/EX8_11.sce new file mode 100755 index 000000000..e3976e765 --- /dev/null +++ b/1760/CH8/EX8.11/EX8_11.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-11 PG NO-529-530
+Ro=500;
+Fc=1000;
+L=Ro/(%pi*Fc);
+disp('ii) INDUCTANCE (L) is = '+string (L) +' H ')
+C=1/(%pi*Ro*Fc);
+disp('ii) CAPACITOR (C) is = '+string (C) +' F ')
diff --git a/1760/CH8/EX8.12/EX8_12.sce b/1760/CH8/EX8.12/EX8_12.sce new file mode 100755 index 000000000..5a15890c3 --- /dev/null +++ b/1760/CH8/EX8.12/EX8_12.sce @@ -0,0 +1,5 @@ + //EXAMPLE 8-12 PG NO-530
+Fc=1000;
+C=0.05*10^-6;
+L=1/(%pi*%pi*Fc*Fc*C)
+disp('i) INDUCTANCE (L) is = '+string ([L]) +' H ')
diff --git a/1760/CH8/EX8.13/EX8_13.sce b/1760/CH8/EX8.13/EX8_13.sce new file mode 100755 index 000000000..8388f8054 --- /dev/null +++ b/1760/CH8/EX8.13/EX8_13.sce @@ -0,0 +1,5 @@ + //EXAMPLE 8-13 PG NO-530
+Fc=2000;
+L=0.05;
+C=1/(16*%pi*%pi*Fc*Fc*L)
+disp('i) CAPACITOR (C) is = '+string (C) +' F ')
diff --git a/1760/CH8/EX8.14/EX8_14.sce b/1760/CH8/EX8.14/EX8_14.sce new file mode 100755 index 000000000..e5b50be1a --- /dev/null +++ b/1760/CH8/EX8.14/EX8_14.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-14 PG NO-530
+Ro=600;
+Fc=20000;
+L=Ro/(4*%pi*Fc);
+C=1/(4*%pi*Ro*Fc);
+disp('i) INDUCTANCE (L) is = '+string (L) +' H ')
+disp('ii) CAPACITOR (C) is = '+string (C) +' F ')
diff --git a/1760/CH8/EX8.15/EX8_15.sce b/1760/CH8/EX8.15/EX8_15.sce new file mode 100755 index 000000000..89c2adaaa --- /dev/null +++ b/1760/CH8/EX8.15/EX8_15.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-15 PG NO-531
+L=50*10^-3;
+C=0.2*10^-6;
+Ro=(L/C)^0.5;
+Fc=1/[%pi*(L*C)^0.5];
+disp('i) RESISTANCE (Ro) is = '+string (Ro) +' ohm ')
+disp('ii) FREQUENCY (Fc) is = '+string (Fc) +' Hz ')
diff --git a/1760/CH8/EX8.16/EX8_16.sce b/1760/CH8/EX8.16/EX8_16.sce new file mode 100755 index 000000000..315ad0b4a --- /dev/null +++ b/1760/CH8/EX8.16/EX8_16.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-16 PG NO-531
+C=0.2*10^-6;
+L=50*10^-3;
+Ro=(L/C)^0.5;
+Fc=1/[4*%pi*(L*C)];
+disp('Hi) RESISTANCE (Ro) is = '+string (Ro) +' ohm ')
+disp('Hi) FREQUENCY (Fc) is = '+string (Fc) +' Hz ')
diff --git a/1760/CH8/EX8.17/EX8_17.sce b/1760/CH8/EX8.17/EX8_17.sce new file mode 100755 index 000000000..bf9168a89 --- /dev/null +++ b/1760/CH8/EX8.17/EX8_17.sce @@ -0,0 +1,9 @@ + //EXAMPLE 8-18 PG NO-533-534
+Z1=%i*413.05; //Impedance
+Z2=%i*334.45; //Impedance
+Zoc=(Z1/2)-Z2;
+disp('i) Impedance(Zoc) is = '+string ([Zoc]) +' ohm ');
+Zsc=(Z1/2)+[((Z1*-Z2)/2)/(-Z2+(Z1/2))];
+disp('ii) Impedance (Zsc) is = '+string ([Zsc]) +' ohm ');
+Zo=(Zoc*Zsc)^0.5;
+disp('ii) Impedance (Zo) is = '+string ([Zo]) +' ohm ');
diff --git a/1760/CH8/EX8.18/EX8_18.sce b/1760/CH8/EX8.18/EX8_18.sce new file mode 100755 index 000000000..9a22a500c --- /dev/null +++ b/1760/CH8/EX8.18/EX8_18.sce @@ -0,0 +1,22 @@ + //EXAMPLE 8-18 PG NO-533
+Ro=600;
+Fc=1000;
+L1=Ro/(%pi*Fc);
+C2=1/(%pi*Ro*Fc);
+Fo=1050;
+m=[1-(Fc/Fo)]^0.5;
+X=(0.5*m*L1);
+Y=[(1-m*m)/4*m]*L1;
+Z=m*C2;
+A=(m*L1)/2;
+B=[(1-m*m)/(2*m)]*L1;
+C=(m*C2)/2;
+disp('i) INDUCTAR (L1) is = '+string (L1) +' H ')
+disp('ii) CAPACITOR (C2) is = '+string (C2) +' F ')
+disp('iii) CONSTANT (m) is = '+string (m') +' ')
+disp('iv) (X) is = '+string (X) +' H ')
+disp('v) (y) is = '+string (Y) +' H ')
+disp('vi) (Z) is = '+string (Z) +' F ')
+disp('vii) (A) is = '+string (A) +' H ')
+disp('viii) (B) is = '+string (B) +' H ')
+disp('x) (C) is = '+string (C) +' F ')
diff --git a/1760/CH8/EX8.19/EX8_19.sce b/1760/CH8/EX8.19/EX8_19.sce new file mode 100755 index 000000000..8768e78a4 --- /dev/null +++ b/1760/CH8/EX8.19/EX8_19.sce @@ -0,0 +1,21 @@ + //EXAMPLE 8-19 PG NO-534-535
+Ro=600; //characteristics Impedance
+Fc=1000; //cutt of frequency
+L=Ro/(4*%pi*Fc);
+disp('i) Inductance is = '+string ([L]) +' H ');
+C=1/[4*%pi*Fc*Ro];
+disp('ii) Capacitance is = '+string ([C]) +' F ');
+m=0.2;
+X=(2*C)/m; //X=2C/m;
+disp('iii) X is = '+string ([X]) +' F ');
+Y=L/m; Y=L/m;
+disp('iv) Y is = '+string ([Y]) +' H ');
+Z=(4*m*C)/[1-m^2];
+disp('v) Z is = '+string ([Z]) +' F ');
+m1=0.6;
+X1=(2*C)/m1; //X=2C/m;
+disp('iii) X is = '+string ([X1]) +' F ');
+Y1=(2*L)/m1; Y1=L/m1;
+disp('iv) Y is = '+string ([Y1]) +' H ');
+Z1=(2*m1*C)/[1-m1^2];
+disp('v) Z is = '+string ([Z1]) +' F ');
diff --git a/1760/CH8/EX8.2/EX8_2.sce b/1760/CH8/EX8.2/EX8_2.sce new file mode 100755 index 000000000..f5ea0b8ad --- /dev/null +++ b/1760/CH8/EX8.2/EX8_2.sce @@ -0,0 +1,7 @@ + //example 8-2 pg no -511
+Ro=600;
+Fc=940;
+L=Ro/(%pi*Fc);
+C=1/(%pi*Ro*Fc);
+disp('ii) INDUCTANCE (L) is = '+string ([L]) +' H ')
+disp('ii) CAPACITOR (C) is = '+string ([C]) +' F ')
diff --git a/1760/CH8/EX8.20/EX8_20.sce b/1760/CH8/EX8.20/EX8_20.sce new file mode 100755 index 000000000..1218b4568 --- /dev/null +++ b/1760/CH8/EX8.20/EX8_20.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-20 PG NO-535
+Ro=450;
+Fc=20000;
+L=Ro/(4*%pi*Fc);
+C=1/(4*%pi*Fc*Ro);
+Z1=Ro/(2*%pi*Fc);
+disp('i) IMPEDANCE (Z1) is = '+string (Z1) +' ');
diff --git a/1760/CH8/EX8.21/EX8_21.sce b/1760/CH8/EX8.21/EX8_21.sce new file mode 100755 index 000000000..0875575f6 --- /dev/null +++ b/1760/CH8/EX8.21/EX8_21.sce @@ -0,0 +1,13 @@ + //EXAMPLE 8-21 PG NO-536-537
+Ro=600; //RESISTANCE
+Fc=10000; //FREQUENCY
+F=25000;
+L=Ro/(4*%pi*Fc);
+C=1/(4*%pi*Fc*Ro);
+Z=Ro*[1-(Fc/F)^2]^0.5;
+Zo=Ro/[1-(Fc/F)^2]^0.5;
+disp('i) INDUCTAR (L) is = '+string (L) +' H ')
+disp('ii) CAPACITOR (C) is = '+string (C) +' F ')
+disp('i) IMPEDANCE (Z) is = '+string (Z) +' ohm ')
+disp('ii) IMPEDANCE (Zo) is = '+string (Zo) +' ohm ')
+
diff --git a/1760/CH8/EX8.22/EX8_22.sce b/1760/CH8/EX8.22/EX8_22.sce new file mode 100755 index 000000000..414bf6203 --- /dev/null +++ b/1760/CH8/EX8.22/EX8_22.sce @@ -0,0 +1,12 @@ + //EXAMPLE 8-22 PG NO-537-538
+L=60*10^-3;
+C=150*10^-9;
+Fo=1/[2*%pi*(L*C)^0.5];
+disp('ii) FREQUENCY (Fo) is = '+string (Fo) +' Hz ')
+R=670;
+B.W=R/L;
+disp('ii) BAND WIDTH (B.W) is = '+string (B.W) +' rad/sec ')
+FL=Fo-(1777.22/2);
+disp('ii) Lower Cut of Frequency (FL) is = '+string (FL) +' Hz ')
+Fu=Fo+(1777.22/2);
+disp('ii) Upper Cut of Frequency (Fu) is = '+string (Fu) +' Hz ')
diff --git a/1760/CH8/EX8.23/EX8_23.sce b/1760/CH8/EX8.23/EX8_23.sce new file mode 100755 index 000000000..c7ce1d15b --- /dev/null +++ b/1760/CH8/EX8.23/EX8_23.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-23 PG NO-538
+L=160*10^-3;
+C=0.022*10^-6;
+Fc=1/[%pi*(L*C)^0.5];
+Zo=(L/C)^0.5;
+disp('ii) Cut of Frequency (Fc) is = '+string (Fc) +' Hz ')
+disp('ii) IMPEDANCE (Zo) is = '+string (Zo) +' ohm ')
diff --git a/1760/CH8/EX8.24/EX8_24.sce b/1760/CH8/EX8.24/EX8_24.sce new file mode 100755 index 000000000..7cd2f2f52 --- /dev/null +++ b/1760/CH8/EX8.24/EX8_24.sce @@ -0,0 +1,11 @@ + //EXAMPLE 8-24 PG NO-541-542
+Avf=1.56
+Vo=2.262*10^-3;
+R=15*10^3;
+F=0.707;
+C=0.002*10^-6;
+Fc=1/(2*%pi*R*C);
+disp('ii) Cut of Frequency (Fc) is = '+string (Fc) +' Hz ')
+Vo1=F*Vo;
+A=20*log(1.56);
+disp('ii) Out Put Voltage (Vo1) is = '+string (Vo1) +' V ')
diff --git a/1760/CH8/EX8.25/EX8_25.sce b/1760/CH8/EX8.25/EX8_25.sce new file mode 100755 index 000000000..6cc936ffd --- /dev/null +++ b/1760/CH8/EX8.25/EX8_25.sce @@ -0,0 +1,9 @@ + //EXAMPLE 8-25 PG NO-542
+Fc=4000;
+R=10*10^3;
+C=1/[2*%pi*Fc*R];
+disp('i) CAPACITOR (C) is = '+string (C) +' F ')
+Avf=1.586;
+R1=15000
+R2=[Avf-1]*R1;
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ')
diff --git a/1760/CH8/EX8.26/EX8_26.sce b/1760/CH8/EX8.26/EX8_26.sce new file mode 100755 index 000000000..3e5e9ae1b --- /dev/null +++ b/1760/CH8/EX8.26/EX8_26.sce @@ -0,0 +1,5 @@ + //EXAMPLE-8-26 PG NO-543
+R=15.86;
+R1=10;
+MA=R/R1;
+disp('i) mid band gain = '+string (MA)+' ');
diff --git a/1760/CH8/EX8.27/EX8_27.sce b/1760/CH8/EX8.27/EX8_27.sce new file mode 100755 index 000000000..59bbfc78b --- /dev/null +++ b/1760/CH8/EX8.27/EX8_27.sce @@ -0,0 +1,11 @@ + //EXAMPLE 8-27 PG NO-545
+R2=0.586;
+M.G=1+0.586; //MID BAND GAIN
+R=10^3;
+C=0.02*10^-6;
+Fc=1/(2*%pi*R*C); //Cut OFF Frequency
+G.Fc=0.707*M.G;
+M.B.O=M.G*1.4;
+disp('ii) Cut off Frequency (Fc) is = '+string (Fc) +' ')
+disp('ii) Gain at cutt of frequency (G.Fc) is = '+string (G.Fc) +' ')
+disp('ii) Mid band out Put (M.B.O) is = '+string (M.B.O) +' mV ')
diff --git a/1760/CH8/EX8.28/EX8_28.sce b/1760/CH8/EX8.28/EX8_28.sce new file mode 100755 index 000000000..47db5c9b5 --- /dev/null +++ b/1760/CH8/EX8.28/EX8_28.sce @@ -0,0 +1,9 @@ + //EXAMPLE-8-28 PG NO-545-546
+Avf=1.586;
+R1=10;
+R2=[Avf-1]*R1;
+Fc=5000;
+R=2000;
+C=1/[2*%pi*R*Fc]
+disp('ii) Resistance (R2) is = '+string (R2) +' Kohm ')
+disp('ii) CAPACITOR (C) is = '+string (C) +' F ')
diff --git a/1760/CH8/EX8.29/EX8_29.sce b/1760/CH8/EX8.29/EX8_29.sce new file mode 100755 index 000000000..913d874a3 --- /dev/null +++ b/1760/CH8/EX8.29/EX8_29.sce @@ -0,0 +1,12 @@ + //EXAMPLE 8-29 PG NO-547-548
+R1=10000;
+Fc1=8000;
+C1=1/[2*%pi*R1*Fc1];
+R4=15;
+R3=8.79;
+Fc2=4000;
+R2=20000;
+C2=1/[2*%pi*R2*Fc2];
+disp('ii) CAPACITOR (C1) is = '+string (C1) +' F ')
+disp('ii) CAPACITOR (C2) is = '+string (C2) +' F ')
+
diff --git a/1760/CH8/EX8.3/EX8_3.sce b/1760/CH8/EX8.3/EX8_3.sce new file mode 100755 index 000000000..0a67bd9aa --- /dev/null +++ b/1760/CH8/EX8.3/EX8_3.sce @@ -0,0 +1,18 @@ +L=0.015; //INDUCTANCE
+C=0.5*10^-6; //CAPACITOR
+Z=200;
+Fc=1/(4*%pi*(L*C)^0.5);
+Z0=(L/C)^0.5;
+Z2=(%i*2)*%pi*Z*L;
+Z1=1/(%i*2*%pi*Z*C);
+F1=2000;
+Z01=[(Z1*Z2)/(1+(Z1/(4*Z2)))]^0.5;
+A=8.147;
+disp('ii) Impedance (ZO) is = '+string ([Z0]) +' W ');
+disp('ii) FREQUENCY is = '+string ([Fc]) +' HZ ');
+disp('ii) Impedance(Z1) is = '+string ([Z1]) +' W ');
+disp('ii) Impedance(Z2) is = '+string ([Z2]) +' W ');
+disp('ii) Impedance(Z01) is = '+string ([Z01]) +' W ');
+disp('ii) ALPHA is = '+string ([A]) +' ');
+
+
diff --git a/1760/CH8/EX8.30/EX8_30.sce b/1760/CH8/EX8.30/EX8_30.sce new file mode 100755 index 000000000..c2b07ead7 --- /dev/null +++ b/1760/CH8/EX8.30/EX8_30.sce @@ -0,0 +1,9 @@ + //EXAMPLE 8-30 PG NO-548
+R1=10000;
+Fc1=40000 ;
+C1=1/[R1*Fc1*2*%pi];
+disp('ii) CAPACITOR (C1) is = '+string (C1) +' F ');
+Fc2=8000;
+R2=5000;
+C2=1/[R2*Fc2*2*%pi];
+disp('ii) CAPACITOR (C2) is = '+string (C2) +' F ');
diff --git a/1760/CH8/EX8.31/EX8_31.sce b/1760/CH8/EX8.31/EX8_31.sce new file mode 100755 index 000000000..02b262880 --- /dev/null +++ b/1760/CH8/EX8.31/EX8_31.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-31 PG NO-550
+N=100;
+Ro=450;
+R1=Ro*[(N-1)/(N+1)];
+R2=Ro*[2*N/{N^2-1}];
+disp('ii) Resistance (R1) is = '+string (R1) +' ohm ');
+disp('ii) Resistance(r2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.32/EX8_32.sce b/1760/CH8/EX8.32/EX8_32.sce new file mode 100755 index 000000000..d0c40df16 --- /dev/null +++ b/1760/CH8/EX8.32/EX8_32.sce @@ -0,0 +1,13 @@ + //EXAMPLE 8-32 PG NO-550
+Zoc=200;
+Zsc=187.5;
+Zo=[Zoc*Zsc]^0.5;
+R1=50;
+R2=150;
+R3=193.65;
+N=[R1+R2+R3]/R1;
+D=20*log10(N)
+disp('ii) IMPEDANCE (Zo) is = '+string (Zo) +' ohm ');
+disp('ii) (N) is = '+string (N) +' ');
+disp('ii) (D) is = '+string (D) +' dB ');
+
diff --git a/1760/CH8/EX8.33/EX8_34.sce b/1760/CH8/EX8.33/EX8_34.sce new file mode 100755 index 000000000..c550360aa --- /dev/null +++ b/1760/CH8/EX8.33/EX8_34.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-34 PG NO-551
+N=2.985;
+Ro=175;
+R1=Ro*[(N-1)/(N+1)];
+R2=Ro*[(2*N)/(N^2-1)];
+disp('ii) Resistance (R1) is = '+string (R1) +' ohm ');
+disp('ii) Resistance (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.34/EX8_34.sce b/1760/CH8/EX8.34/EX8_34.sce new file mode 100755 index 000000000..c550360aa --- /dev/null +++ b/1760/CH8/EX8.34/EX8_34.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-34 PG NO-551
+N=2.985;
+Ro=175;
+R1=Ro*[(N-1)/(N+1)];
+R2=Ro*[(2*N)/(N^2-1)];
+disp('ii) Resistance (R1) is = '+string (R1) +' ohm ');
+disp('ii) Resistance (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.35/EX8_35.sce b/1760/CH8/EX8.35/EX8_35.sce new file mode 100755 index 000000000..236ebf043 --- /dev/null +++ b/1760/CH8/EX8.35/EX8_35.sce @@ -0,0 +1,13 @@ + //EXAMPLE 8-35 PG NO-552
+R1=200;
+R2=200;
+R3=100;
+Zoc=[R1*(R2+R3)/(R1+R2+R3)];
+disp('i) IMPEDANCE (Zoc) is = '+string (Zoc) +' ohm ');
+Zsc=(R1*R3)/(R1+R3);
+disp('ii) IMPEDANCE (Zsc) is = '+string (Zsc) +' ohm ');
+Zo=[Zoc*Zsc]^0.5;
+disp('iii) IMPEDANCE (Zo) is = '+string (Zo) +' ohm ');
+N=2.618;
+D=20*log10(N)
+disp('ii) (D) is = '+string (D) +' dB ');
diff --git a/1760/CH8/EX8.36/EX8_36.sce b/1760/CH8/EX8.36/EX8_36.sce new file mode 100755 index 000000000..4dfbab30e --- /dev/null +++ b/1760/CH8/EX8.36/EX8_36.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-36 PG NO-552-553
+N=31.622;
+Ro=700;
+R1=Ro*[(N^2-1)/(2*N)];
+R2=Ro*[(N+1)/(N-1)];
+disp('i) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohms ');
diff --git a/1760/CH8/EX8.37/EX8_37.sce b/1760/CH8/EX8.37/EX8_37.sce new file mode 100755 index 000000000..359389b9a --- /dev/null +++ b/1760/CH8/EX8.37/EX8_37.sce @@ -0,0 +1,11 @@ + //EXAMPLE 8-37 PG NO-553
+R1=657.08;
+R2=44.316;
+Zoc=R1+R2;
+Zsc=R1+[(R1*R2)/(R1+R2)];
+Zo=[Zoc*Zsc]^0.5;
+N=[R2+R1+Zo]/R2;
+disp('i) impedance (Zoc) is = '+string (Zoc) +' ohm ');
+disp('ii) impedance (Zsc) is = '+string (Zsc) +' ohm ');
+disp('iii)impedance (Zo) is = '+string (Zo) +' ohm ');
+disp('iv) (N) is = '+string (N) +' ');
diff --git a/1760/CH8/EX8.38/EX8_38.sce b/1760/CH8/EX8.38/EX8_38.sce new file mode 100755 index 000000000..148ed7c65 --- /dev/null +++ b/1760/CH8/EX8.38/EX8_38.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-38 PG NO-554
+N=5.6234;
+Ro=450;
+R1=Ro*[(N^2-1)/(2*N)];
+R2=Ro*[(N+1)/(N-1)];
+disp('i) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.39/EX8_39.sce b/1760/CH8/EX8.39/EX8_39.sce new file mode 100755 index 000000000..f1f958896 --- /dev/null +++ b/1760/CH8/EX8.39/EX8_39.sce @@ -0,0 +1,10 @@ + //EXAMPLE 8-39 PG NO-554
+R1=250;
+R2=750;
+Zoc=[R1*(R1+R2)]/{R1+R2+R1};
+Zsc=[(R1*R2)/(R1+R2)];
+Zo=[Zoc*Zsc]^0.5;
+disp('i) impedance (Zoc) is = '+string (Zoc) +' ohm ');
+disp('ii) impedance (Zsc) is = '+string (Zsc) +' ohm ');
+disp('iii)impedance (Zo) is = '+string (Zo) +' ohm ');
+
diff --git a/1760/CH8/EX8.4/EX8_4.sce b/1760/CH8/EX8.4/EX8_4.sce new file mode 100755 index 000000000..f46909357 --- /dev/null +++ b/1760/CH8/EX8.4/EX8_4.sce @@ -0,0 +1,7 @@ + //EXAMPLE -8-4 PG NO-514-515
+Ro=3000;
+Fc=2000;
+L=Ro/(4*%pi*Fc);
+C=1/(4*%pi*Fc*Ro);
+disp('i) INDUCTANCE (L) is = '+string ([L]) +' H ')
+disp('ii) CAPACITOR (C) is = '+string ([C]) +' F ')
diff --git a/1760/CH8/EX8.40/EX8_40.sce b/1760/CH8/EX8.40/EX8_40.sce new file mode 100755 index 000000000..4e7a421e6 --- /dev/null +++ b/1760/CH8/EX8.40/EX8_40.sce @@ -0,0 +1,10 @@ + //EXAMPLE 8-40 PG NO-554-555
+R1=459.089;
+R2=22500';
+Zoc=[R1*(R1+R2)]/{R1+R2+R1};
+Zsc=[(R1*R2)/(R1+R2)];
+Zo=[Zoc*Zsc]^0.5;
+disp('i) impedance (Zoc) is = '+string (Zoc) +' ohm ');
+disp('ii) impedance (Zsc) is = '+string (Zsc) +' ohm ');
+disp('iii)impedance (Zo) is = '+string (Zo) +' ohm ');
+
diff --git a/1760/CH8/EX8.41/EX8_41.sce b/1760/CH8/EX8.41/EX8_41.sce new file mode 100755 index 000000000..179610775 --- /dev/null +++ b/1760/CH8/EX8.41/EX8_41.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-41 PG NO-557
+N=7.943;
+Z=300; //IMPEDANCE
+R1=[(N-1)/N]*Z;
+R2=Z/(N-1);
+disp('i) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.42/EX8_42.sce b/1760/CH8/EX8.42/EX8_42.sce new file mode 100755 index 000000000..30ef097fa --- /dev/null +++ b/1760/CH8/EX8.42/EX8_42.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-43 PG NO-557
+Z1=450;
+Z2=300;
+R1=[Z1*(Z1-Z2)]^0.5;
+R2=[(Z1*Z2*Z2)/(Z1-Z2)]^0.5;
+disp('ii) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.43/EX8_43.sce b/1760/CH8/EX8.43/EX8_43.sce new file mode 100755 index 000000000..30ef097fa --- /dev/null +++ b/1760/CH8/EX8.43/EX8_43.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-43 PG NO-557
+Z1=450;
+Z2=300;
+R1=[Z1*(Z1-Z2)]^0.5;
+R2=[(Z1*Z2*Z2)/(Z1-Z2)]^0.5;
+disp('ii) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.45/EX8_45.sce b/1760/CH8/EX8.45/EX8_45.sce new file mode 100755 index 000000000..38c62de72 --- /dev/null +++ b/1760/CH8/EX8.45/EX8_45.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-45 PG NO-559-560
+N=5.6234;
+R1=500;
+R2=R1/(N-1);
+R3=R1*(N-1);
+disp('i) RESISTANCE (R2) is = '+string (R2) +' ohm ');
+disp('ii) RESISTANCE (R3) is = '+string (R3) +' ohm ');
diff --git a/1760/CH8/EX8.46/EX8_46.sce b/1760/CH8/EX8.46/EX8_46.sce new file mode 100755 index 000000000..b0c18c465 --- /dev/null +++ b/1760/CH8/EX8.46/EX8_46.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-46 PG NO-560-561
+N=7.0795;
+Z1=450;
+R1=Z1*[(N-1)/(N+1)];
+R2=Z1*[(N+1)/(N-1)];
+disp('ii) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.47/EX8_47.sce b/1760/CH8/EX8.47/EX8_47.sce new file mode 100755 index 000000000..d2c7cfcb5 --- /dev/null +++ b/1760/CH8/EX8.47/EX8_47.sce @@ -0,0 +1,13 @@ + //EXAMPLE 8-47 PG NO-561
+R1=175;
+R2=350;
+Zoc=R1+R2;
+Zsc=R1+[(R1*R2)/(R1+R2)];
+Zo=[Zoc*Zsc]^0.5;
+N=[R1+R2+Zo]/R2;
+AT=20*log10(2.618);
+disp('i) impedance (Zoc) is = '+string (Zoc) +' ohm ');
+disp('ii) impedance (Zsc) is = '+string (Zsc) +' ohm ');
+disp('iii)impedance (Zo) is = '+string (Zo) +' ohm ');
+disp('iv) (N) is = '+string (N) +' ')
+disp('v)attenuation (AT) is = '+string (AT) +' dB ')
diff --git a/1760/CH8/EX8.48/EX8_48.sce b/1760/CH8/EX8.48/EX8_48.sce new file mode 100755 index 000000000..0ffe78005 --- /dev/null +++ b/1760/CH8/EX8.48/EX8_48.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-48 PG NO-561
+R=300;
+N=31.62;
+R1=[(N-1)/N]*R;
+R2=R/(N-1);
+disp('i) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.49/EX8_49.sce b/1760/CH8/EX8.49/EX8_49.sce new file mode 100755 index 000000000..694eca513 --- /dev/null +++ b/1760/CH8/EX8.49/EX8_49.sce @@ -0,0 +1,11 @@ + //EXAMPLE 8-49 PG NO-562
+Ro=500;
+N=10;
+RA=Ro*[(N-1)/(N+1)];
+RB=Ro*[(N+1)/(N-1)];
+R1=Ro*[(N-1)/(N+1)];
+R2=Ro*[(2*N)/(N^2-1)];
+disp('ii) RESISTANCE (RA) is = '+string (RA) +' ohm ');
+disp('ii) RESISTANCE (RB) is = '+string (RB) +' ohm ');
+disp('ii) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.5/EX8_5.sce b/1760/CH8/EX8.5/EX8_5.sce new file mode 100755 index 000000000..d3f308c7f --- /dev/null +++ b/1760/CH8/EX8.5/EX8_5.sce @@ -0,0 +1,6 @@ + //EXAMPLE 8-5 PG NO-517
+C1=1;
+C2=50;
+X=1000; //X=1/(2*%pi*(L1*C1)^0.5)
+Y=X*2*(C1/C2)^0.5; //Y=(Fc2-Fc1)
+disp('ii) Frequency (Fc2-Fc1) is = '+string ([Y]) +' Hz ')
diff --git a/1760/CH8/EX8.6/EX8_6.sce b/1760/CH8/EX8.6/EX8_6.sce new file mode 100755 index 000000000..5a8e688be --- /dev/null +++ b/1760/CH8/EX8.6/EX8_6.sce @@ -0,0 +1,13 @@ + //EXAMPLE 8-7 PG NO-519
+Ro=100;
+Fc2=5000;
+Fc1=500;
+L1=Ro/[2*%pi*(Fc2-Fc1)];
+disp('ii) INDUCTANCE (L1/2) is = '+string ([L1/2]) +' H ')
+C1=(Fc2-Fc1)/(2*%pi*Ro*Fc1*Fc2)
+disp('ii) CAPACITOR (2*C1) is = '+string ([2*C1]) +' F ')
+L2=[Ro*(Fc2-Fc1)]/(4*%pi*Fc1*Fc2);
+disp('ii) INDUCTANCE (L2) is = '+string ([L2]) +' H ')
+C2=1/(%pi*(Fc2-Fc1));
+disp('ii) CAPACITOR (C2) is = '+string ([C2]) +' F ')
+
diff --git a/1760/CH8/EX8.7/EX8_7.sce b/1760/CH8/EX8.7/EX8_7.sce new file mode 100755 index 000000000..3adfa5870 --- /dev/null +++ b/1760/CH8/EX8.7/EX8_7.sce @@ -0,0 +1,12 @@ + //EXAMPLE 8-7 PG NO-519
+Fc1=1000;
+Fc2=3000;
+Ro=100;
+L1=[(Ro*(Fc2-Fc1))/(2*%pi*Fc2*Fc1)]
+disp('i) INDUCTANCE (L1/2) is = '+string ([L1]) +' H ')
+C1=1/[2*%pi*(Fc2-Fc1)];
+disp('ii) CAPACITOR (C1) is = '+string (C1) +' F ')
+L2=Ro/[4*%pi*(Fc2-Fc1)];
+disp('iii) INDUCTANCE (L2) is = '+string ([L2]) +' H ')
+C2=(Fc2-Fc1)/(%pi*Ro*Fc1*Fc2)
+disp('ii) CAPACITOR (C2) is = '+string ([C2]) +' F ')
diff --git a/1760/CH8/EX8.8/EX8_8.sce b/1760/CH8/EX8.8/EX8_8.sce new file mode 100755 index 000000000..f23993985 --- /dev/null +++ b/1760/CH8/EX8.8/EX8_8.sce @@ -0,0 +1,16 @@ + // EXAMPLE 8-8 PG NO-523
+Ro=600;
+Fc=2500;
+L=Ro/(%pi*Fc);
+C=1/(%pi*Ro*Fc);
+disp('i) INDUCTANCE (L) is = '+string ([L]) +' H ')
+disp('ii) CAPACITOR (C) is = '+string ([C]) +' F ')
+Fo=2600;
+m=sqrt(1-(Fc/Fo)^2)
+disp('iii) (m) is = '+string (m) +' ')
+L1=[(1-m*m)/4*m]*L;
+disp('iv) INDUCTANCE (L1) is = '+string ([L1]) +' H ')
+L2=0.5*m*L;
+disp('ii) INDUCTANCE (L2) is = '+string ([L2]) +' H ')
+C1=m*C;
+disp('ii) CAPACITOR (C1) is = '+string (C1) +' F ')
diff --git a/1760/CH8/EX8.9/EX8_9.sce b/1760/CH8/EX8.9/EX8_9.sce new file mode 100755 index 000000000..97c9a3c90 --- /dev/null +++ b/1760/CH8/EX8.9/EX8_9.sce @@ -0,0 +1,22 @@ + //EXAMPLE 8-9 PG NO-525
+Ro=600;
+Fc=3000;
+L=Ro/(4*%pi*Fc);
+disp('i) INDUCTANCE (L) is = '+string ([L]) +' H ')
+C=1/(4*%pi*Fc*Ro);
+disp('ii) CAPACITOR (C) is = '+string ([C]) +' F ')
+Fo=2700;
+m=sqrt(1-(Fo/Fc)^2);
+disp('iii) (m) is = '+string ([m]) +' ');
+X=(2*C)/m;
+disp('iv) X (X) is = '+string ([X]) +' F ');
+Y=L/m;
+disp('v) Y is = '+string ([Y]) +' H ');
+Z=(4*m*C)/(1-m^2); //Z=4mC/1-m^2
+disp('vi) Z (Z) is = '+string ([Z]) +' F ');
+Z1=(4*m*L)/(1-m^2); //Z1=4mL/1-m^2
+disp('vii) (Z1) is = '+string ([Z1]) +' H ')
+X1=(2*L)/m;
+disp('viii) X1 (X1) is = '+string ([X1]) +' H ')
+Y1=C/m;
+disp('ix) Y1 is = '+string ([Y1]) +' F ')
diff --git a/1760/CH9/EX9.24/EX9_24.sce b/1760/CH9/EX9.24/EX9_24.sce new file mode 100755 index 000000000..ebd09f595 --- /dev/null +++ b/1760/CH9/EX9.24/EX9_24.sce @@ -0,0 +1,10 @@ + //EXAMPLE 9-24 PG NO-608-609
+L=20; //INDUCTANCE
+R=2*L; //RESISTANCE
+disp('i) Resistance (R) is = '+string ([R]) +' ohm ');
+Wo=sqrt(101);
+disp('ii) Wo (Wo) is = '+string ([Wo]) +' rad/sec ');
+Q=(Wo*L)/R;
+disp('iii) Q is = '+string ([Q]) +' ');
+BW=Wo/Q;
+disp('iv) BANDWIDTH (BW) is = '+string ([BW]) +' rad/sec ');
diff --git a/1760/CH9/EX9.26/EX9_26.sce b/1760/CH9/EX9.26/EX9_26.sce new file mode 100755 index 000000000..c80c69bd8 --- /dev/null +++ b/1760/CH9/EX9.26/EX9_26.sce @@ -0,0 +1,12 @@ + //EXAMPLE 9-26 PG NO-609-610
+C=10^-6;
+X=5*10^6;
+L=1/(C*X);
+disp('i) INDUCTAR (L) is = '+string ([L]) +' H ');
+R=10*L;
+disp('ii) Resistance (R) is = '+string ([R]) +' ohm ');
+W=2.236*10^3;
+Q=(W*L)/R;
+disp('iii) (Q) is = '+string ([Q]) +' ');
+BW=W/Q;
+disp('iv) Band Width (BW) is = '+string ([BW]) +' rad/sec ');
diff --git a/1760/CH9/EX9.32/EX9_32.sce b/1760/CH9/EX9.32/EX9_32.sce new file mode 100755 index 000000000..38ea1f46a --- /dev/null +++ b/1760/CH9/EX9.32/EX9_32.sce @@ -0,0 +1,15 @@ + //Example 9-32 PG NO 618-619
+P1=1-%i*50;
+P2=1+%i*150;
+Z1=0+%i*50;
+I=[0.2*Z1]/[P1*P2];
+disp('i) Current (I) is = '+string ([I]) +' A ');
+L=5; //INDUCTAR
+R=10; //RESISTANCE
+C=2*10^-5;
+Wo=1/sqrt(L*C);
+disp('ii) Wo (Wo) is = '+string ([Wo]) +' rad/sec ');
+Q=(Wo*L)/R;
+disp('iii) Q (Q) is = '+string ([Q]) +' ');
+BW=Wo/Q;
+disp('ii) Band Width (BW) is = '+string ([BW]) +' rad/sec ');
diff --git a/1760/CH9/EX9.37/EX9_37.sce b/1760/CH9/EX9.37/EX9_37.sce new file mode 100755 index 000000000..bd1a84046 --- /dev/null +++ b/1760/CH9/EX9.37/EX9_37.sce @@ -0,0 +1,6 @@ + //EXAMPLE 9-37 PG NO 623-624
+C=1/8.5; //Capacitor
+L=1/(17*C); //Inductar
+disp('ii) Inductar (L) is = '+string ([L]) +' H ');
+R=2*L; //Resistance
+disp('ii) Resistance (R) is = '+string ([R]) +' ohm ');
diff --git a/1760/CH9/EX9.38/EX9_38.sce b/1760/CH9/EX9.38/EX9_38.sce new file mode 100755 index 000000000..baef19ffc --- /dev/null +++ b/1760/CH9/EX9.38/EX9_38.sce @@ -0,0 +1,8 @@ + //EXAMPLE 9-38 PG NO=624-625
+C=1/9; //CAPACITOR
+X=2; //R/L=X
+Y=6-X; //G/C
+G=4*C;
+disp('i) G (G) = '+string (G)+' ohm')
+L=0.9;
+R=1.8;
diff --git a/1760/CH9/EX9.46/EX9_46.sce b/1760/CH9/EX9.46/EX9_46.sce new file mode 100755 index 000000000..88ec95e60 --- /dev/null +++ b/1760/CH9/EX9.46/EX9_46.sce @@ -0,0 +1,7 @@ + //EXAMPLE 9-46 PG NO 630-631
+ZA=5+%i*3;
+YA=1/ZA;
+disp('ii) Admittance (YA) is = '+string ([YA]) +' siemens ');
+V=100; //VOLTAGE
+IA=V*YA;
+disp('ii) Current (IA) is = '+string ([IA]) +' A ');
diff --git a/1760/CH9/EX9.50/EX9_50.sce b/1760/CH9/EX9.50/EX9_50.sce new file mode 100755 index 000000000..9e57e9c2e --- /dev/null +++ b/1760/CH9/EX9.50/EX9_50.sce @@ -0,0 +1,6 @@ + //EXAMPLE 9-50 PG NO-632
+I1=17.39-%i*4.66; //CURRENT
+I2=9+%i*15.68; //CURRENT
+I3=-%i*10.95; //CURRENT
+I=I1+I2+I3;
+disp('i)CURRENT (I) = '+string (I)+' A')
diff --git a/1760/CH9/EX9.56/EX9_56.sce b/1760/CH9/EX9.56/EX9_56.sce new file mode 100755 index 000000000..0ee719de8 --- /dev/null +++ b/1760/CH9/EX9.56/EX9_56.sce @@ -0,0 +1,14 @@ + //example 9-56 pg no-636
+Z1=8.05+%i*2.156; //IMPEDANCE
+XL=2.155;
+W=5000;
+L=XL/W;
+disp('i)INDUCTANCE (L) = '+string (L)+' H')
+Z2=4.166-%i*7.216; //IMPEDANCE
+Xc=7.216;
+C=1/[W*Xc];
+disp('ii)CAPACITOR (C) = '+string (C)+' F')
+D=11.708; //DIAMETER
+XL1=12.81;
+L1=XL1/W;
+disp('i) INDUCTANCE (L1) = '+string (L1)+' H')
|