短線粘合背景指標源碼[其他軟件公式]

相關標簽: 均線粘合選股公式下載 、 四線粘合選股公式 、 均線粘合突破選股公式 、 均線粘合突破選股法 、 粘合機 、 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;