blob: cc18aa3f61b0e06d352f7365031f8fece5650817 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
clear;
clc;
v=400;
Xl=.30;
Xc=3.75*10^(-6);
l=300;
L=Xl/(2*%pi*50);
C=Xc/(2*%pi*50);
Zc=sqrt(L/C);
phase=2*%pi*50*sqrt(L*C);
pconstant=%i*phase;
Vs=v/sqrt(3);
//case a open ckt
Ir=0;
Vr=Vs/(cos(phase*l));
//terminated by surge impedence
VR=Vs/(exp(%i*phase*l));
//carries a load
ld=.6;
Vr1=Vs/(cos(phase*l)+((%i*sin(phase*l))/ld));
vv=abs(Vr1);
mprintf("Receiving end voltage when ckt is open %.4f kV\n ",Vr);
mprintf("Receiving end voltage when line is terminated by surge impedence is open %.4f%.4f kV\n ",real(VR),imag(VR));
mprintf("Receiving end voltage when load carries 60 percent load is open %.4f kV\n ",vv);
|
