应【艾米平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;
 |