#! Praat script p2/simulation/simulations.praat # Paul Boersma, September 26, 2001 form Simulation choice Who button Elspeth button Liz button Isabel button Carmen endform kilosteps = 0 if who$ = "Elspeth" Read from file... baby.OTGrammar Rename... elspeth Read from file... scot.PairDistribution call learn elspeth scot 1 1000 call learn elspeth scot 1 1000 call learn elspeth scot 1 2000 call learn elspeth scot 1 6000 call learn elspeth scot 0.1 90000 call learn elspeth scot 0.01 900000 elsif who$ = "Liz" Read from file... baby.OTGrammar Rename... liz Read from file... seng.PairDistribution call learn liz seng 1 1000 call learn liz seng 1 1000 call learn liz seng 1 2000 call learn liz seng 1 6000 call learn liz seng 0.1 90000 call learn liz seng 0.01 900000 elsif who$ = "Isabel" Read from file... isabel0.OTGrammar Rename... isabel Read from file... span.PairDistribution Read from file... scot.PairDistribution call learn isabel span 1 10000 call learn isabel span 0.1 90000 call learn isabel span 0.01 100000 call learn isabel scot 0.01 4000 call learn isabel scot 0.01 796000 elsif who$ = "Carmen" Read from file... l2.OTGrammar Rename... carmen Read from file... seng.PairDistribution call learn carmen seng 1 10000 call learn carmen seng 0.1 90000 call learn carmen seng 0.01 900000 endif procedure learn name$ environment$ plasticity steps kilosteps = kilosteps + steps / 1000 select OTGrammar 'name$' plus PairDistribution 'environment$' Learn (GLA)... 2 "Symmetric all" plasticity steps 0.1 1 0.1 yes 1 select OTGrammar 'name$' Write to short text file... 'name$''kilosteps'.OTGrammar execute measureListener.praat 1000 Write to short text file... 'name$''kilosteps'.Matrix Remove endproc