通达信分时久转公式

通达信分时久转公式

源码

A1:=C>REF(C,4);
 NT:=BARSLASTCOUNT(A1);
 TJ11:=NT=9;
 TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);
 AY:=(BACKSET(TJ11>0,9) OR   BACKSET(TJ13>0,NT))*NT;
 DRAWTEXT(AY>0,H*1.02,VAR2STR(AY,0)),COLORFF00FF;
 DRAWTEXT(NT=9,H*1.02,"9"),COLORGREEN;
 B1:=C<REF(C,4);
 NT0:=BARSLASTCOUNT(B1);
 TJ21:=NT0=9 ;
 TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);
 AY1:=(BACKSET(TJ21>0,9)  OR  BACKSET(TJ23>0,NT0))*NT0;
 DRAWTEXT(AY1>0,L*0.98,VAR2STR(AY1,0)),COLORFF00FF;
 DRAWTEXT(NT0=9,L*0.98,"9"),COLORGREEN;