M:=12;
gspt1:=EMA(CLOSE,12)-EMA(CLOSE,26);
gspt2:=EMA(gspt1,M);
gspt3:=2*(gspt1-gspt2);
gspt4:=IF(gspt1>gspt2,5,-5);
gspt5:=(M-1)/(M+1)*gspt2/(1-2/(M+1));
gspt6:=(gspt3/2+(gspt2*(M-1)/(M+1)))/(1-2/(M+1));
gspt7:=(gspt1*(12+1)*(26+1)-27*(12-1)*EMA(C,12)+13*25*EMA(C,26))/(2*((26+1)-(12+1)));
gspt8:=(gspt5*(12+1)*(26+1)-(26+1)*(12-1)*EMA(C,12)+13*25*EMA(C,26))/(2*((26+1)-(12+1)));
gspt9:=(gspt6*(12+1)*(26+1)-(26+1)*(12-1)*EMA(C,12)+(12+1)*(26-1)*EMA(C,26))/(2*((26+1)-(12+1)));
gspt10:=IF(gspt9>=gspt7,gspt9,DRAWNULL);
DRAWTEXT_FIX(1,0.01,0.01,0,'公式平台，公式源码 http://www.gspt.com'),COLOR222222;
上拐:IF(gspt7< gspt9,gspt7,DRAWNULL),COLOR0000FF,LINETHICK4;
下拐:IF(gspt7>=gspt9,gspt7,DRAWNULL),COLOR33FF33,POINTDOT,LINETHICK4;
gspt11:=上拐;
gspt12:=gspt8;
gspt13:=CROSS(gspt1,gspt2);
IF(gspt11>REF(gspt11,1),gspt11,DRAWNULL),COLOR0000FF,LINETHICK2;
IF(gspt12>REF(gspt12,1),gspt12,DRAWNULL),COLORMAGENTA,LINETHICK2,NODRAW;
IF(gspt12< REF(gspt12,1),gspt12,DRAWNULL),COLORBLUE,LINETHICK2,NODRAW;
STICKLINE(C>gspt11 AND C>O,H,C,0,0 ),COLOR0000FF;
STICKLINE(CLOSE>gspt11 AND C>O,L,O,0,0 ),COLOR0000FF;
STICKLINE(C>gspt11 AND C>O,O,C,2.8,1),COLOR0000FF;
STICKLINE(C>gspt11 AND C<=O,H,L,0,0 ),COLOR0000FF;
STICKLINE(CLOSE>gspt11 AND C<=O,O,C,2.8,0),COLOR0000FF;
STICKLINE(CLOSE=gspt11,H,L,3,0),COLORWHITE;
STICKLINE(CLOSE< gspt11,H,L,0,0),COLORYELLOW;
STICKLINE(CLOSE< gspt11,O,C,2.5,0),COLORYELLOW;
STICKLINE(C< gspt12 AND CLOSE>O,H,C,0,0),COLORCYAN;
STICKLINE(C< gspt12 AND C>O,O,L,0,0),COLORCYAN;
STICKLINE(C< gspt12 AND CLOSE>OPEN,O,C,2.8,1),COLORCYAN;
STICKLINE(C< gspt12 AND CLOSE<=O,H,L,0,0),COLORCYAN;
STICKLINE(C< gspt12 AND C<=O,O,C,2.8,0),COLORCYAN;
买入准备:DRAWICON(CROSS(gspt9,gspt7),上拐,34);
卖出准备:DRAWICON(CROSS(gspt7,gspt9),下拐,35);
SBL:=STRCAT(STRCAT(STRCAT(STRCAT(DYBLOCK,HYBLOCK),FGBLOCK),GNBLOCK),ZDBLOCK);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.005,0,SBL),COLORCYAN;
