Sb:=hour()<>ref(hour(),-1);
hh:=ValueWhen(1,Sb,Ref(HighestSince(1,Sb,H),-1));
hl:=ValueWhen(1,Sb,Ref(LowestSince(1,Sb,L),-1));
hc:=ValueWhen(1,Sb,Ref(C,-1));
x:=(hh+hl+hc)/3;
Q1:=Input("PERIOD",1,1000,3);
Q2:=Input("PERIOD",0.001,100,1.2);
Q3:=Q2/100;
p1:=2/(Q1+1);
Q4:=If(Sb,(p1*x)+((1-p1)*PREV),PREV);
Q5:=If((Q4*(1-Q3))>PREV,Q4*(1-Q3),If((Q4*(1+Q3))<PREV,Q4*(1+Q3),PREV));
Int(Q5/0.025+0.50)*0.025