summaryrefslogtreecommitdiff
path: root/671/CH14/EX14.4/14_4.sce
blob: 3bcfb1fab0c4d420368e1b6b2de31b0652ba53db (plain)
1
2
3
4
5
6
7
8

W1=500
W2=-200
P=W1+W2
phi=atan((W1-W2)/(W1+W2))
pf=cos(phi)
disp(pf)
disp(P)