From 8ac15bc5efafa2afc053c293152605b0e6ae60ff Mon Sep 17 00:00:00 2001
From: Siddharth Agarwal
Date: Tue, 3 Sep 2019 18:27:40 +0530
Subject: Xcos examples from textbooks and for blocks

---
 Working_Examples/154/DEPENDENCIES/ch12_4.sce | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 Working_Examples/154/DEPENDENCIES/ch12_4.sce

(limited to 'Working_Examples/154/DEPENDENCIES/ch12_4.sce')

diff --git a/Working_Examples/154/DEPENDENCIES/ch12_4.sce b/Working_Examples/154/DEPENDENCIES/ch12_4.sce
new file mode 100755
index 0000000..4bc71e2
--- /dev/null
+++ b/Working_Examples/154/DEPENDENCIES/ch12_4.sce
@@ -0,0 +1,27 @@
+clc
+disp("Example 12.4")
+printf("\n")
+
+disp("Continued from Example 12.3")
+Vmax=120*sqrt(2)
+Zmag=20;Zph=-30;
+//Let the line to neutral voltage magnitude be VLN
+VLN=Vmax/sqrt(3)
+
+//From figure 12.14
+ILmag=VLN/Zmag
+ILph=0-Zph
+printf("\nIL=%3.2f(%d deg)\n",ILmag,ILph);
+
+//From fig 12.7(b)
+//VAN=Vn(-90 deg)
+//VBN=Vn(30 deg)
+//VCN=Vn(150 deg)
+IAph=ILph-90
+printf("\nIA=%3.2f(%d deg)A\n",ILmag,IAph);
+
+IBph=ILph+30
+printf("\nIB=%3.2f(%d deg)A\n",ILmag,IBph);
+
+ICph=ILph+150
+printf("\nIC=%3.2f(%d deg)A\n",ILmag,ICph);
-- 
cgit