请选择 进入手机版 | 继续访问电脑版

买股吧

 找回密码
 用户注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2232|回复: 0

量聚焦价飞狐版

[复制链接]

2670

主题

2744

帖子

2372

积分

版主

Rank: 7Rank: 7Rank: 7

积分
2372

正式会员

发表于 2012-4-3 08:43 | 显示全部楼层 |阅读模式


{量聚焦价-分笔周期}
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;
兄弟姐妹们,看帖要顶贴!!!我为人人,人人为我!!!
您需要登录后才可以回帖 登录 | 用户注册

本版积分规则

免责声明:买股吧官方不作任何"加入会员、承诺收益、利润分成"以及其他非法操作方式进行非法的理财服务。
买股吧论坛任何发言和广告信息仅代表本站作者或信息来源的观点,信息内容真实性、准确性和合法性,本站对此不承担任何责任。
本站部分文字及图片来自于网络,如有版权争议,请联系我们。

QQ|广告合作|手机版|标签|小黑屋|Sitemap|网站地图|买股吧 ( 沪ICP备16041282号-2 )

GMT+8, 2024-3-29 07:20 , Processed in 0.132288 second(s), 24 queries .

买股吧是免费专业的股票论坛,专业提供股民常用的股票公式,选股公式,股票入门,股票软件,公式源码股票资料。

快速回复 返回顶部 返回列表