在頻率5分K下,寫出流動大戶差比的程式

好的, 許教授,以下是程式碼.

array:_ArrayLarge[3](0),_ArraySmall[3](0);

var:_Count(0);

if barfreq <> "Min" or barinterval <> 5 then 

raiseruntimeerror("僅支援 5 分鐘頻率");

//初始化

if getfieldDate("Date") <> getfieldDate("Date")[1] then begin

_Count = 0;

Array_SetValRange(_ArrayLarge, 5, 3, 0);

Array_SetValRange(_ArraySmall, 5, 3, 0);

value3 = 0;

value99 = 0;

end else begin

_Count += 1;

end;

value99 = mod(_count,3) + 1;

_ArrayLarge[value99] = GetField("買進大單金額", "5") + GetField("買進特大單金額", "5");

_ArraySmall[value99] = GetField("賣出大單金額", "5") + GetField("賣出特大單金額", "5");

value1 = Array_Sum(_ArrayLarge, 5, 3);

value2 = Array_Sum(_ArraySmall, 5, 3);

//流動大戶淨買進金額

value3 = value1 - value2;

plot1(value3,"流動大戶淨買進金額");

//近15分鐘的成交金額 

array : _ArrayAmount[3](0);

var:_n(0);

//初始化

if getfieldDate("Date") <> getfieldDate("Date")[1] then begin

_n = 0;

Array_SetValRange(_ArrayAmount, 5, 3, 0);

value5 = 0;

value98 = 0;

end else begin

_n += 1;

end;

value98 = mod(_n,3) + 1;

_ArrayAmount[value98] = GetField("成交金額", "5") ;

value6 = Array_Sum(_ArrayAmount, 5, 3);

plot2(value6,"近15分鐘的成交金額 ");

//近15分鐘大戶差比

value7 = iff(value6<>0, value3/value6*100,0);

plot3(value7,"5分k_流動大戶差比");