通达信龙蟠虎踞副图指标 源码

CM2:=EMA(CLOSE,5);
CM4:=EMA(CM2,60);
基准:=EMA(CM4,80);
牛:IF(基准>REF(EMA(基准,1),1),基准,DRAWNULL),COLORRED,LINETHICK2;
熊:IF(基准<REF(EMA(基准,1),1),基准,DRAWNULL),COLORFF937F,LINETHICK2;
BIAS3:=MA((CLOSE-MA(CLOSE,27))/MA(CLOSE,27),3)*100;
炒作:IF(BIAS3>0,LLV(L,20),DRAWNULL)COLORFF00FF,CIRCLEDOT;
观望:IF(BIAS3<0,LLV(L,20),DRAWNULL)COLOR00EE00,CIRCLEDOT;
MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;
安全A:=MA((20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210,6),LINETHICK2,COLORWHITE;
支撑:IF(安全A<REF((EMA(C,2)),1),安全A,DRAWNULL),COLORRED,LINETHICK2;
压力:IF(安全A>REF((EMA(C,2)),1),安全A,DRAWNULL),COLOR00EE00,LINETHICK2;
压托:=MA(CLOSE,63),LINETHICK1,COLORFF00FF;
强撑:IF(压托>REF((EMA(压托,2)),1),压托,DRAWNULL),COLORFF00FF,LINETHICK2;
强压:IF(压托<REF((EMA(压托,2)),1),压托,DRAWNULL),COLOR00EE00,LINETHICK2;
现价:C,COLORYELLOW;
买线:=EMA(CLOSE,2),COLOR0000FF;
卖线:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),42),POINTDOT,COLOR00FF00;
R:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1);
XQ:=IF(MA(CLOSE,17)<R,R,MA(CLOSE,17));
托底线:=XQ-(EMA(CLOSE,3)-XQ),COLORFF8080,LINETHICK2;
DRAWTEXT(CROSS(C,托底线) AND 买线 >= 卖线 AND 压托>REF((EMA(压托,2)),1) ,H * 1.1,'●买'),COLORYELLOW;
VART100:=AMOUNT/VOL/100;
VART200:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
VART300:=SUM(AMOUNT,5)/VART100/100;
基准2:=DMA(VART200,VOL/VART300);
持仓:IF(基准2>REF(基准2,1),基准2,DRAWNULL),COLORYELLOW,LINETHICK2;
减仓:IF(基准2<REF(基准2,1),基准2,DRAWNULL),COLORBLUE,LINETHICK2;
VAR1000:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR2000:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR3000:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));
助涨:IF(CROSS(VAR2000,MA(VAR3000,5)),LOW * 0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;
B36:=MA(CLOSE,3) - MA(CLOSE,6);
B612:=MA(CLOSE,6) - MA(CLOSE,12);
J:=((B36)/(CLOSE))*(10);
J1:=((B612)/(CLOSE))*(10);
DRAWTEXT((J < (-0.2)) AND (J1 < (-0.2)) AND CROSS(J,J1) AND C>REF(EMA(基准,1),1),(LOW)*(0.95),'●大牛'),COLORRED;
VAR111:=(((CLOSE - MA(CLOSE,6))/(MA(CLOSE,6)))*(200) + ((CLOSE - MA(CLOSE,24))/(MA
(CLOSE,24)))*(200) + ((CLOSE - MA(CLOSE,32))/(MA(CLOSE,32)))*(200))/(3);
DRAWTEXT((VAR111 > 20) AND FILTER((VAR111 < REF(VAR111,1)),5),(HIGH)*(1.02),'跑'),COLOR00FF00;
VAR9:=((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100);
VAR10:=SMA(VAR9,3,1);
VAR11:=SMA(VAR10,3,1),COLOR0000FF;
VAR12:=SMA(VAR11,3,1),COLOR00FFFF;
金叉:=(CROSS(VAR11,VAR12) AND (VAR11<40));
DRAWTEXT(金叉,LOW * 0.98,'金叉'),COLORYELLOW;
BBUY:=CROSS(买线,卖线);
SEL:=CROSS(卖线,买线);
STICKLINE((买线 >= 卖线),LOW,HIGH,0.4,0),COLOR0000FF;
STICKLINE((买线 >= 卖线),CLOSE,OPEN,3,1),COLOR000077;
STICKLINE((买线 >= 卖线),CLOSE,OPEN,2.6,1),COLOR000099;
STICKLINE((买线 >= 卖线),CLOSE,OPEN,2,1),COLOR0000BB;
STICKLINE((买线 >= 卖线),CLOSE,OPEN,1.3,1),COLOR0000DD;
STICKLINE((买线 >= 卖线),CLOSE,OPEN,0.4,1),COLOR0000FF;
STICKLINE((买线 < 卖线),LOW,HIGH,0.4,0),COLORFFFF00;
STICKLINE((买线 < 卖线),CLOSE,OPEN,3,1),COLOR777700;
STICKLINE((买线 < 卖线),CLOSE,OPEN,2.6,1),COLOR999900;
STICKLINE((买线 < 卖线),CLOSE,OPEN,2,1),COLORBBBB00;
STICKLINE((买线 < 卖线),CLOSE,OPEN,1.3,1),COLORDDDD00;
STICKLINE((买线 < 卖线),CLOSE,OPEN,0.4,1),COLORFFFF00;
STICKLINE((CROSS(买线,卖线) OR CROSS(卖线,买线)),OPEN,CLOSE,5,0),COLOR0055FF;
STICKLINE((CROSS(买线,卖线) OR CROSS(卖线,买线)),OPEN,CLOSE,4.2,0),COLOR0077FF;
STICKLINE((CROSS(买线,卖线) OR CROSS(卖线,买线)),OPEN,CLOSE,3,0),COLOR0099FF;
STICKLINE((CROSS(买线,卖线) OR CROSS(卖线,买线)),OPEN,CLOSE,2.2,0),COLOR00BBFF;
STICKLINE((CROSS(买线,卖线) OR CROSS(卖线,买线)),OPEN,CLOSE,1.5,0),COLOR00DDFF;
STICKLINE((CROSS(买线,卖线) OR CROSS(卖线,买线)),OPEN,CLOSE,0.4,0),COLOR00FFFF;
DRAWICON(BBUY,(L * 0.99),5);
DRAWICON(SEL,(HIGH * 1.01),6);
AR1:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55)),5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55)),5,1);
黑马线:=EMA(AR1,5);
AR2:=(黑马线-REF(黑马线,1))/REF(黑马线,1);
AR3:=EMA(C,5);
AR4:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)));
趋势线:=(MA(3*SMA(AR4,6,1)-2*SMA(SMA(AR4,5,1),5,1),2));
AR5:=(HHV(H,60)-C)/(HHV(H,60)-LLV(L,60));
DRAWTEXT(CROSS(AR1,黑马线)AND 黑马线<AR5,L*0.96,'黑马');
DRAWTEXT(CROSS(黑马线,AR5)AND 趋势线<80,L*0.95,'追涨');
QW1:=(HIGH+LOW+CLOSE*2)/4;
QW3:=EMA(QW1,10);
QW4:=STD(QW1,10);
QW5:=(QW1-QW3)*100/QW4;
QW6:=EMA(QW5,5);
涨:=EMA(QW6,10)+100/2-5;
跌:=EMA(涨,4);
风险:IF( 涨>160,LLV(L,21),DRAWNULL)COLORYELLOW,CIRCLEDOT;
高危:IF( 涨>180,LLV(L,21),DRAWNULL)COLORRED,CIRCLEDOT;
DRAWTEXT(涨>160 AND REF(涨,1)<160,L * 0.90,'风险区'),COLORYELLOW;
DRAWTEXT(涨>180 AND REF(涨,1)<180,L * 0.92,'高危区'),COLORWHITE;
DRAWTEXT(CROSS(涨,跌) AND 涨<-7 ,L * 0.93 ,'预警'),COLORYELLOW;
DRAWTEXT(CROSS(涨,跌) AND 涨<90 AND 涨>0 AND CROSS(买线,卖线),L * 0.94,'爆涨'),COLORFFFF00;
DRAWTEXT(CROSS(涨,跌) AND 涨<-60,L * 0.93,'建仓'),COLORFFFFFF;
VAR1T:=(CLOSE-LLV(LOW,36))/(HHV(HIGH,36)-LLV(LOW,36))*100;
VAR2T:=SMA(VAR1T,3,1);
VAR3T:=SMA(VAR2T,3,1);
VAR4T:=SMA(VAR3T,3,1);
VAR6T:=CROSS(VAR3T,VAR4T) AND VAR3T<20;
DRAWTEXT(FILTER(VAR6T,10)=1,LOW * 0.90,'●抄底'),COLORYELLOW;
VAR7T:=CROSS(VAR4T,VAR3T) AND VAR3T>80;
DRAWTEXT(FILTER(VAR7T,5)=1,HIGH * 1.08 ,'●逃顶') ,COLORGREEN;
MAXV:=CONST(HHV(VOL,21));
MAXS:=CONST(HHV(HIGH,21));
BS:=MAXV/MAXS;
VOLUME:=VOL/BS*0.10;
ORIGIN:=CONST(LLV(LOW,0))-CONST(0.5*HHV(VOLUME,0)),;
STICKLINE(CLOSE>=OPEN,ORIGIN,ORIGIN+VOLUME,0.2,0),COLORRED;
STICKLINE(CLOSE<OPEN,ORIGIN,ORIGIN+VOLUME,0.2,0),COLORGREEN;