50209

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

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

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

Различать степени изменения лингвистической переменной в трех степенях – «Очень – Нормально – Слабо» Б. Изменять порог чувствительности. 1. Казанова – Генрих VIII – верный лебедь

Русский

2014-01-18

68 KB

3 чел.

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

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

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


 

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

46538. Договор поставки и его особенности 19.45 KB
  Договор поставки обычно включает следующие реквизиты: название документа; порядковый номер документа; дата заказа; название и адрес заказывающей компании; ответственность за заказ указывается контактная информация для выяснения поставщиком всех вопросов связанных с заказом МР; реквизиты поставщика МР; наименование товара; количество и качество товара; спецификация запрашиваемых МР; цена заказываемого товара; условия и срок поставки; условия платежа; характеристика тары и упаковки; порядок приемкисдачи; расчетные счета сторон договора. К...
46539. Методика организации уроков-бесед по изобразительному искусству 19.56 KB
  Ценность урокабеседы заключается в том что взрослый учит ребенка логически мыслить помогает думать. Для учителей и воспитателей важнее всего изучить детей в естественных условиях педагогического процесса; большим подспорьем для них является психологопедагогическая характеристика охватывающая все важнейшие стороны личности ребенка. Хотя данная форма в специальном образовании уже редко практикуется в массовых школах и дошкольных учреждениях она является одной из форм описания психологом учителем воспитателем индивидуального состояния...
46540. Методика освоения декоративной росписи 19.58 KB
  План: цель и задачи методики содержание обучения методике освоения дрметоды и приемы обучения средства обучения Усиление познав активности на уроках по ДР. Структура урока освоения декоративной росписи: орг. Для урока характерны специфические признаки: 1. Структура урока и методика его проведения зависят от дидактических целей и задач которые решаются в процессе обучения.
46541. Художественные способности, задатки и склонность к изо-деятельности. Закономерности проявления творческих способностей школьников на уроках ИЗО 19.6 KB
  Понятие непрерывного образования. Современная общеобразовательная школа как базовое звено непрерывного образования. Главный вопрос связанный с непрерывным образованием задется учеными поразному: образование на всю жизнь или образование через всю жизнь Одной из центральных идей должна стать идея перехода от школы знаний к школе культуры рассмотрение образования как части общей культуры и ее важного фактора и источника. Непрерывность будет обеспечена если при проектировании системы образования будут учтены и рассмотрены условия для...
46542. Система управления охраной труда (СУОТ) в РФ 19.65 KB
  Значение Ксп = А Б А 31 Где А общее количество работающих на момент проверки 1 раз в месяц в подразделении; Б количество работающих с нарушениями правил и инструкций ОТ. n; Тс количество требований БТ соответствующих требованиям стандартов по данному оборудованию или процессу; Тс общее количество требований БТ по данному оборудованию или процессу; n количество единиц оборудования или процессов на участке; Ктбу1 Ктбу2 Ктбуm коэффициент технической безопасности участков 1 2 . m по оборудованию или процессам; m ...
46543. Подходы и методы, используемые для определения рыночной стоимости застроенных земельных участков 19.69 KB
  Методические основы оценки рыночной стоимости земельных участков Рыночную стоимость имеют те земельные участки которые способны удовлетворять потребности пользователя потенциального пользователя в течение определенного времени принцип полезности. Методы оценки Оценщик при проведении оценки обязан использовать или обосновать отказ от использования затратный сравнительный и доходный подходы к оценке. Оценщик вправе самостоятельно определять в рамках каждого из подходов к оценке конкретные методы оценки.
46545. Методика организации уроков по рисованию с натуры 19.74 KB
  Методика организации уроков по рисованию с натуры. План : рисование с натуры в содержании программы по изо под ред Неменского задачи рисования с натуры структура урока рисования с натуры возрастные особенности организации уроков вывод. 1Рисование с натуры рисунок и живопись включает в себя также рисование по памяти и по представлению объектов действительностл карандашом а также акварельными и гуашевыми красками пером и кистью. Задачи: Рисование с натуры активизирует умственную деятельность это не созерцание а пониятие о предмете...
46546. Острая эмпиема плевры. Диагностика. Современные принципы лечения 19.74 KB
  Альвеококкоз печени. Альвеококкоз Альвеококкоз альвеолярный эхинококкоз печени тяжелое длительно протекающее заболевание которое вызывается ленточным гельминтом lveococcus multiloculris. Личинка альвеококка паразитирующая у человека представляет собой множество мелких заполненных жидкостью пузырьков не более 36 мм в диаметре окруженных фиброзной тканью Обычно среди полного здоровья обнаруживается очень плотная увеличенная печень или каменистая опухоль в области печени. Наиболее часто среди них встречается обтурационная желтуха...