分型顶0:=H>REF(H,1) AND L>REF(L,1);
分型底0:=L<REF(L,1) AND H<REF(H,1);
分型顶1:=(H>=REF(H,1) AND L<=REF(L,1)) AND (BARSLAST(分型顶0)<BARSLAST(分型底0));
分型底1:=(H>=REF(H,1) AND L<=REF(L,1)) AND (BARSLAST(分型底0)<BARSLAST(分型顶0));
分型顶2:=分型顶0 OR 分型顶1;
分型底2:=分型底0 OR 分型底1;
分型顶:=CROSS(BACKSET(分型底2,BARSLAST(分型顶2 AND H=HHV(H,BARSLAST(分型底2)))+1),0.5);
分型底:=CROSS(BACKSET(分型顶2,BARSLAST(分型底2 AND L=LLV(L,BARSLAST(分型顶2)))+1),0.5);
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;
笔顶1:=笔顶10 AND H=HHV(H,BARSLAST(笔底10));
笔底1:=笔底10 AND L=LLV(L,BARSLAST(笔顶10));
DRAWTEXT(笔顶1,H,'顶'),FONTSIZE16,SOUND('A');
DRAWTEXT(笔底1,L,'底'),FONTSIZE16,SOUND('A');
（来源：文华财经）
