霓虹令 （有未来）函数[通达信公式]

相关标签:

霓虹令，准确的买卖点

原理解析：
F赋值:100*(收盘价-1日前的收盘价)/1日前的收盘价 今小昨赋值:如果收盘价<1日前的开盘价ANDF<0,返回1,否则返回0 S1赋值:今小昨 今小前赋值:如果收盘价<2日前的开盘价ANDF<0,返回1,否则返回0,线宽为0 S2赋值:今小前 A1赋值:S1=0 AND 1日前的S1=1 AND S2=0 AND 1日前的S2=1 AND 收盘价3%的之字转向上穿1日前的收盘价3%的之字转向 A2赋值:S1=0 AND 1日前的S1=1 AND S2=0 AND 1日前的S2=1 AND 收盘价5%的之字转向上穿1日前的收盘价5%的之字转向 A3赋值:S1=0 AND 1日前的S1=1 AND S2=0 AND 1日前的S2=1 AND 收盘价10%的之字转向上穿1日前的收盘价10%的之字转向 当满足条件A1ANDA2时,在0和3位置之间画柱状线,宽度为3,0不为0则画空心柱.画绿色 当满足条件A1ANDA2时,在0和1位置之间画柱状线,宽度为3,0不为0则画空心柱.画蓝色 当满足条件A1ANDA2ANDA3时,在0和5位置之间画柱状线,宽度为3,0不为0则画空心柱.画黄色 当满足条件A1ANDA2ANDA3时,在0和3位置之间画柱状线,宽度为3,0不为0则画空心柱.COLORFF00FF 当满足条件A1ANDA2ANDA3时,在0和1位置之间画柱状线,宽度为3,0不为0则画空心柱.画蓝色 当满足条件A3=1时,在4.8位置书写文字,画黄色 输出智勇出击: 收盘价6%的之字转向>1日前的收盘价6%的之字转向AND 1日前的收盘价6%的之字转向<2日前的收盘价6%的之字转向,画白色,线宽为2 当满足条件智勇出击=1时,在0.8位置书写文字,画白色 输出小获且退: 收盘价10%的之字转向<1日前的收盘价10%的之字转向 AND 1日前的收盘价10%的之字转向>2日前的收盘价10%的之字转向,画黄色,线宽为2 当满足条件小获且退=1时,在1.3位置书写文字,画黄色 VAR3赋值:最低价15%之字转向的前1个波峰位置<10 VAR5赋值:如果VAR3=1,返回2,否则返回0 顶赋值: 如果VAR5=2,返回2,否则返回0 输出大胜且归:如果顶>1日前的顶,返回2,否则返回0,画红色,线宽为2 当满足条件大胜且归=2时,在2位置书写文字,画红色

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

源码：

{霓虹令}
F:=100*(C-REF(C,1))/REF(C,1);
今小昨:=IF(C<REF(O,1) AND F<0,1,0);
S1:=今小昨;
今小前:=IF(C<REF(O,2) AND F<0,1,0),LINETHICK0;
S2:=今小前;
A1:=S1=0 AND REF(S1,1)=1 AND S2=0 AND REF(S2,1)=1 AND CROSS(ZIG(3,3) ,REF(ZIG(3 ,3),1));
A2:=S1=0 AND REF(S1,1)=1 AND S2=0 AND REF(S2,1)=1 AND CROSS(ZIG(3,5) ,REF(ZIG(3 ,5),1));
A3:=S1=0 AND REF(S1,1)=1 AND S2=0 AND REF(S2,1)=1 AND CROSS(ZIG(3,10) ,REF(ZIG(3 ,10),1));
STICKLINE(A1 AND A2 ,0,3,3,0)COLORGREEN;
STICKLINE(A1 AND A2 ,0,1,3,0)COLORBLUE;
STICKLINE(A1 AND A2 AND A3,0,5,3,0)COLORYELLOW;
STICKLINE(A1 AND A2 AND A3,0,3,3,0)COLORFF00FF;
STICKLINE(A1 AND A2 AND A3,0,1,3,0)COLORBLUE;
DRAWTEXT(A3=1,4.8,'长攻!'),COLORYELLOW;
智勇出击: ZIG(3,6)>REF(ZIG(3,6),1)AND REF(ZIG(3,6),1)<REF(ZIG
(3,6),2),COLORWHITE,LINETHICK2;
DRAWTEXT(智勇出击=1,0.8,'突袭!'),COLORWHITE;
小获且退: ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG
(3,10),2),COLORYELLOW,LINETHICK2;
DRAWTEXT(小获且退=1,1.3,'退!'),COLORYELLOW;
VAR3:=PEAKBARS(2,15,1)<10;
VAR5:=IF(VAR3=1,2,0);
顶:= IF(VAR5=2,2,0);
大胜且归:IF(顶>REF(顶,1),2,0),COLORRED,LINETHICK2;
DRAWTEXT(大胜且归=2,2,'撤!'),COLORRED;

有未来函数

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