[通达信]通达信寻底MACD+酒源码公式

我是一个兵

通达信寻底MACD+酒源码公式：
{寻底MACD+酒}
VAR1:=(MA(CLOSE,80)-MA(CLOSE,13)/3);
VAR2K:=( MA((CLOSE-VAR1)/VAR1,1));
买点１: IF(CROSS(VAR2K,0) AND LOW/REF(HIGH,1)<1.012,20,0);
最佳点:IF(COUNT(VAR2K>REF(VAR2K,1),3)=3 AND
COUNT(VAR2K<0,10)=10 AND REF(VAR2K,3)=LLV(VAR2K,10),60,0);
买点２: IF(REF(VAR2K,2)=LLV(VAR2K,20) AND
REF(VAR2K,2)<0.071 AND REF(VAR2K,2)<REF(VAR2K,1) AND
NOT(REF(LOW,1)>REF(HIGH,2) AND LOW>REF(HIGH,1)) AND
CLOSE>REF(CLOSE,1),20,0);
MMA:=EMA(VAR2K,12)*0.7;
MMB:=EMA(VAR2K,3);
快到底:IF(LLV(MMB-MMA,12)>0,0,-30),LINETHICK2,COLORGREEN;
底初选股:IF( CROSS(0, LLV(MMB-MMA,12)),10,0),LINETHICK0;
DIFF:( EMA(CLOSE,12) - EMA(CLOSE,26))*100,LINETHICK2,COLORRED;
DEA: EMA(DIFF,9),COLORFFFFFF,LINETHICK2;
MACD:= 2*(DIFF-DEA);
{PARTLINE(DIFF,DIFF>=REF(DIFF,1),RGB(255,0,0),
DIFF<REF(DIFF,1),RGB(0,255,0)),LINETHICK1;}
抄底:IF(快到底<0 AND CROSS(MACD,0),30,0);
DRAWICON( 抄底>0,35 ,5 );
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0),COLORGREEN;
STICKLINE(MACD<REF(MACD,1)AND MACD<0,0,MACD,2,0),COLORFFCC33;
STICKLINE(MACD>REF(MACD,1)AND MACD,0,MACD,2,0),COLORYELLOW;
STICKLINE(MACD>REF(MACD,1)AND MACD>0,0,MACD,3,0),COLORMAGENTA;

{庄家送酒}
VAR2:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
VAR3:=SMA(SMA(VAR2,3,1),3,1)/28.57;
VAR4:=EMA(VAR3,5);
VAR5:=3*VAR3-2*VAR4;
AA:=CROSS(VAR5,VAR3) AND VAR3<2.1 AND C>O;
VAR6:=(2*CLOSE+HIGH+LOW)/4;
VAR7:=LLV(LOW,13);
VAR8:=HHV(HIGH,13);
VAR9:=EMA((VAR6-VAR7)/(VAR8-VAR7)*100,13);
VARA:=EMA(0.667*REF(VAR9,1)+0.333*VAR9,2);
多:VAR9,COLORRED,POINTDOT;
空: EMA(0.382*REF(VAR9,2)+0.618*VAR9,12),COLOR00FF00;
STICKLINE(VAR9>VARA,VAR9,VARA,6,0), COLORWHITE;
STICKLINE(VAR9<=VARA,VAR9,VARA,6,0), COLORFFCC66;
{啤酒瓶画图源码}
STICKLINE(AA,0,30,19,1),COLORYELLOW;
STICKLINE(AA,16,29,18,0),COLORRED;
STICKLINE(AA,1,14,18,0),COLORRED;
STICKLINE(AA,15,15,9,1),COLORYELLOW;
STICKLINE(AA,30,50,8,0),COLORYELLOW;
STICKLINE(AA,50,59,8,1),COLORRED;
STICKLINE(AA,55,59,8,1),COLORRED;
STICKLINE(AA,59,59,8,1),COLORRED;
STICKLINE(AA,59,69,9,0),COLORFFCCCC;
DRAWTEXT(AA,65,'买入'),COLORRED;
DRAWTEXT(AA,26,'杜康 '),COLORYELLOW;