100 setheight
-2 2 setyrange
/f {Sin} def

bleu
[-5 5 .5 stepto] dup 
(f) apply fuz {times3} plot
rouge
[-5 5 .5 stepto] {dup Cos} apply 
{point} plot