summaryrefslogtreecommitdiff
path: root/1319/CH3/EX3.5/3_5.sce
blob: 2d08599432d1b6f91786fe267f169c9b4dc51f93 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//To find line current and pf and powers of a balanced delta load

clc;
clear;

Z=8+6*%i; // Load
V=230; // Voltage supply

iR=V/Z;
theta= atand(imag(iR)/real(iR));

Il= iR*sqrt(3); // Line current

Pa=sqrt(3)*V*abs(Il)*cosd(theta); // Active Power
Pr=sqrt(3)*V*abs(Il)*sind(theta); // Reactive Power

Pt=sqrt(3)*V*abs(Il); // Total Volt amperes

printf('The line current = %g A \n',abs(Il))
printf('The power factor = %g lagging \n',cosd(theta))
printf('The Active Power = %g kW \n',abs(Pa)/1000)
printf('The Reactive Power = %g kV Ar \n',abs(Pr)/1000)
printf('The total volt amperes = %g kVA \n',abs(Pt)/1000)