summaryrefslogtreecommitdiff
path: root/3835/CH4/EX4.14/Ex4_14.sce
blob: 80a913cfe2b83a35fe55391c10e33d9a3660699b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
clear
//
v=200
f=50
r=20
vr=100
vc=144
vl=150
//case a
//from eqn ((vr**2+vl*cos1(angle))**2)+((vl*sin(angle))**2)=v**2
//on substituting values in the above eqn the value of angle can be found by isolating cos1
//angle=75.52
cos1=0.25
pf=(vr+vl*cos1)/(v)
printf("\n pf")
//case b
i=vr/r
power=i**2*r
printf("\n power consumed= %0.1f  w",power)
//case c
power=vl*i*cos1
printf("\n power consumed in choke oil= %0.1f  W",power)