1 files changed, 17 insertions, 0 deletions
diff --git a/1802/CH7/EX7.18/Exa7_18.sce b/1802/CH7/EX7.18/Exa7_18.sce
new file mode 100755
index 000000000..5dbd30fbc
--- /dev/null
+++ b/1802/CH7/EX7.18/Exa7_18.sce
@@ -0,0 +1,17 @@
+//Exa 7.18
+clc;
+clear;
+close;
+//Given data : 
+format('v',7);
+VB=400;//in volt
+ZAC=0.04+%i*0.08;//in ohm
+ZCB=0.08+%i*0.12;//in ohm
+I1=60*(0.8-%i*0.6);
+I2=120*(0.8-%i*0.6);
+VCB=I2*ZCB;//in Volt
+VAC=(I1+I2)*ZAC;//in volt
+VC=VB+I2*ZCB;//in Volt
+disp(VC,"Voltage at C(in Volt) :");
+VA=VC+(I1+I2)*ZAC;//in volt
+disp(VA,"Voltage at A(in Volt) :");
+\ No newline at end of file