同花顺我的分笔公式

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

源码

MID :  MA(CLOSE,13),colorwhite;

UPPER: MID + 2*STD(CLOSE,13),colorligray;

LOWER: MID - 2*STD(CLOSE,13),colorligray;

//定义新的高与低

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=0;

//包含处理

IF (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),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),1,0);

dd1=IF(top1 OR top2,1,IF(bottom1 OR bottom2,-1,0));

//二次循环

//第一类底

bottom3:=IF(dd1=-1 AND BARSLAST(dd1=1)>REF(k0_no,1)+3,1,0);

//第二类底

bottom4:=IF(dd1=-1 AND BARSLAST(dd1=1)<=REF(k0_no,1)+3 AND REF(l1,1)<REF(l1,BARSLAST(dd1=-1,1)+1),1,0);

//第一类顶

top3:=IF(dd1=1 AND BARSLAST(dd1=-1)>REF(k0_no,1)+3,1,0);

//第二类顶

top4:=IF(dd1=1 AND BARSLAST(dd1=-1)<=REF(k0_no,1)+3 AND REF(h1,1)>REF(h1,BARSLAST(dd1=1,1)+1),1,0);

dd2=IF(top1 OR top2,1,IF(bottom1 OR bottom2,-1,0));

//底与顶

bottom:= bottom3 OR bottom4;

top:= top3 OR top4;

//底延伸

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;

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

//主力线

AA1=INDEXC<REF(INDEXC,1);

AA2=C>O OR C>REF(C,1);

AA3=V>REF(V,1)*1.9;

HORLINE(AA1 AND AA2 AND AA3,C,0,2);