K:=5;T := BAAST(DISPSTATUS=1)+1;A := DISPSTATUS=2;HH := HHV(H, T);LL := LLV(L, T);HL := HH-LL;wH := HHVBARS(H, T);wL := LLVBARS(L, T);KK := wH-wL;mHL := HH-HL*0.5;if K=1 then beginHL191 := (HH-LL)*0.191;HL382 := (HH-LL)*0.382;HL618 := (HH-LL)*0.618;HL809 := (HH-LL)*0.809;if KK<0 then begina1 := HH-HL191;a2 := HH-HL382;a3 := HH-HL618;a4 := HH-HL809;end else begina1 := LL+HL191;a2 := LL+HL382;a3 := LL+HL618;a4 := LL+HL809;endendif k=1 then beginHL125 := (HH-LL)*0.125;HL := (HH-LL)*0.25;HL375 :=