相關標簽:

 

應【艾米平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;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;