软件名称：[B]南客老师的量聚焦价飞狐版(源码+图例+说明)[/B]
软件类型：国产软件
运行环境：Win2000/WinXP/Win2003/WinVista
软件语言：简体中文
授权方式：共享软件
软件大小：2.00 KB
官方主页：Home Page
更新时间：2012-04-02 04:45:13
软件简介:

就是分价分量表中的量最大的价咯
也就是量堆积最大的那个价咯

想知道历史的量聚焦价，可以用扩展数据管理评台把每天的量聚焦价等保存下来

{量聚焦价-分笔周期}
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;
    end else 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;


 

[url=http://www.70822.com/soft/sort013/sort02/down-46132.html]南客老师的量聚焦价飞狐版(源码+图例+说明)[/url]