主题：通达信转金字塔

QXG:=BARSCOUNT(V)>100;
QSTT:=IF(NAMELIKE('ST') OR NAMELIKE('*ST'),0,1);
QKC:=IF(CODELIKE('688'),0,1);
AA1G:=REF(LOW,1);
AA2G:=SMA(ABS(LOW-AA1G),13,1)/SMA(MAX(LOW-AA1G,0),13,1)*100;
AA3:=EMA(IF(CLOSE*1.2,AA2G*13,AA2G/13),13);
AA4:=LLV(LOW,34);
AA5:=HHV(AA3,34);
AA6:=IF(LLV(LOW,56),1,0);
AA7C:=EMA(IF(LOW<=AA4,(AA3+AA5*2)/2,0),3)/618*AA6;
AA8C:=AA7C>REF(AA7C,1);
AA9:=REF(LLV(LOW,100),3);
AA10:=REFDATE(AA9,DATE);
AA11:=LOW=AA10;
AA12:=AA8C AND AA11;
AA13:=AA12>REF(AA12,1);
启动:(AA13>REF(AA13,1) AND QSTT)/5,COLORRED;
 
 
DIF:(EMA(CLOSE,12)-EMA(CLOSE,26)),COLORWHITE;
DEA:(EMA(DIF,9)),COLORYELLOW;
IF(DIF>DEA,DIF,DRAWNULL),COLORRED,LINETHICK2;
IF(DEA<DIF,DEA,DRAWNULL),COLORMAGENTA,LINETHICK2;
DRAWICON(CROSS(DEA,DIF),DEA,2);
MACD:(DIF-DEA)*2,COLORSTICK,COLORGREEN;
MACD2:=MACD;
MJ:=MACD;
S05:=SUM(MJ,0);
QST:=BARSLAST(MJ<0 AND REF(MJ,1)>0)+1;
QXT:=BARSLAST(MJ>0 AND REF(MJ,1)<0)+1;
S5:=IF(MJ>0,S05-REF(S05,BARSLAST(MJ<0)),S05-REF(S05,BARSLAST(MJ>0)))/10;
ST:=IF(MJ>0,REF(QST,QXT)+QXT,REF(QXT,QST)+QST);
RS5:=REF(S5,ST);
BC:IF(MJ>0 AND S5<RS5,0,IF(MJ<0 AND S5>RS5 AND DEA<0,0.02,0)),COLORYELLOW,VOLSTICK;
获利比例:WINNER(C),NODRAW;
STICKLINE((MACD2>=0),0,MACD2,0,1),COLORRED;
STICKLINE(((MACD2>=0) AND (MACD2 < REF(MACD2,1))),0,MACD2,0,0),COLORMAGENTA;
STICKLINE((MACD2<0),0,MACD2,0,0),COLORGREEN;
STICKLINE(((MACD2<0) AND (MACD2 > REF(MACD2,1))),0,MACD2,0,1),COLORWHITE;
DRAWICON(LONGCROSS(CLOSE,MA(CLOSE,5),17),MACD2,1);
DRAWICON(LONGCROSS(MA(CLOSE,5),CLOSE,17),MACD2,2);
DRAWICON(CROSS(DIF,DEA),LLV(DIF,1),29);
DRAWICON(CROSS(DIF>=0,DIF<DEA),DIF,1);
低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1;
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWICON(二次金叉,0,25);
三次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=3,60)=1;
DRAWICON(三次金叉,0,26);A1:=IF(MACD2>0,1,-1);
TJ:=MACD2>0;
T:=MACD2<0;
A:=LLV(MACD2,50)=MACD2;
DRAWICON(A AND FILTERX(A,20), MACD2,1);
DRAWTEXT(BARSLAST(TJ)=1,MACD2,'1'),COLORGREEN;
DRAWTEXT(BARSLAST(TJ)=2,MACD2,'2'),COLORGREEN;
DRAWTEXT(BARSLAST(TJ)=3,MACD2,'3'),COLORGREEN;
DRAWTEX

 QXG:=BARSCOUNT(V)>100;
