Программа расчета АФЧХ на языке «BASIC»

CLS
SCREEN 12
WINDOW (0, 480)-(640, 0)
oo=1: y=0: r=0
FOR T=80 TO 160 STEP 20
y=0
FOR t=80 TO .1 STEP .03
re=(.32*COS(40*w)-64*w*SIN(40*w))/(40000*w^2+1)
im=-(.32*SIN(40*w)+64*w*COS(40*w))/(40000*w^2+1)
PRINT USING «###.####»; w;
PRINT « »;
PRINT USING «###.####»;40000*w^2+1;
PRINT « »;
PRINT USING «###.####»;.32*COS(40*w);
PRINT « »;
PRINT USING «###.####»;64*w*SIN(40*w);
PRINT « »;
PRINT USING «###.####»;.32*SIN(40*w);
PRINT « »;
PRINT USING «###.####»; 64*w*COS(40*w);
PRINT « »;
PRINT USING «###.####»; re;
PRINT « »;
PRINT USING «###.####»;im
oo=oo+1: k=k+1
y=0: r=r+.1: y=y+1
a=SQR(re*re+im*im)
IF w=0 THEN w=.00001
b=(a/w*t))
IF w>.3 OR w<.06 THEN GOTO 10
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
END