50209

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

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

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

Различать степени изменения лингвистической переменной в трех степенях – «Очень – Нормально – Слабо» Б. Изменять порог чувствительности. 1. Казанова – Генрих VIII – верный лебедь

Русский

2014-01-18

68 KB

2 чел.

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

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

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

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

Задание

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

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

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

1. Казанова – Генрих VIII – верный лебедь

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.

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


 

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

68273. СУБСТАНТИВНІ КОМПОЗИТИ ЗІ ЗНАЧЕННЯМ ПРОЦЕСУАЛЬНОСТІ В РОСІЙСЬКІЙ МОВІ 190.5 KB
  Мета дослідження полягає в системному описі формальної та ономасіологічної структури іменниківкомпозитів зі значенням процесуальності в російській мові. Для досягнення зазначеної мети необхідним є вирішення наступних завдань: визначити можливі структурні типи композитопобудови іменників...
68274. ФІНАНСОВО-ПРАВОВЕ РЕГУЛЮВАННЯ РИНКУ ЦІННИХ ПАПЕРІВ В УКРАЇНІ 186 KB
  Ринок цінних паперів будучи важливим і специфічним елементом фінансового ринку здійснює вагомий вплив на економічний розвиток країни. На цьому ринку держава органи місцевого самоврядування субєкти господарювання мають можливість акумулювати фінансові ресурси за допомогою цінних...
68275. ТВОРЧІСТЬ Я. П. ДЕ БАЛЬМЕНА ТА РОСІЙСЬКА РОМАНТИЧНА ПРОЗА ПЕРШОЇ ПОЛОВИНИ XIX СТОЛІТТЯ 143 KB
  Мета роботи – проаналізувати із сучасних наукових засад літературну спадщину Я. П. де Бальмена та визначити її ідейно-художню значущість. Досягнення цієї мети зумовило необхідність розв’язання таких завдань: узагальнити окремі біографічні відомості про Я. П. де Бальмена й систематизувати інформацію...
68276. ЕВОЛЮЦІЯ СВІТОГЛЯДУ ЛЮДИНИ: СОЦІАЛЬНО–ФІЛОСОФСЬКИЙ АНАЛІЗ 156 KB
  Аналіз еволюції світоглядних орієнтацій засвідчує мінливість рухливість змінюваність світогляду людини виявляє його сумарний вектор у різні соціокультурні епохи допомагає зясувати тенденції розвитку сучасного світоглядного комплексу і запропонувати механізм його формування.
68277. ГРА ЯК ЗАСІБ РОЗВИТКУ ПІЗНАВАЛЬНОЇ ДІЯЛЬНОСТІ У СЛАБОЗОРИХ ДІТЕЙ 144.5 KB
  У Національній доктрині розвитку освіти в Україні у XXI столітті наголошується на необхідності посилення уваги на освіті дітей з відхиленнями психофізичного розвитку забезпечення їхнього повноцінного життя соціального захисту створення умов для належної реабілітації.
68278. УПРАВЛІННЯ ЕКОНОМІЧНИМ ПОТЕНЦІАЛОМ ПІДПРИЄМСТВ ЗАЛІЗНИЧНОГО ТРАНСПОРТНОГО МАШИНОБУДУВАННЯ 719 KB
  Стабілізація вітчизняної економіки та поступове збільшення економічного потенціалу держави безпосередньо пов’язані зі стабільним розвитком промисловості. Недосконала законодавча база, непропорційна система оподаткування, нерозвинена виробнича інфраструктура ззовні, а також неефективне...
68279. Методи та ярусно-паралельні моделі прискореної обробки напівтонових зображень 517 KB
  Метою дисертаційної роботи є розробка моделей і методів інтелектуальної прискореної обробки напівтонових зображень які здатні аналізувати інформацію про розмір зображення та завантаженість потоків для рівномірного адаптивного розподілення завдань по потоках.
68280. Формування та механізми функціонування партійної системи Європейського Союзу 185 KB
  Прямим наслідком цього є поява та функціонування наднаціональної політичної системи Європейського Союзу ЄС яка тісно повязана з національними політичними системи основним джерелом її легітимності. Політичні партії є одними з важливих елементів політичної системи демократичного суспільства...
68281. ЕВОЛЮЦІЯ ПОЛІТИКИ ТАЙВАНЮ ЩОДО КНР 151.5 KB
  Зростання економічної й політичної могутності Китайської Народної Республіки КНР безперечно є однією з найважливіших ознак сучасних міжнародних відносин. Феномен зростання Китаю зокрема спричинює зміни в політиці Тайваню щодо КНР адже для Китайської Республіки КР на Тайвані політика щодо зростаючого...