DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26) COLORFF00FF;
DEA1:=EMA(DIFF,9) COLORFF0000;
MACD:(DIFF-DEA1)*2 NODRAW;
STICKLINE(MACD>0 AND MACD>REF(MACD,1),0,MACD,2,0) COLOR0000FF;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,2,1) COLOR0000FF;
STICKLINE(MACD>0 AND MACD>REF(MACD,1) AND REF(MACD,1)<REF(MACD,2) AND REF(MACD,2)<REF(MACD,3) AND REF(MACD,3)<REF(MACD,4) AND REF(MACD,1)>0 AND REF(MACD,2)>0 AND REF(MACD,3)>0 AND REF(MACD,4)>0,0,MACD,2,0) COLORFF00FF;
STICKLINE(MACD<0 AND MACD>REF(MACD,1),0,MACD,2,0) COLOR008000;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,2,1) COLOR008000;
DIF:EMA(CLOSE,12)-EMA(CLOSE,26) COLORFF00FF;
DEA:EMA(DIFF,9) COLORFF0000;
HRULER:=CONST(IF(ISLASTBAR,HHV(MAX(ABS(DIFF),ABS(DEA)),90),0)),NODRAW;
绿柱面积:=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));
X1:=IF(MACD<0,BARSLAST(CROSS(DIFF,DEA)),0),NODRAW;
前次绿柱面积:=REF(绿柱面积,X1+1),NODRAW;
前次最低价:=REF(本次最低价,X1+1),NODRAW;
前次最低绿柱:=REF(本次最低绿柱,X1+1);
Y1:=IF((绿柱面积<0 AND ABS(绿柱面积)<ABS(前次绿柱面积) AND 本次最低价<前次最低价),1,0),NODRAW;
Y11:=IF((绿柱面积<0 AND ABS(本次最低绿柱)<ABS(前次最低绿柱) AND 本次最低价<前次最低价),1,0),NODRAW;
RS1:=MACD<0 AND REF(MACD,1)<0 AND 本次最低价<前次最低价 AND ABS(绿柱面积)<ABS(前次绿柱面积) AND ABS(MACD)<ABS(REF(MACD,1));
UP3:=RS1 AND UPNDAY(MACD,3);
STEP1:=IF(UP3,(MACD-REF(MACD,1))*0.45+(MACD-REF(MACD,2))*0.17+(MACD-REF(MACD,3))*0.07,0);
N1:=IF(UP3,ABS(MACD)/ABS(STEP1),0),NODRAW;
补充绿柱面积:=IF(UP3,IF(N1>1,(N1-1)*MACD/2,0),0);
Y1补:=IF((绿柱面积<0 AND ABS(绿柱面积+补充绿柱面积)<ABS(前次绿柱面积) AND 本次最低价<前次最低价),1,0);
底积将背:=IF(UP3,Y1补,0),NODRAW;
底柱将背:=IF(UP3,Y11,0),NODRAW;
底积背离:=IF(CROSS(DIFF,DEA),REF(Y1,1),0),NODRAW;
底柱背离:=IF(CROSS(DIFF,DEA),REF(Y11,1),0),NODRAW;
底背离:底积背离 AND 底柱背离,NODRAW;
底背程度:=IF(底积将背 OR 底积背离,ABS(前次绿柱面积)/ABS(绿柱面积+补充绿柱面积)*前次最低价/本次最低价,0),NODRAW;
底柱程度:=IF(底柱将背 OR 底柱背离,ABS(前次最低绿柱)/ABS(本次最低绿柱)*前次最低价/本次最低价,0),NODRAW;
PT:=MIN(DIFF,DEA)-HRULER/20;
PT1:=MAX(DIFF,DEA)+HRULER/20;
DRAWBAND(DIFF,RGB(200,50,55),DEA,RGB(50,100,10));
STICKLINE(底积将背,PT,PT-MIN(底背程度,5)*HRULER/(4*5),2,0),COLORD33AE9;
DRAWICON(底积将背,PT-MIN(底背程度,5)*HRULER/(4*5)-HRULER/20,38),COLORYELLOW;
STICKLINE(底柱将背,PT1,PT1+MIN(底柱程度,5)*HRULER/(4*5),2,0),COLORD33AE9;
DRAWICON(底柱将背,PT1+MIN(底柱程度,5)*HRULER/(4*5)+HRULER/10,1),COLORYELLOW;
DRAWTEXT(底柱背离,PT1+HRULER/8,' 柱背'),COLOR00FFFF;
STICKLINE(底柱背离,PT1,PT1+MIN(底柱程度,5)*HRULER/(4*5),3,0),COLOR0000FF;
DRAWICON(底柱背离,PT1+MIN(底柱程度,5)*HRULER/(4*5)+HRULER/10,34),COLORYELLOW;
DRAWTEXT(底积背离,PT-HRULER/8,' 积背'),COLOR00FFFF;
STICKLINE(底积背离,PT,PT-MIN(底背程度,5)*HRULER/(4*5),3,0),COLOR0000FF;
DRAWICON(底积背离,PT-MIN(底背程度,5)*HRULER/(4*5)-HRULER/20,23),COLORYELLOW;
D_SCORE:=IF(底积背离 AND 底柱背离,100,IF(底积背离 OR 底柱背离,80,IF(底积将背 AND 底柱将背,90,IF(底积将背 OR 底柱将背,70,0))));
DT_SOCRE:=IF(D_SCORE>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(本次最高红柱)<ABS(前次最高红柱) AND 本次最高价>前次最高价),1,0),NODRAW;
RS2:=MACD>0 AND REF(MACD,1)>0 AND C>前次最高价 AND ABS(红柱面积)<ABS(前次红柱面积) AND ABS(MACD)<ABS(REF(MACD,1));
DOWN3:=RS2 AND DOWNNDAY(MACD,3);
STEP2:=IF(DOWN3,(MACD-REF(MACD,1))*0.45+(MACD-REF(MACD,2))*0.17+(MACD-REF(MACD,3))*0.07,0);
N2:=IF(DOWN3,ABS(MACD)/ABS(STEP2),0),NODRAW;
补充红柱面积:=IF(DOWN3,IF(N2>1,(N2-1)*MACD/2,0),0);
Y2补:=IF((红柱面积>0 AND ABS(红柱面积+补充红柱面积)<ABS(前次红柱面积) AND 本次最高价>前次最高价),1,0);
wwwgsptcom:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
顶积将背:=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;
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),2,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),2,0),COLOR00FF00;
DRAWICON(顶积背离,PT-MIN(顶背程度,5)*HRULER/(4*5)-HRULER/20,45),COLORYELLOW;
NOTEXTSDIFF:DIFF,COLORWHITE;
NOTEXTSDEA:DEA,COLORYELLOW;
NOTEXTMACDDRAW:MACD,COLORSTICK;
STICKLINE(MACD>0 AND MACD>REF(MACD,1) AND C>MA(C,25) AND REF(MACD,1)<REF(MACD,2) AND REF(MACD,2)<REF(MACD,3) AND REF(MACD,3)<REF(MACD,4),0,MACD,2,0) COLORFF00FF;