优化MACD改进 原码

化“MACD改进，买入一周十个点”（附图，原码，说明）
原码：
DIF1:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA1:=EMA(DIF1,9);
{柱状线}
AAA1:=(DIF1-DEA1)*2*60;
AAA上:IF(AAA1>REF(AAA1,1),AAA1,0),
STICK,COLORRED,LINETHICK1;
AAA下:IF(AAA1