09/07/07 06:57:09
>>350 (1)
% Prolog
:- op(300,fx,i).
複素数の割り算(A + iB,C + iD,X + iY) :-
X is (A * C + B * D) / ( C ^ 2 + D ^ 2),
Y is (B * C - A * D) / ( C ^ 2 + D ^ 2).
09/07/07 06:57:09
>>350 (1)
% Prolog
:- op(300,fx,i).
複素数の割り算(A + iB,C + iD,X + iY) :-
X is (A * C + B * D) / ( C ^ 2 + D ^ 2),
Y is (B * C - A * D) / ( C ^ 2 + D ^ 2).