vector - 如果Prolog中有虚数，如何计算向量积？

Question

我试图在 Prolog 中将两个向量相乘，但是如果这些向量包含虚数，我就无法让它工作。到目前为止我的代码：

vector_product([X|Xs],[Y|Ys],OP) :-
    inner(Xs,Ys,OP1),
    OP is X*Y+OP1.
vector_product([],[],0).

Answer 1

看看能不能帮到你...

来自维基百科的公式：

% (a+bi) + (c+di) = (a+c) + (b+d)i
c_sum((A,B), (C,D), (E,F)) :- E is A+C, F is B+D.

% (a+bi) (c+di) = (ac-bd) + (bc+ad)i
c_mul((A,B), (C,D), (E,F)) :- E is A*C - B*D, F is B*C + A*D.

数字表示为(Real, Imaginary)。

vector_product([X|Xs], [Y|Ys], OP) :-
    vector_product(Xs, Ys, OP1),
    c_mul(X, Y, M),
    c_sum(M, OP1, OP).
vector_product([], [], (0,0)).