Собственные значения
| Категория реферата: Рефераты по математике
| Теги реферата: дипломная работа скачать бесплатно, сочинения по русскому языку
| Добавил(а) на сайт: Якуб.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
S(3,3) = З0.Е06
X(1) = 1.
Х(2) = 0.0
Х(3) = 0.0
XOLD = 0.0
I = 0
WRITE(6 100)
WRITE(6 101)
WRITE(6 102)
WRITE(6 100)
WRITE(6 104) I,X(1),X(2),X(3)
DO 1 1=1,50
CALL GMPRD (S, X, R, 3, 3, 1)
DO 2 J=1,3
2 X(J) = R(J)
CALL NORML(XLAM,X)
WRITE(6,103) I,XLAM,X(1),X(2),X(3)
IF(ABS((XOLD-XLAM)/XLAM).LE.0.0001) GO TO 3
XOLD = XLAM3 WRITE(6,100)
100 FORMAT (1X 54C'-''))
FORMAT (2X ‘ITERATION’, ЗХ ‘ITERATION’, 11X,‘EIGENVECTOR') FORMAT (3X 'NUMBER", 6X ,'(N/M**2)’, 5X, ‘X(1)’,6X,'X(2)',6X,’X(3)’)
103 FORMAT (1X,I5,7X,E12.5,3F10.5)
104 FORMAT (1X,I5,19X,3F10.5)
STOP
END
Рекомендуем скачать другие рефераты по теме: доклади по биологии, рефераты по политологии.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
Главная