奇狐社區論壇 - [問題]如何取? (排序應用範例)

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

由 Markchu7 在 2010-11-11 10:27 發表:

[問題]如何取?

請教總版主:有上2,上1,中,下1,下2 共五條水平線
壓力=要取收盤價上方最小值的那條線
支撐=要取收盤價下方最大值的那條線
請問要如取?謝謝!

由 cgjj 在 2010-11-11 10:35 發表:

回覆: [問題]如何取?

引用:
最初由 Markchu7 發表
請教總版主:有上2,上1,中,下1,下2 共五條水平線
壓力=要取收盤價上方最小值的那條線
支撐=要取收盤價下方最大值的那條線
請問要如取?謝謝!

您那五條有無可能?
收盤價上方沒有線或收盤價下方沒有線呢?

由 Markchu7 在 2010-11-11 12:18 發表:

其實是七條線啦!不敢太麻煩就說是五條線源碼如下:
當然也有可能行情激烈超出線的範圍,我會去算出漲跌幅度,把線加到應有的數目,感謝總版主的細心提醒!
VARA:=IF((C>150),91.3,0.913),LINETHICK,COLORYELLOW;
下R:=INTPART(CLOSE/VARA)*VARA,LINETHICK,COLORGREEN,PRECISION0;
上R:=(下R+VARA),LINETHICK,COLORYELLOW,PRECISION0;
平R:=((下R+上R)/2),LINETHICK,COLORWHITE,PRECISION0;
平R:=REF(平R,BARSLAST(CK)),LINETHICK,COLORYELLOW,PRECISION0;
上3:=平R+VARA*3/2,LINETHICK,COLORYELLOW,PRECISION0;
上2:=平R+VARA,LINETHICK,COLORYELLOW,PRECISION0;
上1:=平R+VARA/2,LINETHICK,COLORYELLOW,PRECISION0;
平:=平R,LINETHICK,COLORYELLOW,PRECISION0;
下1:=平R-VARA/2,LINETHICK,COLORYELLOW,PRECISION0;
下2:=平R-VARA,LINETHICK,COLORYELLOW,PRECISION0;
下3:=平R-VARA*3/2,LINETHICK,COLORYELLOW,PRECISION0;

由 cgjj 在 2010-11-11 16:52 發表:

以五條為例:

支撐:=-1;
支撐:=if(C>下2,下2,支撐);
支撐:=if(C>下1,下1,支撐);
支撐:=if(C>中,中,支撐);
支撐:=if(C>上1,上1,支撐);
支撐:=if(C>上2,上2,支撐);

壓力:=-1;
壓力:=if(C<上2,上2,壓力);
壓力:=if(C<上1,上1,壓力);
壓力:=if(C<中,中,壓力);
壓力:=if(C<下1,下1,壓力);
壓力:=if(C<下2,下2,壓力);

//若值為 -1, 代表沒有線符合可取

由 Markchu7 在 2010-11-11 21:29 發表:

感謝總版主解答!
那如果是會變動的均線要如何寫呢?感謝總版主!

由 cgjj 在 2010-11-12 09:05 發表:

引用:
最初由 Markchu7 發表
感謝總版主解答!
那如果是會變動的均線要如何寫呢?感謝總版主!

原碼:
N1:MA(C,3); N2:MA(C,6); N3:MA(C,9);
N4:MA(C,12); N5:MA(C,15); N6:MA(C,18);
MaxLB1:=max(lbound(N3),max(lbound(N1),lbound(N2)));
MaxLB2:=max(lbound(N6),max(lbound(N4),lbound(N5)));
MaxLB:=max(MaxLB1,MaxLB2);
BAry:=C*0; CC:=C; 
MaxNo:=6; //均線總數
if datacount<MaxNo then exit; //K棒數不足均線總數
支撐:BAry linethick; 壓力:BAry linethick;
for i = MaxLB to datacount do begin
  BAry[1]:=N1[i];  BAry[4]:=N4[i];
  BAry[2]:=N2[i];  BAry[5]:=N5[i];
  BAry[3]:=N3[i];  BAry[6]:=N6[i];
  x:=SORT(BAry,1,1,MaxNo);
  支撐[i]:=-1; 壓力[i]:=-1;
  for j = 1 to MaxNo do begin
    k:=MaxNo-j+1;
    if CC[i]>BAry[k] then 支撐[i]:=BAry[k];
    if CC[i]<BAry[j] then 壓力[i]:=BAry[j];
  end;
end;

//關鍵字:排序範例

由 Markchu7 在 2010-11-12 10:51 發表:

感謝總版主!謝謝啦!

由 sunnyjboy1960 在 2011-06-07 05:47 發表:

相關問題請教

在本問題中如代入
N1:PEAK(1,0.12,1)LINETHICK2,Coloryellow;
N2:=PEAK(1,0.12,2);N3:=PEAK(1,0.12,3);N4:=PEAK(1,0.12,4);N5:=PEAK(1,0.12,5);N6:=PEAK(1,0.12,6); ~N12;
如何只取大於C且大於最近轉折頸線之高點(如N1,N2,N3)

由 cgjj 在 2011-06-07 09:30 發表:

回覆: 相關問題請教

引用:
最初由 sunnyjboy1960 發表
在本問題中如代入
N1:PEAK(1,0.12,1)LINETHICK2,Coloryellow;
N2:=PEAK(1,0.12,2);N3:=PEAK(1,0.12,3);N4:=PEAK(1,0.12,4);N5:=PEAK(1,0.12,5);N6:=PEAK(1,0.12,6); ~N12;
如何只取大於C且大於最近轉折頸線之高點(如N1,N2,N3)

轉折頸線是指那一條線呢?

由 sunnyjboy1960 在 2011-06-07 10:18 發表:

問題續

本圖中粗藍線為使用排序後取得之最近壓力，黃圈為近期頸線高點，但是只要是過前高之後，之前的壓力線都失去作用，只有近期高點或是更遠的更高點才是有效壓力，試過使用更多的轉折1~12點，但是沒有想出更好更快的程式寫法，請總版主指點一下。

由 cgjj 在 2011-06-07 11:35 發表:

回覆: 問題續

引用:
最初由 sunnyjboy1960 發表
本圖中粗藍線為使用排序後取得之最近壓力，黃圈為近期頸線高點，但是只要是過前高之後，之前的壓力線都失去作用，只有近期高點或是更遠的更高點才是有效壓力，試過使用更多的轉折1~12點，但是沒有想出更好更快的程式寫法，請總版主指點一下。

很抱歉
您所給的資訊不足, 此問題有看沒有懂
麻煩請重新描述問題, 謝謝

由 sunnyjboy1960 在 2011-06-07 12:50 發表:

問題續2

N1:=PEAK(1,0.12,1);
N2:=PEAK(1,0.12,2);
N3:=PEAK(1,0.12,3);
N4:=PEAK(1,0.12,4);
N5:=PEAK(1,0.12,5);
N6:=PEAK(1,0.12,6);
1.如何取大於本根K棒收盤，且大於N1~N6之K棒高點，及距本K棒之距離數
2. 從1.之結果K棒位置，向前取得7根k棒內之最高價及距本K棒之距離數

由 cgjj 在 2011-06-07 13:01 發表:

回覆: 問題續2

引用:
最初由 sunnyjboy1960 發表
N1:=PEAK(1,0.12,1);
N2:=PEAK(1,0.12,2);
N3:=PEAK(1,0.12,3);
N4:=PEAK(1,0.12,4);
N5:=PEAK(1,0.12,5);
N6:=PEAK(1,0.12,6);
1.如何取大於本根K棒收盤，且大於N1~N6之K棒高點，及距本K棒之距離數
2. 從1.之結果K棒位置，向前取得7根k棒內之最高價及距本K棒之距離數

仍然不是個完整的問題

判斷大於, 要有兩者才能去比, 例如: A 大於 B
A 和 B 就是兩者

誰大於本根K棒收盤??
誰大於大於N1~N6之K棒高點??
您並未說明唷

全部時間均為台灣時間, 現在時間為22:36

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