江恩第九條的時(shí)間公式

作者：飛狐來源：cxh99.com 發(fā)布時(shí)間：2022年08月05日

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

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

BARPOSX8賦值:4P%之字轉(zhuǎn)向的前1個(gè)波谷位置=0

X11賦值:4P%之字轉(zhuǎn)向的前參A個(gè)波谷位置

X18賦值:4P%之字轉(zhuǎn)向的前參B個(gè)波谷位置

X13賦值:4P%之字轉(zhuǎn)向的前參C個(gè)波谷位置

X3賦值:4P%之字轉(zhuǎn)向的前1個(gè)波峰值

X31賦值:4P%之字轉(zhuǎn)向的前參A個(gè)波峰位置

X38賦值:4P%之字轉(zhuǎn)向的前參B個(gè)波峰位置

X33賦值:4P%之字轉(zhuǎn)向的前參C個(gè)波峰位置

X5賦值:4P%之字轉(zhuǎn)向的前1個(gè)波峰位置=0

輸出指定位置:0日內(nèi)如果指定時(shí)間>0ANDDATE=指定時(shí)間,返回BARPOS,否則返回0的最高值,線寬為0

光標(biāo)位置賦值:SYSPARAM(1),線寬為0

CLDIS賦值:X13[SYSPARAM(1)],線寬為0

CHDIS賦值:X33[SYSPARAM(1)],線寬為0

TCL賦值:光標(biāo)位置-CLDIS,線寬為0

TCH賦值:光標(biāo)位置-CHDIS,線寬為0

BLDIS賦值:X18[SYSPARAM(1)],線寬為0

BHDIS賦值:X38[SYSPARAM(1)],線寬為0

TBL賦值:光標(biāo)位置-BLDIS,線寬為0

TBH賦值:光標(biāo)位置-BHDIS,線寬為0

ALDIS賦值:X11[SYSPARAM(1)],線寬為0

AHDIS賦值:X31[SYSPARAM(1)],線寬為0

TAL賦值:光標(biāo)位置-ALDIS,線寬為0

TAH賦值:光標(biāo)位置-AHDIS,線寬為0

KA賦值:如果TCL>TCH,返回TAL+A偏移,否則返回TAH+A偏移,線寬為0

KB賦值:如果TCL>TCH,返回TBH+B偏移,否則返回TBL+B偏移,線寬為0

KC賦值:如果TCL>TCH,返回TCL+C偏移,否則返回TCH+C偏移,線寬為0

PH賦值:最高價(jià)

PL賦值:最低價(jià)

PA賦值:如果TCL>TCH,返回PL[TAL+A偏移],否則返回PH[TAH+A偏移],線寬為0

PB賦值:如果TCL>TCH,返回PH[TBH+B偏移],否則返回PL[TBL+B偏移],線寬為0

PC賦值:如果TCL>TCH,返回PL[TCL+C偏移],否則返回PH[TCH+C偏移],線寬為0

Y賦值:年份

M賦值:月份

D賦值:日

光標(biāo)時(shí)間賦值:0日內(nèi)如果BARPOS=SYSPARAM(1),返回日期,否則返回0的最高值,線寬為0

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

條件判斷頂對底開關(guān)=0 THEN BEGIN 當(dāng)滿足條件指定時(shí)間=0ANDBARPOS=KA時(shí),在PA位置畫直線起點(diǎn)，當(dāng)滿足條件BARPOS=KB時(shí),在PB位置畫直線終點(diǎn),0表示是否延長.,COLOR77FFFF,線寬為1

當(dāng)滿足條件BARPOS=KB時(shí),在PB位置畫直線起點(diǎn)，當(dāng)滿足條件BARPOS=KC時(shí),在PC位置畫直線終點(diǎn),0表示是否延長.,COLOR77FFFF,線寬為1

當(dāng)滿足條件指定時(shí)間>0ANDBARPOS=指定位置時(shí),在4P%的之字轉(zhuǎn)向位置畫直線起點(diǎn)，當(dāng)滿足條件BARPOS=KB時(shí),在PB位置畫直線終點(diǎn),0表示是否延長.,COLOR77FFFF,線寬為1

當(dāng)滿足條件BARPOS=KA時(shí),在PA位置畫直線起點(diǎn)，當(dāng)滿足條件BARPOS=KC時(shí),在PC位置畫直線終點(diǎn),0表示是否延長.,COLORFFAA99,線寬為1

輸出TAC:如果指定時(shí)間>0,返回KC-指定位置,否則返回KC-KA,線寬為0

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),畫紅色,LINEDOT

當(dāng)滿足條件BARPOS=KC+TAC*1時(shí),在PC位置書寫文字,COLOR77FFFF

VERTLINE(BARPOS=KC+TAC*2),畫紅色,LINEDOT

當(dāng)滿足條件BARPOS=KC+TAC*2時(shí),在PC位置書寫文字,COLOR77FFFF

