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.

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


 

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

32846. Проблема жизни, смерти и бессмертия в духовном опыте человечества. Проблема смысла жизни 15.34 KB
  Проблема жизни смерти и бессмертия в духовном опыте человечества. Проблема смысла жизни. Поэтому проблема жизни и смерти занимает важнейшее место в общественном сознании прежде всего в философии и религии. Для ранней античной философии характерен космоцентричный подход к пониманию проблемы жизни и смерти.
32847. Общество как материальная система 15.36 KB
  Общество это обособившаяся от природы часть материального мира высокоорганизованная материальная система подчиняющаяся всеобщим законам и в то же время имеющаяся специфические особенности функционирования и развития. Как и любое материальное образование общество обладает целым рядом неотъемлемых свойств: объективность системность и структурность движение пространство время отражение самоорганизация. Общество возникает и существует объективно т. Общество представляет собой открытую развивающуюся систему.
32848. Материально-производственная сфера общественное жизни.Диалектика производительных сил и производственных отношений 12.99 KB
  Материальное производство характеризуется определенным способом производства который представляет собой единство двух сторон: производительных сил и производственных отношений. Производственные отношения включают в себя отношения собственности на средства производства а также отношения по поводу распределения и обмена продукта материального производства. В этом проявляется диалектика экономических потребностей производства и потребления.; способ производства и соответствующие ему отношения собственности определяют появление и развитие...
32849. Социальная сфера общественной жизни. Социальная структура общества. Виды социальных общностей 13.65 KB
  Социальная структура общества. Сфера общества это социальное пространство которое фиксирует границы того или иного вида общественной деятельности. Социальная сфера это исторически сложившаяся относительно устойчивая система связей между различными элементами общества: отдельными индивидами социальными группами и социальными общностями. В социальной сфере реализуются интересы классов и слоев общества социальных общностей и групп отношения общества и личности здесь создаются и совершенствуются условия труда быта и досуга.
32850. Политическая сфера общественной жизни. Структура и соц функции. Государство,как основной политический институт 12.55 KB
  Общество как система состоит из нескольких подсистем или сфер основными из которых являются экономическая социальная политическая духовная и экологическая. Политическая сфера область общественной жизни включающая в себя политические отношения данного общества. и международные; политическая деятельность; политическое сознание политическая идеология и политическая психология.
32851. Экологическая сфера. Роль мед работников 11.81 KB
  Общество как система состоит из нескольких подсистем или сфер основными из которых являются экономическая социальная политическая духовная и экологическая. Экологическая сфера общества сформировалась во 2й половине ХХ в. Экологическая сфера подсистема общества формирующаяся на основе специализированной деятельности по охране воспроизводству улучшению и приумножению природных факторов человеческого бытия. Экологическая деятельность.
32852. Духовная сфера общ6ества. Основные формы и уровни. Общественная психология и идеология,их диалектическая взаимосвязь 14.08 KB
  Специфика идеологии проявляется в том что она возникает на основе существующих в обществе экономических отношений и отражает действительность через призму этих отношений. В классовом обществе экономические отношения выступают в форме классовых интересов поэтому специфику идеологии можно конкретнее представить как отражение действительности через призму интересов определенных классов как систему идей и взглядов классов. В классовом обществе нет и не может быть надклассовой или внеклассовой идеологии. Общественно историческая практика...
32853. Религия, как форма общественного сознания 16.61 KB
  1Мораль 2Религия 3Искусство4Наука 5Философия 6Политическое сознание 7Право 8Экологическое сознание Религия представления о мире основанные на вере в сверхъестественное и отражающие мир в иллюзорной форме. Религия как ФОС проявляется в религиозной психологии основанной на эмоциях и религиозной идеологии учении о Боге и его отношении к миру. Религия существует много веков повидимому также долго как существует человечество.
32854. Мораль, особенности медицинской этики 13.15 KB
  Особенности медицинской этики. Одним из важнейших разделов медицинской этики является деонтология наука о профессиональном долге врача. в связи с развитием новых медицинских технологий появилась необходимость пересмотра многих принципов медицинской этики. Сформировалась новая наука биоэтика этика живого дисциплина определяющая меру ответственности тех кто принимает решение о выборе метода лечения и о применении в медицинской практике новых научных знаний и медицинский технологий.