Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

DO K=1,M-1,L

S=S+(T(K+1)-T(K))*(F(K)+F(K+1))

ENDDO

A(N)=S/15.5

D(1,N)=N

D(2,N)=A(N)

ENDDO

CALL KRIS(D,2,9,1,0,0.,0.)

PRINT16,(N,A(N),N=1,9)

16 FORMAT(I4,E14.6)

END

Изменение шага L позволяет оценить погрешность интегрирования.
Переменные X и Y нужны в списке ввода для считывания данных прямо из выходного файла третьего решения.

2 Блок - схема алгоритма вычисления амплитуд гармоник

[pic]

Рисунок 10

3 Результаты гармонического анализа

Зависимость амплитуды гармоники от ее номера приведены в таблицах 11,
12 и на рисунке 11.

Таблица 11

1 .284373E+01

2 .222451E-02

3 .103735E-01

4 .498333E-03

5 -.751302E-02

6 .191248E-03

7 .318412E-02

Рекомендуем скачать другие рефераты по теме: реферат на тему работа курсовые работы, изложение 4.



Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки