公式网-网站导航


网站搜索:  

公式在线网 发表于2015/1/23 6:57:35

DZH【通道】改为【TDX】请大家广为利用(主图.源码.附图)

应【艾米平f】的提议把我的DZH【通道】改为【TDX】请大家广为利用(主图.源码.附图)

 这个公式是我以前编辑的【艾米平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));
重心*(1+2.382/100),COLOR990099;
重心*(1-2.382/100),COLORFF9900;

{红股.绿币的趋势线}
MA5:WMA(重心,5),COLOR00FFFF,DOTLINE;
 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;

(UP+DN)/2,COLOR00FF00,LINETHICK1;
 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));


 {K线}
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;
 

这是原来大智慧的源码请比较参考:------------------------
DRAWGBKlast(c>0,strip(RGB(0,0,140),RGB(0,0,0),0));
 {内通道}
重心:WMA((2*C+H+L)/4,2),COLOR00FFFF,LINETHICK0;
 UPPERS: 重心*(1+2.382/100),COLOR990099,LAYER0;
 DRAWTEXT(BARSTATUS=2,UPPERS,'  '+NUMTOSTRN(UPPERS,2)+''),ALIGN0,COLOR0077FF,LINETHICK2,LAYER0;
 LOWERS: 重心*(1-2.382/100),COLORFF0000,LAYER0;
 DRAWTEXT(BARSTATUS=2,LOWERS,'  '+NUMTOSTRN(LOWERS,2)+''),ALIGN0,COLOR00FFff,LINETHICK2,LAYER0;
 {中通道}
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;;
 PARTLINE((UP+DN)/2 ,((UP+DN)/2>REF((UP+DN)/2,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),DOTLINE,LAYER0;
 {外通道}
VAR4:=EMA(重心,19);
 LUP:EMA(VAR4*1.119,3),COLORff00FF,DOTLINE;
 LDN:EMA(VAR4*0.881,3),COLORFF9900,DOTLINE;

{UPK:=UP-UPPERS;
 FILLRGN(UPPERS,UPPERS+UPK*0.2, UP>UPPERS,RGB(120,0,50)),LAYER2;
 FILLRGN(UPPERS,UPPERS+UPK*0.4, UP>UPPERS,RGB(150,0,180)),LAYER3;
 FILLRGN(UPPERS,UPPERS+UPK*0.5, UP>UPPERS,RGB(180,0,100)),LAYER4;
 FILLRGN(UPPERS,UPPERS+UPK*0.6, UP>UPPERS,RGB(200,0,150)),LAYER5;
 FILLRGN(UPPERS,UPPERS+UPK*0.8, UP>UPPERS,RGB(220,0,180)),LAYER6;
 FILLRGN(UPPERS,UPPERS+UPK, UP>UPPERS,RGB(230,0,50)),LAYER7;}

UPL:=LUP-UP;
 FILLRGN(UP,UP+UPL*0.2, UP<LUP,RGB(200,0,255)),LAYER2;
 FILLRGN(UP,UP+UPL*0.4, UP<LUP,RGB(180,0,220)),LAYER3;
 FILLRGN(UP,UP+UPL*0.5, UP<LUP,RGB(150,0,180)),LAYER4;
 FILLRGN(UP,UP+UPL*0.6, UP<LUP,RGB(120,0,150)),LAYER5;
 FILLRGN(UP,UP+UPL*0.8, UP<LUP,RGB(100,0,120)),LAYER6;
 FILLRGN(UP,UP+UPL, UP<LUP,RGB(80,0,80)),LAYER7;

FILLRGN(UPPERS,LOWERS, LOWERS<UPPERS,RGB(60,60,60)),LAYER1;

{UPD:=LOWERS-DN;
 FILLRGN(LOWERS,LOWERS-UPD*0.2, LOWERS>DN,RGB(0,80,80)),LAYER1;
 FILLRGN(LOWERS,LOWERS-UPD*0.4, LOWERS>DN,RGB(0,100,100)),LAYER2;
 FILLRGN(LOWERS,LOWERS-UPD*0.6, LOWERS>DN,RGB(0,150,100)),LAYER3;
 FILLRGN(LOWERS,LOWERS-UPD*0.8, LOWERS>DN,RGB(0,200,55)),LAYER4;
 FILLRGN(LOWERS,LOWERS-UPD, LOWERS>DN,RGB(0,240,0)),LAYER5;}

DPL:=DN-LDN;
 FILLRGN(DN,DN-DPL*0.2, DN>LDN,RGB(0,180,180)),LAYER3;
 FILLRGN(DN,DN-DPL*0.4, DN>LDN,RGB(0,150,150)),LAYER4;
 FILLRGN(DN,DN-DPL*0.6, DN>LDN,RGB(0,120,100)),LAYER5;
 FILLRGN(DN,DN-DPL*0.8, DN>LDN,RGB(0,100,80)),LAYER6;
 FILLRGN(DN,DN-DPL, DN>LDN,RGB(0,80,50)),LAYER7;

{红股.绿币的趋势线}
MA5:WMA(重心,5),COLOR00FFFF,DOTLINE,LAYER0;
 PARTLINE(MA5 ,(MA5>REF(MA5,1)),rgb(255,180,0) ),linethick3,LAYER0;

{K线}
STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),LOW,HIGH,0.1,0),colorred,LAYER0;
 STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),OPEN,CLOSE,0,0),colorred,LAYER0;
 STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),LOW,HIGH,0.1,0),colorcyan,LAYER0;
 STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),OPEN,CLOSE,0,0),colorcyan,LAYER0;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800,LAYER0;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR009900,LAYER0;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00,LAYER0;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00,LAYER0;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00,LAYER0;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00,LAYER0;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00,LAYER0;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00,LAYER0;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00,LAYER0;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLOR000066,LAYER0;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000088,LAYER0;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR0000AA,LAYER0;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR0000BB,LAYER0;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR0000CC,LAYER0;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000DD,LAYER0;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000EE,LAYER0;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000FF,LAYER0;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLOR0000FF,LAYER0;

DZH【通道】改为【TDX】请大家广为利用(主图.源码.附图)



网站搜索:  



Copyright © 2009-2010 gszb.com ™,All Rights Reserved. 
公式网-www.gszx.com.cn-股票指标公式网