комплексные числа

← →
Mbo (2002-02-07 05:39) [4]

подправлю в тех же обозначениях
Function CMul(X, Y: Complex): Complex;
begin
Rezult.Re := X.Re * Y.Re - X.Im * Y.Im;
Result.Im := X.Im * Y.Re + X.Re * Y.Im;
end;

Function CAbs(X: Complex): Double;
begin
Rezult:= Sqrt(Sqr(X.Im)+Sqr(X.Re));//или Hypot
end;

Function CDiv(X, Y: Complex): Complex;
var Abs2:double;
begin
abs2:=Sqr(Y.Im)+Sqr(Y.Re);
Rezult.Re := (X.Re * Y.Re+X.Im*Y.Im)/Abs2;
Result.Im := (X.Im * Y.Re-X.Re*Y.Im)/Abs2;
end;

комплексные числа Найти похожие ветки