|
以下是通达信K线叠加取势主图源码（无源码的请下载附件导入）
通达信公式 K线叠加取势主图
VAR8Q:=(2*CLOSE+HIGH+LOW)/4;
VAR9Q:=EXPMA(EXPMA(EXPMA(VAR8Q,2),3),3);
J:=(VAR9Q-REF(VAR9Q,1))*100, COLORSTICK;
D1:=SMA(J,3,1);
KX:=SMA(J,2,1);
A11:=EMA(CLOSE,2),COLORWHITE;
A21:=EMA(CLOSE,5);
N1:=3;M1:=13;M11:=5;M21:=5;
A31:=EMA(CLOSE,12);
A41:=EMA(CLOSE,25);
B1:=A11>REF(A11,1);
S:=A11<REF(A11,1)AND REF(A11,1)>REF(A11,2) ;
BA1:=O<REF(MIN(O,C),1) AND C>REF(MAX(C,O),1) AND C/REF(C,1)>1.0222;
STICKLINE(V>0,L,H,0,0),COLORCYAN;
STICKLINE(V>0,C,O,3,0),COLORCYAN;
STICKLINE(B1 ,H,L,0,0),COLORYELLOW;
STICKLINE(B1 ,O,C,-1,0),COLOR6633EE;
STICKLINE(B1 ,O,C,2.7,0),COLOR3666EE;
STICKLINE(B1 ,O,C,2.1,0),COLOR2299EE;
STICKLINE(B1 ,O,C,1.4,0),COLOR11AAEF;
STICKLINE(B1 ,O,C,0.8,0),COLOR00BBFE;
STICKLINE(B1 ,O,C,0.4,0),COLOR00CCFE;
STICKLINE(B1 ,O,C,0.24,0),COLOR00DDFF;
STICKLINE(B1 ,O,C,0.1,0),COLOR00EEFF;
STICKLINE(B1 ,O,C,0.05,0),COLOR00FFFF;
B2:=C>REF(O,1) ;
STICKLINE(B2,H,L,0,0),COLORYELLOW;
STICKLINE(B2,O,C,-1,0),COLOR6633EE;
STICKLINE(B2,O,C,2.7,0),COLOR3666EE;
STICKLINE(B2,O,C,2.1,0),COLOR2299EE;
STICKLINE(B2,O,C,1.4,0),COLOR11AAEF;
STICKLINE(B2,O,C,0.8,0),COLOR00BBFE;
STICKLINE(B2,O,C,0.4,0),COLOR00CCFE;
STICKLINE(B2,O,C,0.24,0),COLOR00DDFF;
STICKLINE(B2,O,C,0.1,0),COLOR00EEFF;
STICKLINE(B2,O,C,0.05,0),COLOR00FFFF;
P121:=((C+O)/2+0.618*H+1.382*L)/3;
M3:=MA(P121,3);M9:=MA(P121,9);M17:=MA(P121,17);M29:=MA(P121,29);
{3日下穿9日}
B3:=CROSS(MA(P121,9),MA(P121,3));
STICKLINE(B3,H,L,0,0),COLORCYAN;
STICKLINE(B3,O,C,3,0),COLORCYAN;
{昨天B1 今天C>M3}
B4:=REF(B1=1 OR B2=1,1) AND C>M3;
STICKLINE(B4,H,L,0,0),COLORYELLOW;
STICKLINE(B4,O,C,-1,0),COLOR6633EE;
STICKLINE(B4,O,C,2.7,0),COLOR3666EE;
STICKLINE(B4,O,C,2.1,0),COLOR2299EE;
STICKLINE(B4,O,C,1.4,0),COLOR11AAEF;
STICKLINE(B4,O,C,0.8,0),COLOR00BBFE;
STICKLINE(B4,O,C,0.4,0),COLOR00CCFE;
STICKLINE(B4,O,C,0.24,0),COLOR00DDFF;
STICKLINE(B4,O,C,0.1,0),COLOR00EEFF;
STICKLINE(B4,O,C,0.05,0),COLOR00FFFF;
{墓碑K线}
B5:=O>REF(MAX(C,O),1) AND C<REF(MIN(C,O),1);
STICKLINE(B5,H,L,0,0),COLORCYAN;
STICKLINE(B5,O,C,3,0),COLORCYAN;
B6:=C<M3;
STICKLINE(B6,H,L,0,0),COLORCYAN;
STICKLINE(B6,O,C,3,0),COLORCYAN;
B9:=C>M3 AND C>M9 AND C>M17 AND C>M29; B10:=O/C-1>=0.0311;
排序1:MAX(M3,MAX(M9,MAX(M17,M29)));
排序5:MIN(M3,MIN(M9,MIN(M17,M29)));
排序3:((M3+M9+M17+M29)-排序1-排序5)/2;
排序2:(排序3+排序1)/2;
排序4:(排序3+排序5)/2;
B7:=REF(C<M3,1) AND C<排序4;B7B:=REF(C<排序4,1) AND C<排序3;
STICKLINE(B7=1 OR B7B,H,L,0,0),COLORCYAN;
STICKLINE(B7=1 OR B7B,O,C,3,0),COLORCYAN;
B11:=C<排序4 AND C<O;B12:=REF(B5=1,1) AND C/REF(C,1)<1.02;
B8:=REF(EVERY(M3<REF(M3,1),3),0) AND EVERY(M3>M9,3);
STICKLINE(B8=1 OR B10 OR B11 OR B12,H,L,0,0),COLORCYAN;
STICKLINE(B8=1 OR B10 OR B11 OR B12,O,C,3,0),COLORCYAN;
STICKLINE((B9 AND B10=0) OR BA1,H,L,0,0),COLORYELLOW;
STICKLINE((B9 AND B10=0) OR BA1,O,C,3,0),COLORYELLOW;
71244931.jpg
|
