20976

Создание фреймов и извлечение информации из них

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

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

Создать фреймы, описывающие фрагмент библиотечной системы, содержащие как декларативную, так и процедуральную (в том числе использующую переменные ФРЛ-среды) составляющие.

Русский

2013-08-15

22.85 KB

5 чел.

Лабораторная работа № 7.

Создание фреймов

и извлечение информации из них.

  1.  Создать фреймы,  описывающие фрагмент библиотечной системы, содержащие как декларативную,  так и процедуральную (в том числе использующую переменные ФРЛ-среды) составляющие.

(setq TodayYear 2010)

(deframeq Book1

(Nazvanie  ($value (HTML_4_0)))

(Author  ($value (Matrosov_A)))

(Year   ($value (2003)))

(PageNum  ($value (672)))

(Popularity  ($value (2000)))

(Quantity  ($value (GetQuantity (PARM: TodayYear) (STATUS: EVAL))))

)

(deframeq Book2

(Nazvanie  ($value (Programmirovanie_na_LISP)))

(Author  ($value (Chernov_P)(Bajdun_V)(Bunin_A)))

(Year   ($value (1993)))

(PageNum  ($value (40)))

(Popularity  ($value (600)))

(Quantity  ($value (GetQuantity (PARM: TodayYear) (STATUS: EVAL))))

)

(deframeq Book3

(Nazvanie  ($value (C++)))

(Author  ($value (Stroustrup_B)))

(Year   ($value (2008)))

(PageNum  ($value (1104)))

(Popularity  ($value (2500)))

(Quantity  ($value (GetQuantity (PARM: TodayYear) (STATUS: EVAL))))

)

(deframeq Book4

(Nazvanie  ($value (PHP_5/6)))

(Author  ($value (Kuznecov_M)))

(Year   ($value (2010)))

(PageNum  ($value (1024)))

(Popularity  ($value (1800)))

(Quantity  ($value (GetQuantity (PARM: TodayYear) (STATUS: EVAL))))

)

(deframeq Book5

(Nazvanie  ($value (JavaScript)))

(Author  ($value (Flanagan_D)))

(Year   ($value (2009)))

(PageNum  ($value (992)))

(Popularity  ($value (1900)))

(Quantity  ($value (GetQuantity (PARM: TodayYear) (STATUS: EVAL))))

)

(passertq GetQuantity (Y)

(

(setq P (- (car (fget :FRAME Popularity)) (* 200 (- Y (car (fget :FRAME Year))))))

(cond

 ((> P 0) P)

 (T 0)

)

))

пример

(fget book1 quantity)  => 600

  1.  Добавить во фреймы, определенные в предыдущем задании, дополнительную информацию всеми имеющимися способами.
  2.  Извлечь из определенных в предыдущих заданиях фреймов информацию по заданному множеству запросов.

пример

(fput book1 oldname $value HTML_4_1)

(fget book1 oldname)  => HTML_4_1

  1.  Реализовать  функцию последовательного просмотра на экране фреймов из заданного списка.  Предусмотреть  запрос  о  направлении дальнейшего просмотра списка фреймов.

