Курсовая работа: ЛИСП-реализация операций над матрицами

((J 0))

((>= J COL))

(SETF (AREF RES_MATRIX I J) (AREF MATR J I))

(SETQ J (+ J 1))

)

(SETQ I (+ I 1))

)

RES_MATRIX

)

)

)

;ПРИМЕНЕНИЕ "УМНОЖЕНИЯ МАТРИЦЫ НА ЧИСЛО" ДЛЯ СПИСКА

(DEFUN MULT1 (NUM)

(PRINT (MULT_NUMBER MATRIX1 ROW1 COL1 NUM) OUTPUT_STREAM)

)

;ПРИМЕНЕНИЕ "УМНОЖЕНИЯ МАТРИЦЫ НА ЧИСЛО" ДЛЯ СПИСКА

(DEFUN MULT2 (NUM)

(PRINT (MULT_NUMBER MATRIX2 ROW2 COL2 NUM) OUTPUT_STREAM)

)

;ЗАПИСЫВАЕМ РЕЗУЛЬТАТ

(SETQ OUTPUT_STREAM (OPEN " D:\RESULT.TXT" :DIRECTION :OUTPUT))

;МАТРИЦА 1

(PRINT (LIST 'MATRIX_1 MATRIX1) OUTPUT_STREAM)

;МАТРИЦА 2

(PRINT (LIST 'MATRIX_2 MATRIX2) OUTPUT_STREAM)

(PRINT '---------------------------- OUTPUT_STREAM)

;СЛОЖЕНИЕ МАТРИЦ

(PRINT (LIST 'SUM_MATRIX (SUM_MATRIX MATRIX1 MATRIX2 ROW1 ROW2 COL1 COL2)) OUTPUT_STREAM)

;РАЗНОСТЬ МАТРИЦ