大智慧公式源码-2

SELECT:OPEN

AND CLOSE>MA(CLOSE,13)-0.01 AND CLOSE>MA(CLOSE,34)-0.01 AND CLOSE>MA(CLOSE,55)-0.01

1. 缠中说禅：笔

MA5:MA(C,5), colorwhite; MA13:MA(C,13), coloryellow; MA21:MA(C,21), colormagenta; MA34:MA(C,34), colorgreen;

MA55:MA(C,55), colorf00ff0, linethick2; MA89:MA(C,89), colorgray; MA144:MA(C,144), colorblue;

MA233:MA(C,233), colorf0f000,linethick2;

{布林曲线}

MID :MA(CLOSE,26),pointdot,colorwhite;

UPPER:MID + 2*STD(CLOSE,26),linethick0,coloryellow, dotline; LOWER:MID - 2*STD(CLOSE,26),linethick0,colorgreen, dotline; 收口:=UPPER-LOWER;

partline(MID,MID>=ref(MID,1),rgb(255,255,0),MID

partline(UPPER,UPPER>=ref(UPPER,1),rgb(255,255,0),UPPER

partline(LOWER,LOWER>ref(LOWER,1),rgb(255,255,0),LOWER<=ref(LOWER,1),rgb(0,255,0)),linethick1, dotline; {

partline(UPPER,收口>=ref(收口,1),rgb(255,255,0),收口

partline(LOWER,收口>=ref(收口,1),rgb(255,255,0),收口

{缠中说禅}

分型:=\这个放第一个 要不会出问题滴-_-\\\\\\~~} 笔:=\

bilast:=\段:=\

duanlast:=\jxyl:=\jxzc:=\

drawline(笔=1,h,笔=-1,l,0),coloryellow, linethick2; drawline(笔=-1,l,笔=1,h,0),coloryellow, linethick2; drawline(段=1,h,段=-1,l,0),colorblue, linethick2;

drawline(段=-1,l,段=1,h,0),colorblue, linethick2;

DRAWTEXT(笔=1, h, ''+h+'/T'+bilast+'/MA:'+jxyl), coloryellow, align1, valign2; DRAWTEXT(笔=-1, l, ''+l+'/T'+bilast+'/MA:'+ jxzc), colorCyan, align1;

2.macd面积

DIF : EMA(CLOSE,short) - EMA(CLOSE,long); DEA : EMA(DIF,mid);

MACD : 2*(DIF-DEA), COLORSTICK;

{面积计算}

绿面积:IF (MACD<0,SUM(MACD,BARSLAST(MACD>0)) * 100,0),linethick0,colorblue; 红面积:IF (MACD>0,SUM(MACD,BARSLAST(MACD<0)) * 100,0),linethick0,colorred; 红显示:=CROSS(DEA, DIF); 绿显示:=CROSS(DIF, DEA);

DRAWTEXT( 红显示, DEA*1.03, NUMTOSTRN(REF(红面积, 1), 0)), colorred,valign2; DRAWTEXT( 绿显示, DEA*0.97, NUMTOSTRN(REF(绿面积, 1), 0)), colorgreen; {当前面积}

DRAWTEXT(BARSTATUS=2 and macd>0, -macd*0.03, NUMTOSTRN(红面积, 0)), coloryellow,valign0, align2;

DRAWTEXT(BARSTATUS=2 and macd<=0, -macd*0.03, NUMTOSTRN(绿面积, 0)), COLORFFCC66,valign2,align2;

多空线: 0, colorwhite, dotline;

stickline(MACD<0 and MACD>=REF(MACD, 1), 0, macd, 0, 0), COLORFFCC66; stickline(MACD<0 and MACD=0 and MACD>REF(MACD, 1), 0, macd, 0, 0), COLORRed; stickline(MACD>=0 and MACD<=REF(MACD, 1), 0, macd, 0, 0), COLORYellow;

partline(dif,dif>=ref(dif,1),rgb(255,0,0),dif

3. 中 : MA(CLOSE,N),colorgray, dotline; 上: 中+ P*STD(CLOSE,N),colorgray, dotline; 下: 中 - P*STD(CLOSE,N),colorgray, dotline; MA1:MA(CLOSE,P1),colorwhite; MA2:MA(CLOSE,P2),coloryellow; MA3:MA(CLOSE,P3),colorred; MA4:MA(CLOSE,P4),colorgreen; MA5:MA(CLOSE,P5),colorf00ff0; MA6:MA(CLOSE,P6),colorblue; 分型:=\笔:=\

bilast:=\段:=\

duanlast:=\jxyl:=\jxzc:=\

DRAWTEXT(笔=1, h, ''+h+'/T'+bilast), colorCyan, align1, valign2; DRAWTEXT(笔=-1, l, ''+l+'/T'+bilast), colorCyan, align1;

4. 上证_开:\ 上证_高:\ 上证_低:\ 上证_收:\

STICKLINE(上证_收>=上证_开,上证_开,上证_收,7,0),COLORRED; STICKLINE(上证_收>=上证_开,上证_高,上证_低,0.1,0),COLORRED; STICKLINE(上证_收<=上证_开,上证_开,上证_收,7,0),COLORGREEN; STICKLINE(上证_收<=上证_开,上证_高,上证_低,0.1,0),COLORGREEN; 五:MA(上证_收,5),colorwhite; 十:MA(上证_收,10),coloryellow; 三十:MA(上证_收,20),colorred; 六十:MA(上证_收,60),colorgreen; 一百二十:MA(上证_收,120),colorf00ff0; 二百五十:MA(上证_收,250),colorblue;

5、主图公式：

kx:=\这个放第一个 要不会出问题滴-_-\\\\\\~~} kxg:=\kxd:=\kxfx:=\

kxno:\kxnobh:\笔:=\

bilast:\段:=\

duanlast:\bifx:=-REF(笔,bilast); duanfx:=-REF(段,duanlast);

{笔高低点 周期 力度 提示}

DRAWTEXT(笔=1, h, ''+h+'/T'+bilast+'/+'+(h-REF(l,bilast))),colorgreen, align1, valign2; DRAWTEXT(笔=-1, l, ''+l+'/T'+bilast+'/'+(l-REF(h,bilast))), colorred, align1;

{当下提示 周期}

DRAWTEXT(BARSTATUS=2 AND bifx=1 AND bilast>4, h*1.008, 'T'+bilast+'/+'+(c-REF(l,bilast))), colorMagenta, align0, valign2;

DRAWTEXT(BARSTATUS=2 AND bifx=-1 AND bilast>4, l*0.992,'T'+bilast+'/'+(c-REF(h,bilast))), colorGreen, align0;

主图公式：N P P1

中 : MA(CLOSE,N),colorgray, dotline; 压: 中+ P*STD(CLOSE,N),colorgray, dotline; 支: 中 - P*STD(CLOSE,N),colorgray, dotline; MA1:MA(CLOSE,5),colorwhite; MA2:MA(CLOSE,10),coloryellow; MA3:MA(CLOSE,30),colorgreen; MA4:MA(CLOSE,60),colorred; MA5:MA(CLOSE,120),colorf00ff0; MA6:MA(CLOSE,250),colorblue;

kx:=\这个放第一个 要不会出问题滴-_-\\\\\\~~} kxg:=\kxd:=\kxfx:=\

kxno:\kxnobh:\笔:=\

bilast:\段:=\

duanlast:\bifx:=-REF(笔,bilast); duanfx:=-REF(段,duanlast);

{笔高低点 周期 力度 提示}

DRAWTEXT(笔=1, h, ''+h+'/T'+bilast+'/+'+(h-REF(l,bilast))),colorred, align1, valign2; DRAWTEXT(笔=-1, l, ''+l+'/T'+bilast+'/'+(l-REF(h,bilast))), colorgreen, align1;

{当下提示 周期}

DRAWTEXT(BARSTATUS=2 AND bifx=1 AND bilast>4, h*1.008, 'T'+bilast+'/+'+(c-REF(l,bilast))), colorMagenta, align0, valign2;

DRAWTEXT(BARSTATUS=2 AND bifx=-1 AND bilast>4, l*0.992,'T'+bilast+'/'+(c-REF(h,bilast))), colorGreen, align0;

主图公式：

kx:=\这个放第一个 要不会出问题滴-_-\\\\\\~~} kxg:=\kxd:=\kxfx:=\

kxno:\kxnobh:\笔:=\

bilast:\段:=\

duanlast:\bifx:=-REF(笔,bilast); duanfx:=-REF(段,duanlast);

{笔高低点 周期 力度 提示}

DRAWTEXT(笔=1, h, ''+h+'/T'+bilast+'/+'+(h-REF(l,bilast))),colorred, align1, valign2; DRAWTEXT(笔=-1, l, ''+l+'/T'+bilast+'/'+(l-REF(h,bilast))), colorgreen, align1;

主图公式：

kxian:=\初始化} kxg:=\kxd:=\bi:=\