相關標簽:

?

當滿足條件頂A=50時，在45位置書寫文字，畫紅色
當滿足條件抄底=20時，在30位置書寫文字，畫紅色

?

?

?

原理解析：
P1賦值:10 賦值:3 80, POINTDOT,線寬為2 20, POINTDOT,線寬為2 VAR1賦值:P1日內最低價的最低值 VAR2賦值:P1日內最高價的最高值 輸出K: (收盤價-VAR1)/(VAR2-VAR1)*100的P2日指數移動平均,畫紅色,線寬為2 , 輸出D: 0.667*1日前的K+0.333*K的3日指數移動平均,COLORFFFF00,線寬為2 , VARC賦值:最低價-1日前的最低價的絕對值的3日[1日權重]移動平均/最低價-1日前的最低價和0的較大值的3日[1日權重]移動平均 VARD賦值:如果收盤價<收盤價的250日指數移動平均,返回VARC*1000,否則返回VARC*10的3日指數移動平均 輸出火焰山:如果最低價<=30日內最低價的最低值,返回VARD/2+30日內VARD的最高值,否則返回0的3日指數移動平均/618 當滿足條件火焰山>100時,在0和火焰山*1.2位置之間畫柱狀線,寬度為8,0不為0則畫空心柱. 當滿足條件火焰山>100時,在0和火焰山位置之間畫柱狀線,寬度為4,1不為0則畫空心柱. 輸出抄底: 如果最低價5%之字轉向的前1個波谷位置=0ANDHIGH>最低價+0.01,返回20,否則返回0,畫黃色 ,線寬為2 VAR3賦值:收盤價15%之字轉向的前1個波峰位置<10 VAR5賦值:如果VAR3=1,返回2,否則返回0 頂賦值: 如果VAR5=2,返回2,否則返回0 輸出頂A:如果頂>1日前的頂,返回45,否則返回0,畫藍色,線寬為2 當滿足條件頂A=50時,在45位置書寫文字,畫紅色 當滿足條件抄底=20時,在30位置書寫文字,畫紅色 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

?

?

P1:=10;
P2 :=3;
80, POINTDOT,LINETHICK2;
20, POINTDOT,LINETHICK2;
VAR1:=LLV(LOW,P1);
VAR2:=HHV(HIGH,P1);
K: EMA((CLOSE-VAR1)/(VAR2-VAR1)*100,P2),colorred,LINETHICK2 , ;
D: EMA(0.667*REF(K,1)+0.333*K,3),COLORFFFF00,LINETHICK2 ,;
VARC:=SMA(ABS(L-REF(L,1)),3,1)/SMA(MAX(L-REF(L,1),0),3,1);
VARD:=EMA(IF(C< EMA(C,250),VARC*1000,VARC*10),3);
火焰山:EMA(IF(L<=LLV(L,30),VARD/2+HHV(VARD,30),0),3)/618;
STICKLINE(火焰山>100,0,火焰山*1.2,8,0);
STICKLINE(火焰山>100,0,火焰山,4,1);
抄底: IF(TROUGHBARS(2,5,1)=0 AND HIGH>LOW+0.01,20,0),coloryellow ,LINETHICK2 ;
VAR3:=PEAKBARS(3,15,1)<10;
VAR5:=IF(VAR3=1,2,0);
頂:= IF(VAR5=2,2,0);
頂A:IF(頂>REF(頂,1),45,0),colorblue,LINETHICK2;
DRAWTEXT(頂A=50,45,'逃頂'),colorred;
DRAWTEXT(抄底=20,30,'抄底'),colorred;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?