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

D(1,K)=U1

С Вычисление значения выходной переменной усилителя U2.

CALL US(3,X,U2)

С Заполнение строки переменной U2.

D(2,K)=U2

ENDDO

CALL KRIS(D,3,K, 1, 1,0.,0.)

END

[pic]

Рисунок 6

Из рисунка видно, что характеристика усилителя воспроизводится моделью правильно.

11 Подпрограмма вычисления правых частей системы уравнений

В подпрограмме сохранены наименования переменных модели. Результаты вычислений заносятся, как это требуют подпрограммы шага и управляющего модуля, в первый столбец массива F, который здесь, для простоты объявлен одномерным. Для передачи в этот модуль изменяемого от эксперимента к эксперименту параметра генератора [pic] в общую область включена переменная
TAU .Остальные переменные общей области нужны для связи главного модуля с подпрограммой вывода результатов шага.

SUBROUTINE FUN(T,Z,F,N)
С Подпрограмма вычисления правых частей системы уравнений модели автогенератора.

DIMENSION Z(N*4),F(N*4),D(4,15000)

COMMON K,TZ,TAU,D
С Вызов подпрограммы - модели усилителя для вычисления входной величины
U1

CALL US(2,Z(3),U1)

A=1/TAU

F(1)= - A*U1

F(2)=A*(Z(1)-5*U1)

F(3)=A*(Z(2)-6*U1)

RETURN

END

12 Подпрограмма вывода

В подпрограмме сохранены наименования переменных модели.

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



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

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