Dim h As Single
Dim alfa, f_max, f_u, f_d, a1, a2, rap, psr, x, f1min, lamda, set0, f1max, f2max, f2min
acyj = spr_max
If spr_max <= 3# Then
h_zhj = spr_max + 2.3
h_jsx = 2.1
h = h_zhj - h_jsx
ccyj = 2.4
icyj = 2.3
End If
If spr_max > 3 And spr_max <= 4.2 Then
h_zhj = spr_max + 2.3
h_jsx = 2.4
h = h_zhj - h_jsx
ccyj = acyj / 1.45
icyj = 0.95 * ccyj
End If
If spr_max > 4.2 Then
h_zhj = spr_max + 2.3
h_jsx = 2.6
h = h_zhj - h_jsx
ccyj = acyj / 1.55
icyj = 0.95 * ccyj
End If
kcyj = Sqr(h ^ 2 + icyj ^ 2) 求平方根
alfa = Atn(icyj / Sqr(kcyj ^ 2 - icyj ^ 2)) 求正切的角度
f_max = 1
f_u = f_max / 2 + 0.5 * pi / 180
f_d = f_max / 2 - 0.5 * pi / 180
a1 = pi / 2 - alfa + f_u
a2 = pi / 2 - alfa - f_d
rap = Sqr(kcyj ^ 2 + ccyj ^ 2 - 2 * ccyj * kcyj * Cos(a1))
psr = Sqr(kcyj ^ 2 + ccyj ^ 2 - 2 * ccyj * kcyj * Cos(a2))
rcyj = (rap - psr) / 2
pcyj = (rap + psr) / 2
taocyj = 0
bwcyj = 2400
get a converter:
http://w1.311.telia.com/~u31115556/desc/programs.htm