50186

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

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

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

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

Русский

2014-01-17

67.5 KB

9 чел.

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

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

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


 

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

81974. В здоровом теле – здоровый дух 2.14 MB
  Цель мероприятия: способствовать гармоничному развитию учащихся через использование спортивных и интеллектуальных упражнений. Задачи мероприятия: Развитие интереса к занятиям физической культурой и спортом у уч-ся 3-4 кл. Пропаганда здорового образа жизни.
81975. Позааудиторна робота з іноземної мови 636.5 KB
  Позааудиторна робота з іноземної мови є невід’ємною часткою всього навчально – виховного процесу. Вона поглиблює соціокультурні знання студентів за рахунок охоплення великого кола проблем і питань, що виходять за межі навчальної програми та не розглядаються на занятті.
81976. РАЗРАБОТКА СИСТЕМЫ ПОДДЕРЖКИ ПРОЦЕССА ПЛАНИРОВАНИЯ УЧЕБНЫХ КУРСОВ НА ОСНОВЕ ТЕХНОЛОГИИ SEMANTIC WEB 849.5 KB
  Разработка эволюционного прототипа системы для поддержки процесса планирования учебных курсов. Подход к разработке, основанный на технологиях семантической паутины, экспериментальный на ЭВМ.
81977. Дитина вдома. Побутові небезпеки 48.5 KB
  Мета: ознайомити учнів із правилами небезпечної поведінки вдома; формувати вміння і навички що допоможуть уникнути побутових небезпек за відсутності батьків; спонукати учнів до виконання правил поведінки вдома; виховувати в дітей обережність.
81979. Великі українці. Маленькі історії про великі істини 94 KB
  Історико-пізнавальний проект передбачав підготовку учнів 5-8 класів на протязі двох місяців. Діти готували матеріал про одного або двох із запропонованих їм творчою групою (до якої входили вчителі та учні) представників із числа Великих українців (до їх числа входили українці обрані самими дітьми).
81980. Велетні чарівники 95.5 KB
  Формувати науковий світогляд та початкове уявлення про астрономію; дати елементарне уявлення про Всесвіт закріпити знання про воду та її значення розширити знання про повітря; розвивати пізнавальні інтереси вміння бачити красу і захоплюватися нею.
81981. ТО СВІТЛИЙ ВЕЛИКДЕНЬ ГОСПОДНІЙ ДИТЯЧИЙ ЗВЕЛИЧУЄ СПІВ 74 KB
  У нашого українського народу існує повір’я, що від тих батьків, які не дотримуються звичаїв, родяться діти, що стають вовкулаками. Вовкулака – це завжди похмурий, завжди чимось незадоволений чоловік; в день святого Юрія він перекидається вовком, бігає разом з іншими звірами по лісі...
81982. Великодні свята в Україні 891 KB
  Практична: розвивати комунікативні навички учнів у учнів; формувати вміння підтримувати бесіду використовуючи лексику з даної теми; розвивати культуру спілкування; вчити учнів виконувати проектпрезенту вати результати проектних досліджень; розвивати навички групової роботикри тичного...