|
我必須誠實說：我是拼湊出來勉強可以用!但，還有2個問題：(詳附圖比較)
1. y 軸座標不對。
2. 彩帶起始點，我是試誤法得到的。試著用其他的計算，有時圖形的畫法會跑掉。
程式碼如下：
///// OVB //////////////////////
OBV:=SUM(SGN(CLOSE-REF(CLOSE,1))*VOL,0);
/// 可見顯示區間的最大量與最小量 //////////
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;
V_MID:=(V_MAX)*1.0;
///// OVBDM彩帶 //////////////////////
//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;
//////////////////////////////////////////////////////////////////////////
V VOLSTICK NOAXIS;
//////////////////////////////////////
N1:=5;N2:=20;N3:=20;
V5:MA(VOL,N1),Colora800a8,PRECISION0,lineTHICK1;
PARTLINE(MA5>=REF(MA5,1),MA5),Colora800a8,linethick3;
///
V2:MA(VOL,N2),Color200000,PRECISION0,lineTHICK1;
PARTLINE(MA20>=REF(MA20,1),MA20),Color200000,linethick3;
///
股本:(FINANCE(20)/100000),color008f00,LINETHICK0;
總張:VOL,Colorblack,LINETHICK0;
///
當沖: SEQDATA('','DayTrading','Shares'),COLORBLACK,linethick1;
沖%:當沖/VOL*100,COLORRED,LINETHICK0;
MA50:MA(VOL,N3),Colorblue, PRECISION0,lineTHICK1;
a13923707868 附帶上了此圖片:
__________________
Stephen
|
2025-12-26 20:31
