通达信刀切买入法主图指标(源码)

TO1N:=REF(O,SUMBARS(IF(C>=O,1,0),1));
TO2N:=REF(O,SUMBARS(IF(C>=O,1,0),2));
AAN:=C>=TO1N OR C>=TO2N OR C>REF(C,1);
ATJ1N:=BACKSET(REF(C>O,2) AND REF(C<O,1) AND REF(C>REF(O,1),1)
AND C<REF(O,2),3);
ATJ2N:=BACKSET(REF(C>O,1) AND C<REF(O,1),2);
A1N:=NOT(ATJ1N) AND NOT(ATJ2N) AND AAN AND REF(NOT(AAN),1);
NAN:=BARSLAST(A1N);
A2N:=REF(COUNT(AAN,NAN+1)=NAN+1,1) AND AAN AND H=HHV(H,NAN+1);
ABN:=DRAWLINE(A1N,LLV(L,3),A2N,H,0),COLORYELLOW;
A2TJN:=BACKSET(ABN>REF(ABN,1) AND REF(NOT(ABN>REF(ABN,1)),1),2);
A22N:=A2N AND A2TJN=1;
DIN:=REF(ABN,NAN),COLORRED;
NBN:=BARSLAST(A22N);
DINGN:=IF(NOT(REF(ABN,NBN)<ABN),REF(ABN,NBN),REF(ABN,NBN)),LINETHICK4; {顶};
TC1N:=REF(O,SUMBARS(IF(C<O,1,0),1));
TC2N:=REF(O,SUMBARS(IF(C<O,1,0),2));
BBN:=C<TC1N OR C<TC2N OR C<REF(C,1);
BTJ1N:=BACKSET(REF(C<O,2) AND REF(C>O,1) AND REF(C<REF(O,1),1)
AND C>REF(O,2),3);
BTJ2N:=BACKSET(REF(C<O,1) AND C>REF(O,1),2);
B1N:=NOT(BTJ1N) AND NOT(BTJ2N) AND BBN AND REF(NOT(BBN),1);
NBBN:=BARSLAST(B1N);
B2N:=REF(COUNT(BBN,NBBN+1)=NBBN+1,1) AND BBN AND L=LLV(L,NBBN+1);
BBBN:=DRAWLINE(B1N,HHV(H,3),B2N,L,0);
W2N:=H-BBBN=HHV(H-BBBN,BARSLAST(B1N)) AND NOT(BBBN=DRAWNULL);
DRAWLINE(B1N,H,W2N,H,1) COLORMAGENTA;