天机论坛

 找回密码
 欢迎注册

QQ登录

只需一步,快速开始

天机股票网 争做最牛的股票资讯集散地 注册 - 常见问题 - 联系方式

你有好料 就来分享 你可以将手中的好料分享赚取金币。 如何获得金币 - 金币回购计划

天天来访问 天天有收获 高端信息区区几个金币就可查看 立即注册 - QQ快速登陆

查看: 1639|回复: 0

[通达信] 钓鱼线(源码)

[复制链接]
发表于 2012-3-7 09:18:43 | 显示全部楼层 |阅读模式
4.jpg {钓鱼线}
NF:(C+REF(C,1)+REF(C,2)+H+REF(H,1)+REF(H,2)+L+REF(L,1)+REF(L,2)+O+
   REF(O,1)+REF(O,2))/12,LINETHICK2,COLORLICYAN;
{徐文明保护价}
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
保护价 :(REF(CLOSE,2)+REF(CLOSE,1)+O)/3;
N:=75;P:=5;P1:=10;
{N为多少天内的高低值参数,我以自已的初始K线根数定义。
P1、P2为短、长支撑压力取点参数}
A1:=REF(H,P)=HHV(H,2*P+1);
B1:=FILTER(A1,P);
C1:=BACKSET(B1,P+1);
D1:=FILTER(C1,P);
E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
F1:=E1>REF(E1,1);
短压:DRAWLINE(D1,H,F1,H,1),COLORCYAN;
A2:=REF(L,P)=LLV(L,2*P+1);
B2:=FILTER(A2,P);
C2:=BACKSET(B2,P+1);
D2:=FILTER(C2,P);
E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);
F2:=E2>REF(E2,1);
短支:DRAWLINE(D2,L,F2,L,1),COLORLIRED;
AA1:=REF(H,P1)=HHV(H,2*P1+1);
BB1:=FILTER(AA1,P1);
CC1:=BACKSET(BB1,P1+1);
DD1:=FILTER(CC1,P1);{GUPIAOFF.COM};
EE1:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
FF1:=EE1>REF(EE1,1);
长压:DRAWLINE(DD1,H,FF1,H,1),COLORGREEN;
AA2:=REF(L,P1)=LLV(L,2*P1+1);
BB2:=FILTER(AA2,P1);
CC2:=BACKSET(BB2,P1+1);
DD2:=FILTER(CC2,P1);{GUPIAOFF.COM};
EE2:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
FF2:=EE2>REF(EE2,1);
长支:DRAWLINE(DD2,L,FF2,L,1),COLORRED;
{主控战略K线 DZH}
{2根K线组合}
平顶:=H=REF(H,1) OR (H=REF(H,2) AND H>REF(H,1));
DRAWTEXT(平顶,H*1.01,'←平顶'),COLORMAGENTA;
平底:=L=REF(L,1) OR (L=REF(L,2) AND L<REF(L,1));
DRAWTEXT(平底,L*0.99,'←平底'),COLORMAGENTA;
阳子母:=C>REF(MAX(C,O),1) AND H>REF(H,1) AND L<REF(L,1) AND C>O AND REF(MAX(C,O),1)/REF(MIN(C,O),1)>1.01 AND (O != L OR C != H);
DRAWTEXT(阳子母,L*0.99,'←阳子母'),COLORYELLOW;
阴子母:=C<REF(MIN(C,O),1) AND H>REF(H,1) AND L<REF(L,1) AND C<O AND REF(MAX(C,O),1)/REF(MIN(C,O),1)>1.01 AND (O != H OR C != L);
DRAWTEXT(阴子母,H*1.01,'←阴子母'),COLORRED;
阴母子:=C>REF(MIN(C,O),1) AND H<REF(H,1) AND L>REF(L,1) AND C<O AND C/O<0.99;
DRAWTEXT(阴母子,H*1.01,'←阴母子'),COLORRED;
阳母子:=C<REF(MAX(C,O),1) AND H<REF(H,1) AND L>REF(L,1) AND C>O AND C/O>1.01;
DRAWTEXT(阳母子,L*0.99,'←阳母子'),COLORYELLOW;
乌云盖顶:=REF(C,1)/REF(O,1)>1.03 AND C<O AND H>REF(H,1) AND C>REF(O,1) AND L>REF(L,1) AND O>REF(H,1) AND C<(REF(C,1)+REF(O,1))/2;
DRAWTEXT(乌云盖顶,H*1.01,'←乌云盖顶'),COLORMAGENTA;
曙光初现:=REF(O,1)/REF(C,1)>1.03 AND C>O AND H<REF(H,1) AND C<REF(O,1) AND L<REF(L,1) AND O<REF(L,1) AND C>(REF(C,1)+REF(O,1))/2;
DRAWTEXT(曙光初现,L*0.99,'←曙光初现'),COLORYELLOW;
空戳多:=C<REF(C,1) AND REF(C,1)/REF(O,1)>1.03 AND C<O AND H>REF(H,1) AND C>REF(O,1) AND L>REF(L,1) AND O>REF(H,1) AND C>(REF(C,1)+REF(O,1))/2;
DRAWTEXT(空戳多,H*1.01,'←空戳多'),COLORRED;
多戳空:=C>REF(C,1) AND REF(O,1)/REF(C,1)>1.03 AND C>O AND H<REF(H,1) AND C<REF(O,1) AND L<REF(L,1) AND O<REF(L,1) AND C<(REF(C,1)+REF(O,1))/2;
DRAWTEXT(多戳空,L*0.99,'←多戳空'),COLORYELLOW;
空头反攻:=C=REF(C,1) AND REF(C,1)/REF(O,1)>1.03 AND C<O AND H>REF(H,1) AND C>REF(O,1) AND L>REF(L,1) AND O>REF(H,1);
DRAWTEXT(空头反攻,H*1.01,'←空头反攻'),COLORBLUE;
多头反攻:=C=REF(C,1) AND REF(O,1)/REF(C,1)>1.03 AND C>O AND H<REF(H,1) AND C<REF(O,1) AND L<REF(L,1) AND O<REF(L,1);
DRAWTEXT(多头反攻,L*0.99,'←多头反攻'),COLORYELLOW;
玉柱:=C>REF(MAX(C,O),1) AND H>REF(H,1) AND L<REF(L,1) AND C>O AND REF(MAX(C,O),1)/REF(MIN(C,O),1)>1.01 AND O=L AND C=H;
DRAWTEXT(玉柱,L*0.99,'←玉柱'),COLORYELLOW;
危楼:=C<REF(MIN(C,O),1) AND H>REF(H,1) AND L<REF(L,1) AND C<O AND REF(MAX(C,O),1)/REF(MIN(C,O),1)>1.01 AND O=H AND C=L;
DRAWTEXT(危楼,H*1.01,'←危楼'),COLORBLUE;
{3根K线组合}
红三兵:=COUNT(H/C<1.02,3)=3 AND COUNT(C/O>1.01,3)=3 AND COUNT(C>REF(C,1),2)=2 AND COUNT(H>REF(H,1),2)=2 AND COUNT(L>REF(L,1),2)=2 AND ABS(REF(C,2)/REF(O,2)-REF(C,1)/REF(O,1))<0.02 AND ABS(REF(C,1)/REF(O,1)-C/O)<0.02;
DRAWTEXT(红三兵,L*0.99,'←红三兵'),COLORYELLOW;
黑三兵:=COUNT(C/L<1.02,3)=3 AND COUNT(O/C>1.01,3)=3 AND COUNT(C<REF(C,1),2)=2 AND COUNT(H<REF(H,1),2)=2 AND COUNT(L<REF(L,1),2)=2 AND ABS(REF(C,2)/REF(O,2)-REF(C,1)/REF(O,1))<0.02 AND ABS(REF(C,1)/REF(O,1)-C/O)<0.02;
DRAWTEXT(黑三兵,H*1.01,'←黑三兵'),COLORMAGENTA;
大敌当前:=COUNT(C/O<1.03,2)=2 AND COUNT(H/C>1.015,2)=2 AND COUNT(C>O,3)=3 AND COUNT(C>REF(C,1),2)=2 AND COUNT(H>REF(H,1),2)=2 AND COUNT(L>REF(L,1),2)=2 AND REF(C,2)/REF(O,2)>1.03 AND REF(C,2)/REF(O,2)>REF(C,1)/REF(O,1) AND REF(C,2)/REF(O,2)>C/O AND H/C>REF(H/C,2) AND REF(H/C,1)>REF(H/C,2);
DRAWTEXT(大敌当前,L*0.99,'←大敌当前'),COLORBLUE;
步步为营:=COUNT(C>O,3)=3 AND COUNT(C>REF(C,1),2)=2 AND COUNT(H>REF(H,1),2)=2 AND COUNT(L>REF(L,1),2)=2 AND (REF(C/O,2)>1.03 OR REF(C/O,1)>1.03) AND C/O<REF(C/O,2) AND C/O<REF(C/O,1 AND H/C>REF(H/C,2) AND H/C>REF(H/C,1)) AND H/C>1.02;
DRAWTEXT(步步为营,L*0.99,'←步步为营'),COLORRED;
离黑战车:=REF(C/O,2)>1.01 AND REF(O/C,1)>1.01 AND C/O>1.01 AND REF(H/C,2)<1.02 AND REF(H/O,1)<1.02 AND H/C<1.02 AND REF(O,1)>REF(C,2) AND C>REF(O,1) AND COUNT(H>REF(H,1),2)=2 AND COUNT(L>REF(L,1),2)=2 AND ABS(REF(C/O,2)-REF(O/C,1))<0.02 AND ABS(REF(O/C,1)-C/O)<0.02 AND REF(C,1)>REF(O,2);
DRAWTEXT(离黑战车,L*0.99,'←离黑战车'),COLORYELLOW;
离白战车:=REF(O/C,2)>1.01 AND REF(C/O,1)>1.01 AND O/C>1.01 AND REF(H/O,2)<1.02 AND REF(H/C,1)<1.02 AND H/O<1.02 AND (REF(C,1)=REF(O,2) OR REF(C,1)<REF(O,2)) AND O<REF(C,1) AND C<REF(O,1) AND COUNT(H<REF(H,1),2)=2 AND COUNT(L<REF(L,1),2)=2 AND ABS(REF(C/O,2)-REF(O/C,1))<0.02 AND ABS(REF(O/C,1)-C/O)<0.02;
DRAWTEXT(离白战车,H*1.01,'←离白战车'),COLORMAGENTA;
晨星:=(REF(C/O,2)<0.97 AND ABS(REF(C/O,1)-1)<0.015 AND C/O>1.025 AND REF(MAX(C,O),1)<REF(C,2) AND O>REF(MAX(C,O),1))
OR (REF(C/O,3)<0.97 AND ABS(REF(C/O,1)-1)<0.02 AND ABS(REF(C/O,2)-1)<0.02 AND C/O>1.025 AND REF(MAX(C,O),2)<REF(C,3) AND REF(MAX(C,O),1)<REF(C,3) AND O>REF(MAX(C,O),1) AND O>REF(MAX(C,O),2));
DRAWTEXT(晨星,L*0.99,'←晨星'),COLORYELLOW;
夜星:=(REF(O/C,2)<0.97 AND ABS(REF(C/O,1)-1)<0.015 AND O/C>1.025 AND REF(MIN(C,O),1)>REF(C,2) AND O<REF(MIN(C,O),1))
OR (REF(O/C,3)<0.97 AND ABS(REF(C/O,1)-1)<0.02 AND ABS(REF(C/O,2)-1)<0.02 AND O/C>1.025 AND REF(MIN(C,O),2)>REF(C,3) AND REF(MIN(C,O),1)>REF(C,3) AND O<REF(MIN(C,O),1) AND O<REF(MIN(C,O),2));
DRAWTEXT(夜星,H*1.01,'←夜星'),COLORBLUE;
双鸦:=REF(C/O,2)>1.03 AND REF(O/C,1)-1<0.015 AND REF(C,1)>REF(C,2) AND REF(O,1)>REF(C,2) AND O/C>1.025 AND O<REF(O,1) AND O>REF(C,1) AND H<REF(H,1) AND C<REF(C,2);
DRAWTEXT(双鸦,H*1.01,'←双鸦'),COLORBLUE;
双鸦耀空:=REF(C/O,2)>1.03 AND REF(O/C,1)<1.015 AND O/C<1.015 AND REF(C,1)>REF(C,2) AND C>REF(C,2) AND C<O AND REF(C,1)<REF(O,1);
DRAWTEXT(双鸦耀空,H*1.01,'←双鸦耀空'),COLORBLUE;
上肩缺口:=REF(H,1)=REF(HHV(H,20),1) AND COUNT(MA(C,10)>REF(MA(C,10),1),13)>10 AND REF(C/O,2)>1.03 AND REF(C/O,1)>1.02 AND REF(L,1)>REF(H,2) AND H<REF(H,1) AND O<REF(C,1) AND L<REF(L,1) AND C<REF(O,1) AND O/C>1.02 AND C>REF(H,2);
DRAWTEXT(上肩缺口,L*0.99,'←上肩缺口'),COLORYELLOW;
下肩缺口:=REF(L,1)=REF(LLV(L,20),1) AND COUNT(MA(C,10)<REF(MA(C,10),1),13)>10 AND REF(O/C,2)>1.03 AND REF(O/C,1)>1 AND REF(H,1)<REF(L,2) AND L>REF(L,1) AND C>REF(O,1) AND H>REF(H,1) AND O>REF(C,1) AND C/O>1.02 AND C<REF(L,2);
DRAWTEXT(下肩缺口,H*1.01,'←下肩缺口'),COLORBLUE;
{4根K线组合}
上扬三法:=REF(C/O,3)>1.03 AND REF(H,2)>REF(H,3) AND REF(C,2)<REF(C,3) AND REF(O,2)>REF(C,3) AND REF(H,1)<REF(H,2) AND REF(L,1)<REF(L,2) AND H<REF(H,1) AND L<REF(L,1) AND REF(C,1)<REF(C,2) AND C<REF(C,1) AND L>REF(O,3) AND COUNT(O/C>1.03,3)<2 AND COUNT(O/C>1.01,3)>1 AND COUNT(C<O,3)=3;
DRAWTEXT(上扬三法,L*0.99,'←上扬三法'),COLORYELLOW;
下跌三法:=REF(O/C,3)>1.03 AND REF(L,2)<REF(L,3) AND REF(C,2)>REF(C,3) AND REF(O,2)<REF(C,3) AND REF(H,1)>REF(H,2) AND REF(L,1)>REF(L,2) AND H>REF(H,1) AND L>REF(L,1) AND REF(C,1)>REF(C,2) AND C>REF(C,1) AND H<REF(O,3) AND COUNT(C/O>1.03,3)<2 AND COUNT(C/O>1.01,3)>1 AND COUNT(C>O,3)=3;
DRAWTEXT(下跌三法,H*1.01,'←下跌三法'),COLORBLUE;
宝塔翻白:=REF(COUNT(C>REF(C,1),3),1)=0 AND REF(COUNT(C<O,3),1)=3 AND L<REF(L,1) AND O<REF(C,1) AND H>REF(HHV(H,3),1) AND C>REF(HHV(C,3),1);
DRAWTEXT(宝塔翻白,L*0.99,'←宝塔翻白'),COLORYELLOW;
宝塔翻黑:=REF(COUNT(C<REF(C,1),3),1)=0 AND REF(COUNT(C>O,3),1)=3 AND H>REF(H,1) AND O>REF(C,1) AND L<REF(LLV(L,3),1) AND C<REF(HHV(O,3),1);
DRAWTEXT(宝塔翻黑,H*1.01,'←宝塔翻黑'),COLORBLUE;
{多根K线组合}
离黑:=MA(C,13)>REF(MA(C,13),1) AND REF(COUNT(HHV(C,10)/LLV(O,10)<1.15,10),1)=10 AND O/REF(MAX(C,O),1)>1.01 AND C/REF(H,1)>1.05 AND H=HHV(H,15) AND H/C<1.02;
DRAWTEXT(离黑,L*0.99,'←离黑'),COLORYELLOW;
离白:=MA(C,13)<REF(MA(C,13),1) AND REF(COUNT(HHV(C,10)/LLV(O,10)<1.15,10),1)=10 AND O/REF(MIN(C,O),1)<0.99 AND C/REF(L,1)<0.95 AND L=LLV(L,15) AND L/C<1.02;
DRAWTEXT(离白,H*1.01,'←离白'),COLORMAGENTA;

评分

参与人数 1金币 +10 收起 理由
股票王 + 10

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则