短线粘合背景指标源码[其他软件公式]

相关标签: 均线粘合选股公式下载 、 四线粘合选股公式 、 均线粘合突破选股公式 、 均线粘合突破选股法 、 粘合机 、 5 10 20均线粘合选股 、 均线粘合 、 四线粘合一线金叉 、 均线粘合 公式 、
 

{短线粘合背景指标源码}

Bj1:=HHV(MA(llv(h,2),8),6)*0.978;
Bj2:=WMA(C,7);
Tj1:=LLV(MA(L,12),4);
Tj2:=MA(Tj1,3);
FILLRGN(ABS(Tj1-Tj2)<0.008 AND C>Bj1 AND Bj2>ref(Bj2,1),Tj1,Tj2*0.98),COLORGRAY;//背景
{开盘既知今天高低价}
Vg:=MA(ref(H,1)/ref(C,2),27)*ref(C,1);
Vd:=MA(ref(L,1)/ref(C,2),27)*ref(C,1);
A5:=Vd[SYSPARAM(1)];
RA5:=Vd[SYSPARAM(1)-1];
A10:=Vg[SYSPARAM(1)];
RA10:=Vg[SYSPARAM(1)-1];
jt5:=if(A5>RA5,'↑','↓');
jt10:=if(A10>RA10,'↑','↓');
SZ1:='开盘测最高:'+NUMTOSTR(Vg[SYSPARAM(1)],2)+jt10;
SZ2:='\n\n开盘测最低:'+NUMTOSTR(Vd[SYSPARAM(1)],2)+jt5;
{K线}
STICKLINE(O>=C,C,O,7,0 ),ColorFFDBAB;
STICKLINE(O>=C,H,L,0,0),ColorFFDBAB;
STICKLINE(C>=O,C,O,7,1),COLORRED;
STICKLINE(C>=O,C,H,0,0),COLORRED;
STICKLINE(C>=O,L,O,0,0),COLORRED;
{合线}
T1:=MA(C,73);
T2:=MA(L,42);
合1:eMA(EMA(T1,2),3),PRECISION2,LINETHICK2,COLORGREEN; {文章来至程序化交易网 cxh99.com}
合2:ref(EMA(T2,11),9),PRECISION2,LINETHICK2,COLORMAGENTA;
{趋势}
HZFX:=forcast(HHV((C+L)/2,1),13);
HZFD:(LLV(HZFX,2)/HZFX)*LLV(HZFX,2),LINETHICK2,Color0089FF;
PARTLINE(HZFX<=HZFD,HZFD),LINETHICK3,ColorCF7165;
{乖离线}
TZAA:=C-ref(EMA(L,13),1)+(C*0.928);
乖离:MA(TZAA,3),PRECISION2,ColorBBFFFF;{抄底参考用}
顶:LLV(HHV(乖离,35),2),PRECISION2,LINETHICK2,Color008987;//逃顶线
底:((LLV(L,36)*0.88)*0.88),LINETHICK2,PRECISION2,COLOR009900;
{J小于底是底部；如果乖离同时小于MACD零轴，底部的概率极大}
{MACD}
HS:=(LLV(L,36)*0.868);
DIF:=EMA(C,12)-EMA(C,26);
DEF:=EMA(DIF,9);
MACD:=(4*(DIF-DEF));
STICKline(MACD<0,MACD+HS,HS,1,0),colorDDDD66; STICKline(MACD>ref(MACD,1) and MACD<0,MACD+HS,HS,1,0),ColorFFDBEA; {内容来至程序化交易网 CXH99.COM}
STICKline(MACD>0,MACD+HS,HS,1,0),Color8ED1FF; STICKline(MACD>ref(MACD,1) and MACD>0,MACD+HS,HS,1,0),colorred;
PARTLINE(MACD>0,HS),COLOR2266FF,LINETHICK2; PARTLINE(MACD<0,HS),COLORDDDD66,LINETHICK2;
{kdj}
RSV:=(C-LLV(L,19))/(HHV(H,19)-LLV(L,19))*10;
K:=(SMA(RSV,3,1)+HS*18)/20;
D:=SMA(K,3,1);
//PARTLINE(C,D),ColorBE9A00;
J:3*K-2*D,PRECISION2,COLORYELLOW;
{时间}
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=year;
fm:=month;
fd:=day;
wd:=weekday;
p:=sysparam(1);
str1:='今日： '+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'
+numtostr(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXT(BARPOS=SYSPARAM(2),C,str1),ALIGN5,Color008987; {本文来至CXH99.COM}

{开盘既知今天高低价}
DRAWTEXT(BARPOS=SYSPARAM(2),c,SZ1),align4,COLORYELLOW;
DRAWTEXT(BARPOS=SYSPARAM(2),c,SZ2),align4,COLORCYAN;