奇狐社區論壇 - 請教劃水平線向右延長

總頁數 (5): « 第一頁 ... « 2 3 [4] 5 »
在這個頁面顯示本主題全部的 61 個文章

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 請教劃水平線向右延長 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=19056)

由 a9681054 在 2015-02-03 13:55 發表:

版主你好，
補上需求圖片做比較，圖下半部是我的需求，請版主協助，謝謝~

__________________
chiu

由 cgjj 在 2015-02-04 10:07 發表:

引用:
最初由 a9681054 發表
版主你好，
補上需求圖片做比較，圖下半部是我的需求，請版主協助，謝謝~

將
PARTLINE(S1,多頭關卡) COLORred, LINETHICK2;
PARTLINE(S2,空頭關卡) COLORcyan, LINETHICK2;

改為
PARTLINE(S1,多頭關卡) COLORred, LINETHICK2;
PARTLINE(S2,空頭關卡) COLORcyan, LINETHICK2;
PARTLINE(S1 and islastbar,多頭關卡) COLORred LINETHICK2 SHIFT1;
PARTLINE(S2 and islastbar,空頭關卡) COLORcyan LINETHICK2 SHIFT1;

由 a9681054 在 2015-02-05 08:55 發表:

版主你好，
可以了，感謝你的幫忙~

__________________
chiu

由 Markchu7 在 2015-10-25 03:31 發表:

請問如何求:
尚未碰觸之'最低多頭關卡' 及 '最高空頭關卡'?
感謝!

由 cgjj 在 2015-10-26 11:29 發表:

引用:
最初由 Markchu7 發表
請問如何求:
尚未碰觸之'最低多頭關卡' 及 '最高空頭關卡'?
感謝!

UM:=barslast(barpos+DW1=datacount+1);
UM:多頭關卡[datacount-UM[datacount]];
DM:=barslast(barpos+DW2=datacount+1);
DM:空頭關卡[datacount-DM[datacount]];

由 Markchu7 在 2015-10-26 13:04 發表:

感謝!

由 Markchu7 在 2015-10-27 10:34 發表:

請問:出現'指標數組下限越界.......',該如何處理?
謝謝!

由 cgjj 在 2015-10-27 10:44 發表:

引用:
最初由 Markchu7 發表
請問:出現'指標數組下限越界.......',該如何處理?
謝謝!

您跑哪個商品哪個週期? 程式有無修改過?

由 Markchu7 在 2015-10-27 12:17 發表:

跑FITX1!修改如下:
MaxKBar:=IF(DATATYPE=1,1500,IF(DATATYPE=2,1200,600)); //僅畫最近n根K棒, 零則畫全部
請指導!謝謝!

由 cgjj 在 2015-10-27 12:31 發表:

引用:
最初由 Markchu7 發表
跑FITX1!修改如下:
MaxKBar:=IF(DATATYPE=1,1500,IF(DATATYPE=2,1200,600)); //僅畫最近n根K棒, 零則畫全部
請指導!謝謝!

K棒數給太少，可能會有 "無未碰觸" 的情況
以下已修正 "無未碰觸" 的情況

原碼:CC:=C; HH:=H; LL:=L;

//MOON
Var4:=(LOW+HIGH+CLOSE)/3;
操作:= MA(Var4,5),colorGREEN,linethick2;
多頭關卡:HHV(操作,21) COLORBLACK,linethick2;
空頭關卡:LLV(操作,10) COLORBLACK,linethick2;

//劃水平線
S1:=多頭關卡=REF(多頭關卡,1);
S2:=空頭關卡=REF(空頭關卡,1);
PARTLINE(S1,多頭關卡) COLORred, LINETHICK2;
PARTLINE(S2,空頭關卡) COLORcyan, LINETHICK2;


R1:=S1 and refx(S1,1)=0;
R2:=S2 and refx(S2,1)=0;

MaxKBar:=0; //僅畫最近n根K棒, 零則畫全部
DW1:=C*0; DW2:=C*0;
StNo:=datacount-MaxKBar+1;
if StNo<lbound(R1) or MaxKBar=0 then StNo:=lbound(R1);
for i= StNo to datacount do begin
  if R1[i] then begin
    for j=i+1 to datacount do begin
      if HH[j]>多頭關卡[i] then begin
        DW1[i]:=j-i; break;
      end;
    end;
    if j>datacount then DW1[i]:=j-i;
  end;
end;
StNo:=datacount-MaxKBar+1;
if StNo<lbound(R2) or MaxKBar=0 then StNo:=lbound(R2);
for i= StNo to datacount do begin
  if R2[i] then begin
    for j=i+1 to datacount do begin
      if LL[j]<空頭關卡[i] then begin
        DW2[i]:=j-i; break;
      end;
    end;
    if j>datacount then DW2[i]:=j-i;
  end;
end;

DRAWSL(DW1,多頭關卡,0,DW1,3) COLORRED pxdn2;
DRAWSL(DW2 ,空頭關卡,0,DW2,3) COLORCYAN pxdn2;
UM:=barslast(barpos+DW1=datacount+1);
if lbound(UM)>0 then begin
  UM:多頭關卡[datacount-UM[datacount]];
end;
DM:=barslast(barpos+DW2=datacount+1);
if lbound(DM)>0 then begin
  DM:空頭關卡[datacount-DM[datacount]];
end;

由 Markchu7 在 2015-10-27 12:40 發表:

感謝協助!再去試試!

由 Markchu7 在 2015-10-29 23:29 發表:

當無碰觸現象發生時,UM,DM是像貼圖中一樣是空值嗎?

由 cgjj 在 2015-10-30 09:03 發表:

引用:
最初由 Markchu7 發表
當無碰觸現象發生時,UM,DM是像貼圖中一樣是空值嗎?

測試過並無此現象唷
請確認是否有更動過程式碼

由 Markchu7 在 2015-10-30 10:27 發表:

程式未更動,載入K棒數量為3100!

由 cgjj 在 2015-10-30 10:53 發表:

引用:
最初由 Markchu7 發表
程式未更動,載入K棒數量為3100!

正常的
那是因為用3100根跑時
無未碰觸之最高空頭關卡
所以 DM 為無效變數(無輸出)

全部時間均為台灣時間, 現在時間為08:35

總頁數 (5): « 第一頁 ... « 2 3 [4] 5 »
在這個頁面顯示本主題全部的 61 個文章