/* -*- gp-script -*- */ \\% Write a matrix to a portable gray map (pgm image) file. \\ Author: Joerg Arndt \\ License: GPL version 3 or later \\ online at http://www.jjj.de/pari/ \\ version: 2014-October-16 (18:30) mat_minmax(m)= { my(nr, nc, ma, mi, t); nr = matsize(m)[1]; nc = matsize(m)[2]; ma = -1e999; mi = -ma; for (r=1, nr, for (c=1, nc, t = m[r,c]; if ( mi>t, mi=t ); if ( ma maxv = ", maxv) ); if ( t < 0, error(t, " < 0") ); write1(fname, t," "); ); write(fname, ""); ); return(); } /* ----- */ \\default(echo, 1); \\default(realprecision, 15); \\m=matrix(32, 128, r,c, 7.8*(r+c)); \\write_pgm(m, "test.pgm", , "guten tag") \\ ==== end of file ====