/*  exaggerating sine wave  */

draw2d(explicit(h/20*sin(h/5), h, 0, 100), yrange=[-5,5]);
/*  A : makelist(h/10, h, 0, 100)$
    plot2d([discrete, A/2*sin(2*A)], [y, -5, 5]);  */