條件判斷參自定義1>0THEN BEGINVERTLINE(BARPOS=KC+TAC*參自定義1的整數(shù)部分),畫紅色,LINEDOT

當(dāng)滿足條件BARPOS=KC+TAC*參自定義1的整數(shù)部分時(shí),在PC位置書寫文字,COLOR77FFFF

END

?條件判斷參自定義2>0 THEN BEGINVERTLINE(BARPOS=KC+TAC*參自定義2的整數(shù)部分),畫紅色,LINEDOT

當(dāng)滿足條件BARPOS=KC+TAC*參自定義2的整數(shù)部分時(shí),在PC位置書寫文字,COLOR77FFFF

END

?條件判斷參自定義3>0 THEN BEGINVERTLINE(BARPOS=KC+TAC*參自定義3的整數(shù)部分),畫紅色,LINEDOT

當(dāng)滿足條件BARPOS=KC+TAC*參自定義3的整數(shù)部分時(shí),在PC位置書寫文字,COLOR77FFFF

END

?條件判斷參自定義4>0 THEN BEGINVERTLINE(BARPOS=KC+TAC*參自定義4的整數(shù)部分),畫紅色,LINEDOT

當(dāng)滿足條件BARPOS=KC+TAC*參自定義4的整數(shù)部分時(shí),在PC位置書寫文字,COLOR77FFFF

END

?END

條件判斷頂對底開關(guān)>0 THEN BEGIN 當(dāng)滿足條件指定時(shí)間=0ANDBARPOS=KB時(shí),在PB位置畫直線起點(diǎn)，當(dāng)滿足條件BARPOS=KC時(shí),在PC位置畫直線終點(diǎn),0表示是否延長.,COLOR77FFFF,線寬為1

當(dāng)滿足條件指定時(shí)間>0ANDBARPOS=指定位置時(shí),在4P%的之字轉(zhuǎn)向位置畫直線起點(diǎn)，當(dāng)滿足條件BARPOS=KC時(shí),在PC位置畫直線終點(diǎn),0表示是否延長.,COLOR77FFFF,線寬為1

XX賦值:X

//SETLBOUND(XX,K看)

輸出---------------------說話啊-------------------}TBC:如果指定時(shí)間>0,返回KC-指定位置,否則返回KC-KB,線寬為0

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),畫紅色,LINEDOT

當(dāng)滿足條件BARPOS=KC+TBC*1時(shí),在PC位置書寫文字,COLOR00AAFF

VERTLINE(BARPOS=KC+TBC*2),畫紅色,LINEDOT

當(dāng)滿足條件BARPOS=KC+TBC*2時(shí),在PC位置書寫文字,COLOR00AAFF

條件判斷參自定義1>0THEN BEGINVERTLINE(BARPOS=KC+TBC*參自定義1的整數(shù)部分),畫紅色,LINEDOT

當(dāng)滿足條件BARPOS=KC+TBC*參自定義1的整數(shù)部分時(shí),在PC位置書寫文字,COLOR00AAFF

END

?條件判斷參自定義2>0 THEN BEGINVERTLINE(BARPOS=KC+TBC*參自定義2的整數(shù)部分),畫紅色,LINEDOT

當(dāng)滿足條件BARPOS=KC+TBC*參自定義2的整數(shù)部分時(shí),在PC位置書寫文字,COLOR00AAFF

END

?條件判斷參自定義3>0 THEN BEGINVERTLINE(BARPOS=KC+TBC*參自定義3的整數(shù)部分),畫紅色,LINEDOT

當(dāng)滿足條件BARPOS=KC+TBC*參自定義3的整數(shù)部分時(shí),在PC位置書寫文字,COLOR00AAFF

END

?條件判斷參自定義4>0 THEN BEGINVERTLINE(BARPOS=KC+TBC*參自定義4的整數(shù)部分),畫紅色,LINEDOT

當(dāng)滿足條件BARPOS=KC+TBC*參自定義4的整數(shù)部分時(shí),在PC位置書寫文字,COLOR00AAFF

END

?END

KLINE(開盤價(jià),最高價(jià),最低價(jià),收盤價(jià),0)

源碼：

input:p(10,1,30),頂對底開關(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 頂對底開關(guān)=0 then begin {底對底或頂對頂}
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 頂對底開關(guān)>0 then begin {頂對底或底對頂}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)典理論知識分析的人看不起只會(huì)用公式的，而用公式的人又覺得傳統(tǒng)分析已經(jīng)跟不上時(shí)代了。
我覺得這種誤會(huì)源于缺乏溝通，假如傳統(tǒng)分析者要是了解到用公式可以更加方便的“一把尺量天下”
，只用公式的人要是清楚求新求變的公式內(nèi)核算法都是由傳統(tǒng)技術(shù)演變而來，然后互相重視起來，就好了。
希望我做的公式能給使用者帶來一點(diǎn)方便。}{程序化交易 www.tumamayizhan.com }
{程序化交易 www.tumamayizhan.com }
{程序化交易 www.tumamayizhan.com }

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