1 files changed, 16 insertions, 0 deletions
diff --git a/1076/CH4/EX4.4/4_4.sce b/1076/CH4/EX4.4/4_4.sce
new file mode 100755
index 000000000..71d547296
--- /dev/null
+++ b/1076/CH4/EX4.4/4_4.sce
@@ -0,0 +1,16 @@
+clear;
+clc;
+v3=20;
+v2=15;
+//putting v1=15/(1+k)
+s=poly([-1 5 3],"x","coeff");
+K=roots(s);
+k=K(2)
+v1=15/(1+k);
+//disp(v1)
+x=v1(1);
+//disp(x);
+vnew=x+v3+v2;
+xl=sqrt(3)*vnew;
+n=vnew/(3*v3);
+mprintf("capacitance ratio= %.2f \nthe line to neutral voltage= %.1fkV \n string efficiency=%.1fpercent",k,xl,n*100);