open(10,file="test11.out")
pi=3.1415926536
dx=0.01*pi
do i=0,200
x=dx*i
write(10,*) x,x*180/pi,sin(x),cos(x),tan(x)
enddo
stop
end