中短牛股副圖指標公式源碼[通達信公式]

相關標簽:

?

?

?

原理解析：
N1賦值:5 N2賦值:10 LC賦值:1日前的收盤價 A0賦值:(2*收盤價+最高價+最低價)/4 均線賦值:A0的3日簡單移動平均>1日前的A0的3日簡單移動平均 輸出安全線:2,畫紅色,POINTDOT,線寬為4 A1賦值:(收盤價-7日內最低價的最低值)/(7日內最高價的最高值-7日內最低價的最低值)*10 輸出K:3*A1的6日[1日權重]移動平均-2*A1的5日[1日權重]移動平均的5日[1日權重]移動平均的3日簡單移動平均,線寬為1,COLORF00FF0 輸出D:K的3日簡單移動平均,COLORFF0000,線寬為1 輸出J:3*K-2*D,線寬為1,COLORF00FF0 畫帶狀線 VAR1賦值:收盤價-1日前的收盤價 VAR2賦值:100*VAR1的6日指數移動平均的6日指數移動平均/VAR1的絕對值的6日指數移動平均的6日指數移動平均 MA5賦值:收盤價的5日指數移動平均 MA13賦值:收盤價的13日指數移動平均 UP賦值:當滿足條件最低價=上次MA13上穿MA5距今天數+1日內最低價的最低值時,在上次MA13上穿MA5距今天數+1日內最低價的最低值位置畫直線起點，當滿足條件最高價=上次MA5上穿MA13距今天數+1日內最高價的最高值時,在上次MA5上穿MA13距今天數+1日內最高價的最高值位置畫直線終點,0表示是否延長.,COLOR0000FF DOWN賦值:當滿足條件最高價=上次MA5上穿MA13距今天數+1日內最高價的最高值時,在上次MA5上穿MA13距今天數+1日內最高價的最高值位置畫直線起點，當滿足條件最低價=上次MA13上穿MA5距今天數+1日內最低價的最低值時,在上次MA13上穿MA5距今天數+1日內最低價的最低值位置畫直線終點,0表示是否延長.,COLOR00FF00 BT賦值:(2日內VAR2的最低值=7日內VAR2的最低值 AND 統計2日中滿足VAR2<0的天數 AND VAR2上穿VAR2的2日簡單移動平均) ANDREF(DOWN,1)<2日前的DOWN AND UP>1日前的DOWN 輸出底線:0,COLORFF00FF 輸出頂線:10,COLORFF0000 當滿足條件UP時,在0和0.2位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR0000FF 當滿足條件DOWN時,在0和0.2位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00FF00 當滿足條件BT時,在0和3位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR000088 當滿足條件BT時,在0和3位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR0000CC 當滿足條件BT時,在0和3位置之間畫柱狀線,寬度為0.22,0不為0則畫空心柱.,COLOR0000FF 當滿足條件BT時,在3位置書寫文字,COLOR0000FF TJ1賦值:1日前的DOWN<2日前的DOWN AND UP>1日前的DOWN AND 收盤價<21日內最高價的最高值*0.82 當滿足條件TJ1時,在0和2位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR880088 當滿足條件TJ1時,在0和2位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLORAA00AA 當滿足條件TJ1時,在0和2位置之間畫柱狀線,寬度為0.8,0不為0則畫空心柱.,COLORCC00CC 當滿足條件TJ1時,在0和2位置之間畫柱狀線,寬度為0.2,0不為0則畫空心柱.,COLORFF00FF 當滿足條件TJ1時,在2位置書寫文字,COLORFF00FF HR賦值:55日內最高價的最高值 HRY賦值:55日內最低價的最低值 HRY11賦值:HR*HRY HRY33賦值:HRY11的開方 TJ2賦值:1日前的DOWN<2日前的DOWN AND UP>1日前的DOWN AND 收盤價<HRY33 當滿足條件TJ2時,在0和1位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR008888 當滿足條件TJ2時,在0和1位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR00AAAA 當滿足條件TJ2時,在0和1位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR00CCCC 當滿足條件TJ2時,在0和1位置之間畫柱狀線,寬度為0.2,0不為0則畫空心柱.,COLOR00FFFF 當滿足條件TJ2時,在1位置書寫文字,COLOR00FFFF ST賦值:1日前的UP>2日前的UP AND DOWN<1日前的UP 當滿足條件ST時,在10和9位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR008800 當滿足條件ST時,在10和9位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR00AA00 當滿足條件ST時,在10和9位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR00CC00 當滿足條件ST時,在10和9位置之間畫柱狀線,寬度為0.2,0不為0則畫空心柱.,COLOR00FF00 當滿足條件ST時,在9位置書寫文字,COLOR00FF00 DIFF賦值:不定周期收盤價的12日指數移動平均-不定周期收盤價的26日指數移動平均 DEA賦值:DIFF的9日指數移動平均,COLORFFFF00 A11賦值:上次1日前的DIFF上穿DEA距今天數 底背離賦值:A11+1日前的收盤價>收盤價 AND DIFF>A11+1日前的DIFF AND DIFF上穿DEA 當滿足條件底背離時,在-0.6位置書寫文字,畫白色 A22賦值:上次1日前的DEA上穿DIFF距今天數 頂背離賦值:A22+1日前的收盤價<收盤價 AND A22+1日前的DIFF>DIFF AND DEA上穿DIFF 當滿足條件頂背離時,在11位置書寫文字,畫白色 公式有未來，不推薦使用

