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

ROW2, R2 – количество строк во второй матрице;

COL1, C1 – количество столбцов в первой матрице;

COL2, C2 – количество столбцов во второй матрице;

RES_MATRIX – результирующая матрица;

OUTPUT_STREAM – выходной поток;

I, J P – рабочие переменные.

Рисунок 1 – Функциональная модель решения задачи для функции MODUL1

Рисунок 2 – Функциональная модель решения задачи для функции MODUL2

Рисунок 3 – Блок-схема решения задачи для функции SUM_MATRIX

Рисунок 4 – Блок-схема решения задачи для функции SUBTR_MATRIX

Рисунок 5 – Блок-схема решения задачи для функции MULT_NUMBER

Рисунок 6 – Блок-схема решения задачи для функции MULT_MATRIX

Рисунок 7 – Блок-схема решения задачи для функции FLIP

4 Программная реализация решения задачи

;СЧИТЫВАЕМ МАТРИЦУ

(SETF ROW_COL 0)

(SETQ INPUT_STREAM (OPEN " D:\MATRIX.TXT" :DIRECTION :INPUT))

;ПОЛУЧАЕМ РАЗМЕРНОСТЬ ПЕРВОЙ МАТРИЦЫ

(SETQ ROW_COL1 (READ INPUT_STREAM))

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

(SETF MATRIX1 (READ INPUT_STREAM))

;ПОЛУЧАЕМ СПИСОК ЧИСЕЛ, НА КОТОРЫЕ БУДЕМ УМНОЖАТЬ МАТРИЦУ