請問如何在分線圖中以每日的開盤價當基準點
上、下個自加減15, 25, 50點並劃水平線向右延伸

直到最高、最低突破50點後，
則以箱頂(+50)、箱底(-50)重新當作新的基準點
重新上下做加減15, 25, 50點向右劃水平延伸線??

引用:

---

最初由 jely0210 發表
請問如何在分線圖中以每日的開盤價當基準點
上、下個自加減15, 25, 50點並劃水平線向右延伸

直到最高、最低突破50點後，
則以箱頂(+50)、箱底(-50)重新當作新的基準點
重新上下做加減15, 25, 50點向右劃水平延伸線??

---

原碼:


HH:=H; LL:=L;

MM:Open*(date<>ref(date,1)) linedot;

StNo:=lbound(BARSSINCE(MM>0));

for i=StNo to datacount do begin

  if MM[i]>0 then begin

    SS:=MM[i];

  end else if HH[i]-SS>50 then begin

    SS:=SS+50; MM[i]:=SS;

  end else if SS-LL[i]>50 then begin

    SS:=SS-50; MM[i]:=SS;

  end;

end;

MM:=ref(MM,barslast(MM>0));

U1:MM+15 linedot;

U2:MM+25 linedot;

U3:MM+50 linedot;

D1:MM-15 linedot; 

D2:MM-25 linedot;

D3:MM-50 linedot;

引用:

---

最初由 cgjj 發表

原碼:


HH:=H; LL:=L;

MM:Open*(date<>ref(date,1)) linedot;

StNo:=lbound(BARSSINCE(MM>0));

for i=StNo to datacount do begin

  if MM[i]>0 then begin

    SS:=MM[i];

  end else if HH[i]-SS>50 then begin

    SS:=SS+50; MM[i]:=SS;

  end else if SS-LL[i]>50 then begin

    SS:=SS-50; MM[i]:=SS;

  end;

end;

MM:=ref(MM,barslast(MM>0));

U1:MM+15 linedot;

U2:MM+25 linedot;

U3:MM+50 linedot;

D1:MM-15 linedot; 

D2:MM-25 linedot;

D3:MM-50 linedot;

---

引用:

---

最初由 jely0210 發表

版主如果方便的話，可以解釋程式中這幾行的意義嗎？看不太懂說

MM:Open*(date<>ref(date,1)) linedot;
StNo:=lbound(BARSSINCE(MM>0));
for i=StNo to datacount do begin
if MM[i]>0 then begin
SS:=MM[i];
end else if HH[i]-SS>50 then begin
SS:=SS+50; MM[i]:=SS;
end else if SS-LL[i]>50 then begin
SS:=SS-50; MM[i]:=SS;
end;
end;
MM:=ref(MM,barslast(MM>0));

---

引用:

---

最初由 jely0210 發表
另外請問
1. 如果跨日時，線段想要不連續的話該如何修改？

---

原碼:


HH:=H; LL:=L;

CK:=date<>ref(date,1);

MM:Open*(CK) linethick COLORYELLOW;

StNo:=lbound(BARSSINCE(MM>0));

for i=StNo to datacount do begin

  if MM[i]>0 then begin

    SS:=MM[i];

  end else if HH[i]-SS>50 then begin

    SS:=SS+50; MM[i]:=SS;

  end else if SS-LL[i]>50 then begin

    SS:=SS-50; MM[i]:=SS;

  end;

end;

MM:=ref(MM,barslast(MM>0));

U1:MM+15 linethick0;

U2:MM+25 linethick0;

U3:MM+50 linethick0;

D1:MM-15 linethick0; 

D2:MM-25 linethick0;

D3:MM-50 linethick0;

PARTLINE(CK=0,MM) linedot COLORYELLOW;

PARTLINE(CK=0,U1) linedot COLORFF00FF;

PARTLINE(CK=0,U2) linedot COLORFF88FF;

PARTLINE(CK=0,U3) linedot COLORFFCCFF;

PARTLINE(CK=0,D1) linedot COLOR00FF00;

PARTLINE(CK=0,D2) linedot COLOR88FF00;

PARTLINE(CK=0,D3) linedot COLORCCFF00;

引用:

---

最初由 jely0210 發表
2. 如果要高低點超過20點後
才出現U2、U3 、D2 、D3這幾條線的話，又該如何修改？

---

引用:

---

最初由 cgjj 發表
'高低點' 是指什麼的高低點?
請明確定義, 謝謝!

---

引用:

---

最初由 jely0210 發表
謝謝版主大力的幫忙！

高低點指的是
每天的盤中的高點是否有突破基準點+20點後
才出現U2、U3 這幾條線

盤中的低點是否有跌破基準點-20點後
才出現D2 、D3這幾條線

---

原碼:


HH:=H; LL:=L;

CK:=date<>ref(date,1);

MM:Open*(CK) linethick COLORYELLOW;

SP:=barslast(CK); SM:=ref(MM,SP);

CKU:=HHV(H,SP+1)-SM>20;

CKU:=sum(sum(CKU,SP+1)>0,2)=2;

CKD:=SM-LLV(L,SP+1)>20;

CKD:=sum(sum(CKD,SP+1)>0,2)=2;

StNo:=lbound(BARSSINCE(MM>0));

for i=StNo to datacount do begin

  if MM[i]>0 then begin

    SS:=MM[i];

  end else if HH[i]-SS>50 then begin

    SS:=SS+50; MM[i]:=SS;

  end else if SS-LL[i]>50 then begin

    SS:=SS-50; MM[i]:=SS;

  end;

end;

MM:=ref(MM,barslast(MM>0))COLORYELLOW;

U1:MM+15 linethick0 COLORFF00FF;

U2:MM+25 linethick0 COLORFF88FF;

U3:MM+50 linethick0 COLORFFCCFF;

D1:MM-15 linethick0 COLOR00FF00; 

D2:MM-25 linethick0 COLOR88FF00;

D3:MM-50 linethick0 COLORCCFF00;

PARTLINE(CK=0,MM) linedot COLORYELLOW;

PARTLINE(CKU,U1) linedot COLORFF00FF;

PARTLINE(CKU,U2) linedot COLORFF88FF;

PARTLINE(CKU,U3) linedot COLORFFCCFF;

PARTLINE(CKD,D1) linedot COLOR00FF00;

PARTLINE(CKD,D2) linedot COLOR88FF00;

PARTLINE(CKD,D3) linedot COLORCCFF00;