软件名称：[B]巨献全新强力指标，忒佳！（附源码、多图、说明）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：8.00 KB
官方主页：Home Page
更新时间：2012-06-14 00:20:09
软件简介:

物理学认为物体的运动是相对的，同样股市股票的强弱也是相对比较的结果。要比较某股票历史或某一是段上涨或下跌的斜率就应该有一参
照的东东，而股票涨跌最好的参照是大盘运动的轨迹。由于大盘和股价的量级相差太大，往往是无法住在同一的坐标图中同时出现，如果按照
证券软件图形叠加方法能解决问题，但是对比一股票就会出现不方便，本公式的编写就是比较好地解决了这些问题，也提出啦新的k线画法。
  用法和特点：
  一，可直观的比较股票上市以来该股票主力操盘个性---是上下翻飞{加里森敢死队}；是大部分时间在大盘下运行{无主力领导}；是平行于
     大盘且运行在上方{有机构护盘，但无力拉伸}；
  二，短期内大盘和股票的5日均线形成燕尾剪刀差，股票上涨阶段因是介入或持有；如果5日均线形成锥形走弱咯，快弃股！
  三，如果股票5日均线上穿大盘5日均线，确立该股票强于大盘了，后面问题结合情况自己说吧；
  四，如果二5日均线靠着非常近或像异性缠绵，是繁衍时吗？哈。。。。；
  五，许多k线形态大家因该会清楚，我就不罗嗦了；
  六，不用考虑除权后不连贯的走势，这也是该公式的特点；
  七，最后一点请大家务必知道，大盘于股票的是取某一相同的时间比较的，该时点的涨幅假设为零。取不同的时间点比较最后的累计是不同
      的！在此我是采用屏幕显示了的k线作为比较周期的，换句话说，缩放显示k线可以获得不同的比较时间长短，要获得比较理想的图像就
      要适当地调整图像比例。
      
   最后强调：新k线是运动趋势的反映而不是精确的股票涨幅！如果你有比较完整的财务数据是可以搞的非常精准的！

ZF:=BARSSINCE(DISPSTATUS=1);

IF DISPSTATUS=0 or DISPSTATUS=2 THEN BEGIN 
DPC00:(INDEXC-ref(INDEXC,1))/ref(INDEXC,1)*100,PRECIS6,linethick0;
DPC:=SUM(DPC00,ZF);
DPO:=IF(INDEXC>INDEXO,(INDEXC-INDEXO)/INDEXO*100,(INDEXO-INDEXC)/INDEXC*100);
DPL:=IF(INDEXC>=INDEXO,(INDEXO-INDEXL)/INDEXL*100,(INDEXC-INDEXL)/INDEXL*100);
DPH:=IF(INDEXC>=INDEXO,(INDEXH-INDEXC)/INDEXC*100,(INDEXH-INDEXO)/INDEXO*100);
DP_C:=DPC;
DP_O:=if(INDEXC>INDEXO,DPC-abs(DPO),DPC+abs(DPO));
DP_H:=if(INDEXC>INDEXO,DPC+DPH,DPC+DPO+DPH);
DP_L:=if(INDEXC>INDEXO,DPC-DPL-abs(DPO),DPC-DPL);

STICKLINE(INDEXC>INDEXO,DPC-DPL-abs(DPO),DPC+DPH,1,0),Color150073;
STICKLINE(INDEXC>INDEXO,DPC-abs(DPO),DPC,7,0),Color150073;
STICKLINE(INDEXC=INDEXO and INDEXC>ref(INDEXC,1),DPC-DPL-abs(DPO),DPC+DPH,1,0),Color150073;
STICKLINE(INDEXC=INDEXO and INDEXC>ref(INDEXC,1),DPC-abs(DPO),DPC,7,0),Color150073;

STICKLINE(INDEXC<INDEXO,DPC,DPC+abs(DPO),7,0),ColorA9A434;
STICKLINE(INDEXC<INDEXO,DPC-DPL,DPC+DPO+DPH,1,0),ColorA9A434;
STICKLINE(INDEXC=INDEXO and INDEXC<ref(INDEXC,1),DPC,DPC+abs(DPO),7,1),ColorA9A434;
STICKLINE(INDEXC=INDEXO and INDEXC<ref(INDEXC,1),DPC-DPL,DPC+DPO+DPH,1,0),ColorA9A434;
IF BARSTATUS=2 then DRAWTEXT(v>0,DP_C,'大盘'),LINETHICK2;
MA(DP_C,5),ColorC0C0C0;
{--------------------------------------------------------------------------------------------------}

GPC00:(C-ref(C,1))/ref(C,1)*100,PRECIS6,linethick0;
GPC0:=if(abs(GPC00)>11,(C-O)/O*100,GPC00);{撇开除权，股改涨幅超10%}
GPC:=SUM(GPC0,ZF);
GPO:=IF(C>O,(C-O)/O*100,(O-C)/C*100);
GPL:=IF(C>=O,(O-L)/L*100,(C-L)/L*100);
GPH:=IF(C>=O,(H-C)/C*100,(H-O)/O*100);
GP_C:=GPC;
GP_O:=if(C>O,GPC-abs(GPO),GPC+abs(GPO));
GP_H:=if(C>O,GPC+GPH,GPC+GPO+GPH);
GP_L:=if(C>O,GPC-GPL-abs(GPO),GPC-GPL);

STICKLINE(C>O,GPC-GPL-abs(GPO),GPC+GPH,0.1,0),Color0000F0;
STICKLINE(C>O,GPC-abs(GPO),GPC,7,0),Color0000F0,MOVE6;
STICKLINE(C=O and C>ref(C,1),GPC-GPL-abs(GPO),GPC+GPH,0.1,0),Color0000F0;
STICKLINE(C=O and C>ref(C,1),GPC-abs(GPO),GPC,7,0),Color0000F0;

STICKLINE(C<O,GPC,GPC+abs(GPO),7,0),Color00DB00;
STICKLINE(C<O,GPC-GPL,GPC+GPO+GPH,0.1,0),Color00DB00;
STICKLINE(C=O and C<ref(C,1),GPC,GPC+abs(GPO),7,1),Color00DB00;
STICKLINE(C=O and C<ref(C,1),GPC-GPL,GPC+GPO+GPH,0.1,0),Color00DB00;
IF BARSTATUS=2 then DRAWTEXT(v>0,GPC,'股票'),LINETHICK2;
MA(GPC,5),Color80FFFF;
END;

[url=http://www.70822.com/soft/sort013/sort03/down-49638.html]巨献全新强力指标，忒佳！（附源码、多图、说明）[/url]