通达信主图源码附图昆卡船长于2015-1-2114:56

凡人sypls 2015-01-22

展开全文

通达信主图源码附图
你认为有用就拿去。

无语;

N:=10;
T1:=CONST(LLVBARS(LOW,N));
T1HIGH:=CONST(REF(HIGH,T1));
CC:=CONST(CURRBARSCOUNT);
T2:=CONST(BARSLAST((CURRBARSCOUNT >(CC+T1)) AND (HIGH>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),LINETHICK3,COLOR0000FF;
DRAWTEXT(ISLASTBAR, T3HIGH, ' 必杀线')LINETHICK1,COLORYELLOW;

筹码重心:IF(CURRBARSCOUNT<INTPART(PPART(4)*100/2),CONST(COSTEX(REF(C,3),REF(C,4)))*1.03,DRAWNULL),COLORF7F7F7;
DRAWTEXT(CURRBARSCOUNT<4 AND CROSS(C,筹码重心) AND C/REF(C,1)>1.05,L,'---突破筹码重心买进!'),COLORMAGENTA;
DRAWTEXT(筹码重心 AND ISLASTBAR,筹码重心*0.99,'↖筹码重心'),COLORF7F7F7;

P:=21;
WH1:=IF(L=LLV(L,P),L,DRAWNULL);
WH2:=CONST(BARSLAST(WH1!=DRAWNULL));
WH3:=CONST(IF(WH2=0,H,REF(H,WH2)));
WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1);
WH5:=CONST(IF(WH4=0,H,REF(H,WH4)));
WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1);
进场:IF(CURRBARSCOUNT<=WH2+21,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL),COLORRED;
IF(CURRBARSCOUNT<=WH2+1,IF(L=LLV(L,P),L,DRAWNULL),DRAWNULL),CIRCLEDOT,COLORRED;
DRAWTEXT(CURRBARSCOUNT=INTPART((WH2+21)*0.618),进场,'进场线'),COLORRED;
超跌进场:IF(CURRBARSCOUNT<=WH2+21,CONST(IF(WH4=0,H,REF(H,WH4))),DRAWNULL),COLORCB21BE;
DRAWTEXT(CURRBARSCOUNT=INTPART((WH2+21)*0.618),超跌进场,'超跌进场线'),COLORCB21BE;
H1:=IF(H=HHV(H,P),H,DRAWNULL);
H2:=CONST(BARSLAST(H1!=DRAWNULL));
H3:=CONST(IF(H2=0,L,REF(L,H2)));
H4:=CONST(REF(BARSLAST(L<H3),H2+1)+H2+1);
H5:=CONST(IF(H4=0,L,REF(L,H4)));
H6:=CONST(REF(BARSLAST(L<H5),H4+1)+H4+1);
止损:IF(CURRBARSCOUNT<=H2+21,CONST(IF(H6=0,L,REF(L,H6))),DRAWNULL),COLORYELLOW;
IF(CURRBARSCOUNT<=H2+1,IF(H=HHV(H,P),H,DRAWNULL),DRAWNULL),CIRCLEDOT,COLORBLUE;
DRAWTEXT(CURRBARSCOUNT=INTPART((H2+21)*0.618),止损,'止损线'),COLORYELLOW;
止盈:IF(CURRBARSCOUNT<=H2+21,CONST(IF(H4=0,L,REF(L,H4))),DRAWNULL),COLORCB21BE;
DRAWTEXT(CURRBARSCOUNT=INTPART((H2+21)*0.618),止盈,'止盈线'),COLORCB21BE;

补充；
如果你不在乎有“未来函数”这几个字，在加上下面几句。(如图所示）
TY:=C;
HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);
LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);
A:=REF(C,BARSLAST(HD));
B:=REF(C,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
浪顶:IF(T1,A,A),COLORFF00FF,DOTLINE;
前高:REF(H,BARSLAST(HD)),COLORFF00FF;
{STICKLINE(T1,A,A,9,0),COLORFF00FF;}
浪底:IF(T2,B,B)COLORGREEN,DOTLINE;
前低:REF(L,BARSLAST(LD)),LINETHICK1,COLORGREEN;
DRAWBAND(前高,RGB(030,100,030),浪顶,DRAWNULL);
DRAWBAND(浪底,RGB(100,00,45),前低,DRAWNULL);
DRAWKLINE(H,O,L,C);
指标源码.txt (1.97 KB) 预览附件

补充；
如果你不在乎有“未来函数”这几个字，在加上下面几句。(如图所示）
TY:=C;
HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);
LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);
A:=REF(C,BARSLAST(HD));
B:=REF(C,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
浪顶:IF(T1,A,A),COLORFF00FF,DOTLINE;
前高:REF(H,BARSLAST(HD)),COLORFF00FF;
{STICKLINE(T1,A,A,9,0),COLORFF00FF;}
浪底:IF(T2,B,B)COLORGREEN,DOTLINE;
前低:REF(L,BARSLAST(LD)),LINETHICK1,COLORGREEN;
DRAWBAND(前高,RGB(030,100,030),浪顶,DRAWNULL);
DRAWBAND(浪底,RGB(100,00,45),前低,DRAWNULL);
DRAWKLINE(H,O,L,C);

[ 本帖最后由昆卡船长于 2015-1-21 14:56 编辑 ]