Исследование RC-генератора синусоидальных колебаний
| Категория реферата: Рефераты по математике
| Теги реферата: класс, контрольные работы по алгебре
| Добавил(а) на сайт: Nizamutdinov.
Предыдущая страница реферата | 5 6 7 8 9 10 11 12 13 14 15 | Следующая страница реферата
C(L)=X(1)
KP=1
ENDIF
IF(T.EQ.270)PRINT*,’T=270’,’ X(270)=’,X(1)
RETURN
END
В главном модуле введем исходные данные, обратимся к подпрограмме метода, отпечатаем полученные через общую область максимумы функции и обратимся к подпрограмме построения графика.
EXTERNAL PRAV,OUT
DIMENSION X(2,4),F(8),R(2,3),D(3,1000),C(300)
COMMON K,L,KP,D,C
READ *,N,TN,TK,HM,((X(K,J),K=1,N),J=1,2),E
K=0
L=1
C(1)=1
KP=1
CALL ARK(HM,TN,TK,X,R,F,N,E,PRAV,OUT,IER)
PRINT 1, (C(J),J=1,L)
1 FORMAT(I4/(5E15.7))
CALL KRIS(D,3,K,2,0,0.,0.)
END
9 Результаты тестирования
Графики вычисленных путем решения дифференциального уравнения функций приведены на рисунке 4. Видно, что они близки к функциям [pic] и [pic].
[pic]
Рисунок 4
Амплитуды колебаний равны единице, период [pic] .
Выходной файл решения приведен ниже.
T=270 X(270)= 9.810482E-01
0
.1000000E+01 .9994009E+00 .9976879E+00 .9948635E+00 .9930583E+00
.9963406E+00 .9985125E+00 .9995713E+00 .9995162E+00 .9983473E+00
.9960660E+00 .9926749E+00 .9945613E+00 .9972748E+00 .9988768E+00
.9993657E+00 .9987408E+00 .9970031E+00 .9941545E+00 .9925186E+00
.9957730E+00 .9979174E+00 .9989495E+00 .9988685E+00 .9976745E+00
.9953687E+00 .9919540E+00 .9940073E+00 .9966935E+00 .9982686E+00
.9987311E+00 .9980807E+00 .9963180E+00 .9934454E+00 .9919787E+00
.9952052E+00 .9973223E+00 .9983279E+00 .9982209E+00 .9970015E+00
.9946712E+00 .9912329E+00 .9934532E+00 .9961117E+00 .1015252E+00
Рекомендуем скачать другие рефераты по теме: реферат на тему работа курсовые работы, изложение 4.
Категории:
Предыдущая страница реферата | 5 6 7 8 9 10 11 12 13 14 15 | Следующая страница реферата
Главная