10/06/21 21:42:27
>>4
% Prolog
ベクトルの正規化(V1,V2) :-
flat(V1,L1),
分散(L1,_分散),
U is sqrt(_分散) / _分散,
行列の積(V1,[[U]],V2).
ベクトルの差([],[],[]) :- !.
ベクトルの差([[A]|R1],[[B]|R2],[[C]|R3]) :-
C is A - B,
ベクトルの差(R1,R2,R3).
normal(V1,V2) :- ベクトルの正規化(V1,V2).
dist(V1,V2,Dist) :- ベクトルの差(V1,V2,Dist).