相關標簽:

?

指標使用方法說明：
森林--操作線，不見綠色不操作；
土壤--量能變化情況；
森林白色背景--中期量能變化情況，向上最好；
耕耘區--操作區；
長葉--股價初漲區；
開花--股價進入拉升區；
結果--股價進入急拉區；}

?

?

?

原理解析：
AA賦值:(收盤價的4日指數移動平均-收盤價的7日指數移動平均)/收盤價的7日指數移動平均*4000 輸出森林:AA,COLOR00FF00,線寬為1 量賦值:(如果收盤價>=2日前的收盤價,返回成交量(手),否則返回(-成交量(手))的34日指數移動平均/成交量(手)的34日簡單移動平均)*100 X26賦值:量的26日指數移動平均,COLORFF00FF 當滿足條件X26>=1日前的X26時,在0和X26位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,畫白色 當滿足條件X26<1日前的X26時,在0和X26位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORDDDDDD 輸出土壤:量的9日指數移動平均,COLORFF6633,線寬為1 TJ1賦值:AA>=1日前的AA TJ2賦值:土壤>=1日前的土壤 TJ3賦值:X26>=1日前的X26 輸出耕耘區:(TJ1+TJ2 +TJ3)>=2,畫白色 輸出長葉:(耕耘區 AND 統計3日中滿足耕耘區的天數=1)*30,STICK,COLOR00FF00,線寬為5 輸出開花:(耕耘區 AND AA上穿10)*50,STICK,畫黃色,線寬為5 輸出結果:((TJ1+TJ2 +TJ3)=3 AND AA>=20AND 統計3日中滿足AA>1日前的AA的天數=1)*80,STICK,COLORFF00FF,線寬為5 如果AA>=0,返回AA,否則返回5,COLOR00FF00,線寬為2 如果AA<0,返回AA,否則返回5,COLORFF6600,線寬為2 當滿足條件X26>=1日前的X26時,在X26和X26位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫紅色,線寬為1 當滿足條件X26<1日前的X26時,在X26和X26位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫白色,線寬為1 當滿足條件耕耘區時,在-5和5位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,畫白色,線寬為1 當滿足條件(TJ1+TJ2+TJ3)=3時,在-5和5位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,COLOR00FF00,線寬為1 當滿足條件長葉時,在50位置書寫文字,COLOR00FF00 當滿足條件開花時,在80位置書寫文字,畫黃色 當滿足條件結果時,在100位置書寫文字,COLOR0000FF 0,畫白色 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

?

?

AA:=(EMA(C,4)-EMA(C,7))/EMA(C,7)*4000;
森林:AA,COLOR00FF00,LINETHICK1;
量:=(EMA(IF(C>=REF(C,2),V,(-V)),34)/MA(V,34))*100;
X26:=EMA(量,26),COLORFF00FF;
STICKLINE(X26>=REF(X26,1),0,X26,5,0),colorwhite;
STICKLINE(X26<REF(X26,1),0,X26,5,0),COLORDDDDDD;
土壤:EMA(量,9),COLORFF6633,LINETHICK1;
TJ1:=AA>=REF(AA,1);
TJ2:=土壤>=REF(土壤,1);
TJ3:=X26>=REF(X26,1);
耕耘區:(TJ1+TJ2 +TJ3)>=2,colorwhite;
長葉:(耕耘區 AND COUNT(耕耘區,3)=1)*30,STICK,COLOR00FF00,LINETHICK5;
開花:(耕耘區 AND CROSS(AA,10))*50,STICK,coloryellow,LINETHICK5;
結果:((TJ1+TJ2 +TJ3)=3 AND AA>=20
AND COUNT(AA>REF(AA,1),3)=1)*80,STICK,COLORFF00FF,LINETHICK5;
IF(AA>=0, AA, 5),COLOR00FF00,LINETHICK2;
IF(AA<0, AA, 5),COLORFF6600,LINETHICK2;
STICKLINE(X26>=REF(X26,1), X26, X26,8,0),colorred,LINETHICK1;
STICKLINE(X26<REF(X26,1), X26, X26,8,0),colorwhite,LINETHICK1;
STICKLINE(耕耘區,-5,5,4,1),colorwhite,LINETHICK1;
STICKLINE((TJ1+TJ2 +TJ3)=3,-5,5,4,1),COLOR00FF00,LINETHICK1;
DRAWTEXT(長葉,50,'長葉'),COLOR00FF00;
DRAWTEXT(開花,80,'賞花'),coloryellow;
DRAWTEXT(結果,100,'摘果'),COLOR0000FF;
0,colorwhite;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?