summaryrefslogtreecommitdiff
path: root/1529/CH20/EX20.8/20_08.sce
blob: 7d5d0dbfe54e62abb6216f6a7736d283ae183230 (plain)
1
2
3
4
5
6
7
8
9
10
//Chapter 20, Problem 8
clc;
Rp=12;                      //resistance
Vl=415;                     //3 phase supply
Vp=Vl/sqrt(3);              //phase voltage
Ip=Vp/Rp;                   //phase current
Il=Ip;
pf=1;                       //power factor
P=sqrt(3)*Vl*Il*pf;         //power dissipated
printf("Total power dissipated = %.2f kW",P/1000);