        do k = 1, 5
        do i = 0,120
           t = 10.*i/100.
           y = max(0,cos((t-1.)*3.14159/6.))
           write(10+k,*)y**(1./k)
        enddo
        enddo

        do i = 0,120
           t = 10.*i/100.
           y = 0.5*(1.+cos((t-1.)*3.14159/6.))
           write(20,*)y
        enddo


        stop
        end
