Категория
Информатика
Тип
реферат
Страницы
8 стр.
Дата
26.03.2014
Формат файла
.html — Html-документ
Архив
1011709.zip — 5.19 kb
  • chislennoe-reshenie-sistemy-linejnyx-algebraicheskix-uravnenij-metodom-gaussa_1011709_1.html — 15.98 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо



Текст работы

(SETQ B (READ INPUT))

(CLOSE INPUT)

(DEFUN METHOD_GAUS (MATRIX ARRAY_B R_C)

;
ОБЪЯВЛЛЯЕМПЕРЕМЕННЫЕ

;
ИТЕРАТОРЫ

(DECLARE (SPECIAL I))

(DECLARE (SPECIAL J))

(DECLARE (SPECIAL A))

(DECLARE (SPECIAL B))

(DECLARE (SPECIAL X))

;
ВРЕМЕННАЯПЕРЕМЕННАЯ

(DECLARE (SPECIAL NUMB))

;
A — ВРЕМЕННАЯ МАТРИЦА

(SETQ A (MAKE-ARRAY (LIST R_C R_C): ELEMENT-TYPE'INTEGER: INITIAL-ELEMENT 0))

(SETF A MATRIX)

;
В — МАТРИЦА СВОБОДНЫХ ЧЛЕНОВ

(SETQ B (MAKE-ARRAY R_C: ELEMENT-TYPE'INTEGER: INITIAL-ELEMENT 0))

(SETF B ARRAY_B)

;
X — МАССИВ РЕШЕНИЙ

(SETQ X (MAKE-ARRAY R_C: ELEMENT-TYPE'INTEGER: INITIAL-ELEMENT 0))

;
ВЫПОЛНЯЕМПРЕОБРАЗОВАНИЯ СТРОК

(DO

( (P 0))

( (>= P ( — R_C 1)))

(DO

( (I (+ P 1)))

( (>= I R_C))

(SETQ NUMB (/ (AREF A I P) (AREF A P P)))

(DO

( (J P))

( (>= J R_C))

(SETF (AREF A I J) ( — (AREF A I J) (* (AREFA P J) NUMB)))

(SETQ J (+ J 1))

)

(SETF (AREF B 0 I) ( — (AREF B 0 I) (* (AREFB 0 P) NUMB)))

(SETQ I (+ I 1))

)

(SETQ P (+ P 1))

)

(SETF (AREF X ( — R_C 1)) (FLOAT (/ (AREF B0 ( — R_C 1)) (AREF A ( — R_C 1) ( — R_C 1)))))

;
ПОЛУЧИЛИСТУПЕНЧАТУЮ МАТРИЦУ

;
НАХОДИМ X

(DO

( (I ( — R_C 2)))

( (< I 0))



Ваше мнение



CAPTCHA