|
回覆: 回覆: 能把这个指标在分钟图上显示吗？
引用:
最初由 king 發表
sellvol只能使用在分筆成交周期,而且只會分辨是否為主動性賣單回應數值只有1與0.
能类似这样引用吗？
QTS:=QT;
QTV:C*0 VOLSTICK;
DE:=date;
TE:=time;
<%
UseMin=FFL.VarData("UseMin")
QTS=FFL.VarData("QTS")
QTV=FFL.VarData("QTV")
DE=FFL.VarData("DE")
TE=FFL.VarData("TE")
StNo=Lbound(QTS): EndNo=Ubound(QTS)
Udate=DE(StNo): KPos=StNo: CountK=0: CountQT=0
for KNo = StNo to EndNo
CountK=CountK+1: CountQT=CountQT+QTS(KNo)
if KNo<EndNo then if Udate<>DE(KNo+1) then CountK=0: Udate=DE(KNo+1)
if CountK mod UseMin = 0 or KNo=EndNo then
for i = KPos to KNo: QTV(i)=CountQT: next
CountK=0: CountQT=0: KPos=KNo+1
end if
next
FFL.VarData("TE")=TE
FFL.VarData("DE")=DE
FFL.VarData("QTS")=QTS
FFL.VarData("QTV")=QTV
%>
P1:=0;
P1:=if(DATATYPE=1,1,P1);
P1:=if(DATATYPE=2,5,P1);
P1:=if(DATATYPE=3,15,P1);
P1:=if(DATATYPE=4,30,P1);
P1:=if(DATATYPE=5,60,P1);
if P1=0 then exit;
QTV:"QTMIN_SUB.QTV#min1"(P1) VOLSTICK;
ma5:ma(QTV,5);
ma10:ma(QTV,10);
|
2006-02-05 17:49
