[通达信]三线粘合，四线粘合，四线金（转源码），只让高手在买点改成选股公式

[通达信]三线粘合，四线粘合，四线金（转源码），只让高手
在买点改成选股公式
[通达信] 三线粘合，四线粘合，四线金（转源码），只让高手在买点改成选股公式
三线粘合（主图）
AA:=(C*2+H+L+O)/5;
A0:=MA(C,5);
A1:(EMA(AA,4)+MA(AA,8)+MA(AA,16))/3,COLORWHITE;
A2:(EMA(AA,9)+MA(AA,18)+MA(AA,36))/3,COLORFF00FF;
A3:(EMA(AA,13)+MA(AA,26)+MA(AA,52))/3,COLOR00FF00;
A4:(EMA(AA,24)+MA(AA,48)+MA(AA,96))/3,COLOR0000FF;
A5:=EMA(100*(C-LLV(L,100))/(HHV(H,100)-LLV(L,100)),5);
A6:=A5/4;
A7:=MAX(MAX(A1,A2),MAX(A3,A4));
A8:=MIN(MIN(A1,A2),MIN(A3,A4));
A9:=MIN(MIN(A1,A2),A3);
A10:=MAX(MAX(A1,A2),A3);
DRAWICON(A6>22.5 AND REF(A0,1)>REF(A0,2)AND A0<REF(A0,1),H+0.2,2);
DRAWICON(CROSS(A2,A4)AND A3>REF(A3,1)AND A0>REF(A0,2)AND (A1-A4)/A4<0.02,A2,1);
DRAWICON(CROSS(A1,A4)AND CROSS(A2,A3),A1,10);
DRAWTEXT(FILTER(H>A7 AND L<A8 AND A1>REF(A1,1)AND A2>REF(A2,1)AND A4>REF(A4,2)AND (A7-A8)/A8<0.04 AND C>O AND (H-C)/(C-O)<0.4,3),A4-0.1,'穿四线');
DRAWTEXT(LONGCROSS(A1,A3,30)AND (A4-A3)/A3<0.05 AND A10<A4,A1*0.98,'圆弧底');
DRAWTEXT(LONGCROSS(A1,A2,15)AND
CROSS(A2,A3),A1*0.97,'双交叉');
DRAWTEXT((A1-A2)/A2>0.04 AND A2>A3 AND L>A1 AND O>C AND O=H,H+0.1,'顶');
DRAWTEXT(FILTER(A4>REF(A4,2)AND
REF(A1,3)<REF(A3,3)AND C>O AND(A10-A9)/A9<0.005,5),A8-0.05,'三线粘合'),COLORRED;
三线粘合，圆孤底，各做为选股公式
{四线粘合主图}
V0:=EMA(C,5);
V1:EMA(C,10);
V2:EMA(C,15);
V3:EMA(C,30);
V4:EMA(C,60);
年线:EMA(C,250),COLORFFCC66;
M1:=1000*V1/V4<=1015 AND 1000*V1/V4>=975;
M2:=1000*V2/V4<=1020 AND 1000*V2/V4>=980;
M3:=1000*V3/V4<=1015 AND 1000*V3/V4>=985;
M4:=M1 AND M2 AND M3 AND CROSS(V0,V1);
M5:=M1 AND M2 AND M3 AND CROSS(V0,V3);
DRAWICON(M4 OR M5,L-0.10,9);
在出现在“钱袋”的指标做为选股公式
四线金叉（副图）
EMA30:EMA(C,30),COLORWHITE,LINETHICK3;
EMA60:EMA(C,60),COLORFF00FF,LINETHICK2;
EMA90:EMA(C,90),COLORYELLOW,LINETHICK2;
EMA120:EMA(C,120),COLORFFCC66,LINETHICK2;
EMA250:EMA(C,250),COLORBLUE,LINETHICK2;
SS:=CROSS(EMA30,EMA60) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA30,EMA120) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA60,EMA90) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA30,EMA90) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018 {AND CROSS(EMA30,EMA120)};
DRAWICON(SS,L-0.04,1);
DD:=CROSS(EMA60,EMA90) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA60,EMA250) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA90,EMA120) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA60,EMA120) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018 AND CROSS(EMA30,EMA250);
{DD:=CROSS(EMA30,EMA250);}
DRAWICON(DD,L-0.04,3);
在出现在“上升”的指标处做个选股公式
10楼
发表于 2008-3-23 09:20 | 只看该作者
AA:=(C*2+H+L+O)/5;
A0:=MA(C,5);
A1:=(EMA(AA,4)+MA(AA,8)+MA(AA,16))/3,COLORWHITE;
A2:=(EMA(AA,9)+MA(AA,18)+MA(AA,36))/3,COLORFF00FF;
A3:=(EMA(AA,13)+MA(AA,26)+MA(AA,52))/3,COLOR00FF00;
A4:=(EMA(AA,24)+MA(AA,48)+MA(AA,96))/3,COLOR0000FF;
A10:=MAX(MAX(A1,A2),A3);
圆弧底:LONGCROSS(A1,A3,30)AND (A4-A3)/A3<0.05 AND A10<A4;
AA:=(C*2+H+L+O)/5;
A0:=MA(C,5);
A1:=(EMA(AA,4)+MA(AA,8)+MA(AA,16))/3,COLORWHITE;
A2:=(EMA(AA,9)+MA(AA,18)+MA(AA,36))/3,COLORFF00FF;
A3:=(EMA(AA,13)+MA(AA,26)+MA(AA,52))/3,COLOR00FF00;
A4:=(EMA(AA,24)+MA(AA,48)+MA(AA,96))/3,COLOR0000FF;
A5:=EMA(100*(C-LLV(L,100))/(HHV(H,100)-LLV(L,100)),5);
A6:=A5/4;
A7:=MAX(MAX(A1,A2),MAX(A3,A4));
A8:=MIN(MIN(A1,A2),MIN(A3,A4));
A9:=MIN(MIN(A1,A2),A3);
A10:=MAX(MAX(A1,A2),A3);
三线黏合:FILTER(A4>REF(A4,2)AND REF(A1,3)<REF(A3,3)AND C>O AND(A10-A9)/A9<0.005,5);
附图钱袋
V0:=EMA(C,5);
V1:=EMA(C,10);
V2:=EMA(C,15);
V3:=EMA(C,30);
V4:=EMA(C,60);
年线:=EMA(C,250),COLORFFCC66;
M1:=1000*V1/V4<=1015 AND 1000*V1/V4>=975;
M2:=1000*V2/V4<=1020 AND 1000*V2/V4>=980;
M3:=1000*V3/V4<=1015 AND 1000*V3/V4>=985;
M4:=M1 AND M2 AND M3 AND CROSS(V0,V1);
M5:=M1 AND M2 AND M3 AND CROSS(V0,V3);
M4 OR M5;
附图上升
EMA30:=EMA(C,30),COLORWHITE,LINETHICK3;
EMA60:=EMA(C,60),COLORFF00FF,LINETHICK2;
EMA90:=EMA(C,90),COLORYELLOW,LINETHICK2;
EMA120:=EMA(C,120),COLORFFCC66,LINETHICK2;
EMA250:=EMA(C,250),COLORBLUE,LINETHICK2;
SS:CROSS(EMA30,EMA60) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA30,EMA120) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA60,EMA90) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA30,EMA90) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018 {AND CROSS(EMA30,EMA120)};
[本帖最后由大雪的夜于 2008-3-23 09:32 编辑]。