1 files changed, 26 insertions, 0 deletions
diff --git a/1319/CH13/EX13.7/ii_7.sce b/1319/CH13/EX13.7/ii_7.sce
new file mode 100644
index 000000000..9258ec20b
--- /dev/null
+++ b/1319/CH13/EX13.7/ii_7.sce
@@ -0,0 +1,26 @@
+// To determine force between single phase bus bars
+
+clc;
+clear;
+
+eload=10^7;
+voltage=15*(10^3);
+
+mo=4*%pi*(10^-7);
+
+l=1;
+r=0.3;
+
+//Normally
+
+I=eload/voltage;
+F=mo*I*I*l/(2*%pi*r);
+
+//Short Circuit
+
+Isc=10*I;
+Fsc=mo*Isc*Isc*l/(2*%pi*r);
+
+disp('N',F,'i) Force per metre under normal condition =')
+disp('N',Fsc,'ii) Force per metre under short circuit condition =')
+