w = 640 'szerokosc
h = 480 'wysokosc
s = 1 'skala
'inne zmienne
cx = w / 2
cy = h / 2
y = 0
ly1 = 0
ly2 = 0
'tryb graficzny
SCREEN 12
'dane wejsciwe
PRINT " x^2 / a^2 + 1 / b^2 "
INPUT "a ="; a 'podaj A
INPUT "b ="; b 'podaj B
'rysuj uklad
LINE (cx, 0)-(cx, h), 8
LINE (0, cy)-(w, cy), 8
'rysowanko
FOR x = -320 TO 320 STEP 1
y = SQR(x ^ 2 / a ^ 2 + 1 / b ^ 2)
LINE ((x - 1) * s + cx, yl1 * s + cy)-(x * s + cx, y * s + cy)
yl1 = y
y = -SQR(x ^ 2 / a ^ 2 + 1 / b ^ 2)
LINE ((x - 1) * s + cx, yl2 * s + cy)-(x * s + cx, y * s + cy)
yl2 = y
NEXT x