Euler's identity: Difference between revisions
Content added Content deleted
(Tcl) |
|||
Line 594: | Line 594: | ||
=={{header|Tcl}}== |
=={{header|Tcl}}== |
||
=== Using tcllib === |
|||
<lang tcl># Set up complex sandbox (since we're doing a star import) |
<lang tcl># Set up complex sandbox (since we're doing a star import) |
||
namespace eval complex_ns { |
namespace eval complex_ns { |
||
Line 609: | Line 610: | ||
</pre> |
</pre> |
||
=== Using VecTcl === |
|||
<lang tcl>package require vectcl |
|||
namespace import vectcl::vexpr |
|||
set ans [vexpr {pi=acos(-1); exp(pi*1i) + 1}] |
|||
puts "e**(pi*i) = $ans" |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
e**(pi*i) = 0.0+1.2246063538223773e-16i |
|||
</pre> |
|||
=={{header|zkl}}== |
=={{header|zkl}}== |