{* Задача143 *}

REM basic

' Нарисовать координатную сетку, синусоиду, касательную к ней и асимптоту


SCREEN 12
x0 = 320
y0 = 240
a = 1
b = 200
For t = -x0 To x0 Step 3
    For u = -y0 To y0 Step 20
        x = x0 + t * a
        y = y0 + u * a
        PSET (x, y)
    Next u
Next t
For t = -x0 To x0 Step 20
    For u = -y0 To y0 Step 3
        x = x0 + t * a
        y = y0 + u * a
        PSET (x, y)
    Next u
Next t
CIRCLE (x0, y0), 3, 3
PAINT (x0, y0), 3, 3
For t = -x0 To x0 Step 2
    u = SIN(t / 101.8591)
    x = x0 + t * a
    y = y0 - u * a * b
 
    CIRCLE (x, y), 1
    T1! = TIMER
    While TIMER - T1! < 0.01
    Wend
Next t