软件名称：[B]自用指标之四，或许有点用[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2011-08-19 02:52:39
软件简介:

黄金分割线多了些，但会用还是有参考意义的。
分割线密集带，是重点关注的地方，
参数默认：n：20；ur：14；lr：20。
使用中必须调整参数来适合具体的股票。

{变异BOLL-M}
MID:MA(C,N),COLOR0000A8,LINETHICK2;
VART1:=POW((C-MID),2);
VART2:=MA(VART1,N);
VART3:=SQRT(VART2);
UP1:MID+0.809*VART3,COLORGREEN;
UP2:MID+1.809*VART3,COLORLIGRAY;
LO1:MID-0.809*VART3,COLORYELLOW;
LO2:MID-1.809*VART3,COLORWHITE;
{黄金分割}
TC1:=IF(H=HHV(H,8*UR),H,DRAWNULL);
TC2:=CONST(BARSLAST(TC1=H))+1;
UPPER:=CONST(IF(TC2=1,H,REF(H,TC2-1)));
BC1:=IF(L=LLV(L,8*LR),L,DRAWNULL);
BC2:=CONST(BARSLAST(BC1=L))+1;
LOWER:=CONST(IF(BC2=1,L,REF(L,BC2-1)));
LP:=CURRBARSCOUNT<=BC2 AND L=LOWER;{低点定位}
HP:=CURRBARSCOUNT<=TC2 AND H=UPPER;{高点定位}

STICKLINE(LP,L*0.992,L,13,0),COLORFF00FF;
STICKLINE(HP,H,H*1.005,13,0),COLOR00FF00;

X1:IF(CURRBARSCOUNT<=MAX(BC2,TC2),UPPER,DRAWNULL),COLOR89615F;
X2:IF(CURRBARSCOUNT<=MAX(BC2,TC2),LOWER,DRAWNULL),COLOR89615F;
X3:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.146,LOWER+(UPPER-LOWER)*0.146),DRAWNULL),COLOR89615F;
X4:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.191,LOWER+(UPPER-LOWER)*0.191),DRAWNULL),COLOR89615F;
X5:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.236,LOWER+(UPPER-LOWER)*0.236),DRAWNULL),COLOR89615F;
X6:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.382,LOWER+(UPPER-LOWER)*0.382),DRAWNULL),COLOR89615F;
X7:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.5,LOWER+(UPPER-LOWER)*0.5),DRAWNULL),COLOR89615F;
X8:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.618,LOWER+(UPPER-LOWER)*0.618),DRAWNULL),COLOR89615F;
X9:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.764,LOWER+(UPPER-LOWER)*0.764),DRAWNULL),COLOR89615F;
X10:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.809,LOWER+(UPPER-LOWER)*0.809),DRAWNULL),COLOR89615F;







DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X1,'UPPER');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X2,'LOWER');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X3,'0.146');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X4,'0.191');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X5,'0.236');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X6,'0.382');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X7,'0.5');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X8,'0.618');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X9,'0.764');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X10,'0.809');


{底部确认}
CB1:=CONST(IF(TC2>BC2,LOWER,LLV(L,TC2)));
CB2:=CONST(BARSLAST(L=CB1));
CB3:=CONST(REF(BARSLAST(O>C),CB2)+CB2);
CB4:=IF(CB1<UPPER-(UPPER-LOWER)*0.52,CONST(IF(CB2=0 AND O>C,C,REF(C,CB3))),DRAWNULL);
CB5:=IF(CAPITAL=0 AND BC2>TC2,CB4,DRAWNULL);
参考线:IF(CAPITAL=0 AND BC2>TC2  AND CURRBARSCOUNT<=INTPART(CB2+(TC2-CB2)*0.382) AND CURRBARSCOUNT>CB2,CB4,DRAWNULL);
DRAWTEXT(CURRBARSCOUNT=INTPART(CB2+(TC2-CB2)*0.382),参考线,'参考线');
确底线:参考线*1.06;
DRAWTEXT(CURRBARSCOUNT=INTPART(CB2+(TC2-CB2)*0.382),确底线,'确底线');
确防线:确底线*1.06;
DRAWTEXT(CURRBARSCOUNT=INTPART(CB2+(TC2-CB2)*0.382),确防线,'确防线');

{提醒语}
DRAWTEXT(CURRBARSCOUNT=TC2-8 AND CB5>0,UPPER-(UPPER-LOWER)*0.091,'■确底线仅仅适用于指数'),COLOR3171D0;
DRAWTEXT(CURRBARSCOUNT=TC2-8 AND CB5>0,UPPER-(UPPER-LOWER)*0.151,'■请确认已跌去前一波大行情涨幅的百分之52以上'),COLOR3171D0;
DRAWTEXT(CURRBARSCOUNT=TC2-8 AND CB5>0,UPPER-(UPPER-LOWER)*0.208,'■跌幅不够百分之52仅仅作为反弹看待而不是新底'),COLOR3171D0;

[url=http://www.70822.com/soft/sort013/sort05/down-37740.html]自用指标之四，或许有点用[/url]