通达信新版本中,工具栏定点测幅取消了,动手做了个测幅指标,调节参数定点。
{统计(0,1,1),始(2,999,46),终(0,999,0)}
A1:=CURRBARSCOUNT=始*统计;
A2:=CURRBARSCOUNT=终+1*统计;
ZT:=C/REF(C,1)>=1.095 AND C=H;
DT:=REF(C,1)/C>=1.095 AND C=L;
最高点:=CONST(FINDHIGH(H,终,始-终,1));
最低点:=CONST(FINDLOW(L,终,始-终,1));
星期:=VARCAT(VARCAT('(',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五','')))))),')');
日期:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期);
自然日:=VARCAT(VARCAT('自然日:',CON2STR(DATETODAY(REF(DATE,终))-DATETODAY(REF(DATE,始)),0)),'天,');
周期:=VARCAT(VARCAT(' 周期:',CON2STR(始-终,0)),'个,');
振幅:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(' 振',VAR2STR(最高点-最低点,2)),'('),VAR2STR(最高点/最低点*100-100,2)),'%'),'),');
涨幅:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(' 幅',VAR2STR(REF(C,终)-REF(C,始),2)),'('),VAR2STR(REF(C,终)/REF(C,始)*100-100,2)),'%'),'),');
换手:=VARCAT(VARCAT(' 换',VAR2STR(SUM(HSL.HSL,始)-IF(终=0,0,SUM(HSL.HSL,终)),2)),'%,');
涨停:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(' 涨停:',VAR2STR(SUM(ZT,始)-IF(终=0,0,SUM(ZT,终)),0)),'('),'一字:'),VAR2STR(SUM(ZT AND O=C,始)-IF(终=0,0,SUM(ZT AND O=C,终)),0)),'个),');
跌停:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(' 跌停:',VAR2STR(SUM(DT,始)-IF(终=0,0,SUM(DT,终)),0)),'('),'一字:'),VAR2STR(SUM(DT AND O=C,始)-IF(终=0,0,SUM(DT AND O=C,终)),0)),'个),');
显示:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(自然日,周期),涨幅),振幅),换手),涨停),跌停),'云枫添外');
DRAWTEXT(A1,L*0.98,日期),COLORYELLOW;
DRAWTEXT(IF(终>0,A2,DRAWNULL),L*0.98,日期),COLORGREEN;
DRAWTEXT_FIX(统计=1 AND ISLASTBAR ,0.2,0,0,显示),COLORBBBBBB;
HX:=DRAWLINE(A1,C,A2,C,0),DOTLINE;
DRAWBAND(HX,RGB(0,0,0),HX,RGB(0,0,0)),DOTLINE;
