/
mpsy_afc_present.m
118 lines (94 loc) · 3.74 KB
/
mpsy_afc_present.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
% Usage: mpsy_afc_present
% ----------------------------------------------------------------------
%
% present the signal intervals of an N-AFC experiment, collect the
% user answer and evaluate it
%
% input: (none), works on global variables
% output: (none)
%
% Copyright (C) 2007 Martin Hansen, Jade Hochschule Oldenburg
% Author : Martin Hansen <psylab AT jade-hs.de>
% Date : 15 Mrz 2007
% Updated: < 6 Nov 2016 15:41, martin>
% Updated: < 1 Nov 2011 10:15, martin>
%% This file is part of PSYLAB, a collection of scripts for
%% designing and controlling interactive psychoacoustical listening
%% experiments.
%% This file is free software; you can redistribute it and/or modify
%% it under the terms of the GNU General Public License as published
%% by the Free Software Foundation; either version 2 of the License,
%% or (at your option) any later version. See the GNU General
%% Public License for more details: http://www.gnu.org/licenses/gpl
%% This file is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
% mount signals in a random N-AFC fashion with the test signal being
% situated in the interval numbered M.rand_afc
% %% [m_outsig, M.rand_afc] = mpsy_nafc(m_test, m_ref, M.NAFC, m_quiet, m_presig, m_postsig);
mpsy_nafc;
% ... check for clipping
if max(m_outsig) > 1 | min(m_outsig) < -1,
mpsy_info(M.USE_GUI, afc_fb, '*** WARNING: overload/clipping of m_outsig***')
pause(2);
end
% check ear side, add silence on other side if necessary
if ( (M.EARSIDE~=M_BINAURAL) & (min(size(m_outsig)) == 1) ),
if M.EARSIDE == M_LEFTSIDE,
m_outsig = [m_outsig 0*m_outsig]; % mute right side
elseif M.EARSIDE == M_RIGHTSIDE,
m_outsig = [0*m_outsig m_outsig]; % mute left side
else
fprintf('\n\n*** ERROR, wrong value of M.EARSIDE.\n');
fprintf('*** must be M_BINAURAL, M_LEFTSIDE or M_RIGHTSIDE\n');
return
end
end
% ... clear possible feedback message in GUI
mpsy_info(M.USE_GUI, afc_fb, '', afc_info, '');
% ... and present
if M.USE_MSOUND
mpsy_msound_present;
else
sound(m_outsig, M.FS);
if M.VISUAL_INDICATOR & M.USE_GUI,
mpsy_visual_interval_indicator; % acts depending on global variables
else
if M.SOUND_IS_SYNCHRONOUS==0,
% if Matlabs "sound" works asynchronously, then
% pause execution for as long as the signal duration
pause(length(m_outsig)/M.FS);
end
end
end
clear M.ACT_ANSWER;
M.ALLOWED_USER_ANSWERS = [ -3 (0:M.NAFC) 8 9];
M.UA = mpsy_get_useranswer(M);
% M.UA contains user answer for AFC
switch M.UA,
case 9, % user-quit request for this experiment
mpsy_info(M.USE_GUI, afc_fb, '*** user-quit of this experiment ***', afc_info, '');
M.QUIT = 1; % set quit-flag, i.e. whole experiment is aborted completely
pause(2);
return; % abort this run, i.e. neither save anything
case 8, % user-quit request for this run
mpsy_info(M.USE_GUI, afc_fb, '*** user-quit of this run ***', afc_info, '');
pause(2);
return; % abort this run, i.e. neither save anything:
case 0, % forced wrong answer, i.e. decrease stimulus variable
M.ACT_ANSWER = 0; % not correct
feedback='*** FORCED not correct';
case -3,
M.ACT_ANSWER = -3; % indicates "indecision" choice in UWUD method
feedback='-';
case M.rand_afc,
M.ACT_ANSWER = 1; % correct
feedback='correct';
otherwise,
M.ACT_ANSWER = 0; % not correct
feedback='NOT correct';
end
% End of file: mpsy_afc_present.m
% Local Variables:
% time-stamp-pattern: "40/Updated: <%2d %3b %:y %02H:%02M, %u>"
% End: