DIFF : EMA(CLOSE,12) - EMA(CLOSE,26); DEA : EMA(DIFF,9); MACD : 2*(DIFF-DEA), COLORSTICK; HRULER:=CONST( IF(ISLASTBAR,HHV(MAX(ABS(DIFF),ABS(DEA)),90),0)),NODRAW; {以下计算红绿柱的面积，当绿柱时，红柱面积为0，反之同理} 绿柱面积:=IF(MACD<0,SUM(MACD,BARSLAST(MACD>0)),0); 红柱面积:=IF(MACD>0,SUM(MACD,BARSLAST(MACD<0)),0); 本次最低绿柱:=IF(MACD<0,LLV(MACD,BARSLAST(MACD>0)),0); 本次最高红柱:=IF(MACD>0,HHV(MACD,BARSLAST(MACD<0)),0); {以下计算红柱期间的最高价（当绿柱时，本次最高价无效，是随机值） 计算绿柱期间的最低价（当红柱时，本次最低价无效，是随机值 } 本次最低价:=LLV(L,BARSLAST(MACD>0)),NODRAW; 本次最高价:=HHV(H,BARSLAST(MACD<0)); {绿柱时，统计绿柱的累计数量,红柱时，为0} X1:=IF (MACD<0,BARSLAST(CROSS(DIFF,DEA)),0),NODRAW; {绿柱时，表示前一波绿柱的累计面积； 首根红柱时，表示最近的绿柱面积； 其他红柱时，为0 前次最低价，同理； } 前次绿柱面积:=REF(绿柱面积,X1+1),NODRAW; 前次最低价:=REF(本次最低价,X1+1),NODRAW; 前次最低绿柱:=REF(本次最低绿柱,X1+1); Y1:=IF((绿柱面积<0 AND ABS(绿柱面积)1,(N1-1)*MACD/2,0),0); Y1补:=IF((绿柱面积<0 AND ABS(绿柱面积+补充绿柱面积)0,D_SCORE, IF(REF(D_SCORE,1)>0,REF(D_SCORE,1)*0.8, IF(REF(D_SCORE,2)>0,REF(D_SCORE,2)*0.6, IF(REF(D_SCORE,3)>0,REF(D_SCORE,3)*0.4, IF(REF(D_SCORE,4)>0,REF(D_SCORE,4)*0.2,0) ) ) )),NODRAW; X2:=IF (MACD>0,BARSLAST(CROSS(DEA,DIFF)),0); 前次红柱面积:=REF(红柱面积,X2+1); 前次最高价:=REF(本次最高价,X2+1); 前次最高红柱:=REF(本次最高红柱,X2+1); Y2:=IF((红柱面积>0 AND 红柱面积<前次红柱面积 AND 本次最高价>前次最高价 ),1,0); Y22:=IF((红柱面积>0 AND ABS(本次最高红柱)前次最高价 ),1,0),NODRAW; RS2:= MACD>0 AND REF(MACD,1)>0 AND C>前次最高价 AND ABS(红柱面积)1,(N2-1)*MACD/2,0),0); Y2补:=IF((红柱面积>0 AND ABS(红柱面积+补充红柱面积)前次最高价 ),1,0); 顶积将背:= IF( DOWN3,Y2补,0),NODRAW; 顶柱将背:= IF(DOWN3,Y22,0),NODRAW; 顶积背离:= IF (CROSS(DEA,DIFF),REF(Y2,1),0),NODRAW; 顶柱背离:= IF(CROSS(DEA,DIFF),REF(Y22,1),0),NODRAW; 顶背离: 顶积背离 AND 顶柱背离,NODRAW; 顶背程度:=IF(顶积将背 OR 顶积背离,ABS(前次红柱面积)/ABS(红柱面积+补充红柱面积)*本次最高价/前次最高价,0),NODRAW; 顶柱程度:=IF(顶柱将背 OR 顶柱背离,ABS(前次最高红柱)/ABS(本次最高红柱)*本次最高价/前次最高价,0),NODRAW; { DRAWICON(顶积背离,0,19),COLOR00FF00; STICKLINE(顶积背离,0,-0.3,2,0),COLOR00FF00; DRAWTEXT(顶积背离,-0.3,'顶积背离'),COLORFF0000; } STICKLINE(顶积将背,PT,PT-MIN(顶背程度,5)*HRULER/(4*5),2,0),COLORFFFF00; DRAWICON(顶积将背,PT-MIN(顶背程度,5)*HRULER/(4*5)-HRULER/20,39),COLORYELLOW; STICKLINE(顶柱将背,PT1,PT1+MIN(顶柱程度,5)*HRULER/(4*5),2,0),COLORFFFF00; DRAWICON(顶柱将背,PT1+MIN(顶柱程度,5)*HRULER/(4*5)+HRULER/10,2),COLORYELLOW; DRAWTEXT(顶柱背离,PT1+HRULER/8,' 柱背'),COLOR00FFFF; STICKLINE(顶柱背离,PT1,PT1+MIN(顶柱程度,5)*HRULER/(4*5),3,0),COLOR00FF00; DRAWICON(顶柱背离,PT1+MIN(顶柱程度,5)*HRULER/(4*5)+HRULER/10,35),COLORYELLOW; DRAWTEXT(顶积背离,PT-HRULER/8,' 积背'),COLOR00FFFF; STICKLINE(顶积背离,PT,PT-MIN(顶背程度,5)*HRULER/(4*5),3,0),COLOR00FF00; DRAWICON(顶积背离,PT-MIN(顶背程度,5)*HRULER/(4*5)-HRULER/20,45),COLORYELLOW; NOTEXTSDIFF:DIFF,COLORWHITE; NOTEXTSDEA:DEA,COLORYELLOW; NOTEXTMACDDRAW:MACD, COLORSTICK;