1 files changed, 27 insertions, 0 deletions
diff --git a/2672/CH1/EX1.28/Ex1_28.sce b/2672/CH1/EX1.28/Ex1_28.sce
new file mode 100755
index 000000000..a28f2bb16
--- /dev/null
+++ b/2672/CH1/EX1.28/Ex1_28.sce
@@ -0,0 +1,27 @@
+//Example 1_28
+clc;
+clear;
+close;
+format('v',5);
+//given data :
+V1=15;//V
+V2=4;//V
+R1=4;//ohm
+R2=3;//ohm
+R3=2;//ohm
+R4=5;//ohm
+I1=6;//A
+RL=R4;//ohm
+//solution
+Req=R1*R3/(R1+R3)+R2;//ohm
+//Converting current source into Voltage source
+V2=I1*R3;//V//Converted source
+//writing KVL equation for the loop
+I=poly(0,'I');
+eqn=V1-R1*I-R3*I-V2;//KVL equation
+I=roots(eqn);//A
+//Potential at point A with respect to B
+VAB=V2+R3*I;//V
+//Thevenin equivalent current
+I=VAB/(Req+RL);//A
+disp(I,"Current through 5 ohm resistor(A)");