#  ---- multicurve.pic -----
# Trace de courbes multiples en utilisant les
# possibilites de boucles et variables de type
# tableau de l'interpreteur de piapp 
#
set col ( blue red green yellow violet )
set a ( 1.0 0.9 0.8 0.7 0.6 )
setaxesatt 'helveticafont bolditalicfont minorticks intticks'
zone 1
func 1.1*sin(1.1*x)/x 0.1 20 50 'black notitle'
setaxelabels 'Axe X' 'Axe Y = sin(x)/x' 'darkviolet helveticafont bigbolditalicfont'
for i 0:$#a
  func $a[i]*sin($a[i]*x)/x 0.1 20.0 50 "same $col[i]" 
end

setinsetlimits 0.5 0.75 0.5 0.75
func exp(-x*x) -3 3 40 'inset red stdaxes'