Anonymous user
Roots of unity: Difference between revisions
m
→{{header|Fortran}}
mNo edit summary |
|||
Line 275:
unit_circle = exp(2*i*pi/n * (/ (j, j=0, n-1) /) )
write(*,"(sp,i1
write(*,"(2f7.4,a)", advance="no") (unit_circle(j), "j ", j = 0, n-1)
write(*,*)
end do
| |||