Программа расчета АЧФХ.
CLS
SCREEN 12
WINDOW (0,480)-(640,0)
oo = 1
y = 0
r = 0
FOR t =1 TO 3 STEP .5
y = 0
FOR w = 0 TO 1 STEP .001
re = (.28 * COS(12 * w) - 11.2 * w *SIN(12 * w) - 84 * w * w * COS(12 * w)) /
(90000 * w * w * w * w + 1000 * w * w +1)
im = (-10.5 *w *COS(12 * w) + 84 * w * w *SIN(12 * w) - .28 * sin(12 * w)) / (90000 * w * w * w * w +1000 * w * w + 1)
IF y >= 2 + r AND t = 1 AND w < .17 THEN
CIRCLE(400 + re * 700, 430 + 700 * im), 3, 5
LOCATE oo, 1
PRINT USING ###.#####; re;
PRINT ;
PRINT USING ###.#####; im
‘LINE ((400 + 5.132276E-03 * 700), (430 + 7.787416E-03 * 700))-((400 + re * 700), (430 + 700 * im))
oo = oo + 1
k = k + 1
y = 0
END IF
r = r + .1
y = y + 1
a = SOR(re * re + im * im)
IF w = 0 THEN w = .00001
b = (a / (w * t))
IF w > .3 OR w < .06 THEN GOTO 10
PSET ((400 + (re - (im * b) / a) * 700), (430 + 700 * (im + (re * b) / a)))
IF y >= 2 + r AND t = 1 AND w < .179 THEN
END IF
10
PSET (400 + re * 700, 430 + 700 * im)
NEXT w
y = 0
NEXT t
20 GOTO 20
END