股神頂?shù)妆畴x副圖指標(biāo)公式源碼[同花順公式]

相關(guān)標(biāo)簽:

?

?

?

原理解析：
A賦值:成交量(手)*收盤價(jià) B賦值:A的1日累和/成交量(手)的1日累和 B1賦值:B的17日指數(shù)移動(dòng)平均 資金賦值:(B-B1)*100/B 輸出DIFF : 資金的10日指數(shù)移動(dòng)平均 - 資金的20日指數(shù)移動(dòng)平均 輸出DEA : DIFF的6日指數(shù)移動(dòng)平均 輸出平滑異同平均 : 2*(DIFF-DEA), COLORSTICK 當(dāng)滿足條件平滑異同平均>=0時(shí),在平滑異同平均和0位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,COLORF00FF0 當(dāng)滿足條件平滑異同平均<0時(shí),在平滑異同平均和0位置之間畫柱狀線,寬度為3.1,1不為0則畫空心柱.,畫白色 當(dāng)滿足條件平滑異同平均<1日前的平滑異同平均ANDMACD>0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00AAFF 當(dāng)滿足條件平滑異同平均<1日前的平滑異同平均ANDMACD>0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLOR00BBFF 當(dāng)滿足條件平滑異同平均<1日前的平滑異同平均ANDMACD>0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為1.8,0不為0則畫空心柱.,COLOR00CCFF 當(dāng)滿足條件平滑異同平均<1日前的平滑異同平均ANDMACD>0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為1.3,0不為0則畫空心柱.,COLOR00DDFF 當(dāng)滿足條件平滑異同平均<1日前的平滑異同平均ANDMACD>0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為0.9,0不為0則畫空心柱.,COLOR00EEFF 當(dāng)滿足條件平滑異同平均<1日前的平滑異同平均ANDMACD>0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR00FFFF 當(dāng)滿足條件平滑異同平均>=1日前的平滑異同平均ANDMACD>0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR0000AA 當(dāng)滿足條件平滑異同平均>=1日前的平滑異同平均ANDMACD>0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLOR0011BB 當(dāng)滿足條件平滑異同平均>=1日前的平滑異同平均ANDMACD>0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLOR0022CC 當(dāng)滿足條件平滑異同平均>=1日前的平滑異同平均ANDMACD>0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為1.65,0不為0則畫空心柱.,COLOR0033DD 當(dāng)滿足條件平滑異同平均>=1日前的平滑異同平均ANDMACD>0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLOR0044EE 當(dāng)滿足條件平滑異同平均>=1日前的平滑異同平均ANDMACD>0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為0.55,0不為0則畫空心柱.,COLOR0055FF 當(dāng)滿足條件平滑異同平均>1日前的平滑異同平均ANDMACD<0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORAA00BB 當(dāng)滿足條件平滑異同平均>1日前的平滑異同平均ANDMACD<0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLORBB11BB 當(dāng)滿足條件平滑異同平均>1日前的平滑異同平均ANDMACD<0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLORCC22BB 當(dāng)滿足條件平滑異同平均>1日前的平滑異同平均ANDMACD<0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為1.65,0不為0則畫空心柱.,COLORDD33BB 當(dāng)滿足條件平滑異同平均>1日前的平滑異同平均ANDMACD<0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLOREE44BB 當(dāng)滿足條件平滑異同平均>1日前的平滑異同平均ANDMACD<0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為0.55,0不為0則畫空心柱.,COLORFF55BB 當(dāng)滿足條件平滑異同平均<=1日前的平滑異同平均ANDMACD<0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFFAA00 當(dāng)滿足條件平滑異同平均<=1日前的平滑異同平均ANDMACD<0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLORFFBB11 當(dāng)滿足條件平滑異同平均<=1日前的平滑異同平均ANDMACD<0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLORFFCC22 當(dāng)滿足條件平滑異同平均<=1日前的平滑異同平均ANDMACD<0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為1.65,0不為0則畫空心柱.,COLORFFDD33 當(dāng)滿足條件平滑異同平均<=1日前的平滑異同平均ANDMACD<0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLORFFEE44 當(dāng)滿足條件平滑異同平均<=1日前的平滑異同平均ANDMACD<0時(shí),在0和平滑異同平均位置之間畫柱狀線,寬度為0.55,0不為0則畫空心柱.,COLORFFFF55 如果DIFF<0,返回DIFF,否則返回0,畫紅色,線寬為1 如果DIFF<0,返回0,否則返回DIFF,畫黃色,線寬為1 如果DIFF<DEA,返回DIFF,否則返回DEA,COLOR00FF00,線寬為1 如果DIFF>DEA,返回DEA,否則返回DEA,畫白色,線寬為1 低位金叉賦值:DIFF上穿DEA AND DIFF<-0.1 當(dāng)滿足條件低位金叉時(shí),在0和-4.5位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫黃色 當(dāng)滿足條件低位金叉時(shí),在-4位置書寫文字,畫黃色 JCCOUNT賦值:統(tǒng)計(jì)上次DEA>=0距今天數(shù)日中滿足DIFF上穿DEA的天數(shù) 二次金叉賦值:DIFF上穿DEA AND DEA<0 AND 統(tǒng)計(jì)21日中滿足JCCOUNT=2的天數(shù)=1 當(dāng)滿足條件二次金叉時(shí),在0和-2.5位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFF00FF 當(dāng)滿足條件二次金叉時(shí),在DEA*1.2位置畫11號(hào)圖標(biāo) 當(dāng)滿足條件二次金叉時(shí),在-2位置書寫文字,COLORFF00FF A1賦值:上次1日前的DIFF上穿DEA距今天數(shù) 底背離賦值:A1+1日前的收盤價(jià)>收盤價(jià) AND DIFF>A1+1日前的DIFF AND DIFF上穿DEA 當(dāng)滿足條件底背離時(shí),在0和2.5位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00FF00 當(dāng)滿足條件A1=0時(shí),在DEA位置畫直線起點(diǎn)，當(dāng)滿足條件底背離時(shí),在DEA位置畫直線終點(diǎn),0表示是否延長(zhǎng).,畫紅色,線寬為2 當(dāng)滿足條件底背離時(shí),在2位置書寫文字,COLOR00FF00 A2賦值:上次1日前的DEA上穿DIFF距今天數(shù) 頂背離賦值:A2+1日前的收盤價(jià)<收盤價(jià) AND A2+1日前的DIFF>DIFF AND DEA上穿DIFF 當(dāng)滿足條件頂背離時(shí),在0和4.5位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFFFF00 當(dāng)滿足條件A2=0時(shí),在DEA位置畫直線起點(diǎn)，當(dāng)滿足條件頂背離時(shí),在DEA位置畫直線終點(diǎn),0表示是否延長(zhǎng).,COLORFFFF00,線寬為2 當(dāng)滿足條件頂背離時(shí),在4位置書寫文字,COLORFFFF00 TIPTEXT(ISNULL(1日后的&收盤價(jià)),0,' www.tumamayizhan.com '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價(jià)),0,'同花順程序化交易')

