相關(guān)標(biāo)簽:頂?shù)追中椭鲌D指標(biāo)公式 、 通達(dá)信頂?shù)追中凸?、 頂?shù)追中瓦x股公式 、 60分頂?shù)字笜?biāo)公式 、 纏論頂?shù)追中椭笜?biāo) 、 纏論頂?shù)追中凸?、 頂分型和底分型的確認(rèn) 、 底分型和頂分型結(jié)構(gòu) 、 波段頂?shù)字笜?biāo)公式 、 通達(dá)信頂?shù)字笜?biāo)公式 、 趨勢(shì)頂?shù)字笜?biāo)公式 、 分時(shí)底頂指標(biāo)公式 、 大盤頂?shù)字笜?biāo)公式 、 現(xiàn)貨頂?shù)字笜?biāo)公式 、 頂?shù)追中椭鲌D公式 、

禪師的頂?shù)追中凸骄幜艘粋€(gè)禪師的頂?shù)追中凸?。有很多可以改進(jìn)的地方，如果那位高手能改進(jìn)，請(qǐng)指出，感謝至極。
昨天請(qǐng)教了一個(gè)問題，感謝回答的那個(gè)兄弟。
圖中晶紅色表示底分型成立，綠色表示頂分型成立。
這個(gè)的特點(diǎn)就是按禪師的原意寫的源碼

原理解析：
L1賦值:1日前的最低價(jià) L2賦值:2日前的最低價(jià) H1賦值:1日前的最高價(jià) H2賦值:2日前的最高價(jià) F2賦值:如果最高價(jià)>H1ANDL>L1,返回1,否則返回如果最高價(jià)<H1ANDL<L1,返回-1,否則返回0 FF賦值:收盤價(jià) HH賦值:最高價(jià) LL賦值:最低價(jià) 輸出VARIABLE:X=0,K=2,KK=0,KKK=0,A=F2 THENBEGINX賦值:X+F2[K+1] K賦值:K+1 END ELSEBREAK KK賦值:K KKK賦值:DATACOUNT-1 賦值:如果HH[K+1]>HH[K]ANDLL[K+1]>LL[K],返回1,否則返回如果HH[K+1]<HH[K]ANDLL[K+1]<LL[K],返回-1,否則返回0 賦值:HH[K+1]和HH[K]的較大值 賦值:LL[K+1]和LL[K]的較大值 賦值:0.5 K賦值:K+1 END 賦值:HH[K+1]和HH[K]的較小值 賦值:LL[K+1]和LL[K]的較小值 賦值:-0.5 K賦值:K+1 END ELSEK賦值:K+1 END AA賦值:SETLBOUND(FF,KK+1) 賦值:如果F2[I-1]>0ANDF2[I]<0,返回-1,否則返回如果F2[I-1]<0ANDF2[I]>0,返回1,否則返回0 當(dāng)滿足條件FF=1時(shí),在最低價(jià)和最高價(jià)位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫洋紅色

源碼：

L1:=ref(L,1);L2:=ref(L,2);H1:=ref(H,1);H2:=ref(H,2);
F2:=IF(H>H1 AND L>L1,1,IF(H<H1 AND L<L1,-1,0));{上1，下-1.包含0}
FF:=c;
HH:=h;
LL:=l;
variable:x=0,k=2,kk=0,kkk=0,a=F2;
while x=0 do
if F2[k]=0 then
begin
x:=x+F2[k+1];
k:=k+1;
end;
else
break;
kk:=k;
kkk:=datacount-1;
for i=kk to kkk do
begin
F2[k+1]:=if(HH[k+1]>HH[k] AND LL[k+1]>LL[k],1,IF(HH[k+1]<HH[k] AND LL[k+1]<LL[k],-1,0));{上1，下-1.包含0}
if F2[k+1]=0 then
if F2[k]>0
then
begin
HH[k+1]:=max(HH[k+1],HH[k]);
LL[k+1]:=max(LL[k+1],LL[k]);
F2[k+1]:=0.5;
k:=k+1;
end;
else
begin
HH[k+1]:=min(HH[k+1],HH[k]);
LL[k+1]:=min(LL[k+1],LL[k]);
F2[k+1]:=-0.5;
k:=k+1;
end;
else
k:=k+1;
end;
aa:=setlbound(FF,kk+1);
for i=kk+1 to datacount do
FF[i]:=if(F2[i-1]>0 and F2[i]<0,-1,if(F2[i-1]<0 and F2[i]>0,1,0));
stickline(FF=1,l,h,2,0),COLORMAGENTA;
stickline(FF=-1,l,h,2,0),COLORGREEN;{程序化交易 www.kzuj.com.cn }

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