?

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

源碼：

?

?

?

N1:=5;N2:=10;

LC:=REF(CLOSE,1);
A0:=(2*C+H+L)/4;
均線:=MA(A0,3)>REF(MA(A0,3),1);
安全線:2,COLORRED,POINTDOT,LINETHICK4;
A1:=(CLOSE-LLV(LOW,7))/(HHV(HIGH,7)-LLV(LOW,7))*10;
K:MA(3*SMA(A1,6,1)-2*SMA(SMA(A1,5,1),5,1),3),LINETHICK1,COLORF00FF0;
D:MA(K,3),COLORFF0000,LINETHICK1;
J:3*K-2*D,LINETHICK1,COLORF00FF0;
DRAWBAND(K,RGB(155,50,50),D,RGB(0,100,50));
VAR1:=C-REF(C,1);
VAR2:=100*EMA(EMA(VAR1,6),6)/EMA(EMA(ABS(VAR1),6),6);
MA5:=EMA(C,5);
MA13:=EMA(C,13);
UP:=DRAWLINE(L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1),H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1),0),COLOR0000FF;
DOWN:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1),L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1),0),COLOR00FF00;
BT:=(LLV(VAR2,2)=LLV(VAR2,7) AND COUNT(VAR2<0,2) AND CROSS(VAR2,MA(VAR2,2))) AND
REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1);
底線:0,COLORFF00FF;
頂線:10,COLORFF0000;
STICKLINE(UP,0,0.2,3,0),COLOR0000FF;
STICKLINE(DOWN,0,0.2,3,0),COLOR00FF00;
STICKLINE(BT,0,3,2,0),COLOR000088;
STICKLINE(BT,0,3,1,0),COLOR0000CC;
STICKLINE(BT,0,3,0.22,0),COLOR0000FF;
DRAWTEXT(BT,3,'短牛'),COLOR0000FF;
TJ1:=REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HHV(H,21)*0.82;
STICKLINE(TJ1,0,2,3,0),COLOR880088;
STICKLINE(TJ1,0,2,1.5,0),COLORAA00AA;
STICKLINE(TJ1,0,2,0.8,0),COLORCC00CC;
STICKLINE(TJ1,0,2,0.2,0),COLORFF00FF;
DRAWTEXT(TJ1,2,'中牛'),COLORFF00FF;
HR:=HHV(HIGH,55);
HRY:=LLV(LOW,55);
HRY11:=HR*HRY;
HRY33:=SQRT(HRY11);
TJ2:=REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HRY33;
STICKLINE(TJ2,0,1,5,0),COLOR008888;
STICKLINE(TJ2,0,1,2,0),COLOR00AAAA;
STICKLINE(TJ2,0,1,1,0),COLOR00CCCC;
STICKLINE(TJ2,0,1,0.2,0),COLOR00FFFF;
DRAWTEXT(TJ2,1,'大牛'),COLOR00FFFF;
ST:=REF(UP,1)>REF(UP,2) AND DOWN<REF(UP,1);
STICKLINE(ST,10,9,5,0),COLOR008800;
STICKLINE(ST,10,9,2,0),COLOR00AA00;
STICKLINE(ST,10,9,1,0),COLOR00CC00;
STICKLINE(ST,10,9,0.2,0),COLOR00FF00;
DRAWTEXT(ST,9,'賣'),COLOR00FF00;
DIFF:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
DEA:=EMA(DIFF,9),COLORFFFF00;
A11:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背離:=REF(CLOSE,A11+1)>CLOSE AND DIFF>REF(DIFF,A11+1) AND CROSS(DIFF,DEA);
DRAWTEXT(底背離,-0.6,'底背離'),COLORWHITE;
A22:=BARSLAST(REF(CROSS(DEA,DIFF),1));
頂背離:=REF(CLOSE,A22+1)<CLOSE AND REF(DIFF,A22+1)>DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(頂背離,11,'頂背離'),COLORWHITE;

?

?

公式有未來，不推薦使用

?

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

?