AS1:=IF(YEAR>=2038 AND MONTH>=1,0,1);
AS2:=REF(LOW,1)*AS1;
AD2:=REF(H,1)*AS1;
AS3:=SMA(ABS(LOW-AS2),3,1)/SMA(MAX(LOW-AS2,0),3,1)*100*AS1;
AD3:=SMA(ABS(H-AD2),3,1)/SMA(MAX(H-AD2,0),3,1)*100*AS1;
AS4:=EMA(IF(CLOSE*1.3,AS3*10,AS3/10),3)*AS1;
AD4:=EMA(IF(CLOSE*1.3,AD3*10,AD3/10),3)*AS1;
AS5:=LLV(LOW,30)*AS1;
AD5:=HHV(H,30)*AS1;
AS6:=HHV(AS4,30)*AS1;
AD6:=LLV(AD4,30)*AS1;
AS7:=IF(MA(CLOSE,58),1,0)*AS1;
AD7:=IF(MA(CLOSE,58),1,0)*AS1;
AS8:=EMA(IF(LOW<=AS5,(AS4+AS6*2)/2,0),3)/618*AS7*AS1;
AD8:=EMA(IF(H>=AD5,(AD4+AD6*2)/2,0),3)/618*AD7*AS1;
A:IF(AS8>100,100,AS8)*AS1,colorwhite;
A1:=IF(AD8>50,50,AD8)*AS1;
STICKLINE(A>-150,0,A,8,0),colorred;
STICKLINE(A1>0,0,15*A1,8,0),colorgreen;
