|
function ScriptFunc(Msg: String; Num: Integer; OpenArray, HighArray, LowArray, CloseArray, VolumeArray, TurnoverArray: Variant): Variant;
var WorkingArray: Variant;
i: Integer;
MaxDay: LongInt;
begin
MaxDay:=Length(OpenArray);
WorkingArray:=VarArrayCreate([0,ArrayLength-1],varDouble);
//
// ----------- sample indicator ---------------------------------------------------------------
for i:=0 to MaxDay-1 do WorkingArray:=(OpenArray + CloseArray)/2;
//-------------------------------------------------------------------------------------------------
//
Result:=WorkingArray;
end;
begin
end. 我想問一下上面的代碼是近什麼語言?
|
|