同花顺美人副图公式 源码

同花顺

long:=26;   m:=9;   short:=12;
 DIFF1:=EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
 DEA1:=EMA(DIFF1,M);
 MACD:=2*(DIFF1-DEA1);
 DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG),colorff00ff,linethick2;
 DEA  : EMA(DIFF1,M),colorwhite,linethick2;
 AH:HHV(DIFF1,55),COLOR6600ff,linethick2;
 AL:LLV(DIFF1,55),COLOR248a24,linethick2;
 ●60零上金叉:IF(CROSS(DIFF,DEA) AND DIFF>0,0.3,0),COLOR6600ff,POINTDOT;
 STICKLINE(●60零上金叉,DIFF,ah,4,0),COLOR6600ff;
 ■零下金叉:IF(CROSS(DIFF,DEA) AND DIFF<-0.001,0.3,0),colorwhite,POINTDOT;
 STICKLINE(■零下金叉,0.1,0.15,6,0),colorwhite;
 JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
 ■二次金叉:IF(CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1,0.2,0),COLOR3C86CC,POINTDOT;
 STICKLINE(■二次金叉,0.15,0.2,6,0),COLOR3C86CC;
 A3:=CROSS(DIFF,DEA) AND DEA<0;
 ■零下二次金叉:IF(FILTER(COUNT(A3,21)=2,10) AND DEA<0,0.05,0),COLORF58F98,POINTDOT;
 STICKLINE(■零下二次金叉,0.25,0.3,6,0),COLORF58F98;
 A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
 ■底背离:IF(REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA),0.1,0),COLORFFFF00;
 STICKLINE(REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA),0,AL,4,0),COLOR00FF00;
 STICKLINE(■底背离,0.2,0.25,6,0),COLORFFFF00;
 DRAWLINE(A1=0,DEA,■底背离,DEA,0),coloryellow;
 A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
 STICKLINE(REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF),0,DIFF,4,0),colorblack;
 顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
 DRAWLINE(A2=0,DEA,顶背离,DEA,0),colorgreen;
 DD:=C=HHV(C,100);
 EE:=DEA1< REF(DEA1,1) AND REF(DEA1< REF(DEA1,1),1)=1;
 CC:=C> REF(C,1) AND REF(C> REF(C,1),1)=1;
上升背离:(CC AND EE)*AH,STICK,linethick2,COLORff00FF;
 顶背离:(DD AND EE AND DEA1< HHV(DEA1,100))*AH,STICK,LINETHICK2,coloryellow;
 DRAWTEXT(顶背离,DEA1/2,'顶背离'),ALIGN1,coloryellow;
 FF:=C=LLV(C,100);
 GG:= DEA1> REF(DEA1,1) AND REF(DEA1> REF(DEA1,1),1)=1;
 LL:=C< REF(C,1) AND REF(C< REF(C,1),1)=1;
下降背离:(LL AND GG)*AL,STICK,linethick2,colorwhite;
 底背离:(FF AND GG AND DEA1> LLV(DEA1,100))*AL,STICK,LINETHICK2,COLOR6600ff;
 DRAWTEXT(底背离,DEA1/2,'底背离'),ALIGN1,color6600FF;
 g1:IF(diff<0,diff,0),colorff00ff,linethick2;
 g2:IF(diff<0,0,diff),coloryellow,linethick2;
 g3:IF(diff<dea,diff,dea),colorffff00,linethick2;
 g4:IF(diff>dea,dea,dea),colorwhite,linethick2;
 PARTLINE(DEA,DEA>0,RGB(255,0,255)),LINETHICK2;
 PARTLINE(DEA,DEA<0,RGB(255,255,225)),LINETHICK2;
 PARTLINE(DIFF,DIFF>0,RGB(255,255,0)),LINETHICK2;
 PARTLINE(DIFF,DIFF<0,RGB(0,0,255)),LINETHICK2;
 STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,8,0 ),COLOr008800;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,7,0 ),COLOR009900;
 STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,6,0 ),COLOR00aa00;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,5,0 ),COLOR00bb00;
 STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,4,0 ),COLOR00cc00;
 STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,3,0 ),COLOR00dd00;
 STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00ee00;
 STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1,0 ),COLOR00ff00;
 STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,8,0 ),COLOR000088;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,7,0 ),COLOR000099;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,6,0 ),COLOR0000aa;
 STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,5,0 ),COLOR0000bb;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,4,0 ),COLOR0000cc;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,3,0 ),COLOR0000dd;
 STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0000ee;
 STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,1,0 ),COLOR0000ff;
 STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,8,0 ),COLOR338fdd;
 STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,7,0 ),COLOR339fdd;
 STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,6,0 ),COLOR33afdd;
 STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,5,0 ),COLOR33bfdd;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLOR33cfdd;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,3,0 ),COLOR33dfdd;
 STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLOR33efdd;
 STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,1,0 ),COLOR33ffdd;
 STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,8,0 ),COLORFF4400;
 STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,7,0 ),COLORFF6600;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,6,0 ),COLORFF7700;
 STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,5,0 ),COLORFF8800;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLORFF9900;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,3,0 ),COLORFFaa00;
 STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFbb00;
 STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,1,0 ),COLORFFcc00;
 VAR1:=HHV(DEA,53);VAR2:=LLV(DEA,30);VAR3:=DEA-(DIFF-DEA);
 UP:IF(DIFF>VAR1 AND DEA=VAR1,MAX(LLV(VAR1,10),VAR3),VAR1),COLORbb9a00,LINETHICK2;
 DN:IF(DIFF<VAR2 AND DEA=VAR2,MIN(HHV(VAR2,10),VAR3),VAR2),COLORaa00bb,LINETHICK2;
 美人开眼:=CROSS(DIFF ,DEA ) AND CROSS( DIFF,DN ) AND DN<0;
 美人开眼a:美人开眼*AL,STICK,linethick4,COLOR8080ff;
 DRAWTEXT(美人开眼,dn,'美人开眼'),ALIGN1,COLOR8080FF,linethick2;
 美人收眼:=CROSS(DEA ,DIFF ) AND CROSS( UP,DIFF ) AND DIFF<UP;
 美人收眼a:美人收眼*ah,STICK,linethick4,COLOR9ca010;
 DRAWTEXT(美人收眼,dn,'美人收眼'),ALIGN1,COLOR9ca010,linethick2;