#    G N U P L O T
#    Unix version 3.5 (pre 3.6)
#    patchlevel beta 336
#    last modified Wed Jun  4 06:45:45 BST 1997
#
#    Copyright(C) 1986 - 1993, 1997
#    Thomas Williams, Colin Kelley and many others
#
#    Send comments and requests for help to info-gnuplot@dartmouth.edu
#    Send bugs, suggestions and mods to bug-gnuplot@dartmouth.edu
#
# set terminal x11 
# set output
set noclip points
set clip one
set noclip two
set bar 1.000000
set border
set xdata
set ydata
set zdata
set x2data
set y2data
set boxwidth
set dummy x,y
set format x "%g"
set format y "%g"
set format x2 "%g"
set format y2 "%g"
set format z "%g"
set nogrid
set key title ""
set key right top Right noreverse box -2 samplen 4 spacing 1 width 0
set nolabel
set noarrow
set nolinestyle
set nologscale
set offsets 0, 0, 0, 0
set pointsize 1
set encoding default
set nopolar
set angles radians
set noparametric
set view 60, 30, 1, 1
set samples 100, 100
set isosamples 10, 10
set surface
set nocontour
set clabel '%8.3g'
set nohidden3d
set cntrparam order 4
set cntrparam linear
set cntrparam levels auto 5
set cntrparam points 5
set size ratio 0 1,1
set origin 0,0
set data style points
set function style lines
set xzeroaxis -2
set x2zeroaxis -2
set yzeroaxis -2
set y2zeroaxis -2
set tics in
set ticslevel 0.5
set ticscale 1 0.5
set mxtics default
set mytics default
set mx2tics default
set my2tics default
set xtics border mirror norotate 
set ytics border mirror norotate 
set ztics border nomirror norotate 
set nox2tics
set noy2tics
set title "" 0.000000,0.000000  ""
set timestamp "" bottom norotate 0.000000,0.000000  ""
set rrange [ * : * ] noreverse nowriteback  # (currently [-0:10] )
set trange [ * : * ] noreverse nowriteback  # (currently [-5:5] )
set urange [ * : * ] noreverse nowriteback  # (currently [-5:5] )
set vrange [ * : * ] noreverse nowriteback  # (currently [-5:5] )
set xlabel "" 0.000000,0.000000  ""
set x2label "" 0.000000,0.000000  ""
set timefmt "%d/%m/%y\n%H:%M"
set xrange [ -5 : 5 ] noreverse nowriteback
set x2range [ * : * ] noreverse nowriteback  # (currently [-10:10] )
set ylabel "" 0.000000,0.000000  ""
set y2label "" 0.000000,0.000000  ""
set yrange [ -0.05 : 1.05 ] noreverse nowriteback
set y2range [ * : * ] noreverse nowriteback  # (currently [-10:10] )
set zlabel "" 0.000000,0.000000  ""
set zrange [ * : * ] noreverse nowriteback  # (currently [-10:10] )
set zero 1e-08
set lmargin -1
set bmargin -1
set rmargin -1
set tmargin -1
set locale "C"
s(x) = abs(x)/(2*x)+0.5
w(x) = s(x)*(1-s(x-(2*pi)))
t(x) = -cos(x)**3
wl(x) = w(2*(x+pi))
wr(x) = w(2*x)
wls(x,y,m) = wl(m*(x-y))
wrs(x,y,m) = wr(m*(x-y))
wgs(x,y,l,r) = 1 - wls(x,y,l) - wrs(x,y,r)
ts(x,y,m) = t(m*(x-y))
tgs(x,y,l,r) = ts(x,y,l)*wls(x,y,l)+ts(x,y,r)*wrs(x,y,r)+wgs(x,y,l,r)
cts(x,y,l,r) = (ct(x,y,l,r)+1)/2
ct(x,y,l,r) = tgs(x,y,l,r)*tgs(x,y+2*pi,l,r)*tgs(x,y-2*pi,l,r)
d(x) = (pi+3)/(2*x)
plot cts(x,pi,1,1)
#    EOF
