Roots of unity: Difference between revisions
Content added Content deleted
(added ocaml) |
(→{{header|Ada}}: Remove a variable "J" from the calculation of Factor, since it seems to be wrong.) |
||
Line 21: | Line 21: | ||
Put(" "); |
Put(" "); |
||
for K in 1..Root/2 loop |
for K in 1..Root/2 loop |
||
Factor := Exp(Real(K) * 2.0 |
Factor := Exp(Real(K) * 2.0 * Ada.Numerics.Pi / Real(Root)); |
||
Complex_Io.Put(Item => Factor, Fore => 2, Aft => 4, Exp => 0); |
Complex_Io.Put(Item => Factor, Fore => 2, Aft => 4, Exp => 0); |
||
end loop; |
end loop; |