36963

Робота з базою знань «План-карта шляхів»

Лабораторная работа

Информатика, кибернетика и программирование

COM командою lod ‘edit Сформувати файл програми для роботи з базою знань defun можливо стан карта mpcn 'lmbd правило if eql стан cr правило list правило nil карта defun вглибину поточнийплан ppend можливо cdr cr поточнийплан план1...

Украинкский

2013-09-23

40 KB

1 чел.

Лабораторна робота №1

Робота з базою знань «План-карта шляхів»

План виконання роботи:

  1.  Завантажити оболонку muLisp (для цього запустити на виконання файл MULISP.EXE, яка розташована за адресою <Disk>:\Lisp_Prog\MULISP)
  2.  Завантажити редактор EDIT.COM (командою (loadedit))
  3.  Сформувати файл програми для роботи з базою знань

(defun можливо (стан карта )

   (mapcan '(lambda (правило)

                               (if (eql стан (car правило))

                                     (list правило) nil )

                 )

               карта)

)

 

(defun в-глибину (поточний-план)

   (append

          (можливо (cadr (car поточний-план)) план-1)

                           (cdr поточний-план))

   )

основна функція пошуку:

(defun пошук (кінець поточний-план маршрут метод)

(cond

    ((null поточний-план) (print (reverse маршрут)) nil)

; поточний план пустий

    ((eql кiнець (cadr (car поточний-план)))

;якщо  кінцевий пункт знайшовся в поточному-планi, тоді закінчити.

               (print  (reverse (cons кiнець маршрут))))

   ((member (cadr (car поточний-план)) маршрут)

;якщо наслідок вже є в маршруті, тоді рекурсивний пошук в cdr-плані.

              (пошук кiнець (cdr поточний-план) маршрут метод) )

;якщо всi попереднi умови не виконуються, тоді перетворимо поточний-;план заданим "методом", доповнимо "маршрут" i рекурсивно здійснюємо ;подальший пошук.

   ( t (пошук кiнець (funcall метод поточний-план)

          (cons (cadr (car поточний-план)) маршрут)

           метод ) ) )

)

(defun як-проїхати (початок кiнець карта метод)

    (пошук кiнець

                (можливо початок карта)

                (list початок)

              метод

   )

)

  1.  Заповнити базу знань через командну строку

