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