diff options
Diffstat (limited to '1319/CH3/EX3.7/3_7.sce')
-rw-r--r-- | 1319/CH3/EX3.7/3_7.sce | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/1319/CH3/EX3.7/3_7.sce b/1319/CH3/EX3.7/3_7.sce new file mode 100644 index 000000000..84d280087 --- /dev/null +++ b/1319/CH3/EX3.7/3_7.sce @@ -0,0 +1,35 @@ +//Reduction in load when one resistor is removed
+
+clc;
+clear;
+
+// Assuming the variables to be eqaul to unit quantities
+
+Vph=1;
+Vl=sqrt(3)*Vph;
+R=1;
+
+// Star connected
+
+Pis=3*(Vph^2)/R; // Initial Power
+
+Pfs=(Vl^2)/(2*R); // Power when one resitor is removed
+
+pers=(Pis-Pfs)*100/Pis; // Percentage decrease in Load
+
+// Mesh connected
+
+Pim=3*(Vl^2)/R; // Initial Power
+
+Pfm=2*(Vl^2)/R; // Power when one resitor is removed
+
+perm=(Pim-Pfm)*100/Pim; // Percentage decrease in Load
+
+printf(' Vl= square root (3) * Vph \n \n')
+printf('a) Star Connected Power = 3*(Vph^2)/R \n')
+printf(' When one resistor is removed Power = (Vl^2)/2R \n')
+printf(' The percentage reduction in load = %g \n \n',pers)
+
+printf('b) Mesh Connected Power = 3*(Vl^2)/R \n')
+printf(' When one resitor is removed, Power = 2*(Vl^2)/R \n' )
+printf(' The percentage reduction in load = %g \n',perm)
|