Listato - Soluzione di Ekman all'equazione del moto con attrito

Sub Command1_Click ()

W = Val(text1.text)
pigreco = 3.142
M = 1000

phi = Val(text2.text) * pigreco / 180
phi = Int(phi * M) / M

seno = Abs(Sin(phi))
seno = Int(seno * M) / M

denom = Sqr(seno)
denom = Int(denom * M) / M
If denom = 0 Then GoTo fine

V0 = (W * .0127) / denom
V0 = Int(V0 * M) / M
label10.caption = Str$(seno)
label5.caption = Str$(V0)
A = V0 / W: A = Int(A * M) / M
label8.caption = Str$(A)
D = (4.3 * W) / denom
label6.caption = Str$(D)
label12.caption = Str$(phi)
fine:

End Sub

Questa pagina è stata realizzata da Vittorio Villasmunta

Ultimo aggiornamento: 27/02/16