Построить график функции с шагом — QBasic(Бейсик)

SCREEN 9
x1 = -1
x2 = 1
n = 200
DIM A(n + 1)
h = (x2 - x1) / n
A(0) = 0
my = 10
mx = 100
x0 = 320
y0 = 240
i0 = 100
LINE (0, y0)-(640, y0)
LINE (x0, 0)-(x0, 480)
FOR x = -1 TO 1 STEP h
    i = i + 1
    A(i) = ((1 - x) ^ 4) * LOG(x + 3 / 2)
NEXT x
FOR i = 0 TO n
    PSET ((i - i0) * h * mx + x0, y0 - A(i) * my), 12
NEXT i


FOR x = -1 TO 1 STEP h
    v = v + 1
    A(v) = EXP(-(x ^ 2)) * COS(3 * x / 2)
NEXT x
FOR v = 0 TO n
    PSET ((v - v0) * h * mx + x0, y0 - A(v) * my), 10
NEXT v

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment