Автоматизация линии производства кормовой рыбной муки

Программа расчета АФЧХ на языке «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