50163

Нечеткая логика

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

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

Блондинка -– рыжая - брюнетка unit Unit1; interfce uses Windows Messges SysUtils Vrints Clsses Grphics Controls Forms Dilogs ComCtrls StdCtrlsmth TeEngine Series ExtCtrls TeeProcs Chrt; type TForm1 = clssTForm Chrt1: TChrt; Series1: TLineSeries; Series2: TLineSeries; Series3: TLineSeries; Series4: TBrSeries; TrckBr1: TTrckBr; Lbel1: TLbel; Lbel5: TLbel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Lbel6: TLbel; Lbel2: TLbel; Lbel3:...

Русский

2014-01-17

67.5 KB

2 чел.

Системы искусственного интеллекта

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

Нечеткая логика

Цель работы: создание простейшей системы нечеткой логики, реализованной на языке высокого уровня.

Задание

Согласно заданным вариантам разработать программу на любом алгоритмическом языке, способную:

А. Различать степени изменения лингвистической переменной в трех степенях – «Очень – Нормально – Слабо»

Б. Изменять порог чувствительности.

  1.  Блондинка – рыжая – брюнетка

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, ComCtrls, StdCtrls,math, TeEngine, Series, ExtCtrls, TeeProcs,

 Chart;

type

 TForm1 = class(TForm)

   Chart1: TChart;

   Series1: TLineSeries;

   Series2: TLineSeries;

   Series3: TLineSeries;

   Series4: TBarSeries;

   TrackBar1: TTrackBar;

   Label1: TLabel;

   Label5: TLabel;

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   Label6: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   Label7: TLabel;

   TrackBar2: TTrackBar;

   procedure TrackBar1Change(Sender: TObject);

   procedure TrackBar2Change(Sender: TObject);

   procedure FormCreate(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

 acc:integer;

implementation

{$R *.dfm}

procedure TForm1.TrackBar1Change(Sender: TObject);

var a,b,c,aq:double;

   i:integer;

begin

 label2.Caption:='';

 label3.Caption:='';

 label4.Caption:='';

 label1.Caption:=inttostr(trackbar1.position);

 a:=(1/(1+power(((trackbar1.Position-10+acc)/12),22)));

 b:=(1/(1+power(((trackbar1.Position-35+acc)/12),8)));

 c:=(1/(1+power(((trackbar1.Position-60+acc)/12),12)));

 if a<0.2 then label2.Caption:='Совсем не '+edit1.Text;

 if (a<0.4) and (a>0.2) then label2.Caption:='Чуть-чуть не '+edit1.Text;

 if (a<0.6) and (a>0.4) then label2.Caption:='Немного '+edit1.Text;

 if (a<0.8) and (a>0.6) then label2.Caption:='Весьма '+edit1.Text;

 if (a<1) and (a>0.8) then label2.Caption:='Абсолютно '+edit1.Text;

 if b<0.2 then label3.Caption:='Совсем не '+edit2.Text;

 if (b<0.4) and (b>0.2) then label3.Caption:='Чуть-чуть не '+edit2.Text;

 if (b<0.6) and (b>0.4) then label3.Caption:='Немного '+edit2.Text;

 if (b<0.8) and (b>0.6) then label3.Caption:='Весьма '+edit2.Text;

 if (b<1) and (b>0.8) then label3.Caption:='Абсолютно '+edit2.Text;

 if c<0.2 then label4.Caption:='Совсем не '+edit3.Text;

 if (c<0.4) and (c>0.2) then label4.Caption:='Чуть-чуть не '+edit3.Text;

 if (c<0.6) and (c>0.4) then label4.Caption:='Немного '+edit3.Text;

 if (c<0.8) and (c>0.6) then label4.Caption:='Весьма '+edit3.Text;

 if (c<1) and (c>0.8) then label4.Caption:='Абсолютно '+edit3.Text;

 aq:=a+b+c;

 label2.Caption:=label2.Caption+' '+inttostr(round(a/aq*100))+'%'+edit1.Text;

 label3.Caption:=label3.Caption+' '+inttostr(round(b/aq*100))+'%'+edit2.Text;

 label4.Caption:=label4.Caption+' '+inttostr(round(c/aq*100))+'%'+edit3.Text;

 series4.Clear;

 for i:=1 to 100 do if i<>trackbar1.Position then

   series4.Add(0) else series4.Add(1);

end;

procedure TForm1.TrackBar2Change(Sender: TObject);

var a,b,c:double;

   i:integer;

begin

 acc:=trackbar2.Position;

 series1.Clear;

 series2.Clear;

 series3.Clear;

 series4.Clear;

 for i:=1 to 100 do begin

   a:=(1/(1+power(((i-10+acc)/12),22)));

   series1.Add(a);

   b:=(1/(1+power(((i-35+acc)/12),8)));

   series2.Add(b);

   c:=(1/(1+power(((i-60+acc)/12),12)));

   series3.Add(c);

 end;

end;

procedure TForm1.FormCreate(Sender: TObject);

var a,b,c:double;

   i:integer;

begin

 acc:=0;

 series1.Clear;

 series2.Clear;

 series3.Clear;

 series4.Clear;

 for i:=1 to 100 do begin

   a:=(1/(1+power(((i-10+acc)/12),22)));

   series1.Add(a);

   b:=(1/(1+power(((i-35+acc)/12),8)));

   series2.Add(b);

   c:=(1/(1+power(((i-60+acc)/12),12)));

   series3.Add(c);

 end;

end;

end.

Вывод: научились создавать простейшую системы нечеткой логики, реализованной на языке высокого уровня.


 

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

29737. Методика професійного навчання як галузь педагогіки 19.24 KB
  Об'єктом дослідження методики професійного навчання є освітній процес у професійному навчальному закладі предметом закономірності освітньої діяльності педагога з управління процесом оволодіння знаннями вміннями і навичками навчаються в тійчи іншій галузі професійної діяльності. Завдання методики професійного навчання полягають у тому щоб на основі: вивчення явищ навчання даної навчальної дисципліни розкривати між ними закономірності і зв'язку; пізнаних закономірностей встановлювати нормативні вимоги до навчальної діяльності...
29738. Методика використання наочності на виробничому навчання 18.31 KB
  У сучасній дидактиці поняття наочності охоплює різні види сприймання (зоровий, слуховий, дотиковий). Жодне наочне приладдя не має абсолютних переваг перед іншими. У профтехучилищах застосовуються різні види демонстрацій, які можна поділити на три основні групи
29739. Інноваційні методи навчання та викладання 19 KB
  Педагогічна інновація - процес створення, поширення й використання нових засобів (нововведень) для розвязання тих педагогічних проблем, які до цього розвязувались по-іншому. Індивідуалізоване навчання є методом викладання
29740. Характеристика форм та методів індивідуальної роботи з учнями 18.19 KB
  Організаційне вміння викладача ПТНЗ Організаційні здібності це вміння педагога оптимальним чином здійснити часову організацію роботи. Організація роботи залежить від того як добре викладач володіє матеріалом і чи зможе він правильно розрахувати час потрібний на його засвоєння. Обмеженість у кількості годин вимагає раціонального підходу до планування занять самостійної роботи учнів і перевірки її результатів.
29741. Виховні завдання майстра виробничого навчання 18.69 KB
  Важливе виховне значення має їхня участь на заключній стадії навчання. Сутність та характеристика проблемного методу навчання Під проблемним навчанням розуміється сукупність дій які спрямовані на створення проблемної ситуації формування цієї проблеми її осмислення і вирішення. В основі проблемного методу навчання ідея про спосіб розвитку свідомості людини через розв'язування пізнавальних проблем що містять суперечності.
29742. Видозміни уроків виробничого навчання 15.97 KB
  Існують такі типи уроків виробничого навчання: урок формування початкових умінь і виконувати виробничі прийоми і операції; урок удосконалення умінь і формування навичок; урок комплекних робіт; урок виконання контрольнопровірочних робіт; урокспостереження за діяльністю передовиків і новаторів виробництва. Види уроків з виробничого навчання : Урокконкурс професійної майстерності Урокзалік Урокпрактикум самостійна робота учнів Семінар виробничого навчання Виробнича конференція Виробнича екскурсія Урок інструктування...
29743. Урок та його характеристика, методичні підструктури уроку 20.42 KB
  Для уроку як форми навчальної роботи властиві такі ознаки: Має строго позначені рамки навчального часу; На уроці як правило присутня постійний склад учнів приблизно одного віку і рівня підготовленості до навчальної роботи; Кожен урок відводиться на вивчення одного предмета; Урок має дидактичну структуру; Урок будується виходячи з цілей і завдань навчання і розвитку закономірностей і принципів навчального процесу; Творцем організатором і керівником уроку є вчитель педагог; Урок у своїй основі спрямований на навчання...
29744. Методика складання навчальної робочої програми з навчальної дисципліни 19.3 KB
  selfinstruction спрямована індивідуумом діяльність на самостійне одержання знань і або досвіду. Самонавчання самостійне утворення придбання систематичних знань у якійнебудь галузі науки техніки культури політичного життя і т. Сформованість у студентів навчальних мотивів образу мети та способів її досягнення знань і Основні структурні елементи уроку та їх характеристика. Забезпечення мотивації і прийняття учнями мети навчальнопізнавальної діяльності актуалізація опорних знань і умінь.
29745. Методика складання плану навчального заняття 16.97 KB
  В першу чергу при складані плану визначається тема і мета заняття обладнання уроку – це книжки плакати схеми тощо; визначення типу уроку комбіновані змішані уроки; урок засвоєння нових знань; урок формування навичок і вмінь; урок узагальнення і систематизації знань; урок практичного застосування знань навичок і умінь; урок контролю і корекції знань навичок і вмінь; методи проведення урокунайбільш поширені словесні методи: розповідь бесіда лекція пояснення; між предметні зв’язки встановити чи є зв’язки з іншими дисциплінами;...