相關(guān)標(biāo)簽:

?

{<江恩第九條的時(shí)間>公式 X1835}
{☆§提示：1首先十分感謝做多2008朋友的支持，在他的建議下，我修改老公式為學(xué)習(xí)了江恩第九條知識(shí)的同學(xué)所使用，
江恩買賣十二法則第九條 當(dāng)出現(xiàn)高低或新高時(shí)買入
(1) 當(dāng)市價(jià)開創(chuàng)新高，表示市勢(shì)向上，可以追市買入。 (2) 當(dāng)市價(jià)下破新底，表示市勢(shì)向下，可以追沽。
時(shí)間的因素 (1) 由從前頂部到底部的時(shí)間； (2) 由從前底部到底部的時(shí)間；
(3) 由重要頂部到重要底部時(shí)間； (4) 由重要底部到重要頂部的時(shí)間。
2只是粗略畫圖，計(jì)算機(jī)畫線不能代替手工作圖。
3確定歷史數(shù)據(jù)完整。}
{☆§說明: 1左上方顯示波段所在時(shí)間段的周期數(shù)字。參數(shù)"頂對(duì)底開關(guān)”是需要在0和1之間經(jīng)常調(diào)整的，實(shí)現(xiàn)從頂?shù)讜r(shí)間到時(shí)底對(duì)底頂對(duì)頂時(shí)間的轉(zhuǎn)換。多嘗試調(diào)調(diào)參數(shù)，別怕弄出問題大不了就刪掉公式重新導(dǎo)入。
2'江九條'中江恩特別要注意的是4點(diǎn)，但我希望能有更多選擇，所以公式可以調(diào)節(jié)底對(duì)底 頂對(duì)頂 頂對(duì)底 底對(duì)頂 指定時(shí)間的頂?shù)讓?duì)光標(biāo)的底或頂，誰知道哪個(gè)就管用了呢。
3使用指定時(shí)間的時(shí)候，公式必須由使用者打出十字光標(biāo)后，找到需要的那根K線，左上方顯示有K線對(duì)應(yīng)的日期參數(shù)，填寫參數(shù)到參數(shù)名稱時(shí)'指定位置'后才能使用，
4預(yù)設(shè)了1倍和2倍的，不可更改。另留有有4個(gè)自定義的數(shù)字，可以填寫時(shí)間段乘以的倍數(shù)(可以帶小數(shù)點(diǎn)的，但是在圖里顯示時(shí)候，考慮地方小就顯示保留了2位小數(shù)，
但在最初計(jì)算時(shí)間倍數(shù)時(shí)使用的是填寫的完整參數(shù)，比如填寫1.618時(shí)，顯示時(shí)是1.62倍，但計(jì)算還是用1.618算后取整的。)
自定義1和自定義2，目前預(yù)設(shè)時(shí)為0，由使用者自己寫入所需的比例數(shù)值。自定義3和4被我填上了數(shù)值3和4，也可由使用者自行更改。}

?

?

原理解析：

源碼：

?

input:p(10,1,30),頂對(duì)底開關(guān)(0,0,1),參a(2,1,111),參b(1,1,111),參c(1,1,111),A偏移(0),B偏移(0),C偏移(0),指定時(shí)間(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(指定時(shí)間>0 and date=指定時(shí)間,BARPOS,0),0),linethick0;
光標(biāo)位置:=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:=光標(biāo)位置-cldis,linethick0;
tch:=光標(biāo)位置-chdis,linethick0;bldis:=x18[SYSPARAM(1)],linethick0;
bhdis:=x38[SYSPARAM(1)],linethick0;
tbl:=光標(biāo)位置-bldis,linethick0;
tbh:=光標(biāo)位置-bhdis,linethick0;aldis:=x11[SYSPARAM(1)],linethick0;
ahdis:=x31[SYSPARAM(1)],linethick0;
tal:=光標(biāo)位置-aldis,linethick0;
tah:=光標(biāo)位置-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;
光標(biāo)時(shí)間:=hhv(if(barpos=SYSPARAM(1),date,0),0),linethick0;
DRAWTEXTEX(指定時(shí)間=0,1,5,5,'光標(biāo)時(shí)間是 '+numtostr(y[SYSPARAM(1)],0)+STRRIGHT(numtostr(光標(biāo)時(shí)間,0),4)+' 換算 '+numtostr(光標(biāo)時(shí)間,0)),color77FFFF;
DRAWTEXTEX(指定時(shí)間>0,1,5,5,'指定時(shí)間是 '+numtostr(指定時(shí)間,0)),color77FFFF;{☆§-------------------------------------§☆}
if 頂對(duì)底開關(guān)=0 then begin {底對(duì)底或頂對(duì)頂}
drawline(指定時(shí)間=0 and barpos=Ka,Pa,barpos=Kb,Pb,0),color77FFFF,linethick1;
drawline(barpos=Kb,Pb,barpos=Kc,Pc,0),color77FFFF,linethick1;
drawline(指定時(shí)間>0 and barpos=指定位置,zig(4,p),barpos=Kb,Pb,0),color77FFFF,linethick1;drawline(barpos=Ka,Pa,barpos=Kc,Pc,0),colorffaa99,linethick1;
tac:if(指定時(shí)間>0,Kc-指定位置,Kc-Ka),linethick0;
DRAWTEXTEX(1,1,5,50,'初始時(shí)間段有 '+numtostr(tac,0)+' 個(gè)周期'),color77FFFF;
VERTLINE(指定時(shí)間=0 and barpos=Ka),colorffaa99,LINEDOT;
VERTLINE(指定時(shí)間>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 頂對(duì)底開關(guān)>0 then begin {頂對(duì)底或底對(duì)頂}drawline(指定時(shí)間=0 and barpos=Kb,Pb,barpos=Kc,Pc,0),color77FFFF,linethick1;
drawline(指定時(shí)間>0 and barpos=指定位置,zig(4,p),barpos=Kc,Pc,0),color77FFFF,linethick1;
//xx:=x;
//SETLBOUND(xx,k看);
{{小花園}---------------------說話啊-------------------}
tbc:if(指定時(shí)間>0,Kc-指定位置,Kc-Kb),linethick0;DRAWTEXTEX(1,1,5,50,'初始時(shí)間段有 '+numtostr(tbc,0)+' 個(gè)周期'),color00aaFF;VERTLINE(指定時(shí)間=0 and barpos=Kb),colorffaa99,LINEDOT;
VERTLINE(指定時(shí)間>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); {§未來多美好 公式組§}{題外話 一直以來，在和周圍股友交流中有種感覺，不知道各位是否也有同感，那就是學(xué)習(xí)
經(jīng)典理論知識(shí)分析的人看不起只會(huì)用公式的，而用公式的人又覺得傳統(tǒng)分析已經(jīng)跟不上時(shí)代了。
我覺得這種誤會(huì)源于缺乏溝通，假如傳統(tǒng)分析者要是了解到用公式可以更加方便的“一把尺量天下”
，只用公式的人要是清楚求新求變的公式內(nèi)核算法都是由傳統(tǒng)技術(shù)演變而來，然后互相重視起來，就好了。
希望我做的公式能給使用者帶來一點(diǎn)方便。}{程序化交易 www.weiqiv.net.cn }
{程序化交易 www.weiqiv.net.cn }
{程序化交易 www.weiqiv.net.cn }

公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】

?