peaks(x,y) = 3*(1-x)**2*exp(-x**2 - (y+1)**2)\ - 10*(x/5.0 - x**3 - y**5)*exp(-x**2 - y**2)\ - exp(-(x+1)**2 - y**2)/3 set macros JET="define (0 0 0 0.5, 1./8 0 0 1, 3./8 0 1 1, 5./8 1 1 0, 7./8 1 0 0, 1 0.5 0 0)" COPPER="defined (0 0 0 0, 0.8 1 0.64 0.4, 1 1 0.8 0.5)" OCEAN="defined (0 0 0 0, 1./3 0 0 1./3, 2./3 0 0.5 2./3, 1 1 1 1)" HOT="defined (0 0 0 0, 0.4 1 0 0, 0.8 1 1 0, 1 1 1 1)" COOL="defined (0 0 1 1, 1 1 0 1)" SPRING="defined (0 1 0 1, 1 1 1 0)" SUMMER="defined (0 0 0.5 0.4, 1 1 1 0.4)" AUTUMN="defined (0 1 0 0, 1 1 1 0)" WINTER="defined (0 0 0 1, 1 0 1 0.5)" BONE="defined (0 0 0 0, 3./8 21.0/64 21./64 29./64, 3./4 21.0/32 25./32 25./32)" RAINBOW="defined (0 1 0 0, 0.4 1 1 0, 0.6 0.5 1 0, 0.8 0 0 1, 1 2./3 0 1)" PINK="defined (0 0 0 0, 3./8 7./12 1./4 1./4, 3./4 5./6 5./6 1./2, 1 1 1 1)" set xyplane 0 set xr [-3:3] set yr [-3:3] unset border unset key unset tics unset colorbox set samples 32 set isosample 32 set pm3d hidden3d 100 depthorder set style line 100 lt -1 lw 0.1 lc rgb "black" set view 50,30,1.2,1.4 set term pngc enh font "Arial,5" size 600,600 background rgb "#223322" set out "colormap.png" set label 1 at 3,-3,-3 font "Arial,11" front tc rgb "white" colormap ="JET RAINBOW BONE HOT COOL COPPER \ OCEAN PINK SPRING SUMMER AUTUMN WINTER" set multiplot lay 4,3 do for [i=1:12] { set label 1 word(colormap,i) eval sprintf("set palette @%s", word(colormap,i)) splot peaks(x,y) w pm3d } unset multiplot !display colormap.png # set palette rgb R,G,B # # OCEAN 23,26,3 # HOT 21,22,23 # COOL 3,-3, 2 # SPRING 2,3,-3 # AUTUMN 2,3,0 |