Вверх ↑
Ответов: 8921
Рейтинг: 823
#1: 2012-12-06 14:01:37 ЛС | профиль | цитата
Netspirit, заготовка, а все вычисления в IC http://forum.hiasm.com//getfile/29693 собственно арифметика комплексных чисел.
unit hiСomplexMath;

interface

uses Kol,Share,Debug;

type
THIСomplexMath = class(TDebug)
private
_Err:boolean;
Res:string;
Def:string;
AngleMode:real;

procedure SetDefault(Value:real);
procedure SetAngleMode(Value:byte);
public
_prop_OpType:byte;
_prop_Op1:string;
_prop_Op2:string;
_event_onResult:THI_Event;
_event_onError:THI_Event;
_data_Op1:THI_Event;
_data_Op2:THI_Event;

procedure _work_doOperation(var _Data:TData; Index:word);
procedure _work_doClear(var _Data:TData; Index:word);
procedure _work_doDefault(var _Data:TData; Index:word);
procedure _work_doAngleMode(var _Data:TData; Index:word);
procedure _var_Result(var _Data:TData; Index:word);
property _prop_Default:real write SetDefault;
property _prop_AngleMode:byte write SetAngleMode;
end;

implementation

uses hiMathParse;

const
digE = 2.718281828459045;
Pi2 = 6.283185307179686;

procedure THIСomplexMath.SetDefault;
begin
Def:=Value;
Res:=Def;
_Err:=false;
end;

procedure THIСomplexMath._work_doDefault;
begin
SetDefault(ToString(_Data));
end;

procedure THIСomplexMath._work_doAngleMode;
begin
SetAngleMode(ToInteger(_Data));
end;

procedure THIСomplexMath._work_doClear;
begin
Res:=Def;
_Err:=false;
end;

procedure THIСomplexMath._var_Result;
begin
if _Err then dtNull(_Data)
else dtString(_Data,Res);
end;

procedure THIСomplexMath._work_doOperation;
var

begin

end;


end.

------------ Дoбавленo в 14.01:
Что-то код с ошибками вставляется, пришлось цитировать
карма: 19

0