頂價:=REF(H,BARSLAST(H>REF(H,1)));
底價:=REF(L,BARSLAST(L<REF(L,1)));
分型頂0:=H>REF(頂價,1) AND L>REF(底價,1);
分型底0:=L<REF(底價,1) AND H<REF(頂價,1);

分型頂1:=分型頂0 AND H=HHV(H,BARSLAST(分型底0));
分型底1:=分型底0 AND L=LLV(L,BARSLAST(分型頂0));

分型頂:FILTER(分型頂1,BARSLAST(分型底1));
分型底:=FILTER(分型底1,BARSLAST(分型頂1));

?{二、對符合形成筆條件的分型節點進行粗選。};
?{注：符合筆條件的分型應符合纏論以下條件：
???? 1、力度：本筆的起點與終點之間，必須存在最高的低點與最低的高點分離（纏論無要求，可刪除）
???? 2、包含：無包含關系的K線數量必須達到二根以上，即：右肩+左肩+本筆。
???? 3、數量：本筆所有K線數量，在無包含關系的情況下，除起點K線外，其余數量必須達到三以上，即：右肩+過渡+左肩+本筆。};
?{21、以分型頂底為起點形成筆的要求，進行第一次篩選，得到筆的第一類過渡期頂、底。};
UP1:=BARSLAST(分型底);
頂力度1:=HHV(L,UP1+1)>LLV(H,UP1+1);
頂包含1:=COUNT(L>REF(L,1),UP1)>2 AND COUNT(H>REF(H,1),UP1)>2;

?DN1:=BARSLAST(分型頂);
底力度1:=HHV(L,DN1+1)>LLV(H,DN1+1);
底包含1:=COUNT(H<REF(H,1),DN1)>2 AND COUNT(L<REF(L,1),DN1)>2;

筆頂10:=分型頂 AND UP1>3 AND 頂力度1 AND 頂包含1;
筆底10:=分型底 AND DN1>3 AND 底力度1 AND 底包含1;

?{211：取同一筆中的最高點或最低點為筆的分型頂、底端，并過濾};
筆頂11:=筆頂10 AND H=HHV(H,BARSLAST(筆底10));
筆底11:=筆底10 AND L=LLV(L,BARSLAST(筆頂10));

?{212：針對前述頂底再次過濾同一筆中的最高點或最低點為筆的分型頂、底端，并過濾};
筆頂12:=筆頂11 AND H=HHV(H,BARSLAST(筆底11));
筆底12:=筆底11 AND L=LLV(L,BARSLAST(筆頂11));

筆頂1:=FILTER(筆頂12,BARSLAST(筆底12));
筆底1:=FILTER(筆底12,BARSLAST(筆頂12));

?{22、以第一類過渡期頂、底分型為起點形成筆的要求，進行第二次篩選，得到筆的第二類過渡期頂、底。};
?{注：對以頂底分型不成筆的節點，但對第一類過渡頂底滿足筆的條件，應選入。}
UP2:=BARSLAST(筆底1);
頂力度2:=HHV(L,UP2+1)>LLV(H,UP2+1);
頂包含2:=COUNT(L>REF(L,1),UP2)>2 AND COUNT(H>REF(H,1),UP2)>2;

?DN2:=BARSLAST(筆頂1);
底力度2:=HHV(L,DN2+1)>LLV(H,DN2+1);
底包含2:=COUNT(H<REF(H,1),DN2)>2 AND COUNT(L<REF(L,1),DN2)>2;

筆頂20:=分型頂 AND UP2>3 AND 頂力度2 AND 頂包含2;
筆底20:=分型底 AND DN2>3 AND 底力度2 AND 底包含2;

?{221：取同一筆中的最高點或最低點為筆的分型頂、底端};
筆頂21:=筆頂20 AND H=HHV(H,BARSLAST(筆底20));
筆底21:=筆底20 AND L=LLV(L,BARSLAST(筆頂20));

筆頂2:=FILTER(筆頂21,BARSLAST(筆底21));
筆底2:=FILTER(筆底21,BARSLAST(筆頂21));

?

?{三、合并第一類過渡期頂、底和第二類過渡期頂、底，作為后續分型的參考節點。};
筆頂3:=筆頂1 OR 筆頂2;
筆底3:=筆底1 OR 筆底2;

?

?{四、前述二種過渡類頂底合并后，存在持續分型、不成筆分型，對這類非筆分型節點進行以下篩選：};
?{41、第一次過濾以前述“筆頂底3”為起止點的持續性的高底點分型節點，刪除非本筆最高、最低點的節點，并向前過濾。};
筆頂41:=FILTER(筆頂3 AND H=HHV(H,BARSLAST(筆底3)),BARSLAST(筆底3));

?

?來源:程序化99

?

?來源: www.kzuj.com.cn