【炒股方法】通达信源码精选：日周MACD，仓位比例提示，蜡烛图战法

1、日周MACD,新办法日周同图显示

{日周MACD}

周放大数:=0.8;下移周期:=1;日缩小数:=1;
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2;
QJZXZ:=CONST(MIN(CONST(LLV(DIF,下移周期)),CONST(LLV(MACD,下移周期))));
DRAWGBK(C>1,RGB(0,0,0),RGB(1,1,1),1,0,0);
{====================MACD过前高=======================}
QGZSJ1:=BARSLAST(CROSS(0,MACD));
QGZSJ2:=IF(MACD<0 AND ISLASTBAR,SUMBARS(CROSS(MACD,0),1),SUMBARS(CROSS(MACD,0),2));
ZDZ:=CONST(FINDHIGH(MACD,QGZSJ1,QGZSJ2-QGZSJ1,1));
ZDZSJ:=CONST(FINDHIGHBARS(MACD,QGZSJ1,QGZSJ2-QGZSJ1,1));
HX:=DRAWLINE(ZDZ=MACD,MACD,REF(ZDZ=MACD,1),REF(MACD,1),1);
NOTEXTQ22:IF(CURRBARSCOUNT<=ZDZSJ+1,HX,DRAWNULL),COLORYELLOW,DOTLINE;
NOTEXTQ23:IF(CURRBARSCOUNT<=ZDZSJ+1,NOTEXTQ22*1.38,DRAWNULL),COLORBLACK,POINTDOT;
DRAWTEXT(ISLASTBAR,NOTEXTQ22,STRCAT(' ',CON2STR(NOTEXTQ22,2))),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=ZDZSJ+1,MACD,'前横线'),COLORYELLOW,DRAWABOVE;
{=====================================================}
SCSJ:=CONST(BARSLAST(DIFREF(DIF,2)))+1;
NOTEXTSCHX:IF(CURRBARSCOUNT<=SCSJ+1,CONST(REF(DIF,SCSJ)),DRAWNULL),COLORGREEN,DOTLINE;
DRAWICON(CROSS(DIF,NOTEXTSCHX),NOTEXTSCHX,1);
{=============================}
日DIF:DIF,COLORWHITE,NODRAW;
日DEA:DEA,COLORMAGENTA,NODRAW;
日MACD:MACD,COLORRED,NODRAW;
STICKLINE(日MACD>0,日MACD*日缩小数,0,0,0),COLORRED;
STICKLINE(日MACD<0,日MACD*日缩小数,0,0,0),COLORCYAN;
NOTEXTDIF:日DIF*日缩小数,COLORWHITE;
NOTEXTDEA:日DEA*日缩小数,COLORMAGENTA;
{=============================}
下移线1:=0.1;
周DIF:EMA(CLOSE,12*5)-EMA(CLOSE,26*5),COLORWHITE,NODRAW;
周DEA:EMA(周DIF,9*5),COLORMAGENTA,NODRAW;
周MACD:(周DIF-周DEA)*2,COLORRED,NODRAW;
MACD转换1:=周MACD*周放大数+下移线1;
T22:=周DIF*周放大数+下移线1;
QJZDZ:=CONST(MAX(CONST(HHV(T22,下移周期)),CONST(HHV(MACD转换1,下移周期))));
{=============================}
下移线2:=-(ABS(QJZXZ)+ABS(QJZDZ));
{=============================}
MACD转换2:=周MACD*周放大数+下移线2;
STICKLINE(周MACD>0,MACD转换2,下移线2,0,1),COLORRED;
STICKLINE(周MACD<0,MACD转换2,下移线2,0,1),COLORCYAN;
NOTEXT22:周DIF*周放大数+下移线2,COLORMAGENTA;
NOTEXT33:周DEA*周放大数+下移线2,COLORWHITE;
DRAWTEXT_FIX(1,0,0,0,'███████'),COLORYELLOW;
DRAWTEXT_FIX(1,0,0,0,' 日线MACD'),COLORRED;
DRAWTEXT_FIX(1,0,0.53,0,'███████'),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.53,0,' 周线MACD'),COLORRED;



2、仓位比例提示

{仓位比例提示}
DRAWRECTREL(0,5,1000,1,RGB(200,300,500));
DRAWRECTREL(0,202,1000,195,RGB(0,50,50));
DRAWRECTREL(0,498,1000,495,RGB(100,500,300));
DRAWRECTREL(0,808,1000,800,RGB(00,50,50));
DRAWRECTREL(0,1000,1000,995,RGB(200,300,500));
N:=100000;
历史最高价:=HHV(H,0),COLORRED;
A:=历史最高价;
建仓百分之:=(A-C)/A*100*1,COLORWHITE;
分仓后每份资金:=N,COLORMAGENTA;
本份资金应买额:=(N*(A-C)/A)*1,COLORGREEN;
本份资金应买股:=INTPART((本份资金应买额/C)/100)*100,COLORYELLOW;
仓位比例:INTPART(EMA(建仓百分之,15)/2.5)*2.5,COLORRED,LINETHICK3;
{持仓比例:=STRCAT(STRCAT('仓位比例: ',CON2STR(仓位比例,2)),'％');
DRAWTEXT_FIX(ISLASTBAR,0.3,0.001,0,持仓比例),COLORWHITE;}
DRAWTEXT_FIX(ISLASTBAR=1,0.01,0,0,STKNAME),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR=1,0.09,0,0,CODE),COLORWHITE;
{黄金分割 普通 等系坐标}
DRAWRECTREL(990,2,998,188,RGB(0,150,180)),NOFRAME;
DRAWRECTREL(990,188,998,375,RGB(200,200,0)),NOFRAME;
DRAWRECTREL(990,375,998,491,RGB(100,200,0)),NOFRAME;
DRAWRECTREL(990,491,998,607,RGB(200,10,80)),NOFRAME;
DRAWRECTREL(990,607,998,794,RGB(150,0,0)),NOFRAME;
DRAWRECTREL(990,794,998,982,RGB(150,150,150)),NOFRAME;
{股民学院 整理}



3、蜡烛图战法

{蜡烛图战法 源码}
上开:=O;
上收:=C;
上高:=H;
上低:=L;

箱顶:MA(REF(HHV(上收,30),1),2),COLOR0000FF,LINETHICK2;
箱底:MA(REF(LLV(上收,30),1),2),COLOR00FF00,LINETHICK2;

多空:EMA((EMA(CLOSE,29)+EMA(CLOSE,31)+EMA(CLOSE,33))/3,3),COLORYELLOW,LINETHICK3;
做空:=REF(多空,1),COLORGREEN,NODRAW;
A2:=EMA(多空,25)COLORLIBLUE,LINETHICK3;
A1X:=(多空-REF(多空,1))/REF(多空,1)*100,NODRAW;
A2X:=(A2-REF(A2,1))/REF(A2,1)*100,NODRAW;
买:IF(A1X>=0,多空,DRAWNULL),COLORMAGENTA,LINETHICK3;
卖:IF(A1X<0 AND A2X<0,多空,DRAWNULL),COLORGREEN,LINETHICK3;