Paweł Konas, Paweł Płazieński, zestaw IREK

Konstrukcja:
Korzystaliśmy ze skonstruowanego już robota Tribot (zestaw IREK). Z tego też względu nie zamieszczamy jego zdjęć.

Program:
Początkowo postanowiliśmy zaimplementować program „Co przybyło?”. Był on realizowany w ten sposób: robot obracał się o 360 stopni i co 45 stopni badał odległość czujnikiem ultradźwiękowym, którą nasŧępnie dodawał na listę. W kolejnej części - po dodaniu przedmiotu - miał przeprowadzać tą czynność ponownie, by ostatecznie porównać obie listy. Pojawił się jednak problem (opisany w kolejnej części), który zmusił nas do porzucenia tego programu i zajęcia się innym - „Śledzenie linii”. Program „Śledzenie linii” udało się nam zrealizować (choć nie bez komplikacji, patrz → Problemy). Działał on następująco: Robot ustawiony na planszy dostarczanej przez Lego (w jej wnętrzu) jedzie przed siebie dopóki nie natrafi na czarne podłoże (użyta funkcja wait_till). Wówczas kontynuuje jazdę przed siebie ale tym razem dopóki podłoże jest czarne. Gdy przestanie być to skręca o 20 stopni w prawo i kontynuuje jazdę dopóki znów nie będzie białe podłoże (w przeciwnym wypadku znów obróci się o 20 stopni itd.). Program kończył się po naciśnięciu czujnika dotyku. Poniżej zamieszczamy listing programu:

:- consult('plnxt/plnxt.pl').
 
is_touched :-
	nxt_touch(Value),
	Value = 1.
 
is_loud :-
	nxt_sound(Value),
	Value > 50.
 
is_white :- 
	nxt_light(Value,force),
	write('Light: '), write(Value), nl,
	Value > 45.
 
follow_the_white_rabbit :-
	nxt_stop,
	nxt_go(100),
	wait_till(not(is_white)),
	follow_line.
 
follow_line :-
	nxt_stop,
	nxt_go(100),
	wait_till(is_white),
	turn_right.
 
turn_right :-
	nxt_stop,
	nxt_rotate(200,20,force),
	follow_line.
 
start :-
	nxt_light_LED(activate),
	trigger_create(_,is_touched,[quit]),
	follow_the_white_rabbit.
 
quit :-
	trigger_killall,
	nxt_stop.

Problemy:
- Pierwszy problem pojawił się przy próbie stworzenia programu „Co przybyło?”. Dla poniższego kodu:

bug_1(A) :-
	A >= 45,
	NewA is A - 45,
	nxt_rotate(400,45),
	nxt_ultrasonic(Value),
	bug_1(NewA).
 
start :-
	bug_1(360).

Pojawiał się błąd:

?- nxt_open.

Yes
?- start.
ERROR: Arithmetic: `angle/1' is not a function
   Exception: (27) _L19345 is angle(89)//256 ? creep
   Exception: (23) nxt_actions_serial:nxt_actions_motor_move('C', 400, [motoron, brake, regulated], sync, 100, running, angle(89)) ? creep
   Exception: (21) nxt_sensomoto:nxt_motor_sync('C', 'B', 400, 100, angle(angle(89))) ? creep
   Exception: (18) nxt_movement:nxt_turn(400, 89, force) ? creep

- Zbliżony błąd wystąpił w przypadku drugiego programu (udało się go pozbyć modyfikując kod po postaci załączonej do sprawozdania). Pojawiał się on prawdopodobnie przy próbach korzystania z czujnika światła. Był on postaci:

ERROR: Arithmetic: `force/0' is not a function
   Exception: (20) _L6877 is force//256 ? creep
   Exception: (16) nxt_actions_serial:nxt_actions_motor_move('C', 100, [motoron, brake, regulated], sync, 0, running, force) ? creep
   Exception: (14) nxt_sensomoto:nxt_motor_sync('C', 'B', 100, 0, angle(force)) ? creep
?

- Oprócz tego problem pojawiał się przy próbie nawiązywania (kończenia) połączenia z robotem przy pomocy nxt_open, nxt_close. Dokładniej mówiąc gdy aktualnie działający program wyrzucał wyjątek trzeba było restartować powłokę SWIPL by móc wgrać nowy program.
- Parę razy musieliśmy też restartować robota by wgrać nowy program bo poprzednia wersja uporczywie rezydowała w jego pamięci.

Propozycje zmian w Wiki/laboratoriach:
- Można by stworzyć jakieś dodatkowe plansze dla NXT oprócz tej dostarczanej przez Lego (np. labirynt etc.)
- Przydałby się predykat do ciągłego obracania się robota (aż do wyzwolenia trigera)

Plik z programem:
Plik pl z programem