{30分钟判市}
tj1:=day<>ref(day,1) or barpos=1;
qj1:=barslast(tj1)+1;
ss0:=backset(islastbar,qj1);
ss1:=filter(ss0>ref(ss0,1),qj1);
hh1:=ref(h,barslast(ss1>refx(ss1,1)));
ll1:=ref(l,barslast(ss1>refx(ss1,1)));
qj2:=barslast(tj1);
ss02:=backset(islastbar,qj2);
ss12:=filter(ss02>ref(ss02,1),qj2);
hh12:=ref(h,barslast(ss12>refx(ss12,1)));
ll12:=ref(l,barslast(ss12>refx(ss12,1)));
qj3:=barslast(tj1)-1;
ss03:=backset(islastbar,qj3);
ss13:=filter(ss03>ref(ss03,1),qj3);
hh13:=ref(h,barslast(ss13>refx(ss13,1)));
ll13:=ref(l,barslast(ss13>refx(ss13,1)));
qj4:=barslast(tj1)-2;
ss04:=backset(islastbar,qj4);
ss14:=filter(ss04>ref(ss04,1),qj4);
hh14:=ref(h,barslast(ss14>refx(ss14,1)));
ll14:=ref(l,barslast(ss14>refx(ss14,1)));
qj5:=barslast(tj1)-3;
ss05:=backset(islastbar,qj5);
ss15:=filter(ss05>ref(ss05,1),qj5);
hh15:=ref(h,barslast(ss15>refx(ss15,1)));
ll15:=ref(l,barslast(ss15>refx(ss15,1)));
qj6:=barslast(tj1)-4;
ss06:=backset(islastbar,qj6);
ss16:=filter(ss06>ref(ss06,1),qj6);
hh16:=ref(h,barslast(ss16>refx(ss16,1)));
ll16:=ref(l,barslast(ss16>refx(ss16,1)));
qj7:=barslast(tj1)-5;
ss07:=backset(islastbar,qj7);
ss17:=filter(ss07>ref(ss07,1),qj7);
hh17:=ref(h,barslast(ss17>refx(ss17,1)));
ll17:=ref(l,barslast(ss17>refx(ss17,1)));
qj8:=barslast(tj1)-6;
ss08:=backset(islastbar,qj8);
ss18:=filter(ss08>ref(ss08,1),qj8);
hh18:=ref(h,barslast(ss18>ref(ss18,1)));
ll18:=ref(l,barslast(ss18>ref(ss18,1)));

maxh:=max(hh1,max(hh12,max(hh1