?

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

源碼：

?

?

A:=VOL*CLOSE;
B:=SUM(A,1)/SUM(VOL,1);
B1:=EMA(B,17);
資金:=(B-B1)*100/B;
DIFF : EMA(資金,10) - EMA(資金,20);
DEA : EMA(DIFF,6);
MACD : 2*(DIFF-DEA), COLORSTICK;
STICKLINE(MACD>=0,MACD,0,4,1),COLORF00FF0;
STICKLINE(MACD<0,MACD,0,3.1,1),colorwhite;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,3,0 ),COLOR00AAFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2.2,0 ),COLOR00BBFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1.8,0 ),COLOR00CCFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1.3,0 ),COLOR00DDFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0.9,0 ),COLOR00EEFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0.5,0 ),COLOR00FFFF;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,4 ,0 ),COLOR0000AA;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,3.3 ,0 ),COLOR0011BB;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2.2,0 ),COLOR0022CC;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,1.65 ,0 ),COLOR0033DD;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,1.1 ,0 ),COLOR0044EE;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,0.55 ,0 ),COLOR0055FF;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLORAA00BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,3.3 ,0 ),COLORBB11BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2.2,0 ),COLORCC22BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,1.65,0 ),COLORDD33BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,1.1,0 ),COLOREE44BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,0.55 ,0 ),COLORFF55BB;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLORFFAA00;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,3.3 ,0 ),COLORFFBB11;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2.2,0 ),COLORFFCC22;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,1.65 ,0 ),COLORFFDD33;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,1.1 ,0 ),COLORFFEE44;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,0.55 ,0 ),COLORFFFF55;
IF(DIFF<0,DIFF,0),colorred,LINETHICK1;
IF(DIFF<0,0,DIFF),coloryellow,LINETHICK1;
IF(DIFF<DEA,DIFF,DEA),COLOR00FF00,LINETHICK1;
IF(DIFF>DEA,DEA,DEA),colorwhite,LINETHICK1;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,0,-4.5,2,0),coloryellow;
DRAWTEXT(低位金叉,-4,' 低位金叉'),coloryellow;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,-2.5,5,0),COLORFF00FF;
DRAWICON(二次金叉,DEA*1.2,11) ;
DRAWTEXT(二次金叉,-2,' 二次金叉'),COLORFF00FF;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背離:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背離,0,2.5,3,0),COLOR00FF00;
DRAWLINE(A1=0,DEA,底背離,DEA,0),colorred,LINETHICK2;
DRAWTEXT(底背離,2,' 底背離'),COLOR00FF00;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
STICKLINE(頂背離,0,4.5,3,0),COLORFFFF00;
DRAWLINE(A2=0,DEA,頂背離,DEA,0),COLORFFFF00,LINETHICK2;
DRAWTEXT(頂背離,4,' 頂背離'),COLORFFFF00;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.tumamayizhan.com '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?