50186

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

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

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

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

Русский

2014-01-17

67.5 KB

6 чел.

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

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

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


 

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

30224. Изготовление модели повседневного платья 120 KB
  Формы костюма всегда развиваются параллельно с развитием общего стиля в искусстве и архитектуре определённой исторической эпохи, переживая вместе с ним все этапы эволюции. Современная мода допускает некоторые вольности в нашем костюме, подталкивает нас к тому, чтобы раскрепоститься, дать волю своему воображению и поэкспериментировать.
30225. Электроснабжение цеха каустизации и регенерации извести филиала ООО «Илимтехносервис» 2.04 MB
  Описание технологического процесса каустизации щелока Зеленый щелок из растворителя плава котельного цеха № 2 ТЭС с температурой не менее 85 ОС массовой концентрацией общей щелочи 112122 г дм3 в единицах Na2O сульфидностью не менее 28 подается в однокамерный осветлитель зеленого щелока № 5 № 6 поз. Осветленный зеленый щелок из осветлителя сливается в бак хранения зеленого щелока поз. 306140 откуда центробежными насосами поз. S72; S73 S74; S75 подается на гасители классификаторы поз.
30226. Технология приготовления и правила подачи салатов из варёных овощей 136 KB
  Классификация мяса Мясо классифицируют по виду убойных животных по полу возрасту по термическому состоянию упитанности и сортам . По качеству его делят на высший 1 2 3й сорта. В зависимости от сорта цвет пшена светлоили яркожелтый консистенция от мучнистой до стекловидной. Ядрицу обыкновенную и быстроразвариваюшуюся делят по качеству на 1 2 3й сорта.
30227. Информатизация общества: социальные условия, предпосылки и последствия 46 KB
  Социальные условия информатизации это реальная обстановка в которой происходит процесс информатизации. Социальные последствия информатизации реальные и прогнозируемые изменения в обществе происходящие под влиянием информатизации. Рассмотрение в этом смысле условий и предпосылок информатизации это анализ реального и необходимого состояния всех сфер жизни общества с точки зрения их готовности воспринять и развивать информатизацию; “социальное†в узком смысле слова.
30228. Формирование информационной среды общества 33 KB
  Формирование информационной среды общества Современное общество не может существовать в условиях сенсорного голода для его развития и саморганизации совершенно необходимо всеобъемлющее информационное поле. Например 1012 это требующий кардинальных решений порог уровня безработицы в обществе 14 это коэффициент характеризующий катастрофическое соотношение доходов 10 самых богатых и 10 самых бедных членов общества. Наиболее важным понятием которое необходимо определить при изучении информационной среды общества является понятие...
30229. Информационный образ жизни: общество и личность в условиях информатизации 37.5 KB
  Проблемы адаптации людей с ограниченными физическими возможностями в современной информационной среде. Например: во многих странах мира для слепых и слабовидящих людей широко применяются специальные синтезаторы позволяющие осуществлять голосовой ввод информации; практически полностью потерявшие подвижность могут осуществляють работу на компьютере ввод информации движением глаз при помощи специальных шлемов. В России создана специальная программа по компьютерной технике адаптированной для лиц имеющих различные физические отклонения...
30230. Постиндустриальное, информационное общество: социальная структура и специфика трудовой деятельности 22 KB
  Однако следует отметить что проблема “атомизации†общества обсуждается сегодня учеными все шире [1]. Поскольку получение информации о происходящем в стране и в мире уже не требует прямого общения между людьми человек может все больше и больше изолироваться от общества подвергаться иллюзии независимости от него. Американские исследователи отмечают что “конвергенция меняющихся общественных и личных ценностей с новой техникой и энергоэкономическими нуждами делает становление мозаичного общества по существу неизбежнымâ€[2]. Проблема...
30231. Социальная информатика: предмет и задачи курса 29 KB
  Одним из критериев перехода общества к постиндустриальной и далее к информационной стадии развития может служить процент населения занятого в сфере услуг: если в обществе более 50 населения занято в сфере услуг наступила постиндустриальная фаза его развития; если в обществе более 50 населения занято в сфере информационных услуг общество стало информационным. Концепция постиндустриального общества как общесоциологическая теория развития достаточно глубоко разработана западными исследователями: Д. Понятие...
30232. Семантические основы социальной информатики 56 KB
  Нередко в этих теоретических построениях термин информация наполнен разным смыслом а следовательно сами теории высвечивают лишь часть граней некоторой системы знаний которую можно назвать общей теорией информации или информологией наукой о процессах и задачах передачи распределения обработки и преобразования информации. Формализация знаний: методы и приемы. При поиске наиболее удобных рациональных средств и форм информационного обмена человек чаще всего сталкивается с проблемой компактного и...