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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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