20890<_VersionPersist dt:dt="int">50SessionProcPsychology Software Tools, Inc. (Amy Eschman)This example illustrates a method to be used to permit
randomization with the constraint that no two consecutive
trials present the same condition.
The conditions are entered as separate Nested List objects. Script
is used to randomize the conditions in an array, and check for the
criterion of consecutive trials presenting different conditions. When
the random order is acceptable, the TrialList is then populated to set
the Nested column, and to run in Fixed order. No two consecutive
trials select from the same Nested List object, so the result is that no
two consecutive trials are from the same condition.
2013-08-19T15:28:19.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-164048016white1NoKeyboardKeyboard<_VersionPersist dt:dt="int">1-1101MouseMouse<_VersionPersist dt:dt="int">1-1100SoundSound<_VersionPersist dt:dt="int">1-122205016-1-10-1BlockTrialSubTrialLogLevel5LogLevel6LogLevel7LogLevel8LogLevel9LogLevel1010SubjectPlease enter the Subject Number (1-32767, 0=No Data Logging):0-1-11032767SessionPlease enter the Session Number (1-32767):0-1-11132767GroupPlease enter Subject's Group (0-32767):0001032767NamePlease enter Subject's Name:100255AgePlease enter Subject's Age (0-150):00000150SexPlease enter Subject's Sex:200malemalefemaleHandednessEnter Subject's Handedness:200leftleftrightResearcherIDPlease enter Researcher's ID:0001032767SessionProcProcedure{AFF80049-1AAF-49F4-8CCA-C1C8AC747A42}20887<_VersionPersist dt:dt="int">1- RandomizeStim
- Introduction
- TrialList
- Goodbye
1RandomizeStimIntroductionTrialListGoodbyeGoodbyeTextDisplay{72E915D6-4AD6-4972-B937-509BD7D70ECB}20887<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag025000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoThank your for participating.
Goodbye!-1TrialListList{D95FE7A1-D921-45ED-8CD4-F454D45B050F}20887<_VersionPersist dt:dt="int">1Type1StimWord1- Type1
- Type2
- Type3
- Type4
- TrialProc
00000001100Weight17510Nested17511Procedure17512Type0?75188StimWord0?751881 Type1 TrialProc [WordType] [Word]1 Type2 TrialProc [WordType] [Word]1 Type3 TrialProc [WordType] [Word]1 Type4 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]1 TrialProc [WordType] [Word]Type1List{49DD6858-BC24-4C78-BC00-7737744D265C}20887<_VersionPersist dt:dt="int">1Word1WordType100000001100Weight17510Nested17511Procedure17512Word0?75188WordType0?751881 apple 11 orange 11 banana 11 strawberry 11 grape 1Type2List{D780583B-F391-434A-A8A8-45ECED91B455}20887<_VersionPersist dt:dt="int">1Word1WordType100000001100Weight17510Nested17511Procedure17512Word0?75188WordType0?751881 dog 21 cat 21 bird 21 mouse 21 fish 2Type3List{02CD1F50-CAA1-42EA-8B5E-22A96387CCBA}20887<_VersionPersist dt:dt="int">1Word1WordType100000001100Weight17510Nested17511Procedure17512Word0?75188WordType0?751881 hairy 31 scary 31 noisy 31 pretty 31 squeaky 3Type4List{55A37BC9-D14E-4FEB-B34A-77E3BE7F36CB}20887<_VersionPersist dt:dt="int">1Word1WordType100000001100Weight17510Nested17511Procedure17512Word0?75188WordType0?751881 trop 41 gerd 41 naft 41 slaj 41 vilk 4TrialProcProcedure{9D9CDBA4-68E7-48A3-8AF6-EFCE2A3F1FAF}20887<_VersionPersist dt:dt="int">1- Stimulus
- WriteTypesToDebug
1StimulusWriteTypesToDebugStimulusTextDisplay{086B4848-E2EB-47E2-96A9-3076F6849A03}20887<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[StimWord]-1WriteTypesToDebugInLine{DDB55874-2CF0-4764-8F80-05DD38EA73CD}20887<_VersionPersist dt:dt="int">1'Same as data file, just for debugging
'Writes the Type and Word to the Output window on each trial
Debug.Print "Type = " & c.GetAttrib("Type") & "\tWord = " & c.GetAttrib("StimWord")IntroductionTextDisplay{759C8132-AAAB-4098-8C47-A5D806EE0FA5}20887<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{SPACE}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoWelcome. This sample experiment demonstrates the methods used to prevent trials of the same type from repeating on consecutive trials.
Press the spacebar to begin.-1RandomizeStimInLine{FE497974-B511-4462-8FCB-6262DA69E9F2}20887<_VersionPersist dt:dt="int">1'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The following script will declare an array and fill it with multiple '
' instances of each of four types of stimuli. The array is then randomized '
' and examined to make sure that the same type of stimulus is not presented '
' on consecutive trials. The randomization process continues until this '
' criterion is met. The actual stimuli are entered by condition into separate '
' nested List objects. '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Declare an array of 20 slots to hold 5 stim of each of 4 types. Slot 0 is unused.
Dim arrStim(20) As Integer
'Counter variables. nCount is used in For...Next loops, nLoad is used to
'load the array with values.
Dim nCount As Integer, nLoad As Integer
'This variable will be True when the criterion has been met.
Dim boolCriterion As Boolean
'Load the stimulus types (1-4) into the array.
For nCount = 1 To UBound(arrStim)
nLoad = nLoad + 1
arrStim(nCount) = nLoad
If nLoad = 4 Then
nLoad = 0
End If
Next nCount
'These debug statements show how quickly the randomization process works.
Debug.Print "Begin = " & Clock.Read
'Randomize the array and check for repeated types in consecutive slots. If
'any repeated types are found, set the criterion to False.
Do
boolCriterion = True
'Randomize the array (only indices 1-20).
RandomizeArray arrStim, 1, UBound(arrStim)
'Check to make sure no two trials of the same type in a row.
For nCount = 1 To (UBound(arrStim)-1)
If arrStim(nCount) = arrStim(nCount + 1) Then
boolCriterion = False
Exit For
End If
Next nCount
Loop Until boolCriterion = True
Debug.Print "End = " & Clock.Read
'Set Nested column in TrialList to sample from randomized sample types
'entered as separate nested List objects.
For nCount = 1 To UBound(arrStim)
TrialList.SetNested CStr(nCount), "Type" & arrStim(nCount)
Next nCount
TrialList.Reset