通达信御龙指路主图指标公式源码

DRAWTEXT_FIX(1,0.005,0,0,'所属风格:'),COLORMAGENTA;
DRAWTEXT_FIX(1,0.06,0,0,FGBLOCK),COLORYELLOW;
DRAWTEXT_FIX(1,0.005,0.05,0,'所属概念:'),COLORMAGENTA;
DRAWTEXT_FIX(1,0.06,0.05,0,GNBLOCK),COLORYELLOW;

VAR2:=(CLOSE/REF(CLOSE,1)>=1.095 AND CLOSE/REF(CLOSE,1)<=1.105
  OR (CLOSE/REF(CLOSE,1)>=1.195 AND CLOSE/REF(CLOSE,1)<=1.205)
  OR (CLOSE/REF(CLOSE,1)>=1.295 AND CLOSE/REF(CLOSE,1)<=1.305))
  AND CLOSE=HIGH;
STICKLINE(VAR2,OPEN,CLOSE,1,0),COLORMAGENTA;
DRAWTEXT(VAR2,H*1.026,' '),COLORYELLOW;

VAR1:=(3*CLOSE+OPEN+HIGH+LOW)/6;
控盘度:=(EMA(VAR1,12)-REF(EMA(VAR1,36),1))/REF(EMA(VAR1,36),1)*100+50,NODRAW;
VA13:=0.01*EMA(AMOUNT,13)/EMA(VOL,13);
高度:(CLOSE-VA13)/VA13*1000,NODRAW;
VA:=VOL/CAPITAL*100;

VAR5:=IF(CODELIKE('688'),0,1);
VAR6:=COST(85);
VAR7:=COST(15);
VAR8:=VAR6-VAR7;
VAR9:=(VAR6+VAR7)/2;
竹板:=VAR8/VAR9*100<30,LINETHICK0;
VAR10:=HHV(HIGH,250);
VAR11:=LLV(LOW,250);
VAR12:=VAR10-VAR11;
VAR13:=(VAR9-VAR11);
比例:=VAR9<(VAR12*0.4+VAR11),LINETHICK0;
吸筹结束:=竹板 AND 比例;

VAR15:=C/REF(C,1)>1.04;
VA手%:=EMA(100*(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30)),3);
VA手:=VA手%>=75 AND C>0 AND CLOSE>OPEN;
御龙:=FILTER(VA手 AND 吸筹结束 AND VAR13
  AND WINNER(C)>=0.90 AND VAR15
  AND C/REF(C,1)>1.092 AND C=H
  AND C<40 AND VAR5 AND VA<20,10),NODRAW;

短线:EMA(CLOSE,5),LINETHICK1,COLORWHITE DOTLINE;
A:=(3*C+L+O+H)/6;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)
  +15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)
  +11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
  +7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)
  +3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
中线:EMA(X,34),LINETHICK2,COLORRED;

STICKLINE(御龙,O,C,1,0),COLORFF0080;

DIFF:=EMA(CLOSE,9)-EMA(CLOSE,26);
DEA:=EMA(DIFF,12);
MACD:=2*(DIFF-DEA),COLORSTICK;
ZC:=50*(IF(MACD>REF(MACD,1) AND REF(MACD,1)>0
  AND REF(MACD,2)>REF(MACD,1),0.2,0));
去昨天:=IF(REF((H-MAX(C,O))/ABS(C-O)>1,1),0,1);
御龙指路:=BARSLASTCOUNT(高度>0 AND 高度>=50)=1
  AND MACD.MACD>0 AND ZC AND 去昨天;
STICKLINE(御龙指路,C,O,2,0),COLORYELLOW;
DRAWICON(御龙指路,L*1.002,1);