{MACD交易}
// N  20   1   30
n:=20;
DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;
DEA1:=EMA(DIFF,9);0.10;
MACD: 2*(DIFF-DEA1),LINETHICK0;
STICKLINE(MACD>0,0,MACD,8,1),COLORRED;
STICKLINE(MACD<0,0,MACD,8,1),COLORCYAN;
DEA: EMA(DIFF,9),COLORGREEN;
PARTLINE(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,6);
DRAWICON(CROSS(DEA,DIFF),DIFF,11);
V1:=EMA(EMA(CLOSE,n),n);
V2:=100*WINNER(CLOSE*0.95);
控盘力度:(V1-REF(V1,1))/REF(V1,1)*10,colorwhite,LINETHICK1;
无庄控盘:IF(控盘力度<0,控盘力度,0),LINETHICK2,COLOR00ff00,STICK;
有庄控盘:IF(控盘力度>REF(控盘力度,1) AND 控盘力度>0,控盘力度,0),LINETHICK2,COLORff00ff,STICK;
主力减仓:IF(控盘力度< REF(控盘力度,1) AND 控盘力度>0,控盘力度,0),LINETHICK2,COLOrBLUE,STICK;
高度控盘:IF(V2>50 AND COST(85)< CLOSE AND 控盘力度>0,控盘力度,0),LINETHICK2,COLORRED,STICK;
开始控盘:IF(CROSS(控盘力度,0),0.2,0),LINETHICK2,COLORFF00FF;
Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趋势:=(-3)*(Var1-Var2), COLORSTICK;
趋势,colorred;
长期趋势:EMA(Var1,10)*(-1);
EXPLAIN(趋势>0,'Z线趋势上升中\n');
EXPLAIN(趋势<0,'Z线趋势下降中\n');
EXPLAIN(cross(趋势,0),'Z线考虑买入\n');
EXPLAIN(cross(0,趋势),'Z线考虑卖出\n');
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);
EXPLAIN(Var44<var11 AND Var33<ma(Var33,4),'资金无入场意愿，萎缩中\n');
EXPLAIN(Var44<var11 AND Var33>ma(Var33,4),'场内资金运作行为\n');
EXPLAIN(Var44>var11 AND Var33<ma(Var33,4),'多空双方激烈争夺中\n');
EXPLAIN(Var44>var11 AND Var33>ma(Var33,4),'场外资金介入（或出局）意愿强烈\n');
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(cross(pdi,mdi),'PDI线从下向上突破MDI线，显示有新多头进场，为买进信号\n');
EXPLAIN(cross(mdi,pdi),'PDI线从上向下跌破MDI线，显示有新空头进场，为卖出信号\n');
EXPLAIN(adx>ref(adx,1),'ADX值持续高于前一日，行情将维持原趋势\n');
EXPLAIN(adx<ref(adx,1) and adx<20,'ADX值递减，降到20以下，且横向行进时，市场气氛为盘整\n');
EXPLAIN(adx<ref(adx,1) and ref(adx,1)<ref(adx,2) and ref(adx,2)>ref(adx,3) and ref(adx,3)>ref(adx,4),'ADX值从上升倾向转为下降时，表明行情即将反转\n');
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
EXPLAIN(1=1,'下面为:macd,KDJ,CCI,W&R,RSI,MTM等指标的判断:');
EXPLAINEX(1=1,'（中标）macd=',macd,2,1);
EXPLAIN(macd>0 and diff>0,'大势属多头市场\n');
EXPLAIN(macd>0.35,'超买中，随时有可能见顶回落\n');
EXPLAIN(macd<0 and diff<0,'大势属空头市场\n');
EXPLAIN(macd<-0.35,'超卖中，随时有可能反弹\n');
EXPLAIN(cross(diff,dea) and cross(macd,0),'上穿o轴，可考虑买入\n');
EXPLAIN(cross(j,k) and k<50,'KDJ金叉\n');
EXPLAIN(cross(k,d) and k>70,'KDJ死叉\n');
EXPLAIN(j>84,'KDJ指标高位');EXPLAIN(j<16,'KDJ指标低位\n');
TYP := (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(cci<-180,'CCI指标底位，买入机会\n');
EXPLAIN(cci>180,'CCI指标高位，卖出机会\n');
EXPLAINEX(1=1,'（短标）cci=',cci,2,1);
EXPLAINEX(1=1,'换手率=',vol/CAPITAl*100,2,1);
explain((vol/CAPITAl)>0.075,'换手过大，小心主力出逃，短期头部\n');
wr:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
EXPLAINEX(1=1,'威廉指标（短标）=',wr,2,1);
explain(wr>-20,'W&R超买，短线即将见顶，应及时卖出\n');
explain(wr<-80,'W&R超卖，短线即将见底，应伺机买进\n');
MTM := CLOSE-REF(CLOSE,6);
MTMMA := MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA) and MTMMA<-0.8,'MTM从下向上突破MTMMA，买入信号\n');
EXPLAIN(CROSS(MTMMA,MTM) and MTMMA>0.8,'MTM从上向下跌破MTMMA，卖出信号\n');

LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAINEX(1=1,'相对强弱RSI1=',RSI1,2,1);
EXPLAIN(RSI1>85,'6日RSI超买,防止回挡\n');
EXPLAIN(RSI1>80,'6日RSI向上突破85，超买,考虑卖出\n');
EXPLAIN(RSI1<15,'6日RSI超卖,随时有可能反弹\n');
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超卖，考虑买入\n');
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，买进信号\n');
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，卖出信号\n');
psy:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
EXPLAINEX(1=1,'12天心理线,PSY=',psy,2,1);
EXPLAINEX(1=1,'获利盘比例=',WINNER(c)*100,2,1);
EXPLAINEX(1=1,'套牢盘比例=',100-WINNER(c)*100,2,1);
Aa:=(EMA(C,30)*2+MA(C,60))/3;
Ra:=(VOL*CLOSE);
VL1a:=EMA(Ra,13)/EMA(VOL,13);
VL2a:=EMA(Ra,60)/EMA(VOL,60);
VLa:=EMA((VL1a+VL2a)/2,3);
分水岭:=ma((Aa+VLa)/2,1);
EXPLAINEX(1=1,'分水岭（中长标）=',分水岭,2,1);
EXPLAIN(close>分水岭,'股价在分水岭之上,大势属多头,可积极做多\n');
EXPLAIN(close<分水岭,'股价在分水岭之下,大势属空头,超跌只能抢反弹\n');
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,10);
DWN:=BBI-3*STD(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
var58:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
EXPLAIN(var55,'多空布林收敛中，有变盘的可能，上下自己分析\n');
EXPLAIN(var57 and var56 and c>o ,'布林上下乖离太大，有反弹的可能\n');
EXPLAIN(var58 and var56 and c<o ,'布林上下乖离太大，有回落的可能\n');