%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');

%set up labels
guessing_game_data = {'trial', 'response time', ...
    'response', 'random_num', 'is_correct?'};


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

    response = input('What is it?');
    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+1, :) = ...
        {t, response_time, response, random_num, is_correct};

end


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