このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1289913298/823
#  [1] 授業単元:C演習2 
#  [2] 問題文(含コード&リンク): 
#  double 型の実部、虚部から構成される倍精度複素数の構造体を定義し、入力した2つの 
#  複素数の和差積商を算出するプログラムを作成しなさい 
#  

:- op(200,fx,i).

複素数の和(X1 + i(Y1),X2 + i(Y2),X3 + i(Y3)) :-
        X3 is X1 + X2,
        Y3 is Y1 + Y2.

複素数の差(X1 + i(Y1),X2 + i(Y2),X3 + i(Y3)) :-
        X3 is X1 - X2,
        Y3 is Y1 - Y2.

複素数の積(X1 + i(Y1),X2 + i(Y2),X3 + i(Y3)) :-
        X3 is X1 * X2 - Y1 * Y2,
        Y3 is X1 * Y2 + Y1 * X2.

複素数の商(X1 + i(Y1),X2 + i(Y2),X3 + i(Y3)) :-
        X3 is (X1*Y1+X2*Y2) / (X2*X2+Y2*Y2),
        Y3 is (Y1*X2-X1*Y2) / (X2*X2+Y2*Y2).