50151

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

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

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

Согласно заданным вариантам разработать программу на любом алгоритмическом языке, способную: А. Различать степени изменения лингвистической переменной в трех степенях – «Очень – Нормально – Слабо» Б. Изменять порог чувствительности. Улитка без ноги – медленно – быстро (о скорости)

Русский

2014-01-16

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.

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


 

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

31642. Системная шина ISA 11.88 KB
  Эта системная шина отличалась наличием второго 36контактного дополнительного разъема для соответствующих плат расширения. Системная шина IS полностью включала в себя возможности старой 8разрядной шины. Шина IS позволяет синхронизировать работу процессора и шины с разными тактовыми частотами.
31643. Психологические особенности детей дошкольного возраста 55.5 KB
  Игра сюжетно – ролевая игра Наглядно – образное мышление Начало понятийного мышления Картина мира Произвольность поведения Самооценка Практическое овладение речью развитие функций речи Дошкольное детство большой отрезок жизни ребенка. Социальная ситуация развития Изменяется место ребенка в системе отношений уже не является центром своей семьи развивается способность к идентификации с людьми образами героев художественных произведений. Она оказывает значительное влияние на развитие ребенка. Но хотя жизнь в игре протекает в...
31644. Психологическая готовность ребёнка к обучению в школе. Проблемы адаптации первоклассника к школе 55.5 KB
  Психологическая готовность ребёнка к обучению в школе. Проблемы адаптации первоклассника к школе. Тема готовности ребенка к школе в отечественной психологии своими корнями уходит в труды Л.Эльконина готовность ребенка к обучению в школе определяет социальная зрелость.
31645. Психологические особенности детей младшего школьного возраста 54.5 KB
  Отчетливо виден социальный смысл учения отношение маленьких школьников к отметкам. Учебные действия школьников с помощью которых можно решить задачу. Самоконтроль Оценка Самооценка Особенности познавательного развития младших школьников. Внимание школьников зависит от: организации активной умственной деятельности.
31646. Мышление и воображение. Их роль в образовательном процессе 23.5 KB
  Виды воображения: по Немову Активное – человек по собственнуму желанию усилием воли вызывает соответствующие образы; Пассивное – образы возникают спонтанно помимо воли и желания человека; Продуктивное – дейчтвительность сознательно конструируется человеком а не просто механически копируется или воссоздается; Репродуктивное – ставится задача воспроизвести реальность в том виде какова она есть такое воображение больше напоминает память чем творчество. Фантазия это определенное чувство желания чегото конкретного ради чего...
31647. Память и внимание. Особенности формирования памяти и внимания в образовательном процессе 33.5 KB
  Особенности формирования памяти и внимания в образовательном процессе. Виды внимания: непроизвольное – оно может возникнуть по мимо желаний человека в силу какихто обстоятельств; произвольное – вызывается силою воли желанием самого человека ответственность интерес; послепроизвольное – возникает в силу появления устойчивого интереса к объекту является самым продуктивным и эффективным. Особенности внимания свойства: объем внимания определяется количеством объектов которые могут быть замечены человеком за короткий промежуток...
31648. Педагогическое общение: компоненты, функции, стили, модели и барьеры 62 KB
  Педагогическое общение: компоненты функции стили модели и барьеры Проблематика общения занимает значительное место в общей психологии и психологии личности. Главным средством общения является речь. Стороны общения: Коммуникативная сторона общения это передача информации. Особую роль для каждого участника общения играет значимость информации при условии что информация не только принята но и понята осмыслена.
31649. Эмоции и чувства. Психическое состояние. Эмоциональное нарушение в младшем школьном возрасте 23 KB
  Психическое состояние. Формы переживания чувств эмоциональное состояние: Наиболее растпространенным явл. Стресс – эмоциональное состояние которое возникает в неожиданных обстоятельствах. Аффект – это очень сильно выраженное кратковременное эиоциональное состояние.
31650. Свойства личности младшего школьника 47 KB
  У каждого человека преобладают черты какого-то одного темперамента в сочетании темперамента другого. Характер – индивидуально-психологические особенности личности которые выражают отношение человека к действительности и проявляются в устойчивых формах поведения человека. Основанием для классификации характера может служить отношение человека к окружающему миру другим людям самому себе. По данному признаку можно делить основные черты характера на следующие группы: Черты характера проявляющиеся в отношении человека к другим людям:...