%guessing_game.m
%test to see if subject is psychic
clear all;

%settings
num_trials = 5;
highest_number = 3;

%get info
subject_name = input('What is your name?', 's');

for t = 1:num_trials
    %trial set up
    random_num = ceil(rand*highest_number);
    
    %perform experiment 
    start_time = GetSecs; % start to record time
    disp('I am thinking of a number between');
    disp([' 1 and ', num2str(highest_number)]);

    response = input('What is the number?');
    stop_time = GetSecs;
    response_time = stop_time - start_time;
    is_correct =  (response==random_num);
    
    if(is_correct)
        disp('Right!');
    else
        disp(['Wrong! The correct answer was ', ...
        num2str(random_num)]);
    end
    disp('Press any key to continue');
    pause
    disp('--------');
    
    %record data
    guessing_game_data(t, :) =...
        [t, response_time, response, ...
        random_num, is_correct ];
end


%data_storage
csvwrite([subject_name, '.csv'], guessing_game_data);