Применение технических средств искусственного интеллекта в измерениях
Сочинение - Компьютеры, программирование
Другие сочинения по предмету Компьютеры, программирование
ля простоты были использованы 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,D0,
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,D0,
Write(“Фазометры измеряющие от 0 до 180-”,A),nl,fail.
Poisk(5).
Poisk(_):-write(“Не правильный запрос”),nl,fail.
GOAL
Run.
5 Список использованной литературы.
1. Шихов Е. Варианты реализации искусственного интеллекта ресурс Интернета,
2. Квасный Р. Искусственный интеллект ресурс Интернета,
3. Труды третьего международного симпозиума Интеллектуальные системы Псков: 1998