борьба со STATA
Apr. 6th, 2006 02:18 pmну что... если со Статой я и работала раньше, то кодить в ней как-то не приходилось.. прошедшей ночью я начала разбираться в этой занимательной теме... проблема, что книжки "программирование со СТАТА шаг за шагом" у меня нет.. только справочник по командам.. которые упорядочены а алфавитном порядке...
за два с половиной часа в ночи я наваяла нечто, на что при знании языка ушло бы минут 15, но собой неимоверно ГОРДА %))
эх, жаль что ЖЖ форматирование строк убирает... лесенки, ступенечки.... ;) да еще и скушивает конец моего гениального опуса...
clear
tempname myfile
local yval `1'
local i `1'
scalar compareto=int(10*uniform())
window stopbox note "otgadajte 4islo ot 0 do 9"
capture confirm number `yval'
while _rc!=0{
local i=`i'+1
display "What is the number?" _request(_yval)
capture confirm number `yval'
capture assert `yval'==`compareto'
if `yval'>compareto {
window stopbox note "zagadannoe 4islo menjshe!"
}
else if `yval'<compareto { window stopbox note "zagadannoe 4islo boljshe!" } else { window stopbox note "URRA! ugadali!" display "4islo popytok = "`i' * ??? confirm file `"d:\stata9progs\gamerec.txt"' file open `myfile' using `"d:\stata9progs\gamerec.txt"', write text append file write `myfile' "`i'" _n exit, clear } }
за два с половиной часа в ночи я наваяла нечто, на что при знании языка ушло бы минут 15, но собой неимоверно ГОРДА %))
эх, жаль что ЖЖ форматирование строк убирает... лесенки, ступенечки.... ;) да еще и скушивает конец моего гениального опуса...
clear
tempname myfile
local yval `1'
local i `1'
scalar compareto=int(10*uniform())
window stopbox note "otgadajte 4islo ot 0 do 9"
capture confirm number `yval'
while _rc!=0{
local i=`i'+1
display "What is the number?" _request(_yval)
capture confirm number `yval'
capture assert `yval'==`compareto'
if `yval'>compareto {
window stopbox note "zagadannoe 4islo menjshe!"
}
else if `yval'<compareto { window stopbox note "zagadannoe 4islo boljshe!" } else { window stopbox note "URRA! ugadali!" display "4islo popytok = "`i' * ??? confirm file `"d:\stata9progs\gamerec.txt"' file open `myfile' using `"d:\stata9progs\gamerec.txt"', write text append file write `myfile' "`i'" _n exit, clear } }