应【艾米平f】的提议把我的
这个公式是我以前编辑的【艾米平f】同学提议改为通达信软件的公式.因为我平时根本不使用通达信软件.请大家看看能不能用---------
下面是我编辑的通达信的源码：-----------------
{内通道}
重心:WMA((2*C+H+L)/4,2),COLOR00FFFF,LINETHICK0;
UPPERS:重心*(1+2.382/100),COLOR990099;
LOWERS:重心*(1-2.382/100),COLORFF9900;
DRAWBAND(UPPERS,RGB(60,60,60),LOWERS,RGB(0,40,255));
MA5:WMA(重心,5),COLOR00FFFF,DOTLINE;
MA5_UP:IF(MA5>REF(MA5,1),MA5,DRAWNULL),COLOR0099FF,LINETHICK3;
VAR2:=重心*VOL;
VAR3:=(EMA(VAR2,3)/EMA(VOL,3)+EMA(VAR2,8)/EMA(VOL,8)+EMA(VAR2,13)/EMA(VOL,13)+EMA(VAR2,21)/EMA(VOL,21))/4;
UP:VAR3*1.0809,COLOR0044FF,LINETHICK2;
DN:VAR3*0.9191,COLOR00FF00,LINETHICK2;
MID:(UP+DN)/2,COLOR00FF00,LINETHICK1;
MID_UP:IF((UP+DN)/2>REF((UP+DN)/2,1),(UP+DN)/2,DRAWNULL),LINETHICK2,COLORRED;
VAR4:=EMA(重心,19);
LUP:EMA(VAR4*1.119,3),COLORFF00FF,DOTLINE;
LDN:EMA(VAR4*0.881,3),COLORFF9900,DOTLINE;
UPL:=LUP-UP;
DRAWBAND(UP+UPL*0.02,RGB(200,0,255),UP+UPL*0.2,RGB(200,0,255));
DRAWBAND(UP+UPL*0.2,RGB(180,0,220),UP+UPL*0.4,RGB(180,0,220));
DRAWBAND(UP+UPL*0.4,RGB(150,0,180),UP+UPL*0.5,RGB(150,0,180));
DRAWBAND(UP+UPL*0.5,RGB(120,0,150),UP+UPL*0.6,RGB(120,0,150));
DRAWBAND(UP+UPL*0.6,RGB(100,0,120),UP+UPL*0.8,RGB(100,0,120));
DRAWBAND(UP+UPL*0.8,RGB(80,0,80),UP+UPL,RGB(80,0,80));
DPL:=DN-LDN;
DRAWBAND(DN-DPL*0.02,RGB(0,180,180),DN-DPL*0.2,RGB(0,180,180));
DRAWBAND(DN-DPL*0.2,RGB(0,150,150),DN-DPL*0.4,RGB(0,150,150));
DRAWBAND(DN-DPL*0.4,RGB(0,120,100),DN-DPL*0.6,RGB(0,120,100));
DRAWBAND(DN-DPL*0.6,RGB(0,100,80),DN-DPL*0.8,RGB(0,100,80));
DRAWBAND(DN-DPL*0.8,RGB(0,80,50),DN-DPL,RGB(0,80,50));
STICKLINE(CLOSE>OPEN OR (CLOSE=OPEN AND CLOSE>REF(CLOSE,1)),LOW,HIGH,0.0,0),COLORRED;
STICKLINE(CLOSE<OPEN OR (CLOSE=OPEN AND CLOSE<=REF(CLOSE,1)),LOW,HIGH,0.0,0),COLORCYAN;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,3,0),COLOR008800;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,2,0),COLOR00AA00;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,1,0),COLOR00DD00;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,0,0),COLOR00FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),COLOR000088;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0),COLOR0000AA;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0),COLOR0000DD;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0),COLOR0000FF;
