- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2003-3-11
|
|
有请老大和诸位同学看看 这个 用粉笔统计每天的最大量价位 然后在扩展 !
我改不了L2的 只好投降 求教诸位
if datatype<>0 then begin
drawtext(islastbar,0,'只能运行在分笔周期!\n \n请切换到分笔周期!!'),align2;
exit;
end;
fv:=vol;
fc:=close;
fcp:=fc;
a:=sortpos(fcp,0,1,datacount);
fvmax:=0; fvmaxp:=1; fvtemp:=fv[fcp[1]];
if datacount>1 then begin
for i=2 to datacount do
if fc[fcp]=fc[fcp[i-1]] then fvtemp:=fvtemp+fv[fcp]
else begin
if fvmax<fvtemp then begin
fvmax:=fvtemp;
fvmaxp:=i-1;
end;
fvtemp:=fv[fcp];
end;
if fvmax<fvtemp then begin
fvmax:=fvtemp;
fvmaxp:=i-1;
end;
end;
svmin:=0; svminp:=fv[fcp[1]]; svmax:=0; svmaxp:=fv[fcp[1]];
for i=1 to datacount do begin
svmin:=svmin+fv[fcp];
if svmin>=dynainfo(8)/6 then begin
svminp:=i;
break;
end;
end;
for i=datacount downto 1 do begin
svmax:=svmax+fv[fcp];
if svmax>=dynainfo(8)/6 then begin
svmaxp:=i;
break;
end;
end;
集聚点:fc[fcp[fvmaxp]];
活跃上限:fc[fcp[svmaxp]];
活跃下限:fc[fcp[svminp]]; |
|
|