通达信专用缠论山寨版主图指标
STICKLINE(顶分型,C,O,8,0),COLORYELLOW,LINETHICK2;
STICKLINE(顶分型,C,O,3,0),COLORYELLOW,LINETHICK2;
STICKLINE(顶分型,H,L,1,0),COLORYELLOW,LINETHICK2;
DRAWTEXT(底分型,L*0.99,'底型'),COLORYELLOW,LINETHICK1;
DRAWTEXT(顶分型,H*1.02,'顶型'),COLORYELLOW,LINETHICK1;
IF(牛熊线<REF(牛熊线,1), 牛熊线 ,DRAWNULL),COLORRED,LINETHICK2;
A1:=REF(HIGH,3)=HHV(HIGH,2*3+1);
B1:=FILTER(A1,3);
C1:=BACKSET(B1,3+1);
D1:=FILTER(C1,3);{高点}
A2:=REF(LOW,3)=LLV(LOW,2*3+1);
B2:=FILTER(A2,3);
C2:=BACKSET(B2,3+1);
D2:=FILTER(C2,3);{低点}
E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;
E2:=(HIGH+LOW)/2;
{高低点出现在同一K线上时可作取舍}
H1:=(D1 AND NOT((D2 AND E1>=E2))) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT((D1 AND E1<E2)));
H2:=D1 AND NOT((D2 AND E1>=E2));
X1:=REF(BARSLAST(H1),1)+1;
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
G1:=F1>REF(F1,1);
I1:=BACKSET(G1,2);
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
G2:=F2>REF(F2,1);
I2:=BACKSET(G2,2);
DRAWLINE(LD,L,HD,H,0),COLORMAGENTA,LINETHICK1;
DRAWLINE(HD,H,LD,L,0),COLORMAGENTA,LINETHICK1;
J1:=BACKSET(ISLASTBAR ,MIN(BARSLAST(HD),BARSLAST(LD))+1);
J2:=J1>REF(J1,1);
DRAWLINE(J2,IF(HD,H,L),ISLASTBAR ,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORWHITE,LINETHICK1;
DRAWRECTREL(990,2,1000,982,RGB(0,0,0));
DRAWRECTREL(990,189,1000,796,RGB(0,0,0));
DRAWRECTREL(990,374,1000,608,RGB(0,0,0));
DRAWRECTREL(990,492,1000,492,RGB(0,0,0));
{DRAWKLINE(H,O,L,C);}
{预测}
CURR:=CURRBARSCOUNT;
BCL:=CONST(FINDLOW(L,0,时间*10,1));
DTT:=CONST(BARSLAST(BCL=L))+1;
SXL:=CONST(IF(DTT=1,L,REF(L,DTT-1)));
GTHT:=IF(DTT,DTT,DRAWNULL);
涨幅%:(C-SXL)/SXL*100,NODRAW,COLORLIGRAY;
STICKLINE(CURR=GTHT,SXL,SXL*3*3,0,1),COLORDD00DD;
{DRAWTEXT(CURR=GTHT,SXL,STRCAT('一 ',CON2STR(SXL,2)));}
DRAWTEXT(CURR=GTHT,SXL*1.191,STRCAT('一 ',CON2STR(SXL*1.191,2)));
DRAWTEXT(CURR=GTHT,SXL*1.382,STRCAT('一 ',CON2STR(SXL*1.382,2)));
DRAWTEXT(CURR=GTHT,SXL*1.5,STRCAT('一 ',CON2STR(SXL*1.5,2)));
DRAWTEXT(CURR=GTHT,SXL*1.618,STRCAT('一 ',CON2STR(SXL*1.618,2)));
DRAWTEXT(CURR=GTHT,SXL*1.809,STRCAT('一 ',CON2STR(SXL*1.809,2)));
DRAWTEXT(CURR=GTHT,SXL*2,STRCAT('一 ',CON2STR(SXL*2,2)));
DRAWTEXT(CURR=GTHT,SXL*2*1.191,STRCAT('一 ',CON2STR(SXL*2*1.191,2))),COLORRED;
DRAWTEXT(CURR=GTHT,SXL*2*1.382,STRCAT('一 ',CON2STR(SXL*2*1.382,2))),COLORRED;
DRAWTEXT(CURR=GTHT,SXL*2*1.5,STRCAT('一 ',CON2STR(SXL*2*1.5,2))),COLORRED;
DRAWTEXT(CURR=GTHT,SXL*2*1.618,STRCAT('一 ',CON2STR(SXL*2*1.618,2))),COLORRED;
DRAWTEXT(CURR=GTHT,SXL*2*1.809,STRCAT('一 ',CON2STR(SXL*2*1.809,2))),COLORRED;
DRAWTEXT(CURR=GTHT,SXL*2*2,STRCAT('一 ',CON2STR(SXL*2*2,2))),COLORRED;
DRAWTEXT(CURR=GTHT,SXL*2*2.191,STRCAT('一 ',CON2STR(SXL*2*2.191,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT,SXL*2*2.382,STRCAT('一 ',CON2STR(SXL*2*2.382,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT,SXL*2*2.5,STRCAT('一 ',CON2STR(SXL*2*2.5,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT,SXL*2*2.618,STRCAT('一 ',CON2STR(SXL*2*2.618,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT,SXL*2*2.809,STRCAT('一 ',CON2STR(SXL*2*2.809,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT,SXL*2*3,STRCAT('一 ',CON2STR(SXL*2*3,2))),COLORYELLOW;
DRAWTEXT(CURR=GTHT,SXL*3*2.191,STRCAT('一 ',CON2STR(SXL*3*2.191,2))),COLORGREEN;
DRAWTEXT(CURR=GTHT,SXL*3*2.382,STRCAT('一 ',CON2STR(SXL*3*2.382,2))),COLORGREEN;
DRAWTEXT(CURR=GTHT,SXL*3*2.5,STRCAT('一 ',CON2STR(SXL*3*2.5,2))),COLORGREEN;
DRAWTEXT(CURR=GTHT,SXL*3*2.618,STRCAT('一 ',CON2STR(SXL*3*2.618,2))),COLORGREEN;
DRAWTEXT(CURR=GTHT,SXL*3*2.809,STRCAT('一 ',CON2STR(SXL*3*2.809,2))),COLORGREEN;
DRAWTEXT(CURR=GTHT,SXL*3*3,STRCAT('一 ',CON2STR(SXL*3*3,2))),COLORGREEN;
魔鬼线:MA(CLOSE,321),LINETHICK2;
LA1:=CROSS(C,MA(C,321));
LA2:=MA(V,5)>MA(V,60);
LA3:=C/REF(C,1)>1.04;
LXG:=LA1 AND LA2 AND LA3;
DRAWTEXT(LXG,魔鬼线*1.01,'★天使'),COLOR00FFFF;
KX:='CHANLUN@KXIAN';
KXG:='CHANLUN@KXG';
KXD:='CHANLUN@KXD';
KXFX:='CHANLUN@KXFX';
笔:='CHANLUN@BI';
笔周期:'CHANLUN@BILAST',LINETHICK0, COLORFF00FF;
BILAST:='CHANLUN@BILAST';{笔周期};
段:='CHANLUN@DUAN';
段周期:'CHANLUN@DUANLAST', LINETHICK0, COLORFFFFFF;
DUANLAST:='CHANLUN@DUANLAST'; {段周期};
中枢:='CHANLUN@ZS';
ZSZG:='CHANLUN@ZSZG';
ZSZD:='CHANLUN@ZSZD';
ZSGG:='CHANLUN@ZSGG';
ZSDD:='CHANLUN@ZSDD';
ZSZZ:='CHANLUN@ZSZZ';
ZSKS:='CHANLUN@ZSKSLAST';
ZSJS:='CHANLUN@ZSJSLAST';
BIFX:=-REF(笔,BILAST);
DUANFX:=-REF(段,DUANLAST);
KXQJ:='CHANLUN@KXQJ';
{画中枢BEGIN} {以背景方式画}
STICKLINE(ZSZG>ZSZD AND DUANFX=1, ZSZG, ZSZD, 10, 1),COLOR8E236B;
STICKLINE(ZSZG>ZSZD AND DUANFX=-1, ZSZG, ZSZD, 10, 1), COLOR007700;
- 上一篇公式:通达信自用【V型反转抄底】无未来不漂移指标贴图
- 下一篇公式:通达信【金钻指标】1900元买来的分时主图指标无私奉献源码