Применение технических средств искусственного интеллекта в измерениях — страница 5

  • Просмотров 1834
  • Скачиваний 242
  • Размер файла 559
    Кб

усиливаются, что объясняет феномен обучения путем повторения и привыкания. 4 Пример применения искусственного интеллекта в измерениях. В качестве примера приведем программу на PROLOG. В программе для простоты были использованы 3 прибора: вольтметр, амперметр, фазометр. Каждый прибор имеет разный класс точности и диапазон измерений. На основе этих данных были составлены различные запросы, на которые программа выводит ответ. Ответ

состоит из пояснения и названия прибора. К-класс точности прибора, D1 - начальное значение диапазона, D2 - конечное значение диапазона, E - единица измерения. DOMAINS K-integer D1-integer D2-integer E-char PREDICATES Poisk(E). Run. Izmer(string,E,D1,D2,K). CLAUSES Izmer(voltmetr1,’v’,0,100,0.1). Izmer(voltmetr2,’v’,0,10,1). Izmer(voltmetr3,’v’,0,50,0.5). Izmer(voltmetr4,’v’,0,1000,0.2). Izmer(ampermetr1,’a’,0,10,0.2). Izmer(ampermetr2,’a’,0,5,1). Izmer(ampermetr3,’a’,0,20,0.5). Izmer(ampermetr4,’a’,0,3,0.1). Izmer(fazometr1,’f’,0,180,0.5). Izmer(fazometr2,’f’,0,90,0.1). Izmer(fazometr3,’f’,-180,180,0.5).

Izmer(fazometr4,’f’,0,180,1). Run:-write(“0-выход ”),nl, Write(“1-Каким вольтметром можно измерить напряжение 110 вольт?”),nl, Write(“2-Какие вольтметры имеют класс точности больше 0,3?”),nl, Write(“3-Вывод амперметров, которые имеют диапазон измерений от 0 до 3 А”),nl, Write(“4-Вывод амперметров, которыми можно измерить 2 ампера”),nl, Write(“5-Вывести на экран все фазометры, которые измеряют от 0 до 180”),nl, Write(“Введите запрос: ”),readint(X), Poisk(X),run. Poisk(0):-exit. Poisk(1):-Izmer(A,B,C,D,E),

B=v,C=0,D>=110,E>0, Write(“Напряжение 110 вольт может измерить-“,A),nl,fail. Poisk(1). Poisk(2):- Izmer(A,B,C,D,E), B=v,C=0,D>1,E>0.3, Write(“Класс точности более 0,3 имеют следующие вольтметры:”,A),nl,fail. Poisk(2). Poisk(3):- Izmer(A,B,C,D,E), B=a,C>=0,D<=3,E>0, Write(“Амперметры имеющие диапазон от 0 до 3А:”,A),nl,fail. Poisk(3) Poisk(4):- Izmer(A,B,C,D,E), B=a,C>=0,D>=3,E>0, Write(“2 ампера можно измерить амперметрами-“,A),nl,fail. Poisk(4). Poisk(5):- Izmer(A,B,C,D,E), B=f,C>=0,D<=180,E>0, Write(“Фазометры измеряющие от 0 до 180-”,A),nl,fail. Poisk(5).

Poisk(_):-write(“Не правильный запрос”),nl,fail. GOAL Run. 5 Список использованной литературы. 1. Шихов Е. Варианты реализации искусственного интеллекта – ресурс Интернета, http://neural.narod.ru/, 2002 2. Квасный Р. Искусственный интеллект – ресурс Интернета, http://neural.narod.ru/, 2001. 3. Труды третьего международного симпозиума «Интеллектуальные системы» – Псков: 1998