Equazione geostrofica (oceanografia dinamica)(vedi Pond & Pickard, Introductory Dynamical Oceanography, 2nd edition, Butterworth-Heinemann, Oxford, 2003, pagg.68-69).Sub Command1_Click ()
g = 9.8
omega = .00007
lat = Val(text1.text)
lat = (lat * 3.14) / 180
pendenza = Val(text2.text)
pendenza = (pendenza * 3.14) / 180
velgeo = (g * Tan(pendenza)) / (2 * omega * Sin(lat))
label1.caption = Str$(velgeo)
'a=distanza tra due punti
'b = a * Tan(i)
a = 1000
b = 100000 * pendenza
label4.caption = Str$(b)
End Sub |  |
|
