2017选股公式成功率排行 飞狐江恩时间指标公式(5)
Kb:=IF(tcl>tch,tbh+B偏移,tbl+B偏移),linethick0;
Kc:=IF(tcl>tch,tcl+C偏移,tch+C偏移),linethick0;
PH:=H;
PL:=L;
{说:=Ka;
话:=Kb;
啊:=Kc;}
Pa:=IF(tcl>tch,PL[tal+A偏移],PH[tah+A偏移]),LINETHICK0;
Pb:=IF(tcl>tch,PH[tbh+B偏移],PL[tbl+B偏移]),LINETHICK0;
Pc:=IF(tcl>tch,PL[tcl+C偏移],PH[tch+C偏移]),LINETHICK0;
y:=year;m:=month;d:=day;
光标时间:=hhv(if(barpos=SYSPARAM(1),date,0),0),linethick0;
DRAWTEXTEX(指定时间=0,1,5,5,'光标时间是 '+numtostr(y[SYSPARAM(1)],0)+STRRIGHT(numtostr(光标时间,0),4)+' 换算 '+numtostr(光标时间,0)),color77FFFF;
DRAWTEXTEX(指定时间>0,1,5,5,'指定时间是 '+numtostr(指定时间,0)),color77FFFF;
{☆§-------------------------------------§☆}
if 顶对底开关=0 then begin {底对底或顶对顶}
drawline(指定时间=0 and barpos=Ka,Pa,barpos=Kb,Pb,0),color77FFFF,linethick1;
drawline(barpos=Kb,Pb,barpos=Kc,Pc,0),color77FFFF,linethick1;
drawline(指定时间>0 and barpos=指定位置,zig(4,p),barpos=Kb,Pb,0),color77FFFF,linethick1;
drawline(barpos=Ka,Pa,barpos=Kc,Pc,0),colorffaa99,linethick1;
tac:if(指定时间>0,Kc-指定位置,Kc-Ka),linethick0;
DRAWTEXTEX(1,1,5,50,'初始时间段有 '+numtostr(tac,0)+' 个周期'),color77FFFF;
VERTLINE(指定时间=0 and barpos=Ka),colorffaa99,LINEDOT;
VERTLINE(指定时间>0 and barpos=指定位置),colorffaa99,LINEDOT;
VERTLINE(barpos=Kc),colorffaa99,LINEDOT;
VERTLINE(barpos=Kc+tac*1),colorred,LINEDOT;
drawtext(barpos=Kc+tac*1,Pc,'1'),color77FFFF;
VERTLINE(barpos=Kc+tac*2),colorred,LINEDOT;
drawtext(barpos=Kc+tac*2,Pc,'2'),color77FFFF;
if 参自定义1>0then {call}
begin
VERTLINE(barpos=Kc+INTPART(tac*参自定义1)),colorred,LINEDOT;
drawtext(barpos=Kc+INTPART(tac*参自定义1),Pc,NUMTOSTR(参自定义1,2)),color77FFFF;
end; {retn}
if 参自定义2>0 then {call}
begin
VERTLINE(barpos=Kc+INTPART(tac*参自定义2)),colorred,LINEDOT;
drawtext(barpos=Kc+INTPART(tac*参自定义2),Pc,NUMTOSTR(参自定义2,2)),color77FFFF;
end; {retn}
if 参自定义3>0 then {call}
begin
VERTLINE(barpos=Kc+INTPART(tac*参自定义3)),colorred,LINEDOT;
drawtext(barpos=Kc+INTPART(tac*参自定义3),Pc,NUMTOSTR(参自定义3,2)),color77FFFF;
end; {retn}
if 参自定义4>0 then {call}
begin
VERTLINE(barpos=Kc+INTPART(tac*参自定义4)),colorred,LINEDOT;
drawtext(barpos=Kc+INTPART(tac*参自定义4),Pc,NUMTOSTR(参自定义4,2)),color77FFFF;
end; {retn}
end;
{☆§-------------------------------------§☆}
if 顶对底开关>0 then begin {顶对底或底对顶}
drawline(指定时间=0 and barpos=Kb,Pb,barpos=Kc,Pc,0),color77FFFF,linethick1;
drawline(指定时间>0 and barpos=指定位置,zig(4,p),barpos=Kc,Pc,0),color77FFFF,linethick1;
//xx:=x;
//SETLBOUND(xx,k看);
{{小花园}---------------------说话啊-------------------}
tbc:if(指定时间>0,Kc-指定位置,Kc-Kb),linethick0;
DRAWTEXTEX(1,1,5,50,'初始时间段有 '+numtostr(tbc,0)+' 个周期'),color00aaFF;
VERTLINE(指定时间=0 and barpos=Kb),colorffaa99,LINEDOT;
VERTLINE(指定时间>0 and barpos=指定位置),colorffaa99,LINEDOT;
VERTLINE(barpos=Kc),colorffaa99,LINEDOT;
VERTLINE(barpos=Kc+tbc*1),colorred,LINEDOT;
drawtext(barpos=Kc+tbc*1,Pc,'1'),color00aaFF;
VERTLINE(barpos=Kc+tbc*2),colorred,LINEDOT;
drawtext(barpos=Kc+tbc*2,Pc,'2'),color00aaFF;
{☆§-------------------------------------§☆}
if 参自定义1>0then {call}
begin
VERTLINE(barpos=Kc+INTPART(tbc*参自定义1)),colorred,LINEDOT;
drawtext(barpos=Kc+INTPART(tbc*参自定义1),Pc,NUMTOSTR(参自定义1,2)),color00aaFF;
end; {retn}
if 参自定义2>0 then {call}
begin
VERTLINE(barpos=Kc+INTPART(tbc*参自定义2)),colorred,LINEDOT;
drawtext(barpos=Kc+INTPART(tbc*参自定义2),Pc,NUMTOSTR(参自定义2,2)),color00aaFF;
end; {retn}
if 参自定义3>0 then {call}
begin
VERTLINE(barpos=Kc+INTPART(tbc*参自定义3)),colorred,LINEDOT;
drawtext(barpos=Kc+INTPART(tbc*参自定义3),Pc,NUMTOSTR(参自定义3,2)),color00aaFF;
end; {retn}
if 参自定义4>0 then {call}
begin
VERTLINE(barpos=Kc+INTPART(tbc*参自定义4)),colorred,LINEDOT;
drawtext(barpos=Kc+INTPART(tbc*参自定义4),Pc,NUMTOSTR(参自定义4,2)),color00aaFF;
end; {retn}
end;
{-------------------------------------}
{觉得k线被线阻挡，就重新画k线}
KLINE(O,H,L,C,0);
{§未来多美好 公式组§}
{题外话 一直以来，在和周围股友交流中有种感觉，不知道各位是否也有同感，那就是学习
经典理论知识分析的人看不起只会用公式的，而用公式的人又觉得传统分析已经跟不上时代了。
我觉得这种误会源于缺乏沟通，假如传统分析者要是了解到用公式可以更加方便的“一把尺量天下”
，只用公式的人要是清楚求新求变的公式内核算法都是由传统技术演变而来，然后互相重视起来，就好了。
希望我做的公式能给使用者带来一点方便。}
M1:EMA(CLOSE,3),LINETHICK1,COLORFF;
PARTLINE(M1<REF(M1,1),M1),LINETHICK1,COLORFF00;
M2:EMA(CLOSE,5),LINETHICK2,COLORFF;
PARTLINE(M2<REF(M2,1),M2),LINETHICK2,COLORFF00;
M3:EMA(CLOSE,8),LINETHICK2,COLORFF;
PARTLINE(M3<REF(M3,1),M3),LINETHICK2,COLORFF00;
界:MA(CLOSE,8),POINTDOT,LINETHICK1,COLORFF;
PARTLINE(界<REF(界,1),界),POINTDOT,LINETHICK1,COLORFF0000;
买线:=EMA(CLOSE,3);
卖线:=EMA(SLOPE(CLOSE,8)*13+CLOSE,21);
BU:=CROSS(买线,卖线);
SEL:=CROSS(卖线,买线);
DRAWTEXT(BU,LOW,'买'),ALIGN0,PXDN30,COLORFF;
DRAWTEXT(SEL,HIGH,'卖'),ALIGN0,PXUP30,COLORFF00;
STICKLINE(CROSS(买线,卖线) OR CROSS(卖线,买线),OPEN,CLOSE,6,0),COLORFFFF00;
M4:EMA(SLOPE(CLOSE,13)*21+CLOSE,44),LINETHICK1,COLORFF00FF;
PARTLINE(M4<REF(M4,1),M4),LINETHICK1,COLORFF0000;