summaryrefslogtreecommitdiff
path: root/2273/CH5/EX5.1/ex5_1.sce
blob: d2a6891af81bf3a5b116c100f7d5c5195d561a14 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Find voltage at sending end, percentage regulation and transmission efficiency
clear;
clc;
//soltion
//given
P=3300;//kW//power
Vr=33000;//kV//recieving voltage
pf=0.8;//peak factor
R=2;//ohm//resistance
X=3;//ohm//loop reactance
I=P*1000/(Vr*pf);
Vs=sqrt((Vr*pf+I*R)^2+((Vr*sind(acosd(pf)))+I*X)^2);
printf("Voltage at sending end(Vs)= %.3fV\n",Vs);
Pr=((Vs-Vr)*100)/Vr;
printf("Percentage regulation= %f percent\n",Pr);
Ll=I*I*R/1000;//line losses
nt=P*100/(P+Ll);
printf("Transmission efficiency= %.2f percent",nt)