summaryrefslogtreecommitdiff
path: root/1067/CH3/EX3.6/3_6.sce
blob: 4ad7a6d827ded8cd81809e70a07047ebf2bfffe8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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);