驭龙阁股市（通达信公式 主图 源码 测试图）

驭龙阁股市

N1:=STRCAT(CON2STR(YEAR,0),' 年 ');

Y1:=STRCAT(CON2STR(MONTH,0),' 月 '); 

R:=STRCAT(CON2STR(DAY,0),' 日 '); 

SJ:=STRCAT(STRCAT(N1,Y1), R); 

DRAWTEXT_FIX(C>0,0.05,0,0,SJ),COLORYELLOW;

A1:EXPMA(C,4);

A2:EXPMA(C,8);

A3:EXPMA(C,12);

A4:EXPMA(C,16);

A5:EXPMA(C,20);

A6:EXPMA(C,47);

{驭龙阁主图}

DRAWTEXT_FIX(1,0.05,0.1,0,'制作：风口寻妖驭龙阁主'),COLORYELLOW,LINETHICK8;

{题材数据}

DRAWTEXT_FIX(ISLASTBAR,0,0,0,CODE),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR,0,0.05,0,STKNAME),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0,0.1,0,HYBLOCK),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0,0.15,0,DYBLOCK),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,0,0.2,0,GNBLOCK),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR,0,0.25,0,FGBLOCK),COLORWHITE;

{风口寻妖}

月DIF:="MACD.DIF#MONTH";

月DEA:="MACD.DEA#MONTH",;

周DIF:="MACD.DIF#WEEK";

周DEA:="MACD.DEA#WEEK",;

日DIF:="MACD.DIF";

日DEA:="MACD.DEA";

日金叉:=CROSS(日DIF,日DEA);

周金叉:=CROSS(周DIF,周DEA);

月金叉:=CROSS(月DIF,月DEA);

共振A:= ( 周DIF>周DEA  AND 日金叉)  OR  ( 日DIF>日DEA AND 周金叉) OR (日金叉 AND 周金叉 ) ;  

共振B:=  日DIF>0  AND  MACD>0  AND C/REF(C,1)>1.08 ;

MA_1:= IF(4 > 1, MA(CLOSE,4), 1);

MA_2:= IF(8 > 1, MA(CLOSE,8), MA_1);

MA_3:= IF(12 > 1, MA(CLOSE,12), MA_1);

MA_4:= IF(16 > 1, MA(CLOSE,16), MA_1);

MA_5:= IF(20 > 1, MA(CLOSE,20), MA_1);

MAX_MA:= MAX(MA_1,MAX(MA_2,MAX(MA_3,MAX(MA_4,MA_4))));

MIN_MA:= MIN(MA_1,MIN(MA_2,MIN(MA_3,MIN(MA_4,MA_5))));

爆发点: (MAX_MA - MIN_MA) / MIN_MA * 100,NODRAW;

上攻力度:ATAN((MA_1/REF(MA_1,1)-1) * 100)*180/3.1415926,NODRAW;

共振C:=上攻力度<85;

共振:=共振A  AND   共振B AND 共振C;

STICKLINE(共振 AND C/REF(C,1)>1.092,C,REF(C,1)*1.05,3,0),COLOR000099;

STICKLINE(共振 AND C/REF(C,1)>1.092,C,REF(C,1)*1.05,2.2,0),COLOR0000CC;

STICKLINE(共振 AND C/REF(C,1)>1.092,C,REF(C,1)*1.05,1.5,0),COLOR0000FF;

STICKLINE(共振 AND C/REF(C,1)>1.092,C,REF(C,1)*1.05,0.5,0),COLORCC66FF;

STICKLINE(共振 AND C/REF(C,1)>1.092,REF(C,1)*1.05,C,0.5,0),COLORYELLOW;

DRAWTEXT(共振 AND C/REF(C,1)>1.092,REF(C,1)*1.058,'↖驭龙'),COLORYELLOW;

 

2021123024257235.png