summaryrefslogtreecommitdiff
path: root/3793/CH12/EX12.2/exp_12_2.sce
blob: faa4876ab0b05fbe377ee309e707afdec5fd0569 (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
27
clear;
clc;

phi=38.74;//in degree
k=0.8;
vs=220;

a=gca();
a.auto_scale="off";
a.data_bounds=[0,0;.3,1];
xlabel("Voltage");
ylabel("Power");

p=[0:.1:1];
v1=( 0.5-(p*0.8)+((.25-(p*0.8)-(p^2))^(1/2)))^(1/2);
v2=( 0.5-(p*0.8)-((.25-(p*0.8)-(p^2))^(1/2)))^(1/2);
//change the axis boundary of x axis to 0.3
plot(p,v1,p,v2);
cp=.24;//from graph
cv=.55;//from graph
x=60;
Pr=(cp*(vs^2))/x;
Vr=cv*vs;
mprintf("Critical power = %.3f MW and Critical voltage = %.3f KV",Pr,Vr);