任三線糾結範例(參數請自行調整)

原碼:
N:=3;
M1:=MA(C,10);
M2:=MA(C,20);
M3:=MA(C,30);
M4:=MA(C,40);
M5:=MA(C,50);
VARIABLE:MM[5]:=0;
MM[1]:=M1[datacount];
MM[2]:=M2[datacount];
MM[3]:=M3[datacount];
MM[4]:=M4[datacount];
MM[5]:=M5[datacount];
x:=SORT(MM,0,1,5);
for i= 1 to 5-N+1 do begin
UU:=MM[i]*1.0005; SS:=1;
for j=i+1 to i+n-1 do begin
SS:=SS+(MM[j]<=UU and MM[j]<>0);
end;
if SS=N then break;
end;
選中:SS=N;

請問版主, 可以求得剛突破糾結期間最高價嗎?
謝謝 !!

引用:

---

最初由 tsh 發表
任三線糾結範例(參數請自行調整)
....................................................
請問版主, 可以求得剛突破糾結期間最高價嗎?
謝謝 !!

---

如圖

tsh 附帶上了此圖片:

引用:

---

最初由 tsh 發表
如圖

---

那請問版主這個應該怎樣寫? 麻煩版主，謝謝！！

引用:

---

最初由 tsh 發表
那請問版主這個應該怎樣寫? 麻煩版主，謝謝！！

---

原碼:
N:=3;
M1:MA(C,10);
M2:MA(C,20);
M3:MA(C,30);
M4:MA(C,40);
M5:MA(C,50);
VARIABLE:MM[5]:=0;
StNo:=max(max(max(lbound(M1),lbound(M2)),max(lbound(M3),lbound(M4))),lbound(M5));
XX:=0;
for k=datacount downto StNo do begin
  MM[1]:=M1[k]; MM[2]:=M2[k]; MM[3]:=M3[k]; MM[4]:=M4[k]; MM[5]:=M5[k];
  x:=SORT(MM,0,1,5);
  for i= 1 to 5-N+1 do begin
    UU:=MM[i]*1.0005; SS:=1;
    for j=i+1 to i+n-1 do begin
      SS:=SS+(MM[j]<=UU and MM[j]<>0);
    end;
    if SS=N then begin
	  XX:=K; break;
	end;
  end; 
  if XX>0 then break;
end;
SS:=0;
if XX>0 then begin
  HH:=H; XXHH:=HH[XX]; //XXHH 最近一次糾結處K棒之H價
  SS:=C>XXHH and sum(C>XXHH,barslast(barpos=XX)+1)=1;
end;
VERTLINE(barpos=XX) color777777; //最近一次糾結處
VERTLINE(SS=1) colorRED; //突破處