1 files changed, 18 insertions, 0 deletions
diff --git a/3793/CH12/EX12.3/exp_12_3.sce b/3793/CH12/EX12.3/exp_12_3.sce
new file mode 100644
index 000000000..72f0e1563
--- /dev/null
+++ b/3793/CH12/EX12.3/exp_12_3.sce
@@ -0,0 +1,18 @@
+clear;
+clc;
+Pr=.24;
+Vr=.55;
+del=asind(Pr/Vr);
+a=gca();
+a.auto_scale="off";
+a.data_bounds=[0,0.3;1.5,1];
+xlabel("Voltage");
+ylabel(" ReactivePower");
+V=[0:.01:5];
+Q=((V)^2)+(V*cosd(del));
+plot(V,Q);
+q=.38;
+v=.95;
+Qr=((220^2)*q)/60;
+Vrr=v*220;
+mprintf("Critical power = %.3f MVAR and Critical voltage = %.3f KV",Qr,Vrr);