根据梦佳2010同学源码改编

DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA:EMA(DIF,9);
 DIF1:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA1:=EMA(DIF1,9);
 MACD1:=(DIF1-DEA1)*2;
 MACD上:{IF(MACD1>REF(MACD1,1),MACD1,DRAWNULL),STICK,COLORRED,LINETHICK1;} STICKLINE(MACD1>REF(MACD1,1),MACD1,0,0,1),COLORRED;
 MACD下:{IF(MACD1  YLZC:=IF(CLOSE=INDEXC,(INDEXC+INDEXH+INDEXL+INDEXO)/4,AMOUNT/(VOL+0.01)/100);
阻价:=IF(CLOSE=INDEXC,YLZC+INDEXC-INDEXL,YLZC+(CLOSE-LOW));
支价:=IF(CLOSE=INDEXC,INDEXL+INDEXC-YLZC,LOW+(CLOSE-YLZC));
今压:REF(阻价,1),LINETHICK0,COLORAA11BB,LINETHICK0;
今撑:REF(支价,1),LINETHICK0,COLOR009900,LINETHICK0;
明压:阻价,LINETHICK0;
明撑:支价,LINETHICK0;
 EMA(CLOSE,12)-EMA(CLOSE,26),colorffffff;
 EMA(DIF,9),color00ffff;

有同学要主图  呵呵 回廊班长的新作 我加了两条线玩儿

 喜欢就拿去吧

M105:EMA(C,105);
 VAR6:=(( ABS((OPEN-CLOSE))/(HIGH-LOW))*VOL);
 VAR7:=(( (HIGH-IF((CLOSE>OPEN),CLOSE,OPEN))/(HIGH-LOW))*VOL);
 VAR8:=(( (IF((CLOSE>OPEN),OPEN,CLOSE)-LOW)/(HIGH-LOW))*VOL);
 VAR9:=IF(((VOL/CAPITAL)>0.001),1,EXP(ABS(LOG(((VOL/CAPITAL)*100)))));
 JJ:=(3*C+H+L+O)/6;
 VAR1:=(8*JJ+7*REF(JJ,1)+6*R