胡乱拼凑 好用就好
INPUT:SHORT(12,1,100,1),LONG(26,1,100,1), N(9,1,100,2),M(9,2,60);
DRAWGBK((DATE > 0),COLORRGB(40,40,60),COLORRGB(10,10,10),1);
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
MACD:=EMA(DIF,N);
DEF:=2*(DIF-MACD);
STICKLINE(DEF>=0 AND DEF>=REF(DEF,1),0,DEF,6,1)COLOR1011FF;
STICKLINE(DEF>=0 AND DEF< REF(DEF,1),0,DEF,6,0),COLOR1088FF;
STICKLINE(DEF<0 AND DEF>=REF(DEF,1),0,DEF,6,1),COLORFFFF00;
STICKLINE(DEF<0 AND DEF< REF(DEF,1),0,DEF,6,0),COLORFFFF00;
山:=IF(DEF>0 AND REF(DEF,1)>REF(DEF,2) AND DEF< REF(DEF,1),1,0);
水:=IF(DEF<0 AND REF(DEF,1)< REF(DEF,2) AND DEF>REF(DEF,1),1,0);
MACD1:EMA(DIF,N),COLORWHITE,LINETHICK1;
partline(def>ref(def,1),def),Linethick2,colorffff;
partline(def<ref(def,1),def),Linethick2,COLORblue;
partline(DIF>ref(DIF,1),DIF),Linethick2,colorff;
partline(DIF<ref(DIF,1),DIF),Linethick2,color00ff00;
DRAWICON(FILTER(山,3) AND 山,DEF+0.01,5),ALIGN0;
DRAWICON(FILTER(水,3) AND 水,DEF,4),ALIGN1;
多头趋势:=IF(DIF>=0 AND MACD>=0 OR (DIF<0 AND MACD>=0),1,0);
空头趋势:=DIF<0 AND MACD<0 OR (DIF>=0 AND MACD<0);
缩头:=IF(DEF>0 AND REF(DEF,1)>REF(DEF,2) AND DEF< REF(DEF,1),1,0);
缩脚:=IF(DEF<0 AND REF(DEF,1)< REF(DEF,2) AND DEF>REF(DEF,1),1,0);
阻力:=IF(CROSS(C,MA(C,20)) OR CROSS(C,MA(C,60)),1,0);
支撑:=IF(CROSS(MA(C,20),C) OR CROSS(MA(C,60),C),1,0);
做多:=IF(CROSS(MACD,DIF) AND DIF>0 AND MACD>0,1,0);
放空:=IF(CROSS(DIF,MACD) AND DIF<0 AND MACD<0,1,0);
DRAWICON(FILTER(缩头,3) AND 缩头,DEF+0.01,5),ALIGN0;
DRAWICON(FILTER(缩脚,3) AND 缩脚,DEF,4),ALIGN1;
DRAWICON(FILTER(阻力,16) AND DEF>=0,DEF+0.01,12),ALIGN0;
DRAWICON(FILTER(支撑,16) AND DEF<0,DEF,12),ALIGN1;
DIFF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:=EMA(DIFF,M);
MACD2:=2*(DIFF-DEA);
DU0:=CROSS(DIFF,0);
UD0:=CROSS(0,DIFF);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:=IF(TDU3<TUD3,REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3));
JDU0:=REF(CLOSE,1)<=REF(UDGLINE,1) AND CLOSE>UDGLINE AND TDU0<TUD0;
JUD0:=REF(CLOSE,1)>=REF(UDGLINE,1) AND CLOSE<UDGLINE AND TUD0<TDU0;
JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;
JUD1:=JUD0 AND COUNT(JUD0,TUD0)=1;
JDU2:=JDU1 AND REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1);
JUD2:=JUD1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JDU3:=JDU1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JUD3:=JUD1 AND REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1);
BSLINE:=IF(BARSLAST(JDU2)<BARSLAST(JUD2),IF(REF(CROSS(0,MACD2),1),LLV(LOW,2),REF(LLV(LOW,2),BARSLAST(REF(CROSS(0,MACD2),1)))),IF(REF(CROSS(MACD2,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BARSLAST(REF(CROSS(MACD2,0),1)))));
DRAWICON(JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1),0,10),ALIGN4;
DRAWICON(JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1),0,11),ALIGN5;
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,6);
DRAWICON(CROSS(DEA,DIFF),DIFF,11);
ls:=if(DIFF>DEA AND DIFF>0,1,0);
上扬:if(ref(ls=0,1) AND ls=1,0.1,0);
W1:=C<=MA(C,5) AND C<=MA(C,10) ;
W2:=O>MA(C,5) AND O>MA(C,10) ;
W3:=MA(V,5)<=MA(V,10);
W4:=diff<dea;
DRAWTEXT(W1 ANDW2 AND W3 AND W4,DIFF,'←飞'),colorFFFF10;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
