Главная » Рефераты    
рефераты Разделы рефераты
рефераты
рефератыГлавная
рефератыЕстествознание
рефератыУголовное право уголовный процесс
рефератыТрудовое право
рефератыЖурналистика
рефератыХимия
рефератыГеография
рефератыИностранные языки
рефератыРазное
рефератыИностранные языки
рефератыКибернетика
рефератыКоммуникации и связь
рефератыОккультизм и уфология
рефератыПолиграфия
рефератыРиторика
рефератыТеплотехника
рефератыТехнология
рефератыТовароведение
рефератыАрхитектура
рефератыАстрология
рефератыАстрономия
рефератыЭргономика
рефератыКультурология
рефератыЛитература языковедение
рефератыМаркетинг товароведение реклама
рефератыКраеведение и этнография
рефератыКулинария и продукты питания
рефераты
рефераты Информация рефераты
рефераты
рефераты

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

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

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

END IF

10

PSET (400+re*700, 430+700*im)

NEXT w: y=0 NEXT t

END

рефераты Рекомендуем рефератырефераты

     
Рефераты @2011