通達信頂底分型主圖公式源碼

包頂2:=H<REF(H,2) AND REF(H,2)>REF(H,3) AND L<REF(L,1) AND REF(L,1)>REF(L,3);
複底:=IF(包含1,包底1,IF(包含2,包底2,簡底));
複頂:=IF(包含1,包頂1,IF(包含2,包頂2,簡頂));
底分型:=IF(BARSLAST(CROSS(牛熊線,重心線))>3,FILTER(BACKSET(FILTER(複底 AND 重心線<牛熊線,3),2),1),0);
頂分型:=IF(BARSLAST(CROSS(重心線,牛熊線))>3,FILTER(BACKSET(FILTER(複頂 AND 重心線>牛熊線,3),2),1),0);
STICKLINE(底分型,C,O,8,0),COLORFF00FF,LINETHICK2;
STICKLINE(底分型,C,O,3,0),COLORFF00FF,LINETHICK2;
STICKLINE(底分型,H,L,1,0),COLORFF00FF,LINETHICK2;
STICKLINE(頂分型,C,O,8,0),COLORYELLOW,LINETHICK2;
STICKLINE(頂分型,C,O,3,0),COLORYELLOW,LINETHICK2;
STICKLINE(頂分型,H,L,1,0),COLORYELLOW,LINETHICK2;
DRAWTEXT(底分型,L*0.99,'底型'),COLORRED,LINETHICK1;
DRAWTEXT(頂分型,H*1.02,'頂型'),COLORYELLOW,LINETHICK1;