summaryrefslogtreecommitdiff
path: root/2273/CH5/EX5.2/ex5_2.sce
blob: 74f4023dc51f493ef64885da1370356ee82b3ade (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//voltage at sending end, percentage regulation,total line losses and transmission efficiency
clear;
clc;
//soltion
//given
P=5000;//kW//power
V=22000;//kV//recieving voltage
pf=0.8;//peak factor
R=4;//ohm//resistance
X=6;//ohm//loop reactance
Vr=V/sqrt(3);
I=P*1000/(3*round(Vr)*pf);
Vs=round(Vr)+(I*R*pf)+(I*X*sind(acosd(pf)));
Vsl=sqrt(3)*Vs;
printf("Sending end line voltage= %.3fkV\n",Vsl/1000)
Pr=((Vsl-V)*100)/V;
printf("Percentage regulation= %.2f percent\n",Pr);
Ll=3*(round(I))^2*R/1000;//line losses
printf("Total Line Losses= %.3fkW\n",Ll);
nt=P*100/(P+Ll);
printf("Transmission efficiency= %.3f percent",nt)