可以带写TB程序化代码吗？

HH1:=IFELSE(H<REF(H,1)&&REF(H,1)<REF(H,2),REF(H,2),0);LL1:=IFELSE(L>REF(L,1)&&REF(L,1)>REF(L,2),REF(L,2),0);HH2:=VALUEWHEN(HH1>0,HH1);LL2:=VALUEWHEN(LL1>0,LL1);HH:=HHV(HIGH,1)/10+HHV(HIGH,2)/10+HHV(HIGH,2)/10+HHV(HIGH,4)/10+HHV(HIGH,4)/10+HHV(HIGH,8)/10+HHV(HIGH,8)/10+HHV(HIGH,13)/10+HHV(HIGH,40)/10+HHV(HIGH,20)/10;LL:=LLV(LOW,1)/10+LLV(LOW,2)/10+LLV(LOW,2)/10+LLV(LOW,4)/10+LLV(LOW,4)/10+LLV(LOW,8)/10+LLV(LOW,8)/10+LLV(LOW,13)/10+LLV(LOW,40)/10+LLV(LOW,20)/10;H1:=IFELSE(HH<REF(HH,1)&&LL<REF(LL,1)&&REF(OPEN,1)>CLOSE&&OPEN>CLOSE&&(HHV(OPEN,0)-CLOSE)>0,REF(HH,2),0);L1:=IFELSE(LL>REF(LL,1)&&HH>REF(HH,1)&&REF(OPEN,1)<CLOSE&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,0))>0,REF(LL,2),0);X:=DATE;X0:=H1,LINETHICK2;X00:=L1;XXX0:=O,LINETHICK2;XXX00:=C;XXX000:=H;XXX0000:=L;H2:=VALUEWHEN(X0>0,X0),LINETHICK2;L2:=VALUEWHEN(X00>0,X00),LINETHICK2;K1:=IFELSE(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));K2:=VALUEWHEN(K1<>0,K1);G:=IFELSE(K2=1,H2,L2);G1:=VALUEWHEN(ISLASTBAR,G);DRAWNUMBER(L>0,G1,G1,0,COLORCYAN);DRAWNUMBER(LL>0,G1,G1,0,COLORWHITE),ALIGN0,FONTSIZE30,VALIGN0;X000:=K2,LINETHICK2;TMP:=K2,LINETHICK2;W1:=X000,LINETHICK2;X0000:=OPEN-CLOSE,LINETHICK2;W2:=X0000,LINETHICK2;HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE),LINETHICK2;LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE),LINETHICK2;DRAWTEXT(CROSS(TMP,0),HH,'空'),COLORGREEN,FONTSIZE25;DRAWTEXT(CROSS(0,TMP),LL,'多'),FONTSIZE25,VALIGN0;N3:=BARSLAST(CROSS(W1>0,0.5)),LINETHICK2;N4:=BARSLAST(CROSS(W1<=0,0.5)),LINETHICK2;HH3:=IF(W1<=0,REF(HV(H,N4),N3),NULL),COLORYELLOW,DOT;LL3:=IF(W1>0,REF(LV(L,N3),N4),NULL),COLORGREEN,DOT;B:=CROSSUP(C,HH3)||REF(ISNULL(HH3),1)&&C>HH3;S:=CROSSDOWN(C,LL3)||REF(ISNULL(LL3),1)&&C<LL3;