奇狐社區論壇 - [問題]RG中分線,三分線....

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [問題]RG中分線,三分線.... (http://www.chiefox.com.tw/bbs/showthread.php?threadid=22945)

由 Markchu7 在 2021-04-21 10:23 發表:

[問題]RG中分線,三分線....

外盤:STKINDI('','新盤差引用.外盤(0)',0,0),COLORRED,LINETHICK0;
內盤:STKINDI('','新盤差引用.內盤(1)',0,0),COLORBLUE,LINETHICK0;
盤差:外盤-內盤,COLOR000000,LINETHICK;
U0AH:HHV(EMA(HHV(盤差,2),5),25),COLORBLUE,LINETHICK;
U0AL:LLV(EMA(LLV(盤差,2),5),25),COLORRED,LINETHICK;
RG:=U0AH-U0AL;

規則:
當RG<1000*2,不畫線!
當RG>1000*2 AND RG<1000*3,畫一條中分線將RG均分為上下二部分!
當RG>1000*3 AND RG<1000*ˋ4,畫二條中分線將RG均分為上中下三部分!
當RG>1000*4 AND RG<1000*5,畫三條中分線將RG均分為四部分!....
當RG>1000*4 AND RG<1000*5降回RG>1000*3 AND RG<1000*ˋ4,回復畫二條中分線將RG均分為上中下三部分!
以此類推....
請協助,謝謝!

由 cgjj 在 2021-04-21 10:47 發表:

回覆: [問題]RG中分線,三分線....

引用:
最初由 Markchu7 發表
外盤:STKINDI('','新盤差引用.外盤(0)',0,0),COLORRED,LINETHICK0;
內盤:STKINDI('','新盤差引用.內盤(1)',0,0),COLORBLUE,LINETHICK0;
盤差:外盤-內盤,COLOR000000,LINETHICK;
U0AH:HHV(EMA(HHV(盤差,2),5),25),COLORBLUE,LINETHICK;
U0AL:LLV(EMA(LLV(盤差,2),5),25),COLORRED,LINETHICK;
RG:=U0AH-U0AL;

規則:
當RG<1000*2,不畫線!
當RG>1000*2 AND RG<1000*3,畫一條中分線將RG均分為上下二部分!
當RG>1000*3 AND RG<1000*ˋ4,畫二條中分線將RG均分為上中下三部分!
當RG>1000*4 AND RG<1000*5,畫三條中分線將RG均分為四部分!....
當RG>1000*4 AND RG<1000*5降回RG>1000*3 AND RG<1000*ˋ4,回復畫二條中分線將RG均分為上中下三部分!
以此類推....
請協助,謝謝!

您定義 RG:=U0AH-U0AL;
這是一條線，不是一個區間，無法劃分!

由 Markchu7 在 2021-04-21 11:01 發表:

不好意思!不太會表述!應該說是U0AH~U0AL這個區間帶寬畫線!
謝謝!

由 cgjj 在 2021-04-21 11:20 發表:

引用:
最初由 Markchu7 發表
不好意思!不太會表述!應該說是U0AH~U0AL這個區間帶寬畫線!
謝謝!

無法畫不確定的N條線
請給區分的上限數!

由 Markchu7 在 2021-04-21 11:39 發表:

上限是5條,感謝!

由 cgjj 在 2021-04-21 13:12 發表:

引用:
最初由 Markchu7 發表
上限是5條,感謝!

原碼:外盤:STKINDI('','新盤差引用.外盤(0)',0,0),COLORRED,LINETHICK0;
內盤:STKINDI('','新盤差引用.內盤(1)',0,0),COLORBLUE,LINETHICK0;
盤差:外盤-內盤,COLOR000000,LINETHICK;
U0AH:HHV(EMA(HHV(盤差,2),5),25),COLORBLUE,LINETHICK1;
U0AL:LLV(EMA(LLV(盤差,2),5),25),COLORRED,LINETHICK1;
RG:U0AH-U0AL linethick;
L1:=RG*0+999999; L2:=L1; L3:=L1; L4:=L1;
for i=lbound(RG) to datacount do begin
  ST:=U0AL[i];
  if RG[i]>5000 then begin
    SP:=RG[i]/5; L4[i]:=ST+SP*4; L3[i]:=ST+SP*3; L2[i]:=ST+SP*2; L1[i]:=ST+SP*1;
  end else if RG[i]>4000 then begin
    SP:=RG[i]/4; L3[i]:=ST+SP*3; L2[i]:=ST+SP*2; L1[i]:=ST+SP*1;
  end else if RG[i]>3000 then begin
    SP:=RG[i]/3; L2[i]:=ST+SP*2; L1[i]:=ST+SP*1;
  end else if RG[i]>2000 then begin
    SP:=RG[i]/2; L1[i]:=ST+SP*1;
  end;
end;
PARTLINE(ALL(L1<>999999,2),L1) coloryellow;
PARTLINE(ALL(L2<>999999,2),L2) coloryellow;
PARTLINE(ALL(L3<>999999,2),L3) coloryellow;
PARTLINE(ALL(L4<>999999,2),L4) coloryellow;

由 Markchu7 在 2021-04-21 13:38 發表:

感謝協助!

全部時間均為台灣時間, 現在時間為13:50

在這個頁面顯示本主題全部的 7 個文章