1 files changed, 17 insertions, 0 deletions
diff --git a/1319/CH2/EX2.18/2_18.sce b/1319/CH2/EX2.18/2_18.sce
new file mode 100644
index 000000000..24798079e
--- /dev/null
+++ b/1319/CH2/EX2.18/2_18.sce
@@ -0,0 +1,17 @@
+//Star to delta conversion of a cicuit
+
+clc;
+clear;
+
+Zp=5;
+Zq=10;
+Zr=%i*10;
+
+Zpq=((Zp*Zq)+(Zq*Zr)+(Zr*Zp))/Zr;
+Zqr=((Zp*Zq)+(Zq*Zr)+(Zr*Zp))/Zp;
+Zrp=((Zp*Zq)+(Zq*Zr)+(Zr*Zp))/Zq;
+
+printf(' Delta Equivalent : \n')
+printf(' Zpq = %g + j(%g) ohm \n',real(Zpq),imag(Zpq))
+printf(' Zqr = %g + j(%g) ohm \n',real(Zqr),imag(Zqr))
+printf(' Zrp = %g + j(%g) ohm \n',real(Zrp),imag(Zrp))