神仙三线WAH指标[同花顺公式]

相关标签:

根据大趋势选股，再结合其他指标，新闻，热点等选择.

原理解析：
A赋值:收盘价的17日简单移动平均+收盘价的17日简单移动平均-1日前的收盘价的17日简单移动平均的绝对值 B赋值:收盘价的17日简单移动平均+收盘价的17日简单移动平均-1日前的收盘价的17日简单移动平均 输出分水岭:如果收盘价的17日简单移动平均<B,返回B,否则返回收盘价的17日简单移动平均,COLORFF00FF,线宽为2 输出操作线:分水岭-(收盘价的3日指数移动平均-分水岭),COLOR00FFFF,线宽为2 输出PM:收盘价的5日简单移动平均,画白色,线宽为2 如果PM>1日前的PM,返回PM,否则返回无效数,COLORRED，LINETHICK2 如果PM=1日前的PM,返回PM,否则返回无效数,画红色 如果PM<1日前的PM,返回PM,否则返回无效数,COLORRED，LINETHICK2 S赋值:(PM>操作线) CNDD赋值:分水岭<1日前的分水岭 如果DD,返回分水岭,否则返回无效数,COLOR00FF00,线宽为2 如果S,返回分水岭,否则返回无效数,COLOR00FF00,POINTDOT,线宽为4 当满足条件分水岭上穿操作线时,在分水岭-0.1位置画1号图标 A1赋值:上次1日前的"平滑异同平均的DIF"上穿"平滑异同平均的DEA"距今天数 B1赋值:A1+1日前的收盘价>收盘价 AND A1+1日前的"平滑异同平均的DIF"<"平滑异同平均的DIF"AND "平滑异同平均的DIF"上穿"平滑异同平均的DEA" 当满足条件B1>0时,在最低价-0.02位置书写文字,COLOR00FFFF A2赋值:上次1日前的"KDJ的K"上穿"KDJ的D"距今天数 B2赋值:A2+1日前的收盘价>收盘价 AND A2+1日前的"KDJ的K"<"KDJ的K"AND "KDJ的K"上穿"KDJ的D" 当满足条件B2>0时,在最低价-0.10位置书写文字,COLORFF00FF A3赋值:上次1日前的"RSI的RSI1"上穿"RSI的RSI2"距今天数 B3赋值:A3+1日前的收盘价>收盘价 AND A3+1日前的"RSI的RSI1"<"RSI的RSI1"AND "RSI的RSI1"上穿"KRSI.RSI2" 当满足条件B3>0时,在最低价-0.18位置书写文字,COLOR0000FF C1赋值:上次1日前的"平滑异同平均上穿DEA"距今天数 D1赋值:C1+1日前的收盘价<收盘价 AND C1+1日前的"平滑异同平均的DIF">"平滑异同平均的DIF"ANDCROSS("平滑异同平均的DEA","平滑异同平均的DIF") 当满足条件D1>0时,在最高价+0.16位置书写文字,COLOR00FF00 C2赋值:上次1日前的"KDJ上穿D"距今天数 D2赋值:C2+1日前的收盘价<收盘价 AND C2+1日前的"KDJ的K">"KDJ的K"AND "KDJ的D"上穿"KDJ的K" 当满足条件D2>0时,在最高价+0.08位置书写文字,COLORFFFFCC C3赋值:上次1日前的"RSI的RSI2"上穿"RSI的RSI1"距今天数 D3赋值:C3+1日前的收盘价<收盘价 AND C3+1日前的"RSI的RSI1">"RSI的RSI1"AND "RSI的RSI2"上穿"KRSI.RSI1" 当满足条件D3>0时,在最高价+0.04位置书写文字,COLORFF9900

 来源:程序化99（ WWW.CXH99.COM ）

源码：

A:=MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1));B:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1);分水岭:IF(MA(CLOSE,17)<B,B,MA(CLOSE,17)),COLORFF00FF,LINETHICK2;操作线:分水岭-(EMA(C,3)-分水岭),COLOR00FFFF,LINETHICK2;PM:MA(C,5),colorwhite,LINETHICK2;IF(PM>REF(PM,1),PM,DRAWNULL),colorred，LINETHICK2;IF(PM=REF(PM,1),PM,DRAWNULL),colorred;IF(PM<REF(PM,1),PM,DRAWNULL),colorred，LINETHICK2;S:=(PM>操作线);///公式网 www.guhai.com.cnDD:=分水岭<REF(分水岭,1);IF(DD,分水岭,DRAWNULL),COLOR00FF00,LINETHICK2;IF(S,分水岭,DRAWNULL),COLOR00FF00,POINTDOT,LINETHICK4;DRAWICON(CROSS(分水岭,操作线),分水岭-0.1,1);A1:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1));B1:=REF(C,A1+1)>C AND REF("MACD.DIF",A1+1)<"MACD.DIF"AND CROSS("MACD.DIF","MACD.DEA");DRAWTEXT(B1>0,L-0.02,' M'),COLOR00FFFF;A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K"AND CROSS("KDJ.K","KDJ.D");DRAWTEXT(B2>0,L-0.10,'◎ K'),COLORFF00FF;A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1"AND CROSS("RSI.RSI1","KRSI.RSI2");DRAWTEXT(B3>0,L-0.18,'◆ R'),COLOR0000FF;C1:=BARSLAST(REF(CROSS("MACD,DEA","MACD.DIF"),1));D1:=REF(C,C1+1)<C AND REF("MACD.DIF",C1+1)>"MACD.DIF"ANDCROSS("MACD.DEA","MACD.DIF");DRAWTEXT(D1>0,H+0.16,' M'),COLOR00FF00;C2:=BARSLAST(REF(CROSS("KDJ,D","KDJ.K"),1));D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)>"KDJ.K"AND CROSS("KDJ.D","KDJ.K");DRAWTEXT(D2>0,H+0.08,'◎ K'),COLORFFFFCC;C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1"AND CROSS("RSI.RSI2","KRSI.RSI1");DRAWTEXT(D3>0,H+0.04,'◆ R'),COLORFF9900;

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】