QSTT:=IF(STRLEFT(STKNAME,2)='ST' OR STRLEFT(STKNAME,2)='*ST',0,1);
QKC:=IF(STRLEFT(STKLABEL,3)='688',0,1);
AA1G:=REF(LOW,1);
AA2G:=SMA(ABS(LOW-AA1G),13,1)/SMA(MAX(LOW-AA1G,0),13,1)*100;
AA3:=EMA(IF(CLOSE*1.2,AA2G*13,AA2G/13),13);
AA4:=LLV(LOW,34);
AA5:=HHV(AA3,34);
AA6:=IF(LLV(LOW,56),1,0);
AA7C:=EMA(IF(LOW<=AA4,(AA3+AA5*2)/2,0),3)/618*AA6;
AA8C:=AA7C>REF(AA7C,1);
AA9:=REF(LLV(LOW,100),3);
AA10:=REFDATE(AA9,DATE);
AA11:=LOW=AA10;
AA12:=AA8C AND AA11;
AA13:=AA12>REF(AA12,1);
启动:(AA13>REF(AA13,1) AND QSTT)/5,COLORRED;
 
 
DIF:(EMA(CLOSE,12)-EMA(CLOSE,26)),COLORWHITE;
DEA:(EMA(DIF,9)),COLORYELLOW;
IF(DIF>DEA,DIF,DRAWNULL),COLORRED,LINETHICK2;
IF(DEA<DIF,DEA,DRAWNULL),COLORMAGENTA,LINETHICK2;
DRAWICON(CROSS(DEA,DIF),DEA,2);
MACD:(DIF-DEA)*2,COLORSTICK,COLORGREEN;
MACD2:=MACD;
MJ:=MACD;
S05:=SUM(MJ,0);
QST:=BARSLAST(MJ<0 AND REF(MJ,1)>0)+1;
QXT:=BARSLAST(MJ>0 AND REF(MJ,1)<0)+1;
S5:=IF(MJ>0,S05-REF(S05,BARSLAST(MJ<0)),S05-REF(S05,BARSLAST(MJ>0)))/10;
ST:=IF(MJ>0,REF(QST,QXT)+QXT,REF(QXT,QST)+QST);
RS5:=REF(S5,ST);
BC:IF(MJ>0 AND S5<RS5,0,IF(MJ<0 AND S5>RS5 AND DEA<0,0.02,0)),COLORYELLOW,VOLSTICK;
获利比例:WINNER(C),NODRAW;
STICKLINE((MACD2>=0),0,MACD2,0,1),COLORRED;
STICKLINE(((MACD2>=0) AND (MACD2 < REF(MACD2,1))),0,MACD2,0,0),COLORMAGENTA;
STICKLINE((MACD2<0),0,MACD2,0,0),COLORGREEN;
STICKLINE(((MACD2<0) AND (MACD2 > REF(MACD2,1))),0,MACD2,0,1),COLORWHITE;
DRAWICON(LONGCROSS(CLOSE,MA(CLOSE,5),17),MACD2,1);
DRAWICON(LONGCROSS(MA(CLOSE,5),CLOSE,17),MACD2,2);
DRAWICON(CROSS(DIF,DEA),LLV(DIF,1),29);
DRAWICON(CROSS(DIF>=0,DIF<DEA),DIF,1);
低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1;
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWICON(二次金叉,0,25);
三次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=3,60)=1;
DRAWICON(三次金叉,0,26);A1:=IF(MACD2>0,1,-1);
TJ:=MACD2>0;
T:=MACD2<0;
A:=LLV(MACD2,50)=MACD2;
DRAWICON(A AND FILTERX(A,20), MACD2,1);
DRAWTEXT(BARSLAST(TJ)=1,MACD2,'1'),COLORGREEN;
DRAWTEXT(BARSLAST(TJ)=2,MACD2,'2'),COLORGREEN;
DRAWTEXT(BARSLAST(TJ)=3,MACD2,'3'),COLORGREEN;