精神物理学的測定で、連続的な刺激系列の途中でPSEやThresholdをもとめるために系列を打ち切るプログラムの例(HSP)。
while とwend の間で系列(上昇,下降系列など)を変化させる。系列の途中で試行を打ち切り(スペースバー)、次の試行へすすむ。
;刺激準備等
n=20; 試行数
repeat n
;当該試行の条件指定
;
while series=0; 系列の変化 ------
;実験 一試行の内容(刺激提示、反応取得)
;
repeat ; 試行打ち切りキー入力 系列終了フラグ
stick res
if res&16 {
series=1
break
}
await 2: loop
wend; ここまで系列の繰り返し ------
series=0
loop; n試行繰り返し
;
;
stop
while とwend の間で系列(上昇,下降系列など)を変化させる。系列の途中で試行を打ち切り(スペースバー)、次の試行へすすむ。
;刺激準備等
n=20; 試行数
repeat n
;当該試行の条件指定
;
while series=0; 系列の変化 ------
;実験 一試行の内容(刺激提示、反応取得)
;
repeat ; 試行打ち切りキー入力 系列終了フラグ
stick res
if res&16 {
series=1
break
}
await 2: loop
wend; ここまで系列の繰り返し ------
series=0
loop; n試行繰り返し
;
;
stop