霓虹令 （有未來）函數[通達信公式]

相關標簽:

?

霓虹令，準確的買賣點

?

?

?

?

原理解析：
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.tumamayizhan.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;

有未來函數

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?