{<江恩第九条的时间>公式 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看);
{{小花园}---------------------说话啊-------------------}
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); {§未来多美好 公式组§}{题外话 一直以来，在和周围股友交流中有种感觉，不知道各位是否也有同感，那就是学习
经典理论知识分析的人看不起只会用公式的，而用公式的人又觉得传统分析已经跟不上时代了。
我觉得这种误会源于缺乏沟通，假如传统分析者要是了解到用公式可以更加方便的“一把尺量天下”
，只用公式的人要是清楚求新求变的公式内核算法都是由传统技术演变而来，然后互相重视起来，就好了。
希望我做的公式能给使用者带来一点方便。}   附送由创幻论坛的卧虎藏龙先生精心制作的江恩买卖十二法则的电子书。电子书时EXE格式。下载地址：http://www.88gs.com/soft/sort011/down-6009.html
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
