-LIST LEFT &STLIMIT = 10000 &anchor = 1 digit = '1234567890' digit2 = digit '.' digit3 = digit '/' INPUT('input',5,128,'input') INPUT('combined',6,128,'combined.txt') OUTPUT('corr1',10,80,'corr1_out.txt') OUTPUT('corr2',11,80,'corr2_out.txt') * DEFINE('pad(str,sz)','pad_lab') * DEFINE('padz(str,sz)','padz_lab') select = input select SPAN(digit) . it1 = select SPAN(' ') SPAN(digit) . it2 = field = ARRAY(14) data_f = ARRAY(14) field[1] = 'day' field[2] = 'date_in' field[3] = 'calories' field[4] = 'fat' field[5] = 'protein' field[6] = 'carb_fib' field[7] = 'sugar' field[8] = 'miles' field[9] = 'weight' field[10] = 'glucose' field[11] = 'delta_weight' field[12] = 'delta_glucose' flg = 1 corr1 = 'with(Statistics);' corr1 = field[it1] ' := [' corr2 = field[it2] ' := [' loop1 line = combined :F(out1) line span(' ') span(digit) . data_f[1] = :f(loop1) line span(' ') span(digit3) . data_f[2] = :f(loop1) line span(' ') span(digit2) . data_f[3] = :f(loop1) line span(' ') span(digit2) . data_f[4] = :f(loop1) line span(' ') span(digit2) . data_f[5] = :f(loop1) line span(' ') span(digit2) . data_f[6] = :f(loop1) line span(' ') span(digit2) . data_f[7] = :f(loop1) line span(' ') span(digit2) . data_f[8] = :f(loop1) line span(' ') span(digit2) . data_f[9] = :f(loop1) line span(' ') span(digit2) . data_f[10] = :f(loop1) line span(' ') span(digit2) . data_f[11] = :f(loop1) line span(' ') span(digit2) . data_f[12] = :f(loop1) EQ(flg,1) :S(SKIP) corr1 = ',' corr2 = ',' flg = 0 skip flg = 0 corr1 = data_f[it1] corr2 = data_f[it2] :(loop1) out1 corr1 = '];' corr2 = '];' corr2 = 'c := Correlation(' field[it1] ',' field[it2] ');' end