09/07/07 07:59:46
>>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 07:59:46
>>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).