就是分价分量表中的量最大的价格
也就是量堆积最大的那个价格
想知道历史的量聚焦价，可以用扩展数据管理平台把每天的量聚焦价等保存下来
{量聚焦价-分笔周期}
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]];
fbmax:=0; fbmaxp:=1; fbtemp:=1;
if datacount>1 then begin
for i=2 to datacount do
if fc[fcp[i]]=fc[fcp[i-1]] then begin
fvtemp:=fvtemp+fv[fcp[i]];
fbtemp:=fbtemp+1;
endelse begin
if fvmax<fvtemp then begin
fvmax:=fvtemp;
fvmaxp:=i-1;
end;
if fbmax<fbtemp then begin
fbmax:=fbtemp;
fbmaxp:=i-1;
end;
fvtemp:=fv[fcp[i]];
fbtemp:=1;
end;
if fvmax<fvtemp then begin
fvmax:=fvtemp;
fvmaxp:=i-1;
end;
if fbmax<fbtemp then begin
fbmax:=fbtemp;
fbmaxp:=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[i]];
if svmin>=dynainfo(8)/6 then begin
svminp:=i;
break;
end;
end;
for i=datacount downto 1 do begin
svmax:=svmax+fv[fcp[i]];
if svmax>=dynainfo(8)/6 then begin
svmaxp:=i;
break;
end;
end;
量聚焦价:fc[fcp[fvmaxp]];//聚焦点，即成交量最大的价格
BV:=BUYVOL;
SV:=SELLVOL;
聚焦价买:SUM(IF(C=量聚焦价,BV,0),0),LINETHICK0;
聚焦价卖:SUM(IF(C=量聚焦价,SV,0),0),LINETHICK0;
聚焦点成交量:fvmax,linethick0;
活跃上限:fc[fcp[svmaxp]],linethick0;
活跃下限:fc[fcp[svminp]],linethick0;
活跃区成交量:sum(if(close>=fc[fcp[svminp]] and close<=fc[fcp[svmaxp]],vol,0),0),linethick0;
次数聚焦价:fc[fcp[fbmaxp]],linethick0;//成交笔数（次数）最多的价格
{聚焦价-主图}
聚焦价:STKINDI('','量聚焦价.量聚焦价',0,0),COLORCYAN,LINETHICK2;
聚焦买:=STKINDI('','量聚焦价.聚焦价买',0,0);
聚焦卖:=STKINDI('','量聚焦价.聚焦价卖',0,0);
A:=INTPART(DATACOUNT*聚焦买/(聚焦买+聚焦卖));
B:=HHV(BARPOS=A[DATACOUNT],0);
PARTLINE(B=0,聚焦价),COLORMAGENTA,LINETHICK2;
DRAWTEXTEX(1,1,10,10,'量聚焦价:'+NUMTOSTR(聚焦价,2)+' 元'+'\n'+
'聚焦价买:'+NUMTOSTR(聚焦买,0)+' 手'+'\n'+
'聚焦价卖:'+NUMTOSTR(聚焦卖,0)+' 手'+'\n'+
'占总量比:'+NUMTOSTR((聚焦买+聚焦卖)/SUM(V,0)*100,2)+' %'),COLORCYAN;
 |
