summaryrefslogtreecommitdiff
path: root/1067/CH3/EX3.6/3_6.sce
diff options
context:
space:
mode:
Diffstat (limited to '1067/CH3/EX3.6/3_6.sce')
-rwxr-xr-x1067/CH3/EX3.6/3_6.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/1067/CH3/EX3.6/3_6.sce b/1067/CH3/EX3.6/3_6.sce
new file mode 100755
index 000000000..4ad7a6d82
--- /dev/null
+++ b/1067/CH3/EX3.6/3_6.sce
@@ -0,0 +1,21 @@
+clear;
+close;
+clc;
+V=78e3;
+Vph=V/sqrt(3);
+Em=2*Vph;
+pf=0.4;
+angle=acos(pf);
+k1=sin(angle);
+k1=round(k1*100)/100;
+k2=.951;
+k3=1;
+k=k1*k2*k3;
+k=round(k*1000)/1e3;
+E=k*Em;
+f=15000;
+t=1/(2*f);
+t=round(t*1e6);
+eavg=2*E/t;
+eavg=round(eavg/100)*100;
+printf("average restriking voltage=%fkV/microsecs",eavg/1e3);