#!/usr/local/bin/gnuplot -persist
# set terminal pngcairo  transparent enhanced font "arial,10" fontscale 1.0 size 600, 400 
# set output 'fenceplot.1.png'
set dummy u, v
set format z "%.1f" 
set label 1 "increasing v" at 6.00000, 0.00000, -1.00000 left norotate back nopoint
set label 2 "u=0" at 5.00000, 6.50000, -1.00000 left norotate back nopoint
set label 3 "u=1" at 5.00000, 6.50000, 0.100248 left norotate back nopoint
set arrow 1 from 5.00000, -5.00000, -1.20000 to 5.00000, 5.00000, -1.20000 head back nofilled lt black linewidth 1.000 dashtype solid
set arrow 2 from 5.00000, 6.00000, -1.00000 to 5.00000, 5.00000, -1.00000 head back nofilled lt black linewidth 1.000 dashtype solid
set arrow 3 from 5.00000, 6.00000, 0.100248 to 5.00000, 5.00000, 0.100248 head back nofilled lt black linewidth 1.000 dashtype solid
set parametric
set view 70, 25, 1, 1
set isosamples 2, 33
set hidden3d back offset 0 trianglepattern 3 undefined 1 altdiagonal bentover
set style data lines
set xtics border in scale 1,0.5 mirror norotate  offset character 0, -1, 0 autojustify
set ytics border in scale 1,0.5 mirror norotate  offset character 0, -1, 0 autojustify
set title "fence plot constructed with separate parametric surfaces" 
set urange [ 0.00000 : 1.00000 ] noreverse nowriteback
set vrange [ -4.99000 : 4.99000 ] noreverse nowriteback
set xrange [ -5.00000 : 5.00000 ] noreverse nowriteback
set x2range [ * : * ] noreverse writeback
set yrange [ -5.00000 : 5.00000 ] noreverse nowriteback
set y2range [ * : * ] noreverse writeback
set zrange [ -1.00000 : 1.00000 ] noreverse nowriteback
set cbrange [ * : * ] noreverse writeback
set rrange [ * : * ] noreverse writeback
set colorbox vertical origin screen 0.9, 0.2 size screen 0.05, 0.6 front  noinvert bdefault
sinc(u,v) = sin(sqrt(u**2+v**2)) / sqrt(u**2+v**2)
NO_ANIMATION = 1
array U[10] = [-3.89111111111111,-2.78222222222222,-1.67333333333333,-0.564444444444444,0.544444444444445,1.65333333333333,2.76222222222222,3.87111111111111,4.98,6.08888888888889]
u = -5
du = 1.10888888888889
splot for [i=1:10] U[i], v, (u<0.5) ? -1 : sinc(U[i],v) notitle