summaryrefslogtreecommitdiff
path: root/3769/CH14/EX14.13/Ex14_13.sce
blob: 7c4a55b6cc88c3a2f59cdee15b4098aab55c5fd3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clear
//Given
P=120*10**3                      //W
R=0.4                            //ohm
Ev=240.0                           //V
Ev1=24000.0                        //V

//Calculation
Iv=P/Ev
P=Iv**2*R
Iv1=P/Ev1
P1=Iv1**2*R

//Result
printf("\n (i) Power loss at 240 V is %0.3f  K W", P*10**-3)
printf("\n (ii) Power loss at 24000 V is %0.0f  W",P1)