input: short (5,1,20), long(26,1,60),M(9,1,30);
DIFF: EMA(CLOSE, short)-EMA(CLOSE, long ),color0066ff,LINETHICK0,LAYER0;
partline(DIFF,DIFF>=ref(DIFF,1),rgb(255,0,0),DIFF DEA:EMA(DIFF,M),COLOR00BB00,LINETHICK1,LAYER0;
MACD: (DIFF-DEA)*2,COLORSTICK;
partline(DIFF,DIFF>=ref(DIFF,1),rgb(255,0,0),DIFF FILLRGN(DIFF,DEA,DIFF>DEA,rgb(255,0,0),DIFF 中軸:0,LAYER0,Coloreeeeee,LINETHICK1;
jcsc:=(M-1)/(M+1)*dea/(1-2/(m+1));{計算出金叉死叉時的Diff值}
dd:=(macd/2+(dea*(m-1)/(M+1)))/(1-2/(m+1));{計算出明日macd=macd時的Diff值}
xx:=(diff*(short+1)*(long+1)-(long+1)*(short-1)*ema(c,short)+(short+1)*(long-1)*ema(c,long))/(2*((long+1)-(short+1)));{計算今日Diff=diff的對應股價}
js:=(jcsc*(short+1)*(long+1)-(long+1)*(short-1)*ema(c,short)+(short+1)*(long-1)*ema(c,long))/(2*((long+1)-(short+1)));{計算金叉死叉的對應股價}
ddd:=(dd*(short+1)*(long+1)-(long+1)*(short-1)*ema(c,short)+(short+1)*(long-1)*ema(c,long))/(2*((long+1)-(short+1)));{計算macd柱體變向時的對應股價};
DRAWTEXTABS(3,0,’DIFF拐頭股價：’+numtostrn(xx,2)),ColorFFFFFF,LINETHICK3;
DRAWTEXTABS(175,0,’MACD柱體變向?qū)蓛r：’+numtostrn(ddd,2)),Color00A5FF,LINETHICK3;
DRAWTEXTABS(410,0,’金叉死叉對應股價：’+numtostrn(js,2)),COLOR00BB00,LINETHICK3;
PARTLINE(DIFF,CROSS(DIFF,DEA) AND DIFF<-0.2,RGB(255,245,12)),CROSSDOT,LINETHICK5;
PARTLINE(DIFF,CROSS(DIFF,DEA) AND DIFF>0,RGB(252,24,212)),CROSSDOT,LINETHICK5;
PARTLINE(DIFF,CROSS(DIFF,DEA) AND DIFF>-0.2 AND DIFF<0,RGB(200,80,20)),CROSSDOT,LINETHICK7;
PARTLINE(DIFF,CROSS(DEA,DIFF) AND DIFF>0,RGB(125,245,252)),CIRCLEDOT,LINETHICK5;