Пример: Транспортная логистика
Я ищу:
На главную  |  Добавить в избранное  

Технология /

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

Документ 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 | Документ 31

Программа расчета АФЧХ на языке «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=2+r AND t=1 AND w




Copyright © 2005—2007 «Mark5»