$(setq plan1 '((Москва Київ) (Київ Москва) (Львiв Київ) (Київ Львiв) (Київ Харкiв) (Харкiв Київ) (Донецьк Харкiв) (Харкiв Донецьк) (Київ Луганськ) (Луганськ Ніжин) (Ніжин Київ)))

  1.  Викликати функцію пошуку шляху

(як-проїхати початок кінець карта метод)

Виклик функції

$(як-проїхати 'Львiв 'Ніжин план-1 в-глибину)

(Львiв Київ Москва Харкiв Донецьк Луганськ Ніжин)

вiдсiкти непотрiбнi пункти за допомогою наступної функції:

(defun вiдсiкти-лишнє (маршрут карта)

  (cond

       ((equal маршрут (відсікти маршрут карта ))

                 маршрут)

       (t (вiдсiкти-лишнє (вiдсiкти маршрут карта)))))

(defun вiдсiкти (маршрут карта рiшення)

    (cond

           ((null карта) nil)

           ((null маршрут) nil)

         ((null (cadr маршрут))

                  (reverse (cons (car маршрут) рiшення)))

          ((member (list (car маршрут) (cadr маршрут)) карта equal)                      

                         (вiдсiкти (cdr маршрут) карта

                          (cons (car маршрут) рiшення)))

       (t (вiдсiкти (cdr маршрут) карта рiшення))))

Застосуємо розроблену функцію:

$(вiдсiкти-лишнє (як-проїхати 'Львiв 'Ніжин план-1 в-глибину) план-1 )

(Львiв Київ Луганськ Ніжин)


 

А также другие работы, которые могут Вас заинтересовать

36407. Разработайте и поясните эквивалентную расчетную схему дискретной САУ 20.14 KB
  При разработке расчетной схемы будем использовать допущения: Операция квантования по уровню нелинейна = ЦСАУ нелинейна. Операция дискретизации сигнала линейна поэтому в дальнейшем нелинейные ЦСАУ заменим дискретными линейными САУ. В этой схему удобно объединить два блока работающих в непрерывном режиме Получена расчетная схема ЦСАУ эквивалентная по дискретной составляющей исходной САУ с цифровым регулятором. Эта схема позволяет ввести понятие переходной функции ЦСАУ в дискретном пространстве.
36408. Поясните понятие устойчивости дискретной САУ. Дайте классификацию методов определения устойчивости и поясните их 64.92 KB
  Дайте классификацию методов определения устойчивости и поясните их. единичная окружность zплоскости представляет собой границу устойчивости. Такое состояние называется апериодическая граница устойчивости.
36409. Выведите формулы спектра дискретного сигнала и проанализируйте его свойства 27.04 KB
  Спектральная плотность дискретного сигнала xTjω будем называть спектром дискретного сигнала. Спектр дискретного сигнала в отличие от аналогового периодичен по частоте с периодом fдискр. k=0123∞ Периодизация спектра обусловлена дискретизацией сигнала по времени.
36410. Приведите алгоритм дискретной обработки и получите передаточные функции и импульсную характеристику дискретной САУ 535.95 KB
  При построении дискретной САУ реализуется 2 подхода: Частота с которой ПК рассчитывает процессы так велика что интервал гораздо меньше всех постоянных времен НЧ. Если при этом и шаг квантования мал то САУ практически не отличается от непрерывной системы и если исполнительный механизм и объект меняются то и цифровая САУ меняется. В этом случае САУ нужно считать дискретными и процессы в них необходимо описывать с применением специального математического аппарата.
36411. Поясните способы определения выходного сигнала в дискретной САУ 148.07 KB
  1 способ: Перейти от к можно несколькими способами 2 способ: представить zпреобразование выходного сигнала: по таблице Анализ: 1 Первый способ более простой однако он обладает двумя недостатками: При делении полиномов получаются бесконечные ряды. Для получения приемлемого резта необходимо рассчитать большое количество членов ряда Если интеграл дискретизации выбран неверно то произойдет наложение спектральных составляющих которые существенно исказит выходной сигнал 2Преимущество второго способа состоит в том что сразу получается...
36412. Системы подчиненного регулирования параметров электропривода 25.03 KB
  Системы подчиненного регулирования параметров электропривода. ‘’ возможность ограничить любой параметр на любом уровне Система с последовательной коррекцией или система подчиненного регулирования СПР удобны в расчетах и в настройках характерным является то что даже при существующих ошибках в определении параметров объекта системы остаются работоспособными и обладают запасом устойчивости и точности. Каждому регулируемому параметру соответствует свой датчик регулятор и контур регулирования. Контура регулирования вложены друг в друга...
36413. Приведите нелинейные модели САУ 16.25 KB
  Каждая СУ состоит их линейных и НЛЗ. Наличие одного НЛЗ делает всю САУ нелинейной. По матму описанию процессов НЛЗ делятся на статиче и динамиче. Описывся алгебраичми зависимочтями выхй величины от вхй Динамиче НЛЗ процессы котх описся НЛ ДУ например: Принципы нелинейности: а коэфты уря зависят от перх б степень произвх выше 1 и самой произвой в коэфт К зависит от самой производной ДУ будет НЛ если присутт хотя бы один из признаков нелинейности.
36414. Способы определения параметров динамических моделей 21.97 KB
  В зависимости от вида переходной характеристики кривой разгона задаются чаще всего одним из трех видов передаточной функции объекта управления: в виде передаточной функции инерционного звена первого порядкагде – K T и коэффициент усиления постоянная времени и запаздывание которые должны быть определены в окрестности номинального режима работы объекта.Для объекта управления без самовыравнивания передаточная функция имеет вид: Более точнее динамику объекта описывает модель второго порядка с запаздыванием Экспериментальные методы определения...
36415. Поясните методы анализа устойчивости равновесных режимов нелинейных САУ 16.92 KB
  методыне дают полн. Методы анализа динамики НС: 1.Точные методы исследия динамики: метод прова сост: фазовой плоскости; изоклин; метод припасовывания метод точечного преобразования 2.