 |
cffyz168
資深會員
註冊日期: Feb 2016
來 自:
文章數量: 239 |
|
[問題]
版主好，以下的條件請問：
1.啟始條件：C>REF(H, 1)。
2.成立後在當根K棒最低點往下-50處劃一橫線向右延伸。
3.次根以後若收盤價有跌破該延伸線，仍繼續延伸，直到另一反向啟始條件C<REF(L,1)成立則停止。然後開始另一個反向的啟始劃線延伸。
4.若次根以後的收盤價沒有跌破該延伸線，且大於該延伸線+50以上，則該延伸線向上提升至與該次根的最低點保持50的間隔繼續劃線。
5.依此循環，50的間隔可調。
麻煩版主協助解惑，感謝。
|
|
向版主報告此篇 |  |
|
2019-06-03 02:56 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 18192 |
|
回覆: [問題]
引用:
最初由 cffyz168 發表
版主好，以下的條件請問：
1.啟始條件：C>REF(H, 1)。
2.成立後在當根K棒最低點往下-50處劃一橫線向右延伸。
3.次根以後若收盤價有跌破該延伸線，仍繼續延伸，直到另一反向啟始條件C<REF(L,1)成立則停止。然後開始另一個反向的啟始劃線延伸。
4.若次根以後的收盤價沒有跌破該延伸線，且大於該延伸線+50以上，則該延伸線向上提升至與該次根的最低點保持50的間隔繼續劃線。
5.依此循環，50的間隔可調。
麻煩版主協助解惑，感謝。
看看是否為您要的
原碼:
SP:=50;
UD:=(C<REF(L,1))-(C>REF(H,1));
UD:=if(UD<>ref(UD,1) or barpos=lbound(UD),UD,0);
LL:=L; HH:=H; CC:=C; NowDir:=0;
MM:UD*0 linethick;
for i=lbound(UD) to datacount do begin
if UD[i]=1 then begin
MM[i]:=LL[i]-SP; NowDir:=1;
end else if UD[i]=-1 then begin
MM[i]:=LL[i]+SP; NowDir:=-1;
end else begin
if NowDir<>0 then MM[i]:=MM[i-1];
if NowDir=1 then begin
if CC[i]<MM[i]-SP then MM[i]:=MM[i]-SP;
end else if NowDir=-1 then begin
if CC[i]>MM[i]+SP then MM[i]:=MM[i]+SP;
end;
end;
end;
STICKLINE(MM>0,MM,MM,10,0);
|
|
向版主報告此篇 | |
|
|
2019-06-03 09:46 |
|
|
| |
|
cffyz168
資深會員
註冊日期: Feb 2016
來 自:
文章數量: 239 |
|
回覆
謝謝版主回覆，原碼程式的圖型與原意有些的出入，有些地方不足50的間隔，有些的地方不知線為何會出現在那裡，大部份沒跟著上移50的間隔。
很抱歉，我不知程式哪裏需改正與補強，再麻煩版主幫忙修正。
|
|
向版主報告此篇 | |
|
|
2019-06-03 18:07 |
|
|
| |
|
cffyz168
資深會員
註冊日期: Feb 2016
來 自:
文章數量: 239 |
|
回覆
謝謝版主的修正，我尚在研究中，另請問以下三程式，各為何意？
UD:=(C<REF(L,1))-(C>REF(H,1));
UD:=if(UD<>ref(UD,1) or barpos=lbound(UD),UD,0);
NowDir:=0;
|
|
向版主報告此篇 | |
|
|
2019-06-04 11:04 |
|
|
| |
|
cffyz168
資深會員
註冊日期: Feb 2016
來 自:
文章數量: 239 |
|
回覆
謝謝版主提示，補充如后：
倒綠三角條件：不變，同圖上所述。
劃線條件：與倒綠三角條件相同。
劃線位置：該K棒H+50(停損線)。
若下根K棒未達倒綠三角條件，則上一根停損線繼續延伸。(正紅三角與劃線也是相同情況)
再次麻煩版主。
|
|
向版主報告此篇 | |
|
|
2019-06-10 12:10 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 18192 |
|
回覆: 回覆
引用:
最初由 cffyz168 發表
謝謝版主提示，補充如后：
倒綠三角條件：不變，同圖上所述。
劃線條件：與倒綠三角條件相同。
劃線位置：該K棒H+50(停損線)。
若下根K棒未達倒綠三角條件，則上一根停損線繼續延伸。(正紅三角與劃線也是相同情況)
再次麻煩版主。
原碼:
SP:=50;
BS:=(C>REF(H,1))-(C<REF(L,1));
LL:=L; HH:=H; CC:=C; NowDir:=0;
MM:=BS*0;
for i=lbound(BS) to datacount do begin
if BS[i]=1 then begin
MM[i]:=LL[i]-SP; NowDir:=1;
end else if BS[i]=-1 then begin
MM[i]:=HH[i]+SP; NowDir:=-1;
end else begin
if NowDir<>0 then MM[i]:=MM[i-1];
if NowDir=1 then begin
if LL[i]-MM[i]>=SP and LL[i]>=LL[i-1] then MM[i]:=LL[i]-SP;
end else if NowDir=-1 then begin
if MM[i]-HH[i]>=SP and HH[i]<=HH[i-1] then MM[i]:=HH[i]+SP;
end;
end;
end;
LBS:=ref(BS,barslast(BS<>0));
STICKLINE(LBS=1,MM,MM,10,0) COLORMAGENTA;
STICKLINE(LBS=-1,MM,MM,10,0) COLORCYAN;
DRAWICON(BS=1,MM,'$SA-BS-2B.gif') pxdn2;
DRAWICON(BS=-1,MM,'$SA-BS-2S.gif') pxup30;
|
|
向版主報告此篇 | |
|
|
2019-06-10 14:47 |
|
|
| |
|
cffyz168
資深會員
註冊日期: Feb 2016
來 自:
文章數量: 239 |
|
問題請教
MM:=BS*0
LBS:=ref(BS,barslast(BS<>0))
請問版主，原碼中的這兩個程式該怎麼解讀，謝謝版主。
|
|
向版主報告此篇 | |
|
|
2019-06-11 17:00 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|
