S.2　Parabola

　この例題は、グラフィックスのWindow座標の定義に合わせて、関数の方の座標系を調整して、図のレイアウトを工夫したものです。一般に、関数をグラフ化するときには、関数の方の座標系が入るようにWindow座標系を設定する方が楽です。
　

Public Sub Proc2() ' Parabola
    Dim X0, Y0, x, y, v, Th, Igra
    Const gg = 9.8
        Select Case Ivar
        Case 1: v = 50
        Case 2: v = 60
        Case 3: v = 70
        Case 4: v = 80
        Case Else: v = 50
    End Select
    Dperas
    Dpwind 0, 0, 640
    Dpmove -250, FormGraphic.Picture1.ScaleTop
    Dpdraw -250, -FormGraphic.Picture1.ScaleTop
    Dpmove -FormGraphic.Picture1.ScaleLeft, -120
    Dpdraw FormGraphic.Picture1.ScaleLeft, -120
    Igra = 0
    For Th = 0 To pie / 2 Step pie / 24
        If (Th > 0.7) And (Th < 0.8) Then
            FormGraphic.Picture1.DrawWidth = 2
        Else
            FormGraphic.Picture1.DrawWidth = 1
        End If
        For X0 = 0 To 620 Step 1
            Y0 = X0 * Tan(Th) - (gg * X0 ^ 2) _
                    / (2 * v ^ 2 * (Cos(Th)) ^ 2)
            x = X0 - 250: y = Y0 - 120
            If x > -320 And x < 320 And y > -126 And y < 200 _
                        Then DrawPolyLine x, y, Igra
        Next X0
        Igra = 0
    Next Th
End Sub