奇狐社區論壇 - 請問這個公式怎麼寫?

奇狐社區論壇 (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=13664)

由 awhtox 在 2010-05-23 23:17 發表:

請問這個公式怎麼寫?

請問版主和各位一個公式畫線的寫法:

(1)畫線的條件:
當收盤價突破 ma5 時cross(c,ma5)，取該根k的最高價 H，開始向右一直畫線，此時的走勢都在C>ma5,，直到當未來的K線的收盤價突破並站上畫線時，則畫線暫時結束，再繼續以此突破k的最高價h，再繼續向右一直畫線。

(2)結束畫線條件:
如果未來的K線的收盤價無法再突破之前畫線，而其中有K線的收盤價 cross(ma5,c)，則結束畫線。

之前有這篇參考 http://www.chiefox.com.tw/bbs/showt...hlight=%B5e%BDu

但還是無法寫出，請版主和各位幫忙了，感謝

由 peter109 在 2010-05-24 14:05 發表:

估計可能不是您要的
但還是寫下

M5:MA(C,5);

X01:=CROSS(C,M5) AND C>M5;
X02:=BARSLAST(X01);
X03:=REF(H,X02);
X04:=CROSS(C,X03) AND C>X03;
X05:=BARSLAST(X04);
X06:=REF(H,X05);
X07:IF(X02>X05,X06,X03),LINETHICK;

PARTLINE(C>=X07,X07);

__________________
至誠能勝天下至偽
至拙能勝天下至巧

由 awhtox 在 2010-05-25 02:04 發表:

感謝 peter109 的幫忙。

不過，這公式並不是我想要表達的，還是謝謝 peter109 。
再煩請版主幫忙了，感謝。

由 cgjj 在 2010-05-25 12:42 發表:

回覆: 請問這個公式怎麼寫?

引用:
最初由 awhtox 發表
請問版主和各位一個公式畫線的寫法:

(1)畫線的條件:
當收盤價突破 ma5 時cross(c,ma5)，取該根k的最高價 H，開始向右一直畫線，此時的走勢都在C>ma5,，直到當未來的K線的收盤價突破並站上畫線時，則畫線暫時結束，再繼續以此突破k的最高價h，再繼續向右一直畫線。

(2)結束畫線條件:
如果未來的K線的收盤價無法再突破之前畫線，而其中有K線的收盤價 cross(ma5,c)，則結束畫線。

之前有這篇參考 http://www.chiefox.com.tw/bbs/showt...hlight=%B5e%BDu

但還是無法寫出，請版主和各位幫忙了，感謝

看看是否為您要的結果

原碼:


MA5:=MA(C,10);

LB:=lbound(cross(MA5,C));

CK:=C>MA5; HH:=H; CC:=C;

DH:=C*0;

for i=LB to datacount do begin

  if CK[i]=1 then begin

    if CK[i-1]=0 then begin

      SH:=HH[i];

    end else begin

      if CC[i]>SH then SH:=HH[i];

    end;

    DH[i]:=SH;

  end;

end;

PARTLINE(sum(DH>0,2)=2,DH);

由 awhtox 在 2010-05-26 01:45 發表:

回覆: 回覆: 請問這個公式怎麼寫?

引用:

最初由 cgjj 發表
看看是否為您要的結果

原碼:


MA5:=MA(C,10);

LB:=lbound(cross(MA5,C));

CK:=C>MA5; HH:=H; CC:=C;

DH:=C*0;

for i=LB to datacount do begin

  if CK[i]=1 then begin

    if CK[i-1]=0 then begin

      SH:=HH[i];

    end else begin

      if CC[i]>SH then SH:=HH[i];

    end;

    DH[i]:=SH;

  end;

end;

PARTLINE(sum(DH>0,2)=2,DH);

請問版主，上述的公式代入後，沒有圖形，卻出現「指標數組下標越界或超出有效數據區間」的訊息，我把k線的數目調入最大值，
還是一樣的訊息，無法解決，再煩請版主幫忙了，謝謝版主。

由 cgjj 在 2010-05-26 09:40 發表:

回覆: 回覆: 回覆: 請問這個公式怎麼寫?

引用:
最初由 awhtox 發表
請問版主，上述的公式代入後，沒有圖形，卻出現「指標數組下標越界或超出有效數據區間」的訊息，我把k線的數目調入最大值，
還是一樣的訊息，無法解決，再煩請版主幫忙了，謝謝版主。:)

//修正後的

原碼:


MA5:=MA(C,10);

LB:=lbound(cross(MA5,C));

CK:=C>MA5 or barpos=0; HH:=H; CC:=C;

DH:=C*0;

for i=LB to datacount do begin

  if CK[i]=1 then begin

    if CK[i-1]=0 then begin

      SH:=HH[i];

    end else begin

      if CC[i]>SH then SH:=HH[i];

    end;

    DH[i]:=SH;

  end;

end;

PARTLINE(sum(DH>0,2)=2,DH);

由 awhtox 在 2010-05-27 02:54 發表:

謝謝版主修正的公式，這是我想表達的公式，謝謝。

由 awhtox 在 2010-12-27 01:47 發表:

回覆: 回覆: 回覆: 回覆: 請問這個公式怎麼寫?

引用:

最初由 cgjj 發表
//修正後的

原碼:


MA5:=MA(C,10);

LB:=lbound(cross(MA5,C));

CK:=C>MA5 or barpos=0; HH:=H; CC:=C;

DH:=C*0;

for i=LB to datacount do begin

  if CK[i]=1 then begin

    if CK[i-1]=0 then begin

      SH:=HH[i];

    end else begin

      if CC[i]>SH then SH:=HH[i];

    end;

    DH[i]:=SH;

  end;

end;

PARTLINE(sum(DH>0,2)=2,DH);

請問版主，我想再增加一個自行計算的X值，畫線條件也是跟
PARTLINE(sum(DH>0,2)=2,DH) 一樣，當DH的值有發生觸動的條件
時，X值也跟著畫線，結速畫線也跟DH一樣結束，請問該如合整合到公式中，請版主幫助，謝謝。

由 cgjj 在 2010-12-27 10:16 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 請問這個公式怎麼寫?

引用:
最初由 awhtox 發表
請問版主，我想再增加一個自行計算的X值，畫線條件也是跟
PARTLINE(sum(DH>0,2)=2,DH) 一樣，當DH的值有發生觸動的條件
時，X值也跟著畫線，結速畫線也跟DH一樣結束，請問該如合整合到公式中，請版主幫助，謝謝。

//尾端加入
PARTLINE(sum(DH>0,2)=2,X);

由 awhtox 在 2010-12-28 02:31 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 請問這個公式怎麼寫?

引用:
最初由 cgjj 發表
//尾端加入
PARTLINE(sum(DH>0,2)=2,X);

版主，您好:
不好意思，可能是我表達的方式不夠，//尾端加入
PARTLINE(sum(DH>0,2)=2,X);並不是我想表達的線型。

我這次以台泥的日線圖為例，假設我設定的 X:=H+ABS(C-O);

圖裏的公式為:

MA5:MA(C,10);
LB:=lbound(cross(MA5,C));
CK:=C>MA5 or barpos=0; HH:=H; CC:=C;
DH:=C*0;
for i=LB to datacount do begin
if CK[i]=1 then begin
if CK[i-1]=0 then begin
SH:=HH[i];
end else begin
if CC[i]>SH then SH:=HH[i];
end;
DH[i]:=SH;
end;
end;
PARTLINE(sum(DH>0,2)=2,DH);
X:=H+ABS(C-O);
PARTLINE(sum(DH>0,2)=2,X);

台泥在12/3符合上述條件，開始畫DH線，這天的X值是32.8也開始畫線。
12/2，符合DH的條件也畫DH線，這天的X值是 32.95也跟著畫線。
12/3，12/6 沒有符合觸動 DH線的條件，所以DH線維持前一個值，而X值也希望維持畫32.95的線。
12/7，12/8，都符合DH的條件又開始畫線，而X值也希望跟著畫線。
12/9，12/10，12/13 沒有符合觸動 DH線的條件，所以DH線維持前一個值，而X值也希望維持畫34.6的線。
直到 12/14 符合DH結束畫的條件，而X值也跟著結束畫線。

所以在附上的圖檔中，粉紅色的線是尾端加入PARTLINE(sum(DH>0,2)=2,X);並不是我想表達的線型。而手
畫粗綠色線，才是我想表達的X值的線。

再請版主能夠幫忙，謝謝版主。

由 cgjj 在 2010-12-28 10:28 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 請問這個公式怎麼寫?

引用:
最初由 awhtox 發表
版主，您好:
不好意思，可能是我表達的方式不夠，//尾端加入
PARTLINE(sum(DH>0,2)=2,X);並不是我想表達的線型。

我這次以台泥的日線圖為例，假設我設定的 X:=H+ABS(C-O);

圖裏的公式為:

MA5:MA(C,10);
LB:=lbound(cross(MA5,C));
CK:=C>MA5 or barpos=0; HH:=H; CC:=C;
DH:=C*0;
for i=LB to datacount do begin
if CK[i]=1 then begin
if CK[i-1]=0 then begin
SH:=HH[i];
end else begin
if CC[i]>SH then SH:=HH[i];
end;
DH[i]:=SH;
end;
end;
PARTLINE(sum(DH>0,2)=2,DH);
X:=H+ABS(C-O);
PARTLINE(sum(DH>0,2)=2,X);

台泥在12/3符合上述條件，開始畫DH線，這天的X值是32.8也開始畫線。
12/2，符合DH的條件也畫DH線，這天的X值是 32.95也跟著畫線。
12/3，12/6 沒有符合觸動 DH線的條件，所以DH線維持前一個值，而X值也希望維持畫32.95的線。
12/7，12/8，都符合DH的條件又開始畫線，而X值也希望跟著畫線。
12/9，12/10，12/13 沒有符合觸動 DH線的條件，所以DH線維持前一個值，而X值也希望維持畫34.6的線。
直到 12/14 符合DH結束畫的條件，而X值也跟著結束畫線。

所以在附上的圖檔中，粉紅色的線是尾端加入PARTLINE(sum(DH>0,2)=2,X);並不是我想表達的線型。而手
畫粗綠色線，才是我想表達的X值的線。

再請版主能夠幫忙，謝謝版主。

原碼:


MA5:=MA(C,10);

LB:=lbound(cross(MA5,C));

CK:=C>MA5 or barpos=0; HH:=H; CC:=C;

XX:=H+ABS(C-O);

DH:=C*0; DX:=DH;

for i=LB to datacount do begin

  if CK[i]=1 then begin

    if CK[i-1]=0 then begin

      SH:=HH[i]; SX:=XX[i];

    end else begin

      if CC[i]>SH then begin

        SH:=HH[i]; SX:=XX[i];

      end;

    end;

    DH[i]:=SH; DX[i]:=SX;

  end;

end;

PARTLINE(sum(DH>0,2)=2,DH);

PARTLINE(sum(DH>0,2)=2,DX);

由 awhtox 在 2010-12-28 10:46 發表:

回覆: 請問這個公式怎麼寫?

引用:

最初由 cgjj 發表

原碼:


MA5:=MA(C,10);

LB:=lbound(cross(MA5,C));

CK:=C>MA5 or barpos=0; HH:=H; CC:=C;

XX:=H+ABS(C-O);

DH:=C*0; DX:=DH;

for i=LB to datacount do begin

  if CK[i]=1 then begin

    if CK[i-1]=0 then begin

      SH:=HH[i]; SX:=XX[i];

    end else begin

      if CC[i]>SH then begin

        SH:=HH[i]; SX:=XX[i];

      end;

    end;

    DH[i]:=SH; DX[i]:=SX;

  end;

end;

PARTLINE(sum(DH>0,2)=2,DH);

PARTLINE(sum(DH>0,2)=2,DX);

謝謝版主的再次幫助，線型正是我想表達的，感恩。

全部時間均為台灣時間, 現在時間為05:49

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