🗊Презентация Процедурные функции на языке 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 Примеры функций
Описание слайда:
Процедурные функции на языке CLIPS Примеры функций

Слайд 2


Процедурные функции
Описание слайда:
Процедурные функции

Слайд 3


Процедурные функции
Описание слайда:
Процедурные функции

Слайд 4


Процедурные функции
Описание слайда:
Процедурные функции

Слайд 5


Пример использования функции if-then -else Пусть требуется вычислить функцию f1 в зависимости от условия.
Описание слайда:
Пример использования функции 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)) ) ) )
Описание слайда:
Определение функции 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
Описание слайда:
Выполнение функции f1

Слайд 8


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

Слайд 9


Пример использования функции while (deffunction summa(?a ?limit) (bind ?i 1) (bind ?s 0) (while (<= ?i ?limit ) do (bind ?s (+ ?s (* ?a ?i))) (bind ?i (+ ?i 1)) ) (printout t "s = " ?s crlf) )
Описание слайда:
Пример использования функции while (deffunction summa(?a ?limit) (bind ?i 1) (bind ?s 0) (while (<= ?i ?limit ) do (bind ?s (+ ?s (* ?a ?i))) (bind ?i (+ ?i 1)) ) (printout t "s = " ?s crlf) )

Слайд 10


Пример выполнения функции summa
Описание слайда:
Пример выполнения функции summa

Слайд 11


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

Слайд 16


Пример программы вычисления корней квадратного уравнения Квадратное уравнение задается коэффициентами a, d, c:
Описание слайда:
Пример программы вычисления корней квадратного уравнения Квадратное уравнение задается коэффициентами 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)
Описание слайда:
Определение функции 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 ) ) ) ) )
Описание слайда:
Определение функции 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
Описание слайда:
Пример выполнения функции root

Слайд 20


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

Слайд 21


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

Слайд 22


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

Слайд 23


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

Слайд 24


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

Слайд 25


Процедурные функции на языке CLIPS, слайд №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;
Описание слайда:
Текст программы на языке Паскаль 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)<=0 then a:=x else b:=x until abs(b-a)<e; root:=(a+b)/2; end;
Описание слайда:
Текст программы на языке Паскаль function root(a,b,e: real; f: Tfunc): real; Var x: real; begin repeat x:=(a+b)/2; if f(x)*f(b)<=0 then a:=x else b:=x until abs(b-a)<e; root:=(a+b)/2; end;

Слайд 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.
Описание слайда:
Текст программы на языке Паскаль 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))) )
Описание слайда:
Функция 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)
Описание слайда:
Функция 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)

Слайд 32


Функция dih вычисления корня (while (> (abs (- ?b1 ?a1)) ?eps) do (if (<= (* (f ?x) (f ?b)) 0) then (bind ?a1 ?x) else (bind ?b1 ?x) ) (bind ?x (/ (+ ?a1 ?b1) 2)) ) (printout t "x = " ?x " f(x)= " (f ?x) crlf) ) )
Описание слайда:
Функция dih вычисления корня (while (> (abs (- ?b1 ?a1)) ?eps) do (if (<= (* (f ?x) (f ?b)) 0) then (bind ?a1 ?x) else (bind ?b1 ?x) ) (bind ?x (/ (+ ?a1 ?b1) 2)) ) (printout t "x = " ?x " f(x)= " (f ?x) crlf) ) )

Слайд 33


Пример выполнения функции f
Описание слайда:
Пример выполнения функции f

Слайд 34


Пример выполнения функции dih
Описание слайда:
Пример выполнения функции dih

Скачать

Похожие презентации
Mypresentation.ru
Загрузить презентацию