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в Київ Луганськ Ніжин)


 

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

79731. Учет долгосрочных инвестиций 81.5 KB
  Долгосрочные инвестиции предприятия связаны с осуществлением капитального строительства в форме нового строительства а также реконструкции и технического перевооружения действующих предприятий и объектов непроизводственной сферы с приобретением зданий сооружений оборудования и других отдельных объектов основных средств с приобретением земельных участков и объектов природопользования с приобретением и созданием объектов нематериального характера. Для выполнения строительномонтажных работ подрядным способом предприятие заключает договор...
79732. Учет затрат на производство и калькулирование себестоимости продукции 105.5 KB
  Учет затрат на производство и калькулирование себестоимости продукции Задачи учета затрат на производство и калькулирование себестоимости продукции. Варианты учета затрат. Характеристика учет и распределение затрат вспомогательных производств. Методы учета затрат на производство продукции и калькулирование себестоимости продукции.
79733. Учет издержек обращения 60 KB
  Учет издержек обращения Задачи и классификация издержек обращения Учет транспортных расходов Учет расходов связанных с товарными запасами Учет расходов связанных с основными средствами Учет расходов на оплату труда и социальные нужды. Учет издержек обращения относящихся к реализованным товарам Задачи и классификация издержек обращения Издержки обращения – это затраты материальных денежных и трудовых ресурсов связанные с переводом товаров из сферы производства в сферу потребления. Издержки обращения относятся к категории затрат...
79734. Учет реализации товаров в организации оптовой торговли 43 KB
  Учет реализации товаров в организации оптовой торговли Формы оптовой реализации товаров Учет реализации в момент оплаты товаров. Учет реализации в момент отгрузки товаров. Учет реализации товаров транзитом Формы оптовой реализации товаров Различают две основные формы оптовой реализации товаров: реализация товаров со складов складской оборот; реализация товаров транзитом транзитный оборот. Реализация товаров транзитом в свою очередь применяется как с участием так и без участия оптового предприятия в расчетах.
79735. Учет собственного капитала 46.5 KB
  Учет собственного капитала Учет уставного капитала. Учет резервного капитала Учет добавочного капитала Учет уставного капитала Собственный капитал состоит из уставного капитала добавочного и резервного капитала резервных фондов и нераспределенной прибыли. Для характеристики той чисти собственного капитала размер которой указывается в учредительных документах используют понятие уставный капитал складочный капитал уставный фонд паевой фонд. Все эти виды собственного капитала учитываются на счете 85 Уставный капитал. Сальдо этого...
79736. Учет товарных потерь 52.5 KB
  Учет товарных потерь Нормируемые и ненормируемые потери Взаимозачет недостатков одних товаров излишками других Отражение в учете сумм недостач хищений и потерь от порчи ценностей Учет товарных потерь вследствие естественной убыли Товарные потери при транспортировке Нормы естественной убыли на складах Резерв на списание естественной убыли Нормируемые и ненормируемые потери Товарные потери возникают при транспортировке хранении и отпуске товаров. К ненормируемым относятся потери от боя брака и порчи товаров а также потери по...
79737. Учет финансовых результатов 93.5 KB
  Учет прибыли убытков предприятия. Распределение прибыли. Учет прибыли убытков предприятия Финансовый результат хозяйственной деятельности предприятия определяется показателем прибыли или убытка формируемым в течение календарного хозяйственного года. Формирование итогов годового финансового результата осуществляется накопительным путем в течение всего года на счете 80 Прибыли и убытки виде его свернутого остатка отражающего либо прибыль по кредиту счета либо убыток по дебету счета.
79738. Бухгалтерский учет банковских кредитов 106 KB
  Любое предприятие, получив в банке кредит, должно, во-первых, правильно выбрать источник списания затрат на оплату процентов за пользование ссудой, и во-вторых, достоверно отразить в учете и отчетности сумму возникшего перед банком обязательства.
79739. Бухгалтерский учет выпуска готовой продукции 76 KB
  Бухгалтерский учет выпуска готовой продукции Методика расчета фактической себестоимости отгруженной продукции на счете. Методика расчета фактической себестоимости отгруженной продукции с использованием учетных цен Методика использования фактической себестоимости по прямому принципу без использования учетных цен Речь идет о решении организации применять или не применять счет...