#open data9-9
set echo off
set messages off
genr numseries = 5
scalar nobser = nobs(nocars)
scalar anyo=1959
#startp: start period
scalar startp=1
#period: periodicidad
scalar period=4
#list xlist = nocars pop Y price primert
list xlist = price 
function tramolin clear
function tramolin(list xlist, scalar nobser, scalar anyo, scalar startp,  scalar period)
 if nelem(xlist) = 0
    funcerr "The list of variables cannot be empty"
  end if
 loop foreach i xlist --quiet
  outfile --write "C:\Archivos de programa\gretl\tramo\$i"
  printf "%s\n", "$i"
  printf "%.8g %.8g %.8g %.8g\n", nobser, anyo, startp, period
  loop j=1..nobser --quiet
   scalar jj=j
   scalar dato = $i[jj]
   printf "%.8g\n", dato
  endloop
  printf "$INPUT RSA=3 $\n"
  printf "\n"
  outfile --close
  ! cmd /c "cd tramo && tramo -i $i -k $i.ser " 
  outfile --write "C:\Archivos de programa\gretl\tramo\graph\series\$i-lin.txt"
  printf "%s\n", "$i_lin"
  outfile --close
  ! cmd /c "cd tramo\graph\series && more +6 xlin.t >> $i-lin.txt"
  loop i=1..2
   arima 0 0 2 ; $i
  endloop
 endloop
end function
tramolin(xlist, nobser, anyo, startp, period)
append "C:\Archivos de programa\gretl\tramo\graph\series\price-lin.txt"