{<江恩第九条的时间>公式  X1835}
{☆§提示：1首先十分感谢做多2008朋友的支持，在他的建议下，我修改老公式为学习了江恩第九条知识的同学所使用，
          江恩买卖十二法则第九条 当出现高低或新高时买入
          (1) 当市价开创新高，表示市势向上，可以追市买入。 (2) 当市价下破新底，表示市势向下，可以追沽。
          时间的因素  (1) 由从前顶部到底部的时间； (2) 由从前底部到底部的时间；
          (3) 由重要顶部到重要底部时间；   (4) 由重要底部到重要顶部的时间。
          2只是粗略画图，计算机画线不能代替手工作图。
          3确定历史数据完整。}
{☆§说明: 1左上方显示波段所在时间段的周期数字。参数"顶对底开关”是需要在0和1之间经常调整的，实现从顶底时间到时底对底顶对顶时间的转换。多尝试调调参数，别怕弄出问题大不了就删掉公式重新导入。
          2'江九条'中江恩特别要注意的是4点，但我希望能有更多选择，所以公式可以调节底对底 顶对顶 顶对底 底对顶 指定时间的顶底对光标的底或顶，谁知道哪个就管用了呢。
          3使用指定时间的时候，公式必须由使用者打出十字光标后，找到需要的那根K线，左上方显示有K线对应的日期参数，填写参数到参数名称时'指定位置'后才能使用，
          4预设了1倍和2倍的，不可更改。另留有有4个自定义的数字，可以填写时间段乘以的倍数(可以带小数点的，但是在图里显示时候，考虑地方小就显示保留了2位小数，
           但在最初计算时间倍数时使用的是填写的完整参数，比如填写1.618时，显示时是1.62倍，但计算还是用1.618算后取整的。)
           自定义1和自定义2，目前预设时为0，由使用者自己写入所需的比例数值。自定义3和4被我填上了数值3和4，也可由使用者自行更改。}

input:p(10,1,30),顶对底开关(0,0,1),参a(2,1,111),参b(1,1,111),参c(1,1,111),A偏移(0),B偏移(0),C偏移(0),指定时间(0,0,1381231),参自定义1(0),参自定义2(0),参自定义3(3),参自定义4(4);

x1:=TROUGH(4,p,1);//BARPOS
x8:=TROUGHBARS(4,p,1)=0;

x11:=TROUGHBARS(4,p,参a);

x18:=TROUGHBARS(4,p,参b);
x13:=TROUGHBARS(4,p,参c);

x3:=PEAK(4,p,1);
x31:=PEAKBARS(4,p,参a);
x38:=PEAKBARS(4,p,参b);
x33:=PEAKBARS(4,p,参c);

x5:=PEAKBARS(4,p,1)=0;

指定位置:hhv(if(指定时间>0 and date=指定时间,BARPOS,0),0),linethick0;
光标位置:=SYSPARAM(1),linethick0;

{ldis:=if(BARPOS=SYSPARAM(1),x18,0),linethick0;
hdis:=if(BARPOS=SYSPARAM(1),x38,0),linethick0;}
cldis:=x13[SYSPARAM(1)],linethick0;
chdis:=x33[SYSPARAM(1)],linethick0;
tcl:=光标位置-cldis,linethick0;
tch:=光标位置-chdis,linethick0;

bldis:=x18[SYSPARAM(1)],linethick0;
bhdis:=x38[SYSPARAM(1)],linethick0;
tbl:=光标位置-bldis,linethick0;
tbh:=光标位置-bhdis,linethick0;

aldis:=x11[SYSPARAM(1)],linethick0;
ahdis:=x31[SYSPARAM(1)],linethick0;
tal:=光标位置-aldis,linethick0;
tah:=光标位置-ahdis,linethick0;

Ka:=IF(tcl>tch,tal+A偏移,tah+A偏移),linethick0;
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看);
{{小花园}---------------------说话啊----------------