|
inputONG(26),SHORT(12),M(9);
DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG),COLORRED,linethick0;
DEA : EMA(DIFF,M),COLORMAGENTA,linethick0;
MACD : 2*(DIFF-DEA) ,linethick0;
A:=HHV(DIFF,300);
A*1.3,colorgreen,linethick0;
B:=MACD-REF(MACD,1);
mxa:=max(HHVALL(diff),HHVALL(dea),HHVALL(macd));
mna:=min(LLVALL(diff),LLVALL(dea),LLVALL(macd));
a2:=(mxa+mna)/2;
a3:=mxa-mna;
mxb:=HHVALL(H);
mnb:=LLVALL(L);
b2:=(mxb+mnb)/2;
b3:=mxb-mnb;
diffa:=(diff-a2)*(b3/a3)+b2;
deaa:=(dea-a2)*(b3/a3)+b2;
macda:=(macd-a2)*(b3/a3)+b2;
b4:=-a2*(b3/a3)+b2;
PARTLINE(DIFFA,DIFF<REF(DIFF ,1), RGB(0,255,0),1,rgb(255,0,0)), linethick1;
PARTLINE(DEAA,DEA<REF(DEA,1),RGB(51,204,204),1,RGB(255,0,255)),linethick1;
STICKLINE(MACD>0 AND B>0,b4,MACDA,1,0),COLORRED;
STICKLINE(MACD>0 AND B<0,b4,MACDA,1,0),COLORGREEN;
STICKLINE(MACD<0 AND B>0,b4,MACDA,1,0),COLORMAGENTA;
STICKLINE(MACD<0 AND B<0,b4,MACDA,1,0),COLORBLUE;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,b4,b4+b3/20,6,0),COLORYELLOW;
DRAWTEXT(低位金叉,b4+b3/20,' 低位金叉'),COLORYELLOW;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,b4,b4-b3/40,2,0),ColorFF00FF;
DRAWICON(二次金叉,deaa*0.995,1);
DRAWTEXT(二次金叉,b4-b3/40,' 二次金叉'),ColorFF00FF,align1;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背离,b4,b4-b3/40,2,0),Color00FF00;
DRAWLINE(A1=0,DEAA,底背离,DEAA,0),COLORRED,linethick2;
DRAWTEXT(底背离,b4-b3/40,' 底背离'),Color00FF00;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
DRAWLINE(A2=0,DEAA,顶背离,DEAA,0),COLORGREEN,linethick2;
{K线图}
stickline(ISEQUAL AND C>=REF(C,1),C,C,7,1),COLORRED;
stickline(ISEQUAL AND C>=REF(C,1),H,L,0,0),COLORRED;
stickline(ISEQUAL AND C<REF(C,1),C,C,7,1),COLORFFFF00;
stickline(ISEQUAL AND C<REF(C,1),H,L,0,0),COLORFFFF00;
stickline(ISUP ,H,L,0,0),COLORRED;
stickline(ISUP ,C,O,7,1),COLORRED;
stickline(ISDOWN ,H,L,0,0),COLORFFFF00;
stickline(ISDOWN ,O,C,7,0),COLORFFFF00;
|
