% Part 1 – reaction to visual stimuli
% SIMPLE REACTION TIME
%- reaction to color change in random time intervals, 10 tests
%- reaction to color change in regular time intervals, 10 tests

msgbox('SIMPLE REACTION TIME for visual stimulus. In this module red image is displayed. In part 1 it changes to green in random time intervals. In part 2 the change is every 4 seconds. After each change press any key. Now press OK and press any key.')
pause
sprintf('Get ready for part 1 and press any key...')
pause

times=ceil(10*rand(1,10));

red=ones(500,500); red(:,:,2)=zeros(500,500); red(:,:,3)=zeros(500,500);
green=zeros(500,500); green(:,:,2)=ones(500,500); green(:,:,3)=zeros(500,500);
blue=zeros(500,500); blue(:,:,2)=zeros(500,500); blue(:,:,3)=ones(500,500);

for i=1:10
imagesc(red)
pause(times(i))
imagesc(green)
tic
pause
red_green_times(i)=toc;
end

sprintf('et ready for part 2 and press any key...')
pause


for i=1:10
imagesc(red)
pause(4)
imagesc(green)
tic
pause
red_green_times_reg(i)=toc;
end

sprintf('Pet ready for part 3 and press any key...')
pause


for i=1:10
imagesc(red)
pause(times(i))
imagesc(blue)
tic
pause
red_blue_times(i)=toc;
end
red_green_times
srednia_zielony1 = mean(red_green_times)
red_green_times_reg
srednia_zielony2 = mean(red_green_times_reg)
red_blue_times
srednia_niebieski = mean(red_blue_times)

clear i times
plot(red_green_times,'gx-')
hold on
plot(red_blue_times,'bx-');
plot(red_green_times_reg,'r')
xlabel('sample/probka') % x-axis label
ylabel('time/czas [s]') % y-axis label
legend('random green','random blue','regular green')
msgbox('End of module.')