#This program generates the for loops to print the fancy tex code #Format: (h_0,h_1,...,h_r) & [[],[],[],...,[]]\\ (second portion might # have some breaks in it, if needed) # #To print these loops to a file, use the command: #perl latex_loop_generator.pl > latexloops_r_n-r.txt #enter the number of vertices here $numverts = 7; #enter the number of monomial vertices per table row here $num_mono = 8; print('print MYFILE "[";'); print("\n"); for ($k=1; $k<$numverts; $k++) { print('print MYFILE "[";'); print("\n"); print('for ($j=0; $j<$h1-1; $j++) {'); print("\n"); print(' print MYFILE "@h_array' . "$k" . '[$j]";'); print("\n"); print(' print MYFILE ",";'); print("\n"); print('}'); print("\n"); print('print MYFILE "$h_array' . "$k" . '[$h_1-1]";'); print("\n"); print('print MYFILE "],";'); print("\n"); if (!($k % $num_mono)) { print('print MYFILE "\\\\\\\\ & ";'); print("\n"); } } print('print MYFILE "[";'); print("\n"); print('for ($j=0; $j<$h1-1; $j++) {'); print("\n"); print(' print MYFILE "@h_array' . "$numverts" . '[$j]";'); print("\n"); print(' print MYFILE ",";'); print("\n"); print('}'); print("\n"); print('print MYFILE "$h_array' . "$numverts" . '[$h_1-1]";'); print("\n"); print('print MYFILE "]]\\\\\\\\";'); print("\n"); print('print MYFILE " & \\\\\\\\";');