Функции для манипулирования данными. Определение функций
Существует несколько типов функций: пользовательские и системные. Системные определены внутри среды CLIPS изначально, пользовательские – фрагменты кода, написанные пользователями на CLIPS или С. Хотя CLIPS не ориентирован на численные вычисления, в нем предусмотрены стандартные математические и арифметические функции: +, -, *, /, ** (возведение в степень), Abs, Sqrt, Mod, Min, Max. Пример 1: (+ 2 5 8)
Конструкция deffunction позволяет пользователю определять новые функции непосредственно в среде CLIPS. (deffunction <имя функции> (<аргумент>... < аргумент >) <выражение> <выражение> )
Пример 2: (deffunction hypotenuse (?a?b) (sqrt (+ (*?a?a) (*?b?b))) )
Аргументы-переменные должны иметь префикс?, как это показано в приведенном примере. Вызовы функций в CLIPS имеют префиксную форму: аргументы стоят после ее названия. Вызов функции производится в скобках: (hypotenuse 7 4)
После открывающейся скобки следует имя функции, затем идут аргументы, каждый из которых отделен одним или несколькими пробелами. Аргументами функции могут быть данные простых типов, переменные или вызовы других функций. Функция возвращает результат последнего выражения в списке. Иногда выполнение функции имеет побочные эффекты, как в приведенном ниже примере. (deffunction init (?day) (reset) (assert (today is?day)) )
В результате после запуска функции на выполнение командой CLIPS> (init Sunday)
будет выполнена команда reset и, следовательно, очищена база фактов, а затем в нее будет включен новый факт (today is Sunday). А в результате запуска функции hypotenuse на выполнение командой CLIPS> (hypotenuse 3 4)
будет выдан известный ответ CLIPS> 5.0
Пример 3. (deffunction between(?lb?value?ub) (or (>?lb?value) (>?value?ub)))
Эта функция определяет, попало ли заданное целочисленное значение в диапазон между нижним и верхним пределами. В некоторых задачах бывает полезным оператор присвоения bind. Например, переменной?a присваивается значение 4: (bind?a 4) Для подробного изучения функциональных возможностей языка CLIPS рекомендуем воспользоваться литературным источником [5].
Наблюдение за процессом интерпретации программы Теперь на простом примере познакомимся с возможностями, которые предоставляет среда разработки CLIPS в части отладки программы, состоящей из правил и фактов. Введите в текстовый файл правило, а затем загрузите этот файл в среду CLIPS. (defrule start (initial-fact) => (printout t “hello, world” crlf) )
Здесь стандартная команда printout t организует вывод на экран, символ crlf – это символ перевода строки. Выполните команду reset. Для этого либо введите эту команду в командной строке интерпретатора CLIPS> (reset)
либо выберите в меню команду Execution->Reset, либо нажмите <CTRL+U>;. Затем запустите интерпретатор. Для этого либо введите эту команду run в командную строку интерпретатора CLIPS> (run)
либо выберите в меню команду Execution->Reset, либо нажмите <CTRL+R>;. В ответ программа должна вывести сообщение hello, world, знакомое всем программистам мира. Для повторного запуска программы повторите команды reset и run. Если в меню Execution->Watch ранее был установлен флажок Rules или перед запуском программы на выполнение вы ввели в командную строку команду watch rules, то на экране появится результат трассировки процесса выполнения CLIPS> (run) FIRE 1 start: f-0 hello, world
В этом сообщении в строке, начинающейся с FIRE, выведена информация об активизированном правиле: start – это имя правила, а f-0 – имя факта, который «удовлетворил» условие в этом правиле. Команда watch позволяет организовать несколько разных режимов трассировки. Если перед запуском программы вы ввели CLIPS> (dribble-on “dribble.clp”) TRUE то выведенный протокол трассировки будет сохранен в файле dribble.clp. Сохранение протокола прекратится после ввода команды CLIPS> (dribble-off) TRUE
Это очень удобная опция, особенно на этапе освоения языка.
|
