summaryrefslogtreecommitdiff
path: root/1964/CH5/EX5.10/ex5_10.sce
blob: 6681404caba2c96f878fe68b7b2f44e83b28d2fe (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//Chapter-5, Example 5.10, Page 169
//=============================================================================
clc
clear
//INPUT DATA
//given v=141.4*sin(314*t)
P=700;//power in Watts
pf=0.707;//powerfactor------>leading------>cos(phi)
Vm=141.4;//maximum value of supply voltage
//CALCULATIONS
Vr=Vm/(sqrt(2));//rms value of supply voltage
I=P/(Vr*pf);//current in A
Z=Vr/I;//impedance in ohms
R=(Z)*(pf);//resistance in ohms
phi=acos(pf*180/%pi);//angle in degrees
Xc=(Z)*(sin(phi));//reactance in ohms
C=1/(3.14*7.13);//Capacitance in F
mprintf("Thus resistance and capacitance are %1.2f ohms and %g F respectively",R,C);
//=================================END OF PROGRAM======================================================================================================

;