![]() |
總頁數 (2): [1] 2 » 在這個頁面顯示本主題全部的 17 個文章 |
奇狐社區論壇 (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=24407)
請問兩個以上的指標是否可以疊加在同一個圖上?
例如:
MACD + KD 或者程式碼應該編寫才能做到?而且都是滿座標可以各自分別辨識清楚?
感恩。
__________________
Stephen
回覆: 請問兩個以上的指標是否可以疊加在同一個圖上?
引用:
最初由 a13923707868 發表
例如:
MACD + KD 或者程式碼應該編寫才能做到?而且都是滿座標可以各自分別辨識清楚?
感恩。
感恩,我來試試看。
__________________
Stephen
想請教:
sysparam(2);//主圖可見K線最初的位置
sysparam(3);//主圖可見K線最後的位置
以日線即時盤而言,上述那一個是今天的位置?
__________________
Stephen
引用:
最初由 a13923707868 發表
想請教:
sysparam(2);//主圖可見K線最初的位置
sysparam(3);//主圖可見K線最後的位置
以日線即時盤而言,上述那一個是今天的位置?
這個我我知道,但我想確認所謂的"最初"k線是在右邊或左邊?(相對"最後"k線就是在反方向)。
__________________
Stephen
引用:
最初由 a13923707868 發表
這個我我知道,但我想確認所謂的"最初"k線是在右邊或左邊?(相對"最後"k線就是在反方向)。
感恩。
__________________
Stephen
POS_B:=sysparam(2);//主圖可見K線最初的位置(早,左邊)
POS_E:=sysparam(3);//主圖可見K線最後的位置(晚,右邊)
V_MAX:=V;V_MIN:=V;
FOR i=POS_E TO POS_B DO
BEGIN
V_MAX:=MAX(V_MAX,REF(V,i));
V_MIN:=MIN(V_MIN,REF(V,i));
END;
V_MID:=(V_MAX);
///// OVB彩帶 //////////////////////
OBV:=SUM(SGN(CLOSE-REF(CLOSE,1))*VOL,0);
EV1:=MA(OBV,50);
EV2:=MA(OBV,10);
DM:=EV2-EV1;
FILLRGN(EV2> EV1,V_MID+30*0.01*V_MID,V_MID+70*0.01*V_MID),COLORBFBFFF;
FILLRGN((EV2> EV1) AND DM<REF(DM,1),V_MID+42*0.01*V_MID,V_MID+58*0.01*V_MID),COLORFFE8F5;
FILLRGN((EV2> EV1) AND DM<REF(DM,1) AND EV2>REF(EV2,1),V_MID+35*0.01*V_MID,V_MID+65*0.01*V_MID),COLORFFE8F5;
FILLRGN(EV2<=EV1,V_MID+30*0.01*V_MID,V_MID+70*0.01*V_MID),COLORFFFFAB;
FILLRGN(EV2<=EV1 AND DM>REF(DM,1) AND EV2>REF(EV2,1),V_MID+42*0.01*V_MID,V_MID+58*0.01*V_MID),COLORC9FFFF;
FILLRGN(EV2<=EV1 AND DM>REF(DM,1) AND EV2<REF(EV2,1),V_MID+35*0.01*V_MID,V_MID+65*0.01*V_MID),COLORC9FFFF;
//////////////////////////////////////////////////////////////////////////
{Volume , VOL , 成交張數}
N1:=5;N2:=20;N3:=20;
V5:MA(VOL,N1),Colora800a8{1c1cff} PRECISION0,lineTHICK1;
MA5:=V5;
PARTLINE(MA5>=REF(MA5,1),MA5),Colora800a8,linethick5;
///
V2:MA(VOL,N2),Color200000 PRECISION0,lineTHICK1;
MA20:=V2;
PARTLINE(MA20>=REF(MA20,1),MA20),Color200000,linethick5;
///
股本: (FINANCE(20)/100000),color008f00,POINTDOT;
總張:VOL,VOLSTICK,Colorblack,PRECISION0;
//////////////////////////////////////////////////////
程式碼如上,我希望得到OVB取均值&計算乖離變化,將類似如圖的水平彩帶疊加在成交量裡面&範圍是介於
1/2倍可見區最大量~1倍可見區間最大量,以此區間為100%,的相對應百分比。
功力實在不足,我只能畫出扭曲的彩帶。不知是否可以幫忙修正?
感恩
__________________
Stephen
正常來說:
V_MID:=(V_MAX)*0.5;
以我目前的程式碼會畫在每根k棒的中間。很不清楚。
__________________
Stephen
引用:
最初由 a13923707868 發表
POS_B:=sysparam(2);//主圖可見K線最初的位置(早,左邊)
POS_E:=sysparam(3);//主圖可見K線最後的位置(晚,右邊)
V_MAX:=V;V_MIN:=V;
FOR i=POS_E TO POS_B DO
BEGIN
V_MAX:=MAX(V_MAX,REF(V,i));
V_MIN:=MIN(V_MIN,REF(V,i));
END;
V_MID:=(V_MAX);
///// OVB彩帶 //////////////////////
OBV:=SUM(SGN(CLOSE-REF(CLOSE,1))*VOL,0);
EV1:=MA(OBV,50);
EV2:=MA(OBV,10);
DM:=EV2-EV1;
FILLRGN(EV2> EV1,V_MID+30*0.01*V_MID,V_MID+70*0.01*V_MID),COLORBFBFFF;
FILLRGN((EV2> EV1) AND DM<REF(DM,1),V_MID+42*0.01*V_MID,V_MID+58*0.01*V_MID),COLORFFE8F5;
FILLRGN((EV2> EV1) AND DM<REF(DM,1) AND EV2>REF(EV2,1),V_MID+35*0.01*V_MID,V_MID+65*0.01*V_MID),COLORFFE8F5;
FILLRGN(EV2<=EV1,V_MID+30*0.01*V_MID,V_MID+70*0.01*V_MID),COLORFFFFAB;
FILLRGN(EV2<=EV1 AND DM>REF(DM,1) AND EV2>REF(EV2,1),V_MID+42*0.01*V_MID,V_MID+58*0.01*V_MID),COLORC9FFFF;
FILLRGN(EV2<=EV1 AND DM>REF(DM,1) AND EV2<REF(EV2,1),V_MID+35*0.01*V_MID,V_MID+65*0.01*V_MID),COLORC9FFFF;
//////////////////////////////////////////////////////////////////////////
{Volume , VOL , 成交張數}
N1:=5;N2:=20;N3:=20;
V5:MA(VOL,N1),Colora800a8{1c1cff} PRECISION0,lineTHICK1;
MA5:=V5;
PARTLINE(MA5>=REF(MA5,1),MA5),Colora800a8,linethick5;
///
V2:MA(VOL,N2),Color200000 PRECISION0,lineTHICK1;
MA20:=V2;
PARTLINE(MA20>=REF(MA20,1),MA20),Color200000,linethick5;
///
股本: (FINANCE(20)/100000),color008f00,POINTDOT;
總張:VOL,VOLSTICK,Colorblack,PRECISION0;
//////////////////////////////////////////////////////
程式碼如上,我希望得到OVB取均值&計算乖離變化,將類似如圖的水平彩帶疊加在成交量裡面&範圍是介於
1/2倍可見區最大量~1倍可見區間最大量,以此區間為100%,的相對應百分比。
功力實在不足,我只能畫出扭曲的彩帶。不知是否可以幫忙修正?
感恩
原碼:
VV:=V; POS_B:=sysparam(2);//主圖可見K線最初的位置(早,左邊) POS_E:=sysparam(3);//主圖可見K線最後的位置(晚,右邊) V_MAX:=VV[POS_B]; V_MIN:=VV[POS_B]; FOR i=POS_B+1 TO POS_E DO BEGIN if VV[i]>V_MAX then V_MAX:=VV[i]; if VV[i]<V_MIN then V_MIN:=VV[i]; END;
其實您目前想算的這個,也可以反過來思考,簡化為:
直接把 OVB彩帶 當主軸畫出。
再把成交量按百分比去疊,不就簡單多了~~
例如:
OBV:=SUM(SGN(CLOSE-REF(CLOSE,1))*VOL,0);
EV1:MA(OBV,50);
EV2:MA(OBV,10);
DM:=EV2-EV1;
FILLRGN(EV2> EV1,EV1,EV2),COLORBFBFFF;
FILLRGN(EV2<=EV1,EV1,EV2),COLORFFFFAB;
FILLRGN(EV2<=EV1 AND DM>REF(DM,1) AND EV2>REF(EV2,1),EV1,EV2),COLORC9FFFF;
FILLRGN(EV2<=EV1 AND DM>REF(DM,1) AND EV2<REF(EV2,1),EV1,EV2),COLORC9FFFF;
V VOLSTICK NOAXIS;
感恩~~初步的效果出來了!但,我希望能夠將扭曲的彩帶轉呈水平的彩帶(如附圖的RSI00),要轉換的百分比前(我可以自行轉換),我必須先求得"畫線依據可見區間"的最大&最小,上面所附的程式碼邏輯我寫的有問題,所以我畫成扭曲的彩帶,可否再次幫忙修正求得區間最大值&最小值?
感恩。
__________________
Stephen
引用:
最初由 a13923707868 發表
感恩~~初步的效果出來了!但,我希望能夠將扭曲的彩帶轉呈水平的彩帶(如附圖的RSI00),要轉換的百分比前(我可以自行轉換),我必須先求得"畫線依據可見區間"的最大&最小,上面所附的程式碼邏輯我寫的有問題,所以我畫成扭曲的彩帶,可否再次幫忙修正求得區間最大值&最小值?
感恩。
啊!!!
抱歉我沒有看到那一段回覆,
造成困擾,深感抱歉。
__________________
Stephen
| 全部時間均為台灣時間, 現在時間為21:48 | 總頁數 (2): [1] 2 » 在這個頁面顯示本主題全部的 17 個文章 |
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.