Anonymous user
Euler's identity: Difference between revisions
Tcl
(Tcl) |
|||
Line 592:
Error: -2.42661922624586582047028764157944836122122513308e-58i
</pre>
=={{header|Tcl}}==
<lang tcl># Set up complex sandbox (since we're doing a star import)
namespace eval complex_ns {
package require math::complexnumbers
namespace import ::math::complexnumbers::*
set pi [expr {acos(-1)}]
set r [+ [exp [complex 0 $pi]] [complex 1 0]]
puts "e**(pi*i) = [real $r]+[imag $r]i"
}</lang>
{{out}}
<pre>
e**(pi*i) = 0.0+1.2246467991473532e-16i
</pre>
=={{header|zkl}}==
| |||