Vector products: Difference between revisions

=={{header|Picat}}==

<lang Picat>go =>

A = [3, 4, 5],

B = [4, 3, 5],

C = [-5, -12, -13],

println(a=A),

println(b=B),

println(c=C),

println("A . B"=dot(A,B)),

println("A x B"=cross(A,B)),

println("A . (B x C)"=scalar_triple(A,B,C)),

println("A X (B X C)"=vector_triple(A,B,C)),

nl.

dot(A,B) = sum([ AA*BB : {AA,BB} in zip(A,B)]).

cross(A,B) = [A[2]*B[3]-A[3]*B[2], A[3]*B[1]-A[1]*B[3], A[1]*B[2]-A[2]*B[1]].

scalar_triple(A,B,C) = dot(A,cross(B,C)).

vector_triple(A,B,C) = cross(A,cross(B,C)).</lang>

{{out}}

<pre>a = [3,4,5]

b = [4,3,5]

c = [-5,-12,-13]

A . B = 49

A x B = [5,5,-7]

A . (B x C) = 6

A X (B X C) = [-267,204,-3]</pre>