Курсовая работа: Движение тела, брошенного под углом к горизонту: программное обеспечение

x1 = Vx * (t - 1)

y1 = Vy * (t-1) - g * (t-1) * (t-1) / 2

a1 = (x2 - x1) / (y2 - y1)

b = y1 - a1 * x1

x = -b / a1

y = 0

ex = True

End If

list1.Add(x, y)

t = t + 1

End While

CreateGraph(zg1, list1)

zg1.Refresh()

2. Вывод графика на экран

Private Sub CreateGraph(

ByVal zg As ZedGraph.ZedGraphControl,

ByVal list1 As ZedGraph.PointPairList)

Dim myPane As ZedGraph.GraphPane

myPane = zg1.GraphPane

myPane.Title.Text= "Движение тела, брошенного

под углом к горизонту"

myPane.XAxis.Title.Text= "X(м)"

myPane.YAxis.Title.Text = "Y(м)"

myPane.CurveList.Clear()

myPane.AddCurve("График функции", list1,

Color.DarkGray, ZedGraph.SymbolType.VDash)

myPane.Chart.Fill = New ZedGraph.Fill(

Color.WhiteSmoke, Color.Azure, 45.0F)

myPane.Fill = New ZedGraph.Fill(Color.White,