相關標簽:

?

通達信箱體短線操作指標源碼附圖

?

?

?

?

原理解析：
AA賦值:N日前的最高價=2*N+1日內最高價的最高值 QY賦值:若AA則將最近N+1周期置為1 CC賦值:QY的N日過濾 AND 最高價=N+1日內最高價的最高值 DDD賦值:上次CC距今天數,NODRAW GDTS賦值:如果CC,返回到最后交易的周期,否則返回0,NODRAW DINGBUTS賦值:如果DDD,返回DDD日前的GDTS,否則返回GDTS,NODRAW GDCS1賦值:DINGBUTS的最后一日取值設為常數,NODRAW GDCS13賦值:GDCS1-1日前的最高價的最后一日取值設為常數 DINGBUTS1賦值:DDD+1日前的DINGBUTS,NODRAW GDCS2賦值:DINGBUTS1的最后一日取值設為常數 GDCS23賦值:DINGBUTS1-1日前的最高價的最后一日取值設為常數 XG1賦值:若是否最后一個周期則將最近GDCS1周期置為1 XG2賦值:若是否最后一個周期則將最近DINGBUTS1周期置為1 高點壓力賦值:當滿足條件到最后交易的周期=GDCS2時,在最高價位置畫直線起點，當滿足條件到最后交易的周期=GDCS1時,在最高價位置畫直線終點,1表示是否延長. ,畫藍色,線寬為1 AA1賦值:N日前的最低價=2*N+1日內最低價的最低值 QY1賦值:若AA1則將最近N+1周期置為1 CC1賦值:QY1的N日過濾 AND 最低價=N+1日內最低價的最低值 DD1賦值:上次CC1距今天數 DDTS賦值:如果CC1,返回到最后交易的周期,否則返回0 DDTS1賦值:如果DD1,返回DD1日前的DDTS,否則返回DDTS DDCS1賦值:DDTS1的最后一日取值設為常數 DDCS13賦值:DDCS1-1日前的最低價的最后一日取值設為常數 DDTS2賦值:DD1+1日前的DDTS1 DDCS2賦值:DDTS2的最后一日取值設為常數 DDCS23賦值:DDTS2-1日前的最低價的最后一日取值設為常數 XD1賦值:若是否最后一個周期則將最近DDCS1周期置為1 XD2賦值:若是否最后一個周期則將最近DDTS2周期置為1 低點支撐賦值:當滿足條件到最后交易的周期=DDCS2時,在最低價位置畫直線起點，當滿足條件到最后交易的周期=DDCS1時,在最低價位置畫直線終點,1表示是否延長.,畫藍色,線寬為1 畫帶狀線 ZGSTAR賦值:(高點壓力+低點支撐)/2 ZGEND賦值:(高點壓力+低點支撐)/2的最后一日取值設為常數 STARDAY賦值:如果DDCS2<GDCS2,返回DDCS2,否則返回GDCS2 M賦值:3*N/5的整數部分 AAA賦值:M日前的最高價=2*M+1日內最高價的最高值 QYY賦值:若AAA則將最近M+1周期置為1 CCC賦值:QYY的M日過濾 AND 最高價=M+1日內最高價的最高值 DDDD賦值:上次CCC距今天數,NODRAW GDTSS賦值:如果CCC,返回到最后交易的周期,否則返回0,NODRAW DINGBUTSS賦值:如果DDDD,返回DDDD日前的GDTSS,否則返回GDTSS,NODRAW GDCS11賦值:DINGBUTSS的最后一日取值設為常數,NODRAW DINGBUTS11賦值:DDDD+1日前的DINGBUTSS,NODRAW GDCS22賦值:DINGBUTS11的最后一日取值設為常數 輸出高點壓力2:當滿足條件到最后交易的周期=GDCS22時,在最高價位置畫直線起點，當滿足條件到最后交易的周期=GDCS11時,在最高價位置畫直線終點,1表示是否延長.,畫紅色,線寬為1 AA11賦值:M日前的最低價=2*M+1日內最低價的最低值 QY11賦值:若AA11則將最近M+1周期置為1 CC11賦值:QY11的M日過濾 AND 最低價=M+1日內最低價的最低值 DD11賦值:上次CC11距今天數 DDTSS賦值:如果CC11,返回到最后交易的周期,否則返回0 DDTS11賦值:如果DD11,返回DD11日前的DDTSS,否則返回DDTSS DDCS11賦值:DDTS11的最后一日取值設為常數 DDTS22賦值:DD11+1日前的DDTS11 DDCS22賦值:DDTS22的最后一日取值設為常數 輸出低點支撐2:當滿足條件到最后交易的周期=DDCS22時,在最低價位置畫直線起點，當滿足條件到最后交易的周期=DDCS11時,在最低價位置畫直線終點,1表示是否延長. 畫紅色,線寬為1 畫帶狀線 輸出低點支撐②:低點支撐2,畫洋紅色 輸出高點壓力②:高點壓力2,畫洋紅色 輸出中軌②:(高點壓力2+低點支撐2)/2,畫黃色 輸出低點支撐①:低點支撐,畫紅色 輸出高點壓力①:高點壓力,畫紅色 輸出中軌①:當滿足條件到最后交易的周期=STARDAY時,在ZGSTAR位置畫直線起點，當滿足條件是否最后一個周期時,在ZGEND位置畫直線終點,1表示是否延長.,畫黃色,線寬為1 K線 單陽賦值:收盤價>開盤價*(1+4/100) AND 成交量(手)>1日前的成交量(手)*1.8 當滿足條件到最后交易的周期<100AND單陽時,在最低價*0.98位置書寫文字,COLOR00FFFF 高不破價賦值:上次單陽距今天數日前的收盤價 中不破價賦值:上次單陽距今天數日前的(收盤價+最低價)/2 低不破價賦值:上次單陽距今天數日前的最低價 單陽不破賦值:到最后交易的周期<100 AND 上次單陽距今天數<13 AND (上次單陽距今天數日內最低價的最低值>低不破價 OR 上次單陽距今天數日內最低價的最低值=低不破價) 當滿足條件單陽不破時,在低不破價-低不破價*0.003和低不破價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,畫紅色 當滿足條件上次單陽距今天數=10AND單陽不破ANDC>開盤價時,在低不破價*0.98位置書寫文字 當滿足條件上次單陽距今天數=12ANDREF(最低價,1)>低不破價ANDL<中不破價ANDC>單陽不破時,在低不破價*0.98位置書寫文字 當滿足條件上次單陽距今天數=1AND單陽不破時,在低不破價*0.98位置書寫文字,畫綠色 當滿足條件上次單陽距今天數=2AND單陽不破時,在低不破價*0.98位置書寫文字,畫綠色 當滿足條件上次單陽距今天數=3AND單陽不破時,在低不破價*0.98位置書寫文字,畫綠色 當滿足條件上次單陽距今天數=5AND單陽不破時,在低不破價*0.98位置書寫文字,畫綠色 當滿足條件上次單陽距今天數=7AND單陽不破時,在低不破價*0.98位置書寫文字,畫綠色 當滿足條件上次單陽距今天數=9AND單陽不破時,在低不破價*0.98位置書寫文字,畫綠色 當滿足條件上次單陽距今天數=11AND單陽不破時,在低不破價*0.98位置書寫文字,畫綠色 CS賦值:(收盤價-8日內最低價的最低值)/(8日內最高價的最高值-8日內最低價的最低值)*100 YJD賦值:(CS的3日指數移動平均-50)*2 當滿足條件YJD上穿-60時,在最低價*0.98位置書寫文字,畫黃色 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