(defun FrameOutput1 (FL Num Fl2 ch)

(loop

 (TERPRI 25)

 (print (list NAZVANIE: (car (fget (car fl) Nazvanie))))

 (print (list AVTOR: (fget (car fl) Author)))

 (print (list YEAR: (car (fget (car fl) Year))))

 (print (list PAGES: (car (fget (car fl) Pagenum))))

 (print (list TIRAZH: (car (fget (car fl) Popularity))))

 (print (list KOL-VO: (car (fget (car fl) Quantity))))

 (print "_________________________")

 (print "<<-- (1) -->> (2) X (3)")

 (setq S (read input))

 ((equal S '3) (TERPRI 25))

 (cond

  ((and  (equal S '1) (not (NULL Fl2)))

    

   (setq Num (Sub1 Num))

   (setq Fl (Cons (car FL2) FL))

   (setq FL2 (cdr FL2))

  )

  ((and  (equal S '2) (not (Null (cdr FL))))

   (setq Num (Add1 Num))

   (setq Fl2 (Cons (car FL) Fl2))

   (setq FL  (cdr FL))

  )

 )

)

)

(defun FrameOutput (Flist)

(cond

 ((Null Flist) Error!_Wrong_frame_argument!)

 (T (FrameOutput1 Flist 1))

)

)

(setq Lib '(Book1 book2 book3 book4))


 

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

28186. Интерференция света. Условия возникновения стационарной интерференции света. Интерференционные схемы с делением волн по фронту (опыт Юнга, зеркало Ллойда, бизеркало Френеля, бипризма Френеля). Влияние размеров источника на интерференционную картину. Усло 159 KB
  Интерференционные схемы с делением волн по фронту опыт Юнга зеркало Ллойда бизеркало Френеля бипризма Френеля. Пусть в точках А и В рисунок 1 находятся два монохроматических источника волны от которых доходят до точки наблюдения С. Взаимное усиление или ослабление двух или большего числа волн при их наложении друг на друга при одновременном распространении в пространстве называется интерференцией волн. Интерференционная картина ИК распределение интенсивностей в области волнового поля где волны налагаются друг на друга.
28187. Интерференционные схемы с делением волн по амплитуде. Интерференция в тонких пленках. Полосы равной толщины и полосы равного наклона. Кольца Ньютона. Применение интерференции света 134 KB
  Пусть на тонкую прозрачную пластинку постоянной толщины рисунок 1 из вакуума падает волна с плоским фронтом ей соответствует пучок параллельных лучей сформированная с помощью точечного источника и линзы в фокусе которой источник находится. Так как условия распространения всех лучей падающих на пластинку в этом опыте одинаковы то для лучей и а также других пар лучей одинаковых с ними по происхождению оптическая разность хода будет одинаковой: 1 где n – показатель преломления материала...
28188. Двухлучевые интерферометры. Интерферометры Рэлея, Жамена, Майкельсона, Линника. Многолучевые интерферометры (интерферометр Фабри-Перо, пластинка Люммера-Герке). Интерференционные фильтры 110 KB
  Если зеркало М1 расположено так что М´1 и М2 параллельны образуются полосы равного наклона локализованные в фокальной плоскости объектива О2 и имеющие форму концентрических колец. Если же М’1 и М2 образуют воздушный клин то возникают полосы равной толщины локализованные в плоскости клина М2 М’1 и представляющие собой параллельные линии. Если поверхность исследуемого образца имеет дефект в виде впадины или выступа высотой l то интерференционные полосы искривляются. Если то интерференционная полоса искривляется так что занимает...
28189. Дифракция света. Принцип Гюйгенса-Френеля. Метод зон Френеля. Дифракция света на круглом отверстии, на круглом препятствии и прямолинейном крае экрана 97.5 KB
  Дифракция света на круглом отверстии на круглом препятствии и прямолинейном крае экрана Дифракция волн от лат. diffractus разломанный преломлённый – в первоначальном узком смысле – огибание волнами препятствий. В современном более широком смысле под дифракцией понимают любое отклонение от законов геометрической оптики при распространении волн. При таком общем толковании дифракция волн переплетается с явлениями распространения и рассеяния волн в неоднородных средах.
28190. Дифракция света на щели. Дифракция света от многих щелей. Дифракционная решетка и ее характеристики 123 KB
  Дифракционная решетка и ее характеристики Дифракция волн от лат. diffractus разломанный преломлённый – в первоначальном узком смысле – огибание волнами препятствий. В современном более широком смысле под дифракцией понимают любое отклонение от законов геометрической оптики при распространении волн. Вследствие дифракции волны могут попадать в область геометрической тени.
28191. Распространение света в анизотропных средах. Двойное лучепреломление. Построение Гюйгенса для одноосных кристаллов 81.5 KB
  Даже если первичный пучок перпендикулярен к естественной грани кристалла преломленный пучок разделяется на два рисунок 2 причем один из них представляет продолжение первичного а второй уклоняется так что угол преломления отличен от нуля. При вращении кристалла необыкновенный луч перемещается вокруг обыкновенного по окружности рисунок 2. Для любого кристалла можно найти три таких направления главные направления кристалла в которых при этом . Направления перпендикулярные таким сечениям называют оптическими осями кристалла...
28192. ЭЛЕКТРИЧЕСТВО И МАГНЕТИЗМ 1.63 MB
  Потенциальность электростатического поля. Потенциал поля точечного заряда системы точечных зарядов и непрерывно распределенного заряда. Молекулярная картина поляризации диэлектриков. Поляризованность вектор поляризации.
28193. Физика атомного ядра и Элементарных частиц 1.51 MB
  Ядерная физика – наука о строении свойствах и превращениях атомного ядра. Во всей области масштабов физики ядра вещество встречаются только в двух формах: в форме атомных ядер и в форме элементарных частиц. В ядерной физике приходится иметь дело с различными по порядку временами так например среднее время жизни нейтрона в свободном состоянии а время жизни ядра урана – .
28194. Вклад У. Джеймса в развитие психологической науки 34.5 KB
  Функционализм психологическое направление появившееся в США в конце ХIХ в исследующее процессы сознания с точки зрения их функции в приспособлении организма к среде. С позиций функционализма психология понималась как наука о функциях или €œдеятельностях€ сознания в их отношениях к нуждам организма и в связи с задачей его эффективной адаптации к изменяющемуся природному и социальному окружению. Задача функционализма изучить каким образом индивид посредством психических функций приспосабливается к изменчивой среде исследование...