macro plot 1=8
set dmod 1
set xtic 0.0001
set ytic 0.0001
set xval 100.
set yval 100.
opt utit
fun/plo x*sin(x) -10 10
fun/plo x*cos(x)*sin(x) -10 10 s
a=[1]-1
do i =[a] , 1 , -1
fun/pl x*sin(x)*[i]/[1] -10 10 2
fun/plo x*cos(x)*sin(x)*[i]/[1] -10 10 s
enddo