我的同花顺分笔公式

缠论分笔，未完成版，不断改进中，缠论分笔，未完成版，不断改进中

MA13:MA(C,13);

//定义新的高与低

H1:H;

L1:L;

//定义与前一K线的关系：1-上涨，-1-下跌，0-包含

K=IF(H1>REF(H1,1) AND L1>REF(L1,1),1,IF(H1<REF(H1,1) AND L1<REF(L1,1),-1,0));

//标记包含关系

K0=IF(k=0,1,0);

//重置k0的计数

k0_no=IF(k0=0,0,k0_no);

//包含处理

WHILE (K=0)

{

k0_no=REF(k0_no,1)+1;

H1:IF(REF(K,1)=1,HHV(H1,2),IF(REF(K,1)=-1,LLV(H1,2),H1));

L1:IF(REF(K,1)=1,HHV(L1,2),IF(REF(K,1)=-1,LLV(L1,2),L1));

K=REF(k,1);

}

//dd:1-顶分型，-1-底分型，0-非分型

dd=IF(REF(K,1)=1 AND K=-1,1,IF(REF(K,1)=-1 AND K=1,-1,0));

STICKLINE(dd=1 OR dd =-1,HIGH,LOW,2),colorred;

//定义分型强度

//分型第一个K线的振幅

FZ=ABS(REF(H1,2+REF(k0_no,1))-REF(L1,2+REF(k0_no,1)));

IF(dd=1)

tops=0.6*((L1-REF(l1,2+REF(k0_no,1)))/fz)+0.4*((C-REF(l1,2+REF(k0_no,1)))/fz);

ELSE IF(dd=-1)

bottoms=0.6*((h1-REF(h1,2+REF(k0_no,1)))/fz)+0.4*((C-REF(h1,2+REF(k0_no,1)))/fz);

STICKLINE(tops<0.55 OR bottoms>-0.45,HIGH,LOW,3,),colorwhite;

//第一类底

bottom1=IF(dd=-1 AND BARSLAST(dd=1)>REF(k0_no,1)+3,1,0);

//第二类底

bottom2=IF(dd=-1 AND BARSLAST(dd=1)<=REF(k0_no,1)+3 AND REF(l1,1)<REF(l1,BARSLAST(dd=-1,1)+1) AND REF(h1,BARSLAST(dd=1)+1)<REF(h1,BARSLAST(dd=1,1)+1),1,0);

//第一类顶

top1=IF(dd=1 AND BARSLAST(dd=-1)>REF(k0_no,1)+3,1,0);

//第二类顶

top2=IF(dd=1 AND BARSLAST(dd=-1)<=REF(k0_no,1)+3 AND REF(h1,1)>REF(h1,BARSLAST(dd=1,1)+1) AND REF(l1,BARSLAST(dd=-1)+1)>REF(L1,BARSLAST(dd=-1,1)+1),1,0);

//底与顶

bottom=bottom1 OR bottom2;

top=top1 OR top2;

//底延伸

bys=IF(bottom=1 AND BARSLAST(bottom=1,1)<BARSLAST(top=1),1,0);

//顶延伸

tys=IF(top=1 AND BARSLAST(top=1,1)<BARSLAST(bottom=1),1,0);

//DRAWLINE(bottom=1,REF(L1,1),top=1,REF(H1,1),0),colorgreen,LINETHICK1;

//DRAWLINE(top=1,REF(h1,1),bottom,REF(l1,1),0),colorgreen,LINETHICK1;

ployline(top=1 OR bottom=1,IF(top=1,REF(H1,1),REF(L1,1))),colorgreen,Linethick2;

SELECT (dd=-1 AND bottoms>-0.5);