T:=MA((MIN(L,4)-MAX(C,4))/(MAX(H,5)-MAX(C,5))*100,2);
s1:=2*T-1.5*T;
S2:=T-0.4*T;
RUNMODE:0;
variable:G=0;
VARIABLE:Q=0;
if (T>REF(S1,1)) then
begin
G:=1;
End
If (T<REF(S2,1)) then
begin
G:=-1;
end
r1:=ref(s2,1);
q1:=ref(q,1);
if G>0 THEN BEGIN
if S2<r1 THEN
BEGIN
S2:=R1;
Q:=S2;
END
if Q<q1 THEN
BEGIN
Q:=q1;
END
END
if g<=0 then begin
if (S1>r1) THEN
BEGIN
S1:=R1;
Q:=S1;
END
if (Q>q1) THEN
BEGIN Q:=q1;
END
end
TDRAW:T,COLORWHITE;
QDRAW:Q,COLORBLUE;
平線說明 g<=0 和 (S1>r1) 這兩個條件不成立,導致q值不變化,是正常的。