unit hiMath;

interface

uses Kol,Share,Debug;

type
THIMath = class(TDebug)
private
_Err:boolean;
Res:real;
Def:real;
AngleMode:real;

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

procedure _work_doOperation0 (var _Data:TData; Index:word);
procedure _work_doOperation1 (var _Data:TData; Index:word);
procedure _work_doOperation2 (var _Data:TData; Index:word);
procedure _work_doOperation3 (var _Data:TData; Index:word);
procedure _work_doOperation4 (var _Data:TData; Index:word);
procedure _work_doOperation5 (var _Data:TData; Index:word);
procedure _work_doOperation6 (var _Data:TData; Index:word);
procedure _work_doOperation7 (var _Data:TData; Index:word);
procedure _work_doOperation8 (var _Data:TData; Index:word);
procedure _work_doOperation9 (var _Data:TData; Index:word);
procedure _work_doOperation10(var _Data:TData; Index:word);
procedure _work_doOperation11(var _Data:TData; Index:word);
procedure _work_doOperation12(var _Data:TData; Index:word);
procedure _work_doOperation13(var _Data:TData; Index:word);
procedure _work_doOperation14(var _Data:TData; Index:word);
procedure _work_doOperation15(var _Data:TData; Index:word);
procedure _work_doOperation16(var _Data:TData; Index:word);
procedure _work_doOperation17(var _Data:TData; Index:word);
procedure _work_doOperation18(var _Data:TData; Index:word);
procedure _work_doOperation19(var _Data:TData; Index:word);
procedure _work_doOperation20(var _Data:TData; Index:word);
procedure _work_doOperation21(var _Data:TData; Index:word);
procedure _work_doOperation22(var _Data:TData; Index:word);
procedure _work_doOperation23(var _Data:TData; Index:word);
procedure _work_doOperation24(var _Data:TData; Index:word);
procedure _work_doOperation25(var _Data:TData; Index:word);
procedure _work_doOperation26(var _Data:TData; Index:word);
procedure _work_doOperation27(var _Data:TData; Index:word);
procedure _work_doOperation28(var _Data:TData; Index:word);
procedure _work_doOperation29(var _Data:TData; Index:word);
procedure _work_doOperation30(var _Data:TData; Index:word);
procedure _work_doOperation31(var _Data:TData; Index:word);
procedure _work_doOperation32(var _Data:TData; Index:word);
procedure _work_doOperation33(var _Data:TData; Index:word);
procedure _work_doOperation34(var _Data:TData; Index:word);
procedure _work_doOperation35(var _Data:TData; Index:word);
procedure _work_doOperation36(var _Data:TData; Index:word);
procedure _work_doOperation37(var _Data:TData; Index:word);
procedure _work_doOperation38(var _Data:TData; Index:word);
procedure _work_doOperation39(var _Data:TData; Index:word);
procedure _work_doClear(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

[About]
Version=1.0
Author=Dilma

[Type]
Class=Element
Info=Арифметические операции +,-,*,/,... (и т.п. по списку в OpType)
View=OpType,20
Tpl=True

[Property]
OpType=Определяет арифметическую операцию|4|0|+,-,*,/,and,or,xor,div,mod,shl,shr,x^y,cos,sin,tg,ctg,acos,asin,atan,ch,sh,th,cth,ach,ash,ath,acth,log,lg,ln,exp,sqr,sqrt,abs,sign,roun,frac,trun,min,max
Op1=Определяет операнд 1 по умолчанию|7|0
Op2=Определяет операнд 2 по умолчанию|7|0
ResultType=Определяет тип результата|4|1|Integer,Real
Default=Начальные значения результата|7|0
AngleMode=Единицы для тригонометрических функций|4|0|Радианы,Градусы

[Methods]
doOperation%OpType%=Вычисляет сумму, или разность, или... (и т.д. по списку в OpType)|1|
*doClear=Устанавливает начальные значения результата|1|
onResult=Выдаёт в поток результат матоперации|2|real
*onError=Событие происходит всякий раз при арифметической ошибке|2|
Op1=Операнд 1|4|real
Op2=Операнд 2|4|real
Result=Содержит результат операции после его вычисления методом doOperation|3|int