#!/lunar/u1/berryj/bin/gawk -f
BEGIN {FS = " ";  printf "%s := linalg['matrix']( %d,2, [ x, y ,", array_name, lines+1; }
/./ { if (NR <= lines) {printf " %f, %f", $field1, $field2}
#		if ($field1 = 0) 
#			{printf "[ %f, %f ]", $field1, $field2};
#		else
#			{printf "[ %f, %f ]", 1/sqrt($field1), $field2}}
     if (NR < lines) print "," }
END {print "]):"}
