通达信公式源码概况:
指标类别:通达信公式
授权方式: 免费版
指标评级: ★★★★★
指标分类: 策略
画线方法: 副图
MA5:EMA(CLOSE,5),COLORWHITE;
MA10:EMA(CLOSE,10),COLORYELLOW;
MA20:EMA(CLOSE,20),COLORFF00FF;
MA40:EMA(CLOSE,40),COLOR00FF00;
MA60:EMA(C,60),COLOR888888;
MA250:EMA(C,250),COLORFFCC66;
月价托:=MA5 MA20ANDMA5 MA10ANDCROSS(MA10,MA20);
季价托:=MA20 MA60ANDMA20 MA40ANDCROSS(MA40,MA60);
短长价托:=MA5 MA60ANDMA5 MA10ANDCROSS(MA10,MA60);
DRAWICON(月价托,L-0.10,3);
DRAWICON(季价托,L-0.10,4);
DRAWICON(短长价托,L-0.10,5);
5:=MA(VOL,5);
VOL10:=MA(VOL,10);
VOL20:=MA(VOL,20);
量托:=VOL5 =VOL20ANDCROSS(VOL10,VOL20)ANDREF(VOL10,1) REF(VOL20,1);
DRAWICON(量托,L-0.10,6);
AA:=BARSLAST(MA40 MA60AND(MA20=MA40ORMA20 MA40));
BB:=REF(COUNT(C MA60,AA)=AA,1);
CC:=CROSS(C,MA60)ANDVOL MA(VOL,5)AND(C-REF(C,1))/REF(C,1)*100 3;
芙蓉出水:=BBANDCC;
DRAWICON(芙蓉出水,L-0.10,9);
M_V:=(MA(AMOUNT,5)/MA(v,5))/1000;
L_H:=MA(H,5)*M_V;
L_O:=MA(O,5)*M_V;
L_C:=MA(C,5)*M_V;
L_L:=MA(L,5)*M_V;
STICKLINE(L_C =L_O,L_L,L_H,0.00001,0),COLORRED;
STICKLINE(L_C L_O,L_O,L_C,2.5,0),COLORRED;
STICKLINE(L_C L_O,L_O,L_C,0.6,0),COLORCC66FF;
STICKLINE(L_C L_O,L_O,L_C,2.5,0),COLORFF6600;
STICKLINE(L_C L_O,L_O,L_C,0.6,0),COLORFF9900;
STICKLINE(L_C L_O,L_L,L_H,0.00001,0),COLORFF9900;
20,COLORMAGENTA,LINEDASHDOT;-20,COLORCYAN,LINEDASHDOT;
M1:=2;m2:=60;
均价:=(C+(H+l)/2*0.382+(c+O)/2*0.618)/2;
差价:=((c-REF(c,1))*0.382+(C-O)*0.618)*0.382;
乖离率:=(SMA(均价,M1,1)-MA(SMA(均价,2,1),M2))/MA(SMA(均价,2,1),M2)*100,COLORWHITE;
MID:乖离率,COLORWHITE;
MA1:ema(eMA(MID,4)-EMA(差价,246)/4,2),COLORRED;
MA2:EMA(MA1,5),COLORYELLOW;
PARTLINE(MA1 =REF(MA1,1),MA1),COLOR22FF22,COLOR00bb00;
PARTLINE(MA2 =REF(MA2,1),MA2),COLORFFCC66;
PARTLINE(乖离率 =MA1,乖离率),COLORGRAY;
QJ:=ema(eMA(均价,4)-EMA(差价,246)/4,2);
J1:=IF(CLOSE QJ,VOL,0);
J2:=IF(CLOSE QJ,VOL,0);
:MA(SUM(J1-J2,15),4)/100000,COLORMAGENTA;
:EMA(量能,3),COLORGREEN;
VAR3:(量能-趋势),LINETHICK;
点:=CROSS(MID,mA1)ANDVAR3 ref(VAR3,1)AND(-15 ref(MA1,1)OR(MA1 -5));
XG:IF(共振点,15,0),COLOR00AA99;
如果要看指数请把量能改为,量能:IF(STKTYPE=0,MA(SUM(J1-J2,15),4)/100000000,MA(SUM(J1-J2,15),4)/100000),COLORMAGENTA;
这样就可以看大盘指数了.否则乖离压缩的太厉害.
这是改进后的大盘副图,没有改以前,是看不到均线乖离三条线的
INPUT:N1(1,1,5),N2(3,0,10),N3(1.8,0,10);{一日平滑,滤去成交额3000万以下,缩放量影响系数设为1.8}
c1:=ref(c,1);
c2:=ref(c,2);{c,c1,c2是价格的绝对数值}
p:=(c-c1)/c1*100;
p1:=(c1-c2)/c2*100;{p,p1称为 绝对价格变化 ,是价格曲线的一阶差分}
pt:=p-p1;{pt称为 相对价格变化 ,是绝对价格变化曲线的一阶差分,是价格曲线的二阶差分}
{pt正向表示目前趋势向上突变,负向表示趋势向下突变,0表示趋势不变}
xt:=IF(AMOUNT/10000000 N2,pt,0);{成交额小于N2(千万)的不用计算}
xt1:=MA(xt,N1);{对xt进行N1日平滑处理}
xt2:=xt1*(vol/capital);{由绝对缩放量影响对xt1进行实化}
{再由相对缩放量影响对xt2进行修正:}
mt:=VOL-REF(VOL,1);{定义vol对上一天的绝对增减量}
mt1:=(vol+mt)/vol;{若是放量,则以放量后的vol为基准}
mt2:=vol/REF(vol,1);{若是缩量,则以缩量前的ref.vol为基准}
m:=IF(mt 0,mt1,mt2);
{自定义相对缩变系数}
n:=POW(m,N3);{调整缩放系数强度}
xt3:=xt2*n;{执行修正}
x:xt3,PRECISION2,linethick;{求输出}
//输出
0,PRECISION2,linethick1;{画零位线}
DRAWTEXTEx(c,1,0,0, 量价突变脉冲(自编) ),COLORYELLOW;
DRAWTEXTEX(c,1,0,150, 证券代码: +STKLABEL+ 证券名称: +STKNAME+ ),ColorFFAA00;
stickline(x 0,0,x,6,0),color0000aa;
stickline(x 0,0,x,3,0),color0000cc;
stickline(x 0,0,x,1,0),color0000ff;
stickline(x 0,x,0,6,0),color00aa00;
stickline(x 0,x,0,3,0),color00cc00;
stickline(x 0,x,0,1,0),color00ff00;{画强度柱体}
公式解读:
[源码注释]通达信公式动态公式解读N赋值:5
RSV赋值:(收盘价-N日内最低价的最低值)/(N日内最高价的最高值-N日内最低价的最低值)*100
VARB2赋值:(RSV/2+22)*1
量赋值:(手)的13日指数移动平均
赋值:成交额(元)的13日指数移动平均
过滤赋值:((资金 /量) / 100)
提纯赋值:(((收盘价 -过滤) / 过滤) * 100)
黄金赋值:((提纯 (0)) AND 直线拟合)
低买赋值:如果黄金ANDRSV VARB2-2,返回50,否则返回0
上涨分界赋值:25
KDJ提前赋值:(上涨分界上穿低买)
输出极限:KDJ提前金叉