?來源:程序化99（ www.weiqiv.net.cn ）

源碼：

?

?

{N:=5 到10 都可以}

?

AA:=REF(H,N)=HHV(H,2*N+1);
QY:=BACKSET(AA,N+1);
CC:=FILTER(QY,N) AND H=HHV(H,N+1);
DDD:=BARSLAST(CC),NODRAW;
GDTS:=IF(CC,CURRBARSCOUNT,0),NODRAW;
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS),NODRAW;
GDCS1:=CONST(DINGBUTS),NODRAW;
GDCS13:=CONST(REF(HIGH,GDCS1-1));
DINGBUTS1:=REF(DINGBUTS,DDD+1),NODRAW;
GDCS2:=CONST(DINGBUTS1);
GDCS23:=CONST(REF(HIGH,DINGBUTS1-1));
XG1:=BACKSET(ISLASTBAR,GDCS1);
XG2:=BACKSET(ISLASTBAR,DINGBUTS1);
高點壓力:=DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) ,COLORBLUE,LINETHICK1;
AA1:=REF(L,N)=LLV(L,2*N+1);
QY1:=BACKSET(AA1,N+1);
CC1:=FILTER(QY1,N) AND L=LLV(L,N+1);
DD1:=BARSLAST(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=CONST(DDTS1);
DDCS13:=CONST(REF(L,DDCS1-1));
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=CONST(DDTS2);
DDCS23:=CONST(REF(L,DDTS2-1));
XD1:=BACKSET(ISLASTBAR,DDCS1);
XD2:=BACKSET(ISLASTBAR,DDTS2);
低點支撐:=DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1),COLORBLUE,LINETHICK1;
DRAWBAND(高點壓力,RGB(00,00,100),低點支撐,RGB(00,00,00));
ZGSTAR:=(高點壓力+低點支撐)/2;
ZGEND:=CONST((高點壓力+低點支撐)/2);
STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2);
M:=INTPART(3*N/5);
AAA:=REF(H,M)=HHV(H,2*M+1);
QYY:=BACKSET(AAA,M+1);
CCC:=FILTER(QYY,M) AND H=HHV(H,M+1);
DDDD:=BARSLAST(CCC),NODRAW;
GDTSS:=IF(CCC,CURRBARSCOUNT,0),NODRAW;
DINGBUTSS:=IF(DDDD,REF(GDTSS,DDDD),GDTSS),NODRAW;
GDCS11:=CONST(DINGBUTSS),NODRAW;
DINGBUTS11:=REF(DINGBUTSS,DDDD+1),NODRAW;
GDCS22:=CONST(DINGBUTS11);
高點壓力2:DRAWLINE(CURRBARSCOUNT=GDCS22,H,CURRBARSCOUNT=GDCS11,H,1),COLORRED,LINETHICK1;
AA11:=REF(L,M)=LLV(L,2*M+1);
QY11:=BACKSET(AA11,M+1);
CC11:=FILTER(QY11,M) AND L=LLV(L,M+1);
DD11:=BARSLAST(CC11);
DDTSS:=IF(CC11,CURRBARSCOUNT,0);
DDTS11:=IF(DD11,REF(DDTSS,DD11),DDTSS);
DDCS11:=CONST(DDTS11);
DDTS22:=REF(DDTS11,DD11+1);
DDCS22:=CONST(DDTS22);
低點支撐2:DRAWLINE(CURRBARSCOUNT=DDCS22,L,CURRBARSCOUNT=DDCS11,L,1) COLORRED,LINETHICK1;
DRAWBAND(高點壓力2,RGB(00,00,200),低點支撐2,RGB(00,00,200));
低點支撐②:低點支撐2,COLORMAGENTA;
高點壓力②:高點壓力2,COLORMAGENTA;
中軌②:(高點壓力2+低點支撐2)/2,COLORYELLOW;
低點支撐①:低點支撐,COLORRED;
高點壓力①:高點壓力,COLORRED;
中軌①:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),COLORYELLOW,LINETHICK1;
DRAWKLINE(H,O,L,C);
單陽:=C>O*(1+4/100) AND VOL>REF(VOL,1)*1.8;
DRAWTEXT(CURRBARSCOUNT<100 AND 單陽,L*0.98,'進場'),COLOR00FFFF;
高不破價:=REF(C,BARSLAST(單陽));
中不破價:=REF((C+L)/2,BARSLAST(單陽));
低不破價:=REF(L,BARSLAST(單陽));
單陽不破:=CURRBARSCOUNT<100 AND BARSLAST(單陽)<13 AND (LLV(L,BARSLAST(單陽))>低不破價 OR LLV(L,BARSLAST(單陽))=低不破價);
STICKLINE(單陽不破,低不破價-低不破價*0.003,低不破價,4,0),COLORRED;
DRAWTEXT(BARSLAST(單陽)=10 AND 單陽不破 AND C>O,低不破價*0.98,'啟動');
DRAWTEXT(BARSLAST(單陽)=12 AND REF(L,1)>低不破價 AND L<中不破價 AND C>單陽不破,低不破價*0.98,'最后支撐');
DRAWTEXT(BARSLAST(單陽)=1 AND 單陽不破,低不破價*0.98,'1'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=2 AND 單陽不破,低不破價*0.98,'2'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=3 AND 單陽不破,低不破價*0.98,'3'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=5 AND 單陽不破,低不破價*0.98,'5'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=7 AND 單陽不破,低不破價*0.98,'7'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=9 AND 單陽不破,低不破價*0.98,'9'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=11 AND 單陽不破,低不破價*0.98,'11'),COLORGREEN;
CS:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100;
YJD:=(EMA(CS,3)-50)*2;
DRAWTEXT(CROSS(YJD,-60),L*0.98,'短線'),COLORYELLOW;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.weiqiv.net.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?