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

;УМНОЖЕНИЕ МАТРИЦ

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

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

;ТРАНСПОНИРОВАНИЕ МАТРИЦЫ1

(PRINT (LIST 'FLIP_MATRIX1 (FLIP MATRIX1 ROW1 COL1)) OUTPUT_STREAM)

;ТРАНСПОНИРОВАНИЕ МАТРИЦЫ2

(PRINT (LIST 'FLIP_MATRIX2 (FLIP MATRIX2 ROW2 COL2)) OUTPUT_STREAM)

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

;УМНОЖЕНИЕ МАТРИЦЫ1 НА ЧИСЛО

(PRINT 'MULTIPLICATION_MATRIX_ON_NUMBER OUTPUT_STREAM)

(PRINT (LIST 'NUMBERS LIST_NUM1) OUTPUT_STREAM)

(PRINT 'MATRIX1 OUTPUT_STREAM)

(MAPCAR 'MULT1 LIST_NUM1)

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

;УМНОЖЕНИЕ МАТРИЦЫ2 НА ЧИСЛО

(PRINT (LIST 'NUMBERS LIST_NUM2) OUTPUT_STREAM)

(PRINT 'MATRIX2 OUTPUT_STREAM)

(MAPCAR 'MULT2 LIST_NUM2)

(TERPRI OUTPUT_STREAM)

(CLOSE OUTPUT_STREAM)

5 Пример выполнения программы

Пример 1.

Рисунок 8 – Входные данные

Рисунок 9 – Выходные данные

Пример 2.

Рисунок 10 – Входные данные