相關標簽:

?

?

原理解析：
畫帶狀線 K線 輸出狼上軌:1日前的21日內最高價的最高值,畫深灰色 輸出中軌:1日前的(63日內最高價的最高值+63日內最低價的最低值)/2,畫黃色 輸出狼下軌:1日前的126日內最低價的最低值,畫紅色 頂賦值:21日內最高價的最高值 底賦值:126日內最低價的最低值 H19賦值:底+(頂-底)*0.618 H中賦值:底+(頂-底)*0.5 H61賦值:底+(頂-底)*1.236 起點H80賦值:底+(頂-底)*0.382 輸出【底】:日期日底,畫紅色 輸出【0.618】:日期日H19,畫綠色,POINTDOT 輸出【0.5】:日期日H中,畫白色,POINTDOT 輸出【1.236】:日期日H61,畫淡紅色,POINTDOT 輸出【0.382】:日期日起點H80,畫藍色 輸出【頂】:日期日頂,畫綠色 當滿足條件是否最后一個周期時,在起點H80位置書寫數字,畫紅色 T1賦值:10日內最低價距今天數的最后一日取值設為常數 T1HIGH賦值:T1日前的最高價的最后一日取值設為常數 CC賦值:到最后交易的周期的最后一日取值設為常數 T2賦值:上次到最后交易的周期>CC+T1ANDH>T1HIGH距今天數的最后一日取值設為常數 T2HIGH賦值:T2日前的最高價的最后一日取值設為常數 T3賦值:上次到最后交易的周期>CC+T2ANDHIGH>T2HIGH距今天數的最后一日取值設為常數 T3HIGH賦值:T3日前的最高價的最后一日取值設為常數 輸出獵擊線:當滿足條件到最后交易的周期=T3+1時,在T3HIGH位置畫直線起點，當滿足條件是否最后一個周期時,在T3HIGH位置畫直線終點,1表示是否延長.,線寬為2,COLOR0000FF 當滿足條件是否最后一個周期時,在T3HIGH位置書寫文字線寬為1,COLOR0000FF AABB賦值:收盤價的3日簡單移動平均上穿收盤價的8日簡單移動平均 AND 收盤價的8日簡單移動平均>1日前的收盤價的8日簡單移動平均 當滿足條件AABBANDPERIOD>4時,在最低價和最低價*0.990位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,畫紅色 AA賦值:起點 BB賦值:終點 CYC賦值:如果收盤價>900,返回(收盤價的AA日累和-收盤價的BB日累和)/(AA-BB),否則返回(成交額(元)的AA日累和-成交額(元)的BB日累和)/(成交量(手)的AA日累和-成交量(手)的BB日累和)/100 輸出區間成本:CYC的最后一日取值設為常數,NODRAW 輸出區間換手:(成交量(手)的AA日累和-成交量(手)的BB日累和)/當前流通股本(手)*100,NODRAW 輸出計算周期:AA-BB,NODRAW HH賦值:日期日起點日內最高價的最高值 LL賦值:日期日起點日內最低價的最低值 N1賦值:如果周期類型=7,返回1.05,否則返回如果周期類型=6,返回1.02,否則返回1.01 N2賦值:如果周期類型=7,返回0.95,否則返回如果周期類型=6,返回0.98,否則返回0.99 當滿足條件到最后交易的周期<=終點時,在區間成本*N1和區間成本*N2位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR808080 當滿足條件到最后交易的周期<=終點時,在區間成本和區間成本位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,畫白色 當滿足條件到最后交易的周期=起點時,在HH和LL位置之間畫柱狀線,寬度為0,-1不為0則畫空心柱.,畫黃色 當滿足條件到最后交易的周期=終點時,在HH和LL位置之間畫柱狀線,寬度為0,-1不為0則畫空心柱.,畫黃色 當滿足條件到最后交易的周期=起點時,在LL位置書寫文字,畫白色 當滿足條件到最后交易的周期=終點時,在LL位置書寫文字,畫白色 K線 輸出高區:如果到最后交易的周期<=60,返回如果是否最后一個周期=1,返回上次到最后交易的周期=60距今天數日內最高價的最高值,否則返回0的最后一日取值設為常數,否則返回無效數,畫紅色,DOTLINE 輸出低區:如果到最后交易的周期<=60,返回如果是否最后一個周期=1,返回上次到最后交易的周期=60距今天數日內最低價的最低值,否則返回0的最后一日取值設為常數,否則返回無效數,畫洋紅色,DOTLINE 當滿足條件CCI>=200ANDH>=高區時,在開盤價和收盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫綠色 當滿足條件CCI<=100ANDL<=低區時,在開盤價和收盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫黃色 參數N,1,100,10M,1,100,5......起點0..9999.8 終點0.9999.1下面是量DRAWBAND(成交量(手)的5日簡單移動平均,自定色,成交量(手)的21日簡單移動平均,自定色) 輸出WOL:如果到最后交易的周期=1ANDPERIOD=5,返回成交量(手)*240/當前離開盤分鐘數,否則返回無效數,NODRAW 當滿足條件到最后交易的周期=1ANDPERIOD=5時,在WOL和0位置之間畫柱狀線,寬度為3,-1不為0則畫空心柱.,COLORFFFFFF 輸出VOLUME:成交量(手),VOLSTICK 輸出 V5:VOLUME的5日簡單移動平均畫白色 輸出 V10:VOLUME的10日簡單移動平均畫黃色 輸出V21:VOLUME的21日簡單移動平均畫綠色 VAR1賦值:成交量(手)/((最高價-最低價)*2-收盤價-開盤價的絕對值) 輸出主買:如果收陽線,返回VAR1*(最高價-最低價),否則返回如果收陰線,返回VAR1*((最高價-開盤價)+(收盤價-最低價)),否則返回成交量(手)/2,畫紅色,POINTDOT 輸出主賣:如果收陽線,返回VAR1*((最高價-收盤價)+(開盤價-最低價)),否則返回如果收陰線,返回VAR1*(最高價-最低價),否則返回成交量(手)/2,畫黃色,POINTDOT N1賦值:21 頂賦值:120日內成交量(手)的最高值 底賦值:120日內成交量(手)的最低值 H19賦值:底+(頂-底)*0.618 H中賦值:底+(頂-底)*0.5 H61賦值:底+(頂-底)*1.236 起點H80賦值:底+(頂-底)*0.382 輸出【底】:日期日底,畫綠色 輸出【0.618】:日期日H19,畫綠色,POINTDOT 輸出【0.5】:日期日H中,畫白色,POINTDOT 輸出【1.236】:日期日H61,畫淡紅色,POINTDOT 輸出【0.382】:日期日起點H80,畫藍色 輸出【頂】:日期日頂,畫青色 倍量柱賦值:成交量(手)/1日前的成交量(手)>1.89 當滿足條件倍量柱ANDC>開盤價時,在成交量(手)和成交量(手)/2位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.畫黃色

?

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

源碼：

?

?

?

DRAWBAND(MA(CLOSE,5),RGB(200,150,200),MA(CLOSE,10),RGB(83,123,68));
DRAWKLINE(H,O,L,C);
狼上軌:REF(HHV(H,21),1),COLORGRAY;
中軌:REF((HHV(H,63)+LLV(L,63))/2,1),COLORYELLOW;
狼下軌:REF(LLV(L,126),1),COLORRED;
頂:=HHV(H,21);
底:=LLV(L,126);
H19:=底+(頂-底)*0.618;
H中:=底+(頂-底)*0.5;
H61:=底+(頂-底)*1.236;
起點H80:=底+(頂-底)*0.382;
【底】:REFDATE(底,DATE),COLORRED;
【0.618】:REFDATE(H19,DATE),COLORGREEN,POINTDOT;
【0.5】:REFDATE(H中,DATE),COLORWHITE,POINTDOT;
【1.236】:REFDATE(H61,DATE),COLORLIRED,POINTDOT;
【0.382】:REFDATE(起點H80,DATE),COLORBLUE;
【頂】:REFDATE(頂,DATE),COLORGREEN;
DRAWNUMBER(ISLASTBAR ,起點H80,起點H80),COLORRED;
{設置參數:N,1,100,10}
T1:=CONST(LLVBARS(LOW,10));
T1HIGH:=CONST(REF(HIGH,T1));
CC:=CONST(CURRBARSCOUNT);
T2:=CONST(BARSLAST(CURRBARSCOUNT>CC+T1 AND H>T1HIGH));
T2HIGH:=CONST(REF(HIGH,T2));
T3:=CONST(BARSLAST(CURRBARSCOUNT>CC+T2 AND HIGH>T2HIGH));
T3HIGH:=CONST(REF(HIGH,T3));
獵擊線:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),LINETHICK2,COLOR0000FF;
DRAWTEXT(ISLASTBAR, T3HIGH, '獵擊線')LINETHICK1,COLOR0000FF;
AABB:=CROSS(MA(C,3),MA(C,8)) AND MA(C,8)>REF(MA(C,8),1) ;
STICKLINE(AABB AND PERIOD>4,L,L*0.990,6,0),COLORRED;
AA:=起點;
BB:=終點;
CYC:=IF(C>900,(SUM(C,AA)-SUM(C,BB))/(AA-BB),(SUM(AMOUNT,AA)-SUM(AMOUNT,BB))/(SUM(VOL,AA)-SUM(VOL,BB))/100);
區間成本:CONST(CYC),NODRAW;
區間換手:(SUM(VOL,AA)-SUM(VOL,BB))/CAPITAL*100,NODRAW;
計算周期:AA-BB,NODRAW;
HH:=REFDATE(HHV(H,起點),DATE);
LL:=REFDATE(LLV(L,起點),DATE);
N1:=IF(PERIOD=7,1.05,IF(PERIOD=6,1.02,1.01));
N2:=IF(PERIOD=7,0.95,IF(PERIOD=6,0.98,0.99));
STICKLINE(CURRBARSCOUNT<=終點,區間成本*N1,區間成本*N2,5,0),COLOR808080;
STICKLINE(CURRBARSCOUNT<=終點,區間成本,區間成本,5,0),COLORWHITE;
STICKLINE(CURRBARSCOUNT=起點,HH,LL,0,-1),COLORYELLOW;
STICKLINE(CURRBARSCOUNT=終點,HH,LL,0,-1),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=起點,LL,'起點'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=終點,LL,'終點'),COLORWHITE;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
高區:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,HHV(H, BARSLAST(CURRBARSCOUNT=60)),0)),DRAWNULL),COLORRED,DOTLINE;
低區:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,LLV(L, BARSLAST(CURRBARSCOUNT=60)),0)),DRAWNULL),COLORMAGENTA,DOTLINE;
STICKLINE(CCI>=200 AND H>=高區,O,C,2,0),COLORGREEN;
STICKLINE(CCI<=100 AND L<=低區,O,C,2,0),COLORYELLOW;
參數N,1,100,10
M,1,100,5......起點0..9999.8;;終點0.9999.1下面是量
DRAWBAND(MA(VOL,5),RGB(155,50,50),MA(VOL,21),RGB(83,123,68));
WOL:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,WOL,0,3,-1),COLORFFFFFF;
VOLUME:VOL,VOLSTICK; V5:MA(VOLUME,5)COLORWHITE; V10:MA(VOLUME,10)COLORYELLOW;
V21:MA(VOLUME,21)COLORGREEN; VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主買:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT;
主賣:IF(CLOSE>OPEN,VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,VAR1*(HIGH-LOW),VOL/2)),COLORYELLOW,POINTDOT;
N1:=21;
頂:=HHV(V,120);
底:=LLV(V,120);
H19:=底+(頂-底)*0.618;
H中:=底+(頂-底)*0.5;
H61:=底+(頂-底)*1.236;
起點H80:=底+(頂-底)*0.382;
【底】:REFDATE(底,DATE),COLORGREEN;
【0.618】:REFDATE(H19,DATE),COLORGREEN,POINTDOT;
【0.5】:REFDATE(H中,DATE),COLORWHITE,POINTDOT;
【1.236】:REFDATE(H61,DATE),COLORLIRED,POINTDOT;
【0.382】:REFDATE(起點H80,DATE),COLORBLUE;
【頂】:REFDATE(頂,DATE),COLORCYAN;
倍量柱:=V/REF(V,1)>1.89;
STICKLINE(倍量柱 AND C>O,V,V/2,1,0)COLORYELLOW;

?

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

?