投资者咨询：[推荐]老师给修改一下 (文华财经WH6赢顺V6.7)
来源:文华财经 日期:2018-12-19 18:29
黄金分割源码：
参数默认：ur：14；lr：20。
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,Ɔ.146');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X4,Ɔ.191');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X5,Ɔ.236');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X6,Ɔ.382');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X7,Ɔ.5');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X8,Ɔ.618');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X9,Ɔ.764');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X10,Ɔ.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;
参数默认：ur：14；lr：20。
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,Ɔ.146');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X4,Ɔ.191');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X5,Ɔ.236');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X6,Ɔ.382');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X7,Ɔ.5');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X8,Ɔ.618');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X9,Ɔ.764');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X10,Ɔ.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;
投资者咨询：[推荐]老师给修改一下 (文华财经WH6赢顺V6.7)
来源:文华财经 日期:2018-12-19 18:29
老师 在忙吗
技术人员回复
日期:2018-12-19 18:52
参考：
UR:14;
LR:20;
TC1:=IF(H=HHV(H,8*UR),H,NULL);
TC2:=REFX1(BARSLAST(TC1=H),9999)+1;
UPPER:=REFX1(IF(TC2=1,H,REF(H,TC2-1)),9999);
BC1:=IF(L=LLV(L,8*LR),L,NULL);
BC2:=REFX1(BARSLAST(BC1=L),9999)+1;
LOWER:=REFX1(IF(BC2=1,L,REF(L,BC2-1)),9999);
CURRBARSCOUNT:=REFX1(BARPOS,9999)-BARPOS+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,NULL),COLOR89615F;
X2:IF(CURRBARSCOUNT<=MAX(BC2,TC2),LOWER,NULL),COLOR89615F;
X3:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.146,LOWER+(UPPER-LOWER)*0.146),NULL),COLOR89615F;
X4:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.191,LOWER+(UPPER-LOWER)*0.191),NULL),COLOR89615F;
X5:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.236,LOWER+(UPPER-LOWER)*0.236),NULL),COLOR89615F;
X6:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.382,LOWER+(UPPER-LOWER)*0.382),NULL),COLOR89615F;
X7:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.5,LOWER+(UPPER-LOWER)*0.5),NULL),COLOR89615F;
X8:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.618,LOWER+(UPPER-LOWER)*0.618),NULL),COLOR89615F;
X9:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.764,LOWER+(UPPER-LOWER)*0.764),NULL),COLOR89615F;
X10:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.809,LOWER+(UPPER-LOWER)*0.809),NULL),COLOR89615F;
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X1,'UPPER');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X2,'LOWER');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X3,Ɔ.146');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X4,Ɔ.191');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X5,Ɔ.236');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X6,Ɔ.382');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X7,Ɔ.5');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X8,Ɔ.618');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X9,Ɔ.764');
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X10,Ɔ.809');
CB1:=REFX1(IF(TC2>BC2,LOWER,LLV(L,TC2)),9999);
CB2:=REFX1(BARSLAST(L=CB1),9999);
CB3:=REFX1(REF(BARSLAST(O>C),CB2)+CB2,9999);
CB4:=IF(CB1<UPPER-(UPPER-LOWER)*0.52,REFX1(IF(CB2=0 AND O>C,C,REF(C,CB3)),9999),NULL);
CAPITAL:=GETPRICE1('流通股本');
CB5:=IF(CAPITAL=0 AND BC2>TC2,CB4,NULL);
参考线:IF(CAPITAL=0 AND BC2>TC2 AND CURRBARSCOUNT<=INTPART(CB2+(TC2-CB2)*0.382) AND CURRBARSCOUNT>CB2,CB4,NULL);
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;
