Programas/Varios: Balistica

Descripción del programa:

Simula la trayectoria del vuelo de un proyectil.

Datos de ejemplo:
Angulo:45
Gravedad (m/s): 9.8
Velocidad inicial (m/s): 100
Tiempo (seg): 0.1

Programa:

(VERSION:001)

Sub Main
  Rem Balistica
  Inputbox "Auto?";au
  Inputbox "Angulo?";a
  Inputbox "Velocidad inicial?";vi
  If au = "s" Then
    g = 9.8
    tt = 0.1
  Else
    Inputbox "Gravedad?";g
    Inputbox "Tiempo?";tt
  End If
  t = 0
  a = (a * CPI) / 180
  Do
    t = t + tt
    x = vi * Cos(a) * t
    y = (g * ((t ^ 2) / 2)) - (vi * Sin(a) * t)
    Point(x,y + 700,10)
  Loop Until y + 700 > 800 Or x > 1280
End Sub