Vector products: Difference between revisions

(Add Seed7 example)
Line 744:
6
-267 204 -3</pre>
 
 
=={{header|Mathematica}}==
<lang Mathematica>
a={3,4,5};
b={4,3,5};
c,{-5,-12,-13};
a.b
Cross[a,b]
a.Cross[b,c]
Cross[a,Cross[b,c]]
</lang>
 
=={{header|Nemerle}}==
Anonymous user