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.

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


 

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

27018. Аудиторские доказательства 13.93 KB
  Аудиторские доказательства Аудиторские доказательства это информация полученная аудитором при проведении проверки и результаты анализа указанной информации на которых основывается мнение аудитора. К аудиторским доказательствам относятся первичные документы и бухгалтерские записи являющиеся основой финансовой бухгалтерской отчетности а также письменные разъяснения уполномоченных сотрудников аудируемого лица и информация полученная из различных источников от третьих лиц. ОЦЕНКА Аудитор должен выбрать и выполнить уместные в рамках...
27019. Документальное оформление и учет поступления основных средств. Определение их первоначальной стоимости в зависимости от способа поступления 25.05 KB
  оформляют типовыми формами первичной учетной документации № формы Наименование формы ОС1 Акт о приемепередаче объекта ос кроме зданий сооружений ОС1а Акт о приемепередаче здания сооружения ОС1б Акт о приемепередаче групп объектов ос кроме зданий сооружений ОС2 Накладная на внутреннее перемещение объектов ос ОС3 Акт о приемесдаче отремх реконстрх модернизых объектов ос ОС4 Акт о списании объекта ос кроме автотранспортных средств ОС4а Акт о списании автотранспортных средств ОС4б Акт о списании групп объектов ос кроме...
27020. Метод экономического анализа, определение, характерные особенности 18.79 KB
  Метод экономического анализа определение характерные особенности Метод экономического анализа представляет собой способ подхода к изучению хозяйственных процессов в их плавном развитии. Характерными особенностями метода экономического анализа являются: использование системы показателей изучение причин факторов изменения этих показателей выявление и измерение взаимосвязи между ними в целях повышения эффективности. Характерными особенностями метода экономического анализа являются: определение системы...
27021. Нормативное регулирование бухгалтерской отчетности в РФ 16.38 KB
  После долгих дискуссий решено новые нормые акты по бухгму учету и бухгалтерской отчти называть не стандартами а ПБУ сохранив тем самым нацую особенть в решении методолх вопросов. Приведем перечень действующих российских ПБУ: 1. ПБУ 1 98 Учетная политика организации; 2. ПБУ 2 94 Учет договоров контрактов на капитальное строительство; 3.
27022. Предмет и объекты бухучета, их Классификация 18.33 KB
  Основным типом самостоятельно хозяйствующих субъектов являются предприятия организации ставящие целью получение прибыли от своей деятельности. Таким образом объектами бухгалтерского учёта являются имущество организации источники его формирования обязательства и хозяйственные операции осуществляемые в процессе финансовохозяйственной деятельности. Доходами организации признается увеличение экономических выгод в результате поступления активов денежных средств иного имущества и или погашения обязательств приводящее к увеличению...
27023. Синтетический учет поступления и выбытия целевых средств 16.06 KB
  предписывают учет поступления и расходования средств целевого финансирования на счете 86 Целевое финансирование. К сожалению приходится констатировать тот факт что действующая в области бухгалтерского учета законодательнонормативная база не включает в себя какоголибо отдельного правового акта содержащего четкое определение целевого финансирования и детальной методологии его бухгалтерского учета в некоммерческих организациях4. Таким образом в настоящее время некоммерческие организации могут вести бухгалтерский учет целевого...
27024. Содержание, задачи и источники информации анализа исполнения сметы расходов 13.26 KB
  Содержание задачи и источники информации анализа исполнения сметы расходов В бюджетных и научных учреждениях учет расходов и составление отчетности осуществляются в разрезе показателей сметы которые обобщены в двух основных статьях: текущие расходы и капитальные расходы. Содержанием анализа исполнения смет расходов является оценка эффективности использования выделенных учреждению материальных трудовых и финансовых ресурсов выявление отклонений фактических расходов от сметных назначений а также количественная оценка влияния факторов...
27025. Сравнительная характеристика аудита и ревизии 14.14 KB
  Сравнительная характеристика аудита и ревизии 1.Основная цель ревизии заключается в выявлении недостатков и нарушений для их устранения и наказания виновных. Акт ревизии представляет собой документ в котором излагаются выявленные недостатки и нарушения. Акт и другая информация передаются вышестоящим и другим контролирующим органам для принятия решений по результатам проведенной ревизии .
27026. Сравнительная характеристика финансового и управленческого учета 13.51 KB
  учете потребителями информации являются работники упр. В финансовом учете информация формируется и отражается в отчетности в целом по организации. учете информация формируется и составляется отчетность по центрам ответственности видам деятельности отдельным изделиям и другим позициям. В финансовом учете обязательно используются все элементы метода бухгалтерского учета документация и инвентаризация оценка и калькуляция счета и двойная запись бухгалтерский баланс и отчетность.