SCREEN 12
LINE (10, 240)-(600, 240)
LINE (300, 10)-(300, 400)
FOR x = -1 TO 1 STEP 0.01
y1 = SQR(x ^ 4 - x ^ 6)
y2 = -SQR(x ^ 4 - x ^ 6)
PSET (x * 200 + 300, y1 * 200 + 240), 12
PSET (x * 200 + 300, y2 * 200 + 240), 12
NEXT
Результат работы программы
Тестирование выполнено в программе QB64 ( Скачать )