相關標簽:

　

?

?

原理解析：
輸出A6:收盤價的5日指數(shù)移動平均,畫綠色 輸出A10:收盤價的10日指數(shù)移動平均,畫綠色 輸出RJ:(收盤價+開盤價)*1/2 當滿足條件A6>3日前的A6時,在A6和1日前的A6位置之間畫柱狀線,寬度為1,1不為0則畫空心柱.,畫紅色 當滿足條件A6<3日前的A6時,在A6和1日前的A6位置之間畫柱狀線,寬度為1,1不為0則畫空心柱.,畫綠色 如果收盤價>A6,返回A6,否則返回無效數(shù),畫白色,線寬為2 如果收盤價>A10,返回A10,否則返回無效數(shù),畫紅色,線寬為2 JJJ賦值:如果總量>0.01,返回0.01*總金額/總量,否則返回前收盤價 DDD賦值:(最高價<0.01 最低價<0.01) JJJT賦值:如果DDD,返回1,否則返回(JJJ<(最高價+0.01)并且JJJ>(最低價-0.01)) 輸出CYC1:如果JJJT,返回0.01*成交額(元)的6日指數(shù)移動平均/成交量(手)的6日指數(shù)移動平均,否則返回(最高價+最低價+收盤價)/3的6日指數(shù)移動平均,畫綠色 輸出CYC2:如果JJJT,返回0.01*成交額(元)的8日指數(shù)移動平均/成交量(手)的8日指數(shù)移動平均,否則返回(最高價+最低價+收盤價)/3的8日指數(shù)移動平均,畫綠色 輸出CYC3:如果JJJT,返回0.01*成交額(元)的34日指數(shù)移動平均/成交量(手)的34日指數(shù)移動平均,否則返回(最高價+最低價+收盤價)/3的34日指數(shù)移動平均 輸出CYC∞:如果JJJT,返回以100*成交量(手)/流通股本(股)為權(quán)重成交額(元)/(100*成交量(手))的動態(tài)移動平均,否則返回(最高價+最低價+收盤價)/3的120日指數(shù)移動平均 如果CYC1>1日前的CYC1ORC>CYC1,返回CYC1,否則返回無效數(shù),畫白色,線寬為2 如果收盤價>CYC2,返回CYC2,否則返回無效數(shù),畫紅色,線寬為2 B賦值:CYC1>1日前的CYC1ANDCYC2>1日前的CYC2ANDCYC3>1日前的CYC3ANDCYC∞>1日前的CYC∞ANDC>CYC∞ANDRJ>1日前的RJANDA6>1日前的A6上穿0.2 牛起身賦值: 收盤價上穿CYC∞ AND CYC∞>1日前的CYC∞ AND CYC1>1日前的CYC1 AND CYC2>1日前的CYC2 AND CYC3>1日前的CYC3 當滿足條件B時,在最低價-(最高價-最低價)*0.6位置書寫文字 當滿足條件牛起身時,在最低價-(最高價-最低價)*0.96位置書寫文字

?

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

源碼：

?

?

A6:EMA(CLOSE,5),COLORGREEN;
A10:EMA(CLOSE,10),COLORGREEN;
RJ:(C+O)*1/2;
STICKLINE(A6>REF(A6,3),A6,REF(A6,1),1,1),COLORRED;
STICKLINE(A6<REF(A6,3),A6,REF(A6,1),1,1),COLORGREEN;
IF(C>A6,A6,DRAWNULL),COLORWHITE,LINETHICK2;
IF(C>A10,A10,DRAWNULL),COLORRED,LINETHICK2;
JJJ:=IF(DYNAINFO(8)>0.01,0.01*DYNAINFO(10)/DYNAINFO(8),DYNAINFO(3));
DDD:=(DYNAINFO(5)<0.01 DYNAINFO(6)<0.01);
JJJT:=IF(DDD,1,(JJJ<(DYNAINFO(5)+0.01) && JJJ>(DYNAINFO(6)-0.01)));
CYC1:IF(JJJT,0.01*EXPMA(AMOUNT,6)/EXPMA(VOL,6),EMA((HIGH+LOW+CLOSE)/3,6)),COLORGREEN;
CYC2:IF(JJJT,0.01*EXPMA(AMOUNT,8)/EXPMA(VOL,8),EMA((HIGH+LOW+CLOSE)/3,8)),COLORGREEN;
CYC3:IF(JJJT,0.01*EXPMA(AMOUNT,34)/EXPMA(VOL,34),EMA((HIGH+LOW+CLOSE)/3,34));
CYC∞:IF(JJJT,DMA(AMOUNT/(100*VOL),100*VOL/FINANCE(7)),EMA((HIGH+LOW+CLOSE)/3,120));
IF(CYC1>REF(CYC1,1) OR C>CYC1,CYC1,DRAWNULL),COLORWHITE,LINETHICK2;
IF(C>CYC2,CYC2,DRAWNULL),COLORRED,LINETHICK2;
B:=CROSS(CYC1>REF(CYC1,1) AND CYC2>REF(CYC2,1) AND CYC3>REF(CYC3,1)AND CYC∞>REF(CYC∞,1) AND C>CYC∞ AND RJ>REF(RJ,1) AND A6>REF(A6,1),0.2);
牛起身:= CROSS(C,CYC∞) AND CYC∞>REF(CYC∞,1) AND CYC1>REF(CYC1,1) AND CYC2>REF(CYC2,1) AND CYC3>REF(CYC3,1);
DRAWTEXT(B,LOW-(H-L)*0.6,'上/');
DRAWTEXT(牛起身,LOW-(H-L)*0.96,'牛起身');

點擊看大圖

?

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

?