奇狐社區論壇

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

由 mori868 在 2011-08-18 06:18 發表:

請教

LC:= REF(CLOSE,1);
R3:=SMA(MAX(CLOSE-LC,0),3,1)/SMA(ABS(CLOSE-LC),3,1)*100,COLORWHITE;

AQ:=ref(R3,2)>=ref(R3,1) and ref(R3,1)<R3 and ref(R3,1)<20,linethick0;
BQ:=ref(R3,2)<=ref(R3,1) and ref(R3,1)>R3 and ref(R3,1)>80,linethick0;

轉折點:IF(refx(AQ,1) or refx(BQ,1),if(refx(AQ,1),C,C),0),linethick0;

希望
1:今轉折點與前轉折點一定相差20 點, 20 點以上
2:各轉折點連成一新曲線並顯示記號
敬請幫忙賜教謝謝

由 cgjj 在 2011-08-18 10:10 發表:

回覆: 請教

引用:
最初由 mori868 發表
LC:= REF(CLOSE,1);
R3:=SMA(MAX(CLOSE-LC,0),3,1)/SMA(ABS(CLOSE-LC),3,1)*100,COLORWHITE;

AQ:=ref(R3,2)>=ref(R3,1) and ref(R3,1)<R3 and ref(R3,1)<20,linethick0;
BQ:=ref(R3,2)<=ref(R3,1) and ref(R3,1)>R3 and ref(R3,1)>80,linethick0;

轉折點:IF(refx(AQ,1) or refx(BQ,1),if(refx(AQ,1),C,C),0),linethick0;

希望
1:今轉折點與前轉折點一定相差20 點, 20 點以上
2:各轉折點連成一新曲線並顯示記號
敬請幫忙賜教謝謝

原碼:


LC:= REF(CLOSE,1);

R3:=SMA(MAX(CLOSE-LC,0),3,1)/SMA(ABS(CLOSE-LC),3,1)*100,COLORWHITE;

AQ:=ref(R3,2)>=ref(R3,1) and ref(R3,1)<R3 and ref(R3,1)<20,linethick0;

BQ:=ref(R3,2)<=ref(R3,1) and ref(R3,1)>R3 and ref(R3,1)>80,linethick0;

轉折點:IF(refx(AQ,1) or refx(BQ,1),if(refx(AQ,1),C,C),0) linethick;

StNo:=lbound(BARSSINCE(轉折點>0)); Last轉折:=轉折點[StNo];

for i=StNo+1 to datacount do begin

  if 轉折點[i]>0 then begin

    if ABS(轉折點[i]-Last轉折)>20 then begin

      Last轉折:=轉折點[i];

    end else begin

      轉折點[i]:=0;

    end;

  end;

end;

POLYLINE(轉折點>0,轉折點);

VERTLINE(轉折點>0) linedot linethick;

由 mori868 在 2011-08-18 11:03 發表:

回覆: 回覆: 請教

引用:

最初由 cgjj 發表

原碼:


LC:= REF(CLOSE,1);

R3:=SMA(MAX(CLOSE-LC,0),3,1)/SMA(ABS(CLOSE-LC),3,1)*100,COLORWHITE;

AQ:=ref(R3,2)>=ref(R3,1) and ref(R3,1)<R3 and ref(R3,1)<20,linethick0;

BQ:=ref(R3,2)<=ref(R3,1) and ref(R3,1)>R3 and ref(R3,1)>80,linethick0;

轉折點:IF(refx(AQ,1) or refx(BQ,1),if(refx(AQ,1),C,C),0) linethick;

StNo:=lbound(BARSSINCE(轉折點>0)); Last轉折:=轉折點[StNo];

for i=StNo+1 to datacount do begin

  if 轉折點[i]>0 then begin

    if ABS(轉折點[i]-Last轉折)>20 then begin

      Last轉折:=轉折點[i];

    end else begin

      轉折點[i]:=0;

    end;

  end;

end;

POLYLINE(轉折點>0,轉折點);

VERTLINE(轉折點>0) linedot linethick;

很不錯謝謝
1:垂直線如何改為信號燈10代表做多 12代表做空
2:做多信號一成立轉折點曲線畫紅線相反畫青線

由 cgjj 在 2011-08-18 11:09 發表:

回覆: 回覆: 回覆: 請教

引用:
最初由 mori868 發表
很不錯謝謝
1:垂直線如何改為信號燈10代表做多 12代表做空
2:做多信號一成立轉折點曲線畫紅線相反畫青線

做多信號條件未定義唷

您不算是新手了
這兩個簡單的問題, 相信您自己能處理
論壇上類似範例也很多, 就給您自己當功課了

由 mori868 在 2011-08-18 12:15 發表:

回覆: 回覆: 回覆: 回覆: 請教

引用:
最初由 cgjj 發表
做多信號條件未定義唷

您不算是新手了
這兩個簡單的問題, 相信您自己能處理
論壇上類似範例也很多, 就給您自己當功課了

最後k線會顯示兩個信號如何消除
Drawicon(refx(AQ,1) and 轉折點>0,L,10),PXDN7;
Drawicon(refx(BQ,1) and 轉折點>0,H,12),PXUP17;

畫曲線還是不行
POLYLINE(refx(AQ,1) and 轉折點>0,轉折點),Colorred;

請指導一下謝謝

由 cgjj 在 2011-08-18 12:39 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 請教

引用:
最初由 mori868 發表
最後k線會顯示兩個信號如何消除
Drawicon(refx(AQ,1) and 轉折點>0,L,10),PXDN7;
Drawicon(refx(BQ,1) and 轉折點>0,H,12),PXUP17;

畫曲線還是不行
POLYLINE(refx(AQ,1) and 轉折點>0,轉折點),Colorred;

請指導一下謝謝

前面的程式, 同K線是不會有兩個訊號的

畫紅綠折線的方法, 以前就有提供過給您了唷, 請見:
http://www.chiefox.com.tw/bbs/showt...&threadid=10397

全部時間均為台灣時間, 現在時間為02:59

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