50177

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

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

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

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

Русский

2014-01-17

67 KB

1 чел.

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

Лабораторная работа №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.

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


 

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

77906. Фінансово-економічні результати діяльності підприємства 18.87 KB
  Зміст і форми фінансової діяльності Доход прибуток та його розподіл рентабельність підприємства Оцінка та діагностика фінансового стану. Екон 1991 Мета нашої лекції ознайомитися і з`ясувати: Що таке фінансова діяльність підприємства; Що таке доход прибуток баланс підприємства і які показники розраховуються на підставі балансу. Для досягнення мети лекції нам необхідно вирішити ряд задач: З`ясувати з яких форм складається фінансова діяльність підприємства та які задачі вона виконує; В чому полягає різниця між доходом та...
77907. РИНОК І ПРОДУКЦІЯ 83.42 KB
  Планування господарської діяльності План Методи та види планування Бізнес план Маркетингова діяльність на підприємстві Методи та види планування Планування це розроблення і встановлення керівництвом підприємства системи кількісних і якісних показників його розвитку в яких визначаються темпи пропорції і тенденції розвитку підприємства як у поточному періоді так і на перспективу. Планування є центральною ланкою...
77908. Реструктуризація підприємства 31.52 KB
  Реструктуризація підприємства Сутність та форми реструктуризації підприємства та загальні передумови реструктуризації Реорганізація спрямована на укрупнення підприємств злиття придбання поглинання. Сутність та форми реструктуризації підприємства та загальні передумови реструктуризації Згідно з законом України Про відновлення платоспроможності боржника або визнання його банкрутом наводиться таке визначення: реструктуризація підприємства це здійснення організаційно господарських фінансово економічних правових технічних...
77909. УПРАВЛІННЯ ПІДПРИЄМСТВОМ 296.11 KB
  Механізм і функції управління підприємством. Організаційні структури управління підприємством. Механізм і функції управління підприємством Управління підприємством процес планування організації мотивації контролю йрегулювання дій персоналу постановки стра тегічних цілей і тактичних завдань підприємства ухваления управ лінськихрішень і забезпечення іх виконання.
77910. Персонал підприємства. Мотивація і оплата праці 27.18 KB
  Мотивація і оплата праці План Мотивація трудової діяльності. Політика оплати праці. Форми і системи оплати праці. Основні з них: Надання рівних можливостей щодо зайнятості та посадового просування за критерієм результатів праці; Узгодження рівня оплати праці за її результатами та визнання особистого внеску у загальний успіх.
77912. Фінансові кошти 72.5 KB
  Його розмір визначається статутом або угодою про заснування підприємства: він сворюється за рахунок державних коштів виручки від продажу акцій а також приватних апіталів. Найбільшим за величиною джерелом формування власних фінансових коштів діючого підприємства слугують доходи від його господарської та іншої діяльноті. Важним джерелом формування і підтримання на необхідному рівні власних фінансових коштів є аморт. Значення цьогоджерела фінансових коштів зростає при застосуванні прискореної амортизації.
77913. Нематеріальні ресурси та активи 183.5 KB
  Нематеріальні ресурси частина потенціалу підприємства здатна приносити економічну вигоду протягом тривалого часу для якої характерні відсутність матеріальної основи та невизначеність розмірів майбутніх прибутків від її використання. Нематеріальні ресурси обєкти інтелектуальної власності Винаходи Корисні моделі Промислові зразки Торговельні марки ізяаки для товарів і послуг Географічне позначення Комерційне фірмове найменування Сорти рослин Породи тварин Способи захисту від недобросовісної конкуренції...
77914. Фінансування і кредитування капітальних вкладень 22.79 KB
  Фінансування і кредитування капітальних вкладень Капітальні вкладення їх види і роль у розвитку матеріальнотехнічної бази виробництва. Джерела фінансування капітальних вкладень. Планування та порядок оформлення відкриття фінансування капітальних вкладень. Довгострокове кредитування капітальних вкладень.