Vector products: Difference between revisions

=={{header|Wortel}}==

<lang wortel>@let {

dot &[a b] @sum @mapm ^* [a b]

cross &[a b] [[

-*a.1 b.2 *a.2 b.1

-*a.2 b.0 *a.0 b.2

-*a.0 b.1 *a.1 b.0

]]

scalarTripleProduct &[a b c] !!dot a !!cross b c

vectorTripleProduct &[a b c] !!cross a !!cross b c

a [3 4 5]

b [4 3 5]

c [5N 12N 13N]

[[

!!dot a b

!!cross a b

@!scalarTripleProduct [a b c]

@!vectorTripleProduct [a b c]

]]

}</lang>

Returns:

<pre>[49 [5 5 -7] 6 [-267 204 -3]]</pre>