Процедурные функции на языке CLIPS - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Процедурные функции на языке CLIPS, слайд №1

Процедурные функции на языке CLIPS, слайд №2

Процедурные функции на языке CLIPS, слайд №3

Процедурные функции на языке CLIPS, слайд №4

Процедурные функции на языке CLIPS, слайд №5

Процедурные функции на языке CLIPS, слайд №6

Процедурные функции на языке CLIPS, слайд №7

Процедурные функции на языке CLIPS, слайд №8

Процедурные функции на языке CLIPS, слайд №9

Процедурные функции на языке CLIPS, слайд №10

Процедурные функции на языке CLIPS, слайд №11

Процедурные функции на языке CLIPS, слайд №12

Процедурные функции на языке CLIPS, слайд №13

Процедурные функции на языке CLIPS, слайд №14

Процедурные функции на языке CLIPS, слайд №15

Процедурные функции на языке CLIPS, слайд №16

Процедурные функции на языке CLIPS, слайд №17

Процедурные функции на языке CLIPS, слайд №18

Процедурные функции на языке CLIPS, слайд №19

Процедурные функции на языке CLIPS, слайд №20

Процедурные функции на языке CLIPS, слайд №21

Процедурные функции на языке CLIPS, слайд №22

Процедурные функции на языке CLIPS, слайд №23

Процедурные функции на языке CLIPS, слайд №24

Процедурные функции на языке CLIPS, слайд №25

Процедурные функции на языке CLIPS, слайд №26

Процедурные функции на языке CLIPS, слайд №27

Процедурные функции на языке CLIPS, слайд №28

Процедурные функции на языке CLIPS, слайд №29

Процедурные функции на языке CLIPS, слайд №30

Процедурные функции на языке CLIPS, слайд №31

Процедурные функции на языке CLIPS, слайд №32

Процедурные функции на языке CLIPS, слайд №33

Процедурные функции на языке CLIPS, слайд №34

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Процедурные функции на языке CLIPS. Доклад-сообщение содержит 34 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

Процедурные функции на языке CLIPS Примеры функций

Слайд 2

Описание слайда:

Процедурные функции

Слайд 3

Описание слайда:

Процедурные функции

Слайд 4

Описание слайда:

Процедурные функции

Слайд 5

Описание слайда:

Пример использования функции if-then -else Пусть требуется вычислить функцию f1 в зависимости от условия.

Слайд 6

Описание слайда:

Определение функции f1 (deffunction f1(?a ?b) (if (or (not (numberp ?a)) (not (numberp ?b))) then (printout t "Error a or b" clrf) else ( if (> ?a ?b) then (- (* ?a ?a) (* ?b ?b)) else (+ (* ?a ?a) (* ?b ?b)) ) ) )

Слайд 7

Описание слайда:

Выполнение функции f1

Слайд 8

Описание слайда:

Пример функции while Пусть требуется вычислить сумму:

Слайд 9

Описание слайда:

Пример использования функции while (deffunction summa(?a ?limit) (bind ?i 1) (bind ?s 0) (while (

Слайд 10

Описание слайда:

Пример выполнения функции summa

Слайд 11

Описание слайда:

Пример использования функции loop-for-count Пусть требуется выдать таблицу значений функцию f2 от 2 до 4 (10 значений):

Слайд 12

Описание слайда:

Определение функции f2 (deffunction f2(?x) (if (not (and (numberp ?x) (> ?x 0))) then (printout t "error in data" crlf ) else (* (+ (sqrt (** (log ?x) 3)) (tan (* (pi) ?x))) (abs (log (/ ?x 10.5))) ) ) )

Слайд 13

Описание слайда:

Пример выполнения функции f2

Слайд 14

Описание слайда:

Определение функции tabl (deffunction tabl(?a ?b) (bind ?i 0) (bind ?d (/ (- ?b ?a) 10)) (bind ?x ?a) (loop-for-count (?i 1 11) do (bind ?y (f2 ?x)) (printout t ?x " " (f2 ?x) crlf) (bind ?x (+ ?x ?d)) ) (printout t "the end" crlf) )

Слайд 15

Описание слайда:

Пример выполнения функции tabl

Слайд 16

Описание слайда:

Пример программы вычисления корней квадратного уравнения Квадратное уравнение задается коэффициентами a, d, c:

Слайд 17

Описание слайда:

Определение функции root (deffunction root(?a ?b ?c) (if (not (and ( ?a 0) (numberp ?a) (numberp ?b) (numberp ?c))) then (printout t "error in data" crlf ) else (bind ?d (- (** ?b 2) (* 4 ?a ?c))) (if (< ?d 0) then (printout t "it is'n real roots" crlf)

Слайд 18

Описание слайда:

Определение функции root else (if (= ?d 0) then (bind ?x (/ (- 0 ?b) (* 2 ?a))) (printout t ?x " is one root" crlf ) else (bind ?x1 (/ (+ (- 0 ?b) (sqrt ?d)) (* 2 ?a))) (bind ?x2 (/ (- (- 0 ?b) (sqrt ?d)) (* 2 ?a))) (printout t ?x1 " " ?x2 " are two roots" crlf ) ) ) ) )

Слайд 19

Описание слайда:

Пример выполнения функции root

Слайд 20

Описание слайда:

Пример программы вычисления корней уравнения методом деления пополам Задано произвольное уравнение.

Слайд 21

Описание слайда:

Слайд 22

Описание слайда:

Слайд 23

Описание слайда:

Слайд 24

Описание слайда:

Слайд 25

Описание слайда:

Слайд 26

Описание слайда:

Текст программы на языке Паскаль program Project2; {$APPTYPE CONSOLE} uses SysUtils; Type Tfunc = function(x: real):real; Var A,B,E,x: real; Fp: Tfunc; function F(xp: real): real; begin F:=1-exp(xp/3)/5+exp(-xp/2)*ln(xp+0.1); end;

Слайд 27

Описание слайда:

Текст программы на языке Паскаль function root(a,b,e: real; f: Tfunc): real; Var x: real; begin repeat x:=(a+b)/2; if f(x)*f(b)

Слайд 28

Описание слайда:

Текст программы на языке Паскаль begin Fp:=F; writeln('Input A,B,E:'); read(A,B,E); X:=root(A,B,E,Fp); writeln('root= ',x:8:6); writeln('y= ',fp(x):8:3); readln; readln; end.

Слайд 29

Описание слайда:

Выполнение программы на языке Паскаль

Слайд 30

Описание слайда:

Функция f на языке CLIPS по заданию на слайде 20 (deffunction f(?x) (+ (- 1 (/ (exp (/ ?x 3)) 5)) (* (sqrt (exp (- 0 ?x))) (log (+ ?x 0.1))) )

Слайд 31

Описание слайда:

Функция dih вычисления корня для уравнения на слайде 20 (deffunction dih(?a ?b ?eps) (if (not (and (numberp ?a) (numberp ?b) (numberp ?eps))) then (printout t "error in data" crlf ) else (bind ?x (/ (+ ?a ?b) 2)) (bind ?a1 ?a) (bind ?b1 ?b)