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


 

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

24183. Сущность социальных отношений 47 KB
  Социальные нормы это средства социальной регуляции поведения индивидов и групп. Социальная роль это социальная функция модель поведения объективно заданная социальной позицией личности в системе социальных и межличностных отношений. С социальной стратификацией связано понятие социальной мобильности. Под социальной мобильностью понимается любой переход индивида или социального объекта ценности то есть всего того что создано или модифицировано человеческой деятельностью из одной социальной позиции в другую.
24184. Классификация социальных процессов 50 KB
  В тех случаях когда цели и способы их достижения у индивида или группы не могут удовлетворить индивида компромисса достичь не удается и индивид не приспосабливается к новым условиям окружающей среды. Ассимиляция ссимиляция это процесс взаимного культурного проникновения через который личности и группы приходят к разделяемой всеми участниками процесса общей культуре. Это всегда двухсторонний процесс в котором каждая группа имеет возможности для проникновения своей культуры в другие группы пропорционально своему размеру престижу и другим...
24185. Применение имитационного моделирования 47.5 KB
  Имитационное моделирование это частный случай математического моделирования. Применение имитационного моделирования К имитационному моделированию прибегают когда: дорого или невозможно экспериментировать на реальном объекте; невозможно построить аналитическую модель: в системе есть время причинные связи последствие нелинейности стохастические случайные переменные; необходимо сымитировать поведение системы во времени. Цель имитационного моделирования состоит в воспроизведении поведения исследуемой системы на основе результатов...
24186. АЛЛЕРГИЯ 276 KB
  В поддержании аллергического иммунного ответа важны долговременные клетки памяти в т. Схема 1 Классификация аллергических реакций: Влмфзависимые Активные Немедленная по ДжеллКумбсу гуморальные и анафилаксия 1й тип реагины Тлмфзависимые Пассивные Отсроченная 5 ч 2й цитолиз клеточные АТ и клетки Замедленная дни 3й имм. Неклеточные структуры тканей коллагена миелина базальной мембраны почек вовлекаются соседние клетки вторично. Медиаторы: гаммаинтерферон...
24187. ПАТОЛОГИЯ ВОДНО-СОЛЕВОГО ОБМЕНА 289.5 KB
  Эфферентная часть: основной механизм регуляция почек диуреза: а Вегетативная нервная симпатическая адреналин чревный нерв снижение диуреза; б Гипоталамогипофизарная регуляция: супраоптические и паравентрикулярные ядра АДГ задний гипофиз почечные канальцы гиалуронидаза активация реабсорбции тоже снижение диуреза; в передний гипофиз АКТГ надпочечники альдостерон почечные канальцы сукцинатдегидрогеназа усиление реабсорбции Na и пассивно воды г диэнцефальный мозг адреногломерулотропин ...
24188. КИСЛОТНО-ОСНОВНОЕ СОСТОЯНИЕ 70 KB
  Начальные сдвиги и компенсаторные реакции при нарушениях КОС Нарушения КОС Сдвиг КОС Компенсация Дыхательные Ацидоз рН  рСО2 НСО3 Алкалоз рН рСО2 НСО3 Негазовые Ацидоз рН НСО3 рСО2 Алкалоз рН НСО3 рСО2 Схема 1 Работа гемоглобиновой буферной системы Легкие О2 Нв НвО2 СО2  Кровь: венозный_Нв артериальный_НвО2щелочные_продукты  Нв  ...
24189. ПАТОФИЗИОЛОГИЯ ОБМЕНА БЕЛКА И НК 374 KB
  ПАТОФИЗИОЛОГИЯ ОБМЕНА БЕЛКА И НК Роль белков в организме незаменимые аминокислоты типы синтеза белка типы патологии белкового обмена типы алиментарной недостаточности периоды голодания и особенности обмена; синдром мальадсорбции; нарушения синтеза белка в клетке; диспротеинозы; амилоидоз формы теории развития стадии; подагра. Пластическая роль белков структурная основа тканей и основа ферментов определяет их главенствующую роль в метаболизме. В отличие от жиров и углеводов полное белковое голодание даже при наличии...
24190. ПАТОФИЗИОЛОГИЯ ОБМЕНА ЖИРОВ 262.5 KB
  Виды ЛП: по убыли размера частиц и содержания триглицеридов нарастание фосфолипидов: хиломикроны ЛПОНП ЛППП и ЛПНП атерогены ЛПВП антиатерогены так как вытесняют холестерин с рецепторов клеток. Гиперплазия жировых клеток сохраняется навсегда особенно у детей и в пубертатном периоде. Стадии: жировой полоски пятна липидов в 12 мм появляются макрофаги которые накапливают липиды и превращаются в пенистые клетки фиброзной бляшки эксцентричный рост во внутренней оболочке артерий; капсула из эндотелия Тлимфоцитов пенистых...
24191. НАРУШЕНИЯ ОБМЕНА УГЛЕВОДОВ. САХАРНЫЙ ДИАБЕТ и КОМЫ 328.5 KB
  НАРУШЕНИЯ ОБМЕНА УГЛЕВОДОВ САХАРНЫЙ ДИАБЕТ и КОМЫ Пути метаболизма глюкозы точки приложения действия инсулина влияние инсулина на жировой и белковый обмен влияние инсулина на водноминеральный обмен контраинсулярные гормоны и эх эффекты классификация сахарного диабета факторы предрасположения к СД патогенез жалоб и симптомов при СД осложнения СД патогенез разных типов ком при СД клиника ком принчипы лечения различных видов ком и принципы лечения СД. При аэробном расщеплении окислительное фосфорилирование в...