blob: 2747eb4ef60473513f9e314631d4e9e27b312281 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
//Exa 5.1
clc;
clear;
close;
//Given data :
P=1100;//kW
VR=11*1000;//V
pf=0.8;//power factor
R=2;//ohm
X=3;//ohm
I=P*1000/VR/pf;//A
cos_fi_r=pf;
sin_fi_r=sqrt(1-cos_fi_r^2);
VS=sqrt((VR*cos_fi_r+I*R)^2+(VR*sin_fi_r+I*X)^2);//V
disp(VS,"Voltage at sending end(V)");
Reg=(VS-VR)/VR*100;//%
disp(Reg,"% Regulation");
LineLoss=I^2*R/1000;//kW
Eta_T=P*100/(P+LineLoss);//%
disp(Eta_T,"Transmission Efficiency(%)");
|
