Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Вниз

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


Zerul   (2002-02-06 19:42) [0]

где мне можно достать инфу по работе в делфи с комплексными числами.



Юрий Зотов   (2002-02-06 19:53) [1]

Как ни странно, но легче всего - в школьном учебнике математики и в любой книжке по Паскалю.



Zerul   (2002-02-06 20:58) [2]

2Юрий Зотов
не видел. или плохо смотрел.

ладно, вы не могли бы привести кусок кода который реализовал бы эту проблему с дальнейшими операциямы над комплексными чис.:

z1:=sqrt(c*b-d*c-sqrt(d1)) // где d1<0
z2:=sqrt(c*b-d*c+sqrt(d1))
z3:=-5/(z1*z2);



Юрий Зотов   (2002-02-06 21:19) [3]

type
Complex = record
Re, Im: double
end;

Function RealToComplex(X: double): Complex;
begin
Result.Re := X;
Result.Im := 0
end;

Function CMul(X, Y: Complex): Complex;
begin
// Если не ошибаюсь (учебника под рукой нет), то:
Rezult.Re := X.Re * Y.Im;
Result.Im := X.Im * Y.Re
end;

Function CDiv(X, Y: Complex): Complex;
begin
// Если снова не ошибаюсь, то:
Rezult.Re := X.Im * Y.Re;
Result.Im := X.Re * Y.Im
end;


Тогда
z3:=-5/(z1*z2);
реализуется в виде
Z3 := CDiv(RealToComplex(-5), CMul(Z1, Z2));

Остальное аналогично. То есть, задача состоит в том, чтобы открыть учебник и, глядя в него, написать простейший модуль CMath, в который будет входить пара десятков простейших функций, каждая из которых реализует одну операцию по образцу тех, что я написал. Скорее всего, в коде самих функции я наврал (увы, слишком давно кончил школу), но исправить, надеюсь, не проблема.



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;




Mbo   (2002-02-07 05:49) [5]

вдогонку
корни вычислять сложнее - их несколько
sqrt1(-dl)=i*sqrt(dl) где dl>=0
sqrt2(-dl)=-i*sqrt(dl)
для понимания надо изучить геометрическую, тригонометрическую
и экспоненциальную форму представления к.ч.

Существуют готовые библиотеки.



Zerul   (2002-02-07 23:34) [6]

спасибо, всем!

2Mbo
я вполне понимаю что такое комплексные числа. (без ком.)

как насчёт готовых библиотек? (хотя, не так важно)



Фэ   (2002-02-07 23:48) [7]

http://www.sourceforge.net




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.02 c
14-79438          White Boy             2002-01-03 21:34  2002.02.25  
Лицензия на Delphi


14-79430          Havez                 2002-01-06 00:18  2002.02.25  
RXLib


14-79440          evgeg                 2002-01-08 03:17  2002.02.25  
Profiler для Дельфи 2


1-79350           Demon[DZ]             2002-02-07 11:16  2002.02.25  
TTreeView&Table


3-79288           Guest.                2002-01-31 11:07  2002.02.25  
Query