涨跌波段的公式源码

以下是涨跌波段的公式源码

编辑公式的【目的】就是想知道将来是涨.是跌.就用价格差和价格重心来判断涨跌.
编辑公式的【目的】就是想知道将来是涨.是跌.现在就用比较价格差和价格重心来判断涨跌.【A】价格差:XJ:(2*C+H+L)/4+(2*C-H-L);就是是收盘价与最高最低价的比较.【B】价格重心;重心:AMOUNT/vul/100;是成交量与成交金额的比较.我们认为只有今天【A】和【B】的数据两个方面同时大于昨天才有上涨的可能，反之就会下跌，依据这个原理编辑公式如下:------------【DRAWGBK(XJ>=ref(XJ,1) AND 重心>REF(重心,1),STRIP(RGB(0,0,255),RGB(120,0,120),0))】;这就是涨跌波段的公式源码，其中参数【K】要根据股性及时改变的以适合构成波段要求. ---------【请注意】这个公式在横盘阶段不好用-----
{重心价差}
INPUT:K(10,0,500);
DRAWGBKlast(c>0,strip(RGB(60,60,60),RGB(0,0,80),0));
DRAWTEXTABS(5,2,'■价格差【FORCAST((2*C+H+L)/4+(2*C-H-L),K)】的参数【K='+K+'】'),COLOR0066FF,LINETHICK2,LAYER0;
DRAWTEXTABS(5,22,'■价格重心【FORCAST(AMOUNT/VOL/100,K)】的参数【K='+K+'】'),COLOR00FFFF,LINETHICK2,LAYER0;
C,DOTLINE,Culor00FFFF;
XJ:FORCAST(EMA((2*C+H+L)/4+(2*C-H-L),2),K);
partline(XJ,XJ>=ref(XJ,1),rgb(255,80,0),XJ<ref(XJ,1),rgb(0,255,80)),linethick2,LAYER0;
LLX:=LLV(XJ,2);
WINN:=(XJ-REF(XJ,1));;
STICKLINE(WINN>=0,XJ,XJ+WINN,6,0),Culor000088;
STICKLINE(WINN>=0,XJ,XJ+WINN,4,0),Culor0000AA;
STICKLINE(WINN>=0,XJ,XJ+WINN,2,0),Culor0000DD;
STICKLINE(WINN>=0,XJ,XJ+WINN,1,0),Culor0000FF;

STICKLINE(WINN<0,XJ,XJ+WINN,6,0),Culor008800;
STICKLINE(WINN<0,XJ,XJ+WINN,4,0),Culor00AA00;
STICKLINE(WINN<0,XJ,XJ+WINN,2,0),Culor00DD00;
STICKLINE(WINN<0,XJ,XJ+WINN,1,0),Culor00FF00;

重心:FORCAST(EMA(AMOUNT/vul/100,2),K),LINETHICK0;
PARTLINE(重心,(重心>REF(重心,1))-1,rgb(0,120,255),1,rgb(255,155,0) ),POINTDOT,LINETHICK7,LAYER0;
PARTLINE(重心,(重心>REF(重心,1))-1,rgb(0,120,255),1,rgb(255,155,0) ),DOTLINE,LAYER0;

DRAWGBK(XJ>=ref(XJ,1) AND 重心>REF(重心,1),STRIP(RGB(0,0,255),RGB(120,0,120),0)),LAYER3;{------};
■【注意】-----补【通达信】的源码和附图；因为我根本不用通达信软件 所以我不太会编辑通达信的公式.仅供参照；------参数【K】通达信需填入表内---
XJ:FORCAST(EMA((2*C+H+L)/4+(2*C-H-L),2),K);
LLX:=LLV(XJ,2);

重心:FORCAST(EMA(AMOUNT/VOL/100,2),K);

STICKLINE(XJ>REF(XJ,1) AND 重心>REF(重心,1),REFDATE(HHV(H,0),DATE),REFDATE(LLV(L,0),DATE),6,0),COLOR003303; {-------波段背景------};
C,DOTLINE,COLOR00FFFF;

FORCAST(EMA((2*C+H+L)/4+(2*C-H-L),2),K),COLOR00FF00,LINETHICK2;
IF(XJ>REF(XJ,1),XJ,DRAWNULL),COLOR0000FF,LINETHICK2;
WINN:=(XJ-REF(XJ,1));
STICKLINE(WINN>=0,XJ,XJ+WINN,3,0),COLOR000088;
STICKLINE(WINN>=0,XJ,XJ+WINN,2,0),COLOR0000AA;
STICKLINE(WINN>=0,XJ,XJ+WINN,1,0),COLOR0000DD;
STICKLINE(WINN>=0,XJ,XJ+WINN,0,0),COLOR0000FF;

STICKLINE(WINN<0,XJ,XJ+WINN,3,0),COLOR008800;
STICKLINE(WINN<0,XJ,XJ+WINN,2,0),COLOR00AA00;
STICKLINE(WINN<0,XJ,XJ+WINN,1,0),COLOR00DD00;
STICKLINE(WINN<0,XJ,XJ+WINN,0,0),COLOR00FF00;

FORCAST(EMA(AMOUNT/VOL/100,2),K),COLOR0099FF,DOTLINE;
FORCAST(EMA(AMOUNT/VOL/100,2),K),COLORFF9900,POINTDOT,LINETHICK7;
IF(重心>REF(重心,1),重心,DRAWNULL),COLOR00FFFF,POINTDOT,LINETHICK7;
---------------通达信参数要填入表格里的 K ( 0,500,10)----------------