当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：MACD组VOL副图指标，源码分享
软件名称：[B]MACD组VOL副图指标，源码分享[/B]
软件类型：国产软件
运行环境：Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：分享版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2024-11-06 06:38:59
软件简介:
MACD组VOL副图指标
DRAWGBK(C>0,RGB(0,0,110),RGB(0,25,0),0,' ',0);
AX:=PERIOD;
BL:=IF(AX=0,150,IF(AX=1,50,IF(AX=2,30,IF(AX=3,17,IF(AX=4,15,IF(AX=5,8, IF(AX=6,3,IF(AX=7,2,IF(AX=8,50,IF(AX=9,3,1.3))))))))));
FM:=(EMA(CLOSE,1.414*9+1));
FCL:=IF(FM<=0.05,ABS(FM)+0.1,0);
DIF:=(EMA(CLOSE,9)-EMA(CLOSE,2*9+2))/(FCL+FM)*60*BL*4+260,COLORLIRED,LINETHICK1;
DEA:=EMA(DIF,9*0.75),COLORGREEN,LINETHICK1;
MACD:=3*(DIF-DEA)+200{分析家公式网HTTP://WWW.70822.COM};
STICKLINE(MACD>200 AND MACD< REF(MACD,1),200,MACD,1,0),COLORGREEN;
STICKLINE(MACD>200 AND MACD>REF(MACD,1),200,MACD,1,0),COLORRED;
STICKLINE(MACD< 200 AND MACD< REF(MACD,1),200,MACD,1,1),COLORLIGREEN;
STICKLINE(MACD< 200 AND MACD>REF(MACD,1),200,MACD,1,1),COLORLIRED;
DRAWBAND(DIF,RGB(240,240,10),DEA,RGB(0,240,0));
DIF1:(EMA(CLOSE,9)-EMA(CLOSE,2*9+2))/(FCL+FM)*60*BL*4+260,COLORLIRED,DOTLINE,LINETHICK1;
DEA1:EMA(DIF,9*0.75),COLORGREEN,DOTLINE,LINETHICK1;
DRAWTEXT(CROSS(DIF,DEA),DIF*0.93,'B'),COLORYELLOW;
L1:=(CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11))*100*4+10;
K:SMA(L1,3,1),COLORGRAY;
D:SMA(K,3,1),COLOR38B0DE;
W:IF(K>REF(K,1),K,DRAWNULL),COLORMAGENTA,LINETHICK2;
MAXV:=CONST(HHV(VOL,100));
MAXD:=CONST(MAX(ABS(HHV(DIF,100)),ABS(LLV(DIF,100))));
BS:=MAXV/MAXD*1.5;
CC:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN*0.8/BS,DRAWNULL);
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,CC,0,-1,-1),COLOR00C0C0;
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
买盘:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE< OPEN,AA*((HIGH-OPEN)+ (CLOSE-LOW)),VOL/2)),NODRAW;
买:买盘/10000,COLORRED,NODRAW;
卖盘:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE< OPEN, 0-AA*(HIGH-LOW),0-VOL/2)),NODRAW;
卖:卖盘/1000.....附件里有完整的源码
[url=http://www.70822.com/soft/sort013/sort05/down-175467.html]MACD组VOL副图指标，源码分享[/url]