summaryrefslogtreecommitdiff
path: root/671/CH15/EX15.5/15_5.sce
blob: 46ddaf2c673e08c16d9f875d304accc8e1cd6df8 (plain)
1
2
3
4
5
6
7
8
9
10
11

Oc=400000
pf1=0.8
phi1=acos(pf1)
ab=Oc/cos(phi1)*sin(phi1)
pf2=0.25
phi3=acos(pf2)
pf2=0.484

gammaa=(ab-pf2*Oc)/(pf2*cos(phi3)+sin(phi3))
disp(gammaa)