飛狐自適應均線 全功能量尺 背離

相關標簽: 均線背離 、 短線看背離中線看均線 、 如何運用均線的背離 、 背離30均線 、 什么叫均線背離 、 自適應均線系統 、 sar自適應均線系統 、 自適應均線指標 、 大智慧自適應均線 、

{疊加引用}
{自適應均線+全功-引用}
CCC:=CLOSE;
HHH:=HIGH;
LLL:=LOW;
VVV:=VOL;
OOO:=O;
IF SYSPARAM(1)>=260 THEN Begin
XX:=SETLBOUND(CCC,SYSPARAM(1)-259);
XX:=SETLBOUND(HHH,SYSPARAM(1)-259);
XX:=SETLBOUND(LLL,SYSPARAM(1)-259);
XX:=SETLBOUND(VVV,SYSPARAM(1)-259);
XX:=SETLBOUND(OOO,SYSPARAM(1)-259);
End;OO:OOO,LINETHICK0;CC:CCC,LINETHICK0;
HH:HHH,LINETHICK0;LL:LLL,LINETHICK0;
DV:VVV,LINETHICK0;

{自適應均線+全功能量尺+背離}{程序化交易 www.tumamayizhan.com }
gb:=SYSPARAM(1);
if gb<1 or gb>dataCOUNT then exit;
gb2:=SYSPARAM(2);
gb3:=SYSPARAM(3);
gbp:=gb=BARPOS;
gbp2:=gb2=BARPOS;
gbp3:=gb3=BARPOS;
CCC:=C;
HHH:=HIGH;
LLL:=LOW;
VVV:=VOL;
OOO:=O;
IF gb>=500 THEN Begin
XX:=SETLBOUND(CCC,gb-499);
XX:=SETLBOUND(HHH,gb-499);
XX:=SETLBOUND(LLL,gb-499);
XX:=SETLBOUND(VVV,gb-499);
XX:=SETLBOUND(OOO,gb-499);
End;
HH:=HHV(hHH,2);
LL:=llv(lLL,2);
A1:=HH>ref(HH,2) and cCC>ref(cCC,2);
A2:=LL<ref(LL,2) and cCC<ref(cCC,2); {文章來至程序化交易網 cxh99.com}
A3:=BARSLAST(A1);
A4:=BARSLAST(A2);
A5:=IF(A1,LL,ref(LL,A3));
A6:=IF(A2,HH,ref(HH,A4));
yzx:=IF(A3>A4,A6,A5);
PARTLINE(gb-20<BARPOS and gb>=BARPOS and yzx[gb]<cCC[gb],yzx[gb]),Color5252ff,LINETHICK1,shift1;
PARTLINE(gb-20<BARPOS and gb>=BARPOS and yzx[gb]>=cCC[gb],yzx[gb]),colorblue,LINETHICK1,shift1;
bc2:=BARSLAST(gbp)+1;
金H:=IF(cCC>100,SUM(hHH*vvv,bc2)/SUM(vvv,bc2),SUM(AMOUNT,bc2)/SUM(vvv,bc2)/100*SUM(hHH,bc2)/SUM(CCC,BC2));
金L:=IF(cCC>100,SUM(lLL*vvv,bc2)/SUM(VOL,bc2),SUM(AMOUNT,bc2)/SUM(vvv,bc2)/100*SUM(lLL,bc2)/SUM(CCC,BC2));
dsc:=if(ref(hHH,bc2-1)>ref(hHH,bc2) and ref(hHH,bc2-1)>ref(hHH,bc2-2) ,金h,金l);
PARTLINE(gb<BARPOS,dsc),colorBC00AF,LINETHICK2;

金:dsc[gb3],LINETHICK0;
cc:=ccc;
M5:=if(gb>6,MA(ccc,5),MA(ccc,0));
M10:=if(gb>11,MA(ccc,10),MA(ccc,0));
M20:=if(gb>21,MA(ccc,20),MA(ccc,0));
M30:=if(gb>31,MA(ccc,30),MA(ccc,0));
M60:=if(gb>61,MA(ccc,60),MA(ccc,0));
M90:=if(gb>91,MA(ccc,90),MA(ccc,0));
M120:=if(gb>121,MA(ccc,120),MA(ccc,0));
M240:=if(gb>241,MA(ccc,240),MA(ccc,0));
p[1]:=CC[gb];p[2]:=M5[gb];
p[3]:=M10[gb];p[4]:=M20[gb];
p[5]:=M30[gb];
p[6]:=M60[gb];
p[7]:=M90[gb];
p[8]:=M120[gb];
p[9]:=M240[gb];
s[1]:=CC[gb];s[2]:=M5[gb];
s[3]:=M10[gb];s[4]:=M20[gb];
s[5]:=M30[gb];
s[6]:=M60[gb];
s[7]:=M90[gb];
s[8]:=M120[gb];
s[9]:=M240[gb];
VARIABLE:ptr[9]='';
ptr[1]:='●';ptr[2]:='⑤';
ptr[3]:='①';ptr[4]:='②';
ptr[5]:='③';
ptr[6]:='⑥';
ptr[7]:='⑨';
ptr[8]:=' B';
ptr[9]:=' N';
VARIABLE:ptrs[9]='';
ptrs[1]:=if(cc[gb]>=cc[gb-1],'↑','↓');
ptrs[2]:=if(m5[gb]>=m5[gb-1],'↑','↓');
ptrs[3]:=if(m10[gb]>=m10[gb-1],'↑','↓');
ptrs[4]:=if(m20[gb]>=m20[gb-1],'↑','↓');
ptrs[5]:=if(m30[gb]>=m30[gb-1],'↑','↓');
ptrs[6]:=if(m60[gb]>=m60[gb-1],'↑','↓');
ptrs[7]:=if(m90[gb]>=m90[gb-1],'↑','↓');
ptrs[8]:=if(m120[gb]>=m120[gb-1],'↑','↓');
ptrs[9]:=if(m240[gb]>=m240[gb-1],'↑','↓');
px:=SORTPOS(p,0,1,9);
nu1:=if(c>1000,NUMTOSTR(s[p[1]],0),NUMTOSTR(s[p[1]],2));
nu2:=if(c>1000,NUMTOSTR(s[p[2]],0),NUMTOSTR(s[p[2]],2));
nu3:=if(c>1000,NUMTOSTR(s[p[3]],0),NUMTOSTR(s[p[3]],2));
nu4:=if(c>1000,NUMTOSTR(s[p[4]],0),NUMTOSTR(s[p[4]],2));
nu5:=if(c>1000,NUMTOSTR(s[p[5]],0),NUMTOSTR(s[p[5]],2));
nu6:=if(c>1000,NUMTOSTR(s[p[6]],0),NUMTOSTR(s[p[6]],2));
nu7:=if(c>1000,NUMTOSTR(s[p[7]],0),NUMTOSTR(s[p[7]],2));
nu8:=if(c>1000,NUMTOSTR(s[p[8]],0),NUMTOSTR(s[p[8]],2));
nu9:=if(c>1000,NUMTOSTR(s[p[9]],0),NUMTOSTR(s[p[9]],2));
NUS1:=IF(s[p[1]]>100 OR s[p[1]]<10,' ','');
NUS2:=IF(s[p[2]]>100 OR s[p[2]]<10,' ','');
NUS3:=IF(s[p[3]]>100 OR s[p[3]]<10,' ','');
NUS4:=IF(s[p[4]]>100 OR s[p[4]]<10,' ','');
NUS5:=IF(s[p[5]]>100 OR s[p[5]]<10,' ','');
NUS6:=IF(s[p[6]]>100 OR s[p[6]]<10,' ','');
NUS7:=IF(s[p[7]]>100 OR s[p[7]]<10,' ','');
NUS8:=IF(s[p[8]]>100 OR s[p[8]]<10,' ','');
NUS9:=IF(s[p[9]]>100 OR s[p[9]]<10,' ',''); {文章來至程序化交易網 cxh99.com}
SHSZ:=STRCMP(MARKETLABEL,'SH')=0;
IF SHSZ=1 THEN X:='1A0001';
IF SHSZ=0 THEN X:='399001';
疊開:=STKINDI(X,'疊加引用.OO',0,-1),LINETHICK0;
疊高:=STKINDI(X,'疊加引用.HH',0,-1),LINETHICK0;
疊低:=STKINDI(X,'疊加引用.LL',0,-1),LINETHICK0;
疊收:=STKINDI(X,'疊加引用.CC',0,-1),LINETHICK0;
ttst:=if(HHV(hhh,80)=HHV(hhh,160),'',' ');
tts:=if(HHV(hhh,55)>=HHV(hhh,145),' ',ttst);
DRAWTEXT(gbp2 and ptrs[p[1]]='↓',ccc,tts+ptr[p[1]]+nu1+nus1),ALIGN4,COLORFFFF52; {本文來至程序化交易網 cxh99.com}
DRAWTEXT(gbp2 and ptrs[p[2]]='↓',ccc,tts+' '+ptr[p[2]]+nu2+nus2),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[3]]='↓',ccc,tts+' '+ptr[p[3]]+nu3+nus3),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[4]]='↓',ccc,tts+' '+ptr[p[4]]+nu4+nus4),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[5]]='↓',ccc,tts+' '+ptr[p[5]]+nu5+nus5),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[6]]='↓',ccc,tts+' '+ptr[p[6]]+nu6+nus6),ALIGN4,COLORFFFF52; {內容來至程序化交易網 CXH99.COM}
DRAWTEXT(gbp2 and ptrs[p[7]]='↓',ccc,tts+' '+ptr[p[7]]+nu7+nus7),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[8]]='↓',ccc,tts+' '+ptr[p[8]]+nu8+nus8),ALIGN4,COLORFFFF52;
DRAWTEXT(gbp2 and ptrs[p[9]]='↓',ccc,tts+' '+ptr[p[9]]+nu9+nus9),ALIGN4,COLORFFFF52; {內容來至程序化交易網 CXH99.COM}
DRAWTEXT(gbp2 and ptrs[p[1]]='↑',ccc,tts+ptr[p[1]]+nu1+nus1),ALIGN4,color5252ff;
DRAWTEXT(gbp2 and ptrs[p[2]]='↑',ccc,tts+' '+ptr[p[2]]+nu2+nus2),ALIGN4,color5252ff;
DRAWTEXT(gbp2 and ptrs[p[3]]='↑',ccc,tts+' '+ptr[p[3]]+nu3+nus3),ALIGN4,color5252ff;
DRAWTEXT(gbp2 and ptrs[p[4]]='↑',ccc,tts+' '+ptr[p[4]]+nu4+nus4),ALIGN4,color5252ff;
DRAWTEXT(gbp2 and ptrs[p[5]]='↑',ccc,tts+' '+ptr[p[5]]+nu5+nus5),ALIGN4,color5252ff;
DRAWTEXT(gbp2 and ptrs[p[6]]='↑',ccc,tts+' '+ptr[p[6]]+nu6+nus6),ALIGN4,color5252ff;
DRAWTEXT(gbp2 and ptrs[p[7]]='↑',ccc,tts+' '+ptr[p[7]]+nu7+nus7),ALIGN4,color5252ff;
DRAWTEXT(gbp2 and ptrs[p[8]]='↑',ccc,tts+' '+ptr[p[8]]+nu8+nus8),ALIGN4,color5252ff;
DRAWTEXT(gbp2 and ptrs[p[9]]='↑',ccc,tts+' '+ptr[p[9]]+nu9+nus9),ALIGN4,color5252ff; {本文來至程序化交易網 cxh99.com}
DRAWTEXT(gbp3,cc[gb],'---'),pxUP8,colorFF,shift1; {內容來至程序化交易網 CXH99.COM}

LC:=ref(ccc,1);
TRs:=MAX((hhh - lll),MAX((hhh - LC),(LC - lll)));
ATR:=SMA(TRs,20,1); {內容來至程序化交易網 CXH99.COM}

hatr:=hhh[gb]+atr[gb]/2;
latr:=lll[gb]-atr[gb]/2;
PARTLINE(m5[gb]<hatr and m5[gb]>latr,m5),colorFFFFFF;
PARTLINE(m10[gb]<hatr and m10[gb]>latr,m10),color00FFFF;
PARTLINE(m20[gb]<hatr and m20[gb]>latr,m20),colorFF00FF;
PARTLINE(m30[gb]<hatr and m30[gb]>latr,m30),color00FF00;
PARTLINE(m60[gb]<hatr and m60[gb]>latr,m60),colorBDBDBD;
PARTLINE(m90[gb]<hatr and m90[gb]>latr,m90),colorFF0000;
PARTLINE(m120[gb]<hatr and m120[gb]>latr,m120),colorFF00FF;
PARTLINE(m240[gb]<hatr and m240[gb]>latr,m240),color007B7B;
DRAWTEXT(gbp3 and m5[gb]<hatr and m5[gb]>latr,m5,'-5'),align1,shift2,colorFFFFFF,pxUP8;
DRAWTEXT(gbp3 and m10[gb]<hatr and m10[gb]>latr,m10,'-1'),align1,shift1,color00FFFF,pxUP8;
DRAWTEXT(gbp3 and m20[gb]<hatr and m20[gb]>latr,m20,'-2'),align1,shift0,colorFF00FF,pxUP8;
DRAWTEXT(gbp3 and m30[gb]<hatr and m30[gb]>latr,m30,'-3'),align1,shift2,color00FF00,pxUP8;
DRAWTEXT(gbp3 and m60[gb]<hatr and m60[gb]>latr,m60,'-6'),align1,shift1,colorBDBDBD,pxUP8;
DRAWTEXT(gbp3 and m90[gb]<hatr and m90[gb]>latr,m90,'-9'),align1,shift0,colorFF0000,pxUP8;
DRAWTEXT(gbp3 and m120[gb]<hatr and m120[gb]>latr,m120,'-B'),align1,shift2,colorFF00FF,pxUP8;
DRAWTEXT(gbp3 and m240[gb]<hatr and m240[gb]>latr,m240,'-N'),align1,shift1,color007b7b,pxUP8;
KLINE(Ooo,Hhh,Lll,Ccc,0);

IF ccc[gb]<CCc[gb3] THEN BEGIN
股漲%:=(CCc[gb3]-lll[gb])/lll[gb]*100,LINETHICK0;
盤漲%:=(疊收[gb3]-疊低[gb])/疊低[gb]*100,LINETHICK0;
漲周期:=gb3-gb,LINETHICK0;
DRAWTEXT(gbp and gb<gb3,ccc[gb3],'↑'),ALIGN0,PXdn5,color5252ff;
DRAWTEXT(if(gb3-gb<40,gb-40=BARPOS,gbp) and gb<gb3,ccc[gb3],' 股漲:'+NUMTOSTR(股漲%,2)+' 盤漲:'+NUMTOSTR(盤漲%,2)+' 漲:'+NUMTOSTR(漲周期,0)+'周期'),ALIGN4,PXdn34,color5252ff;
STICKLINE(gbp and gb<gb3,ccc[gb3],ccc[gb3],20,0),color5252ff;
STICKLINE(gbp and gb<gb3,lll[gb],lll[gb],20,0),color5252ff;
end
ELSE BEGIN
股跌%:=(CCc[gb3]-hhh[gb])/hhh[gb]*100,LINETHICK0;
盤跌%:=(疊收[gb3]-疊高[gb])/疊高[gb]*100,LINETHICK0;
跌周期:=gb3-gb,LINETHICK0;
DRAWTEXT(gbp and gb<gb3,ccc[gb3],'↓'),ALIGN0,PXup20,COLORFFFF52;
DRAWTEXT(if(gb3-gb<40,gb-40=BARPOS,gbp) and gb<gb3,ccc[gb3],' 股跌: '+NUMTOSTR(股跌%,2)+' 盤跌:'+NUMTOSTR(盤跌%,2)+' 跌:'+NUMTOSTR(跌周期,0)+'周期'),ALIGN4,PXdn34,COLORFFFF52;
STICKLINE(gbp and gb<gb3,ccc[gb3],ccc[gb3],20,0),COLORFFFF52;
STICKLINE(gbp and gb<gb3,hhh[gb],hhh[gb],20,0),COLORFFFF52;
end
光標:=SYSPARAM(6);
KK:=光標-Ccc;
IF KK[gb]>0 THEN BEGIN
起始L:=LLl[gb],COLORred,LINETHICK1;
STICKLINE(gbp2 and gb<gb3,光標,光標,12,0),color5252ff;
STICKLINE(gbp2 and gb<gb3,lll[gb],lll[gb],12,0),color5252ff;
gbz382:=(光標-lll[gb])*0.382+lll[gb];
gbz500:=(光標-lll[gb])*0.5+lll[gb];
gbz618:=(光標-lll[gb])*0.618+lll[gb];
漲%1:=(hhh[gb3]-lll[gb])/(光標-lll[gb]);
STICKLINE(gbp2 and gb<gb3,gbz382,gbz382,12,0),color5252ff;
STICKLINE(gbp2 and gb<gb3,gbz500,gbz500,12,0),color5252ff;
STICKLINE(gbp2 and gb<gb3,gbz618,gbz618,12,0),color5252ff;
STICKLINE(gbp2 and gb<gb3,ccc[gb3],ccc[gb3],12,0),COLORbFFFF52;
漲幅統計:=(光標-起始L)/起始L*100,LINETHICK;
DRAWTEXT(gbp2 and gb<gb3,起始L,'↓'),ALIGN0,PXup20,color5252ff;
DRAWTEXT(gbp2 and gb<gb3,光標,'↑'),ALIGN0,PXdn5,color5252ff;
DRAWTEXT(gb2+1=BARPOS AND gb<gb3,光標,'統漲%:'+NUMTOSTR(漲幅統計,2)+'\n0.618:'+NUMTOSTR(gbZ618,2)+'\n\n0.500:'+NUMTOSTR(gbZ500,2)+'\n\n\n0.382:'+NUMTOSTR(gbZ382,2)+')'+'\n\n\n\n'+NUMTOSTR(漲%1,3)+':'+NUMTOSTR(hhh[gb3],2)+'(H)'+'\n\n\n\n\n今 收:'+NUMTOSTR(ccc[gb3],2) {本文來至程序化交易網 cxh99.com}
+'\n\n\n\n\n\n光 標:'+NUMTOSTR(光標,2)),ALIGN1,PXDN30,color5252ff;
END;
ELSE BEGIN
起始H:=HHh[gb],COLORblue ,LINETHICK1;
STICKLINE(gbp2 and gb<gb3,光標,光標,12,0),COLORFFFF52;
STICKLINE(gbp2 and gb<gb3,hhh[gb],hhh[gb],12,0),COLORFFFF52;
gbd382:=((hhh[gb]-光標)*0.618+光標);
gbd500:=((hhh[gb]-光標)*0.5+光標);
gbd618:=((hhh[gb]-光標)*0.382+光標);
跌%1:=(1-(lll[gb3]-光標)/(hhh[gb]-光標));
STICKLINE(gbp2 and gb<gb3,gbd382,gbd382,12,0),COLORFFFF52;
STICKLINE(gbp2 and gb<gb3,gbd500,gbd500,12,0),COLORFFFF52;
STICKLINE(gbp2 and gb<gb3,gbd618,gbd618,12,0),COLORFFFF52;
STICKLINE(gbp2 and gb<gb3,ccc[gb3],ccc[gb3],12,0),COLOR5252ff;
跌幅統計:=(光標-起始H)/起始H*100,LINETHICK;
DRAWTEXT(gbp2 and gb<gb3,起始H,'↑'),ALIGN0,PXdn5,COLORFFFF52;
DRAWTEXT(gbp2 and gb<gb3,光標,'↓'),ALIGN0,pxup20,COLORFFFF52;
DRAWTEXT(gb2+1=BARPOS AND gb<gb3,起始H,'統跌%:'+NUMTOSTR(跌幅統計,2)+'\n0.382:'+NUMTOSTR(gbd382,2)+'\n\n0.500:'+NUMTOSTR(gbd500,2)+'\n\n\n0.618:'+NUMTOSTR(gbd618,2)+'\n\n\n\n'+NUMTOSTR(跌%1,3)+':'+NUMTOSTR(lll[gb3],2)+'(L)'+ {本文來至CXH99.COM}
'\n\n\n\n\n今 收:'+NUMTOSTR(ccc[gb3],2)+'\n\n\n\n\n\n光 標:'+NUMTOSTR(光標,2)),ALIGN1,PXDN30,COLORFFFF52;
end

Direction:=c-ref(c,5) ;
XX:=ABS(c-ref(c,1)) ;
Volatility:=SUM(XX,5) ;
ER:=ABS(Direction/Volatility) ;
FastC:=2/(2+1) ;
SLOWC:=2/(15+1) ;
SSC:=ER*(FastC-SLOWC )+SLOWC ;
Constant:=SSC*SSC,LINETHICK0 ;
YY:=ref(c,1)+Constant*(c-ref(c,1)) ;
AAa:=IF(SUM(1,0)=2+1,YY,0) ;
BBb:=BARSLAST(AAa>0) ;
DDd:=ref(c,BBb ) ;
cc:=c;
for m=5+2 to DATACOUNT DO
DDd[m]:=DDd[m-1]+Constant[m]*(CC[m]-DDd[m-1]);
AMA:=DDd;
T1:=DDd>ref(DDd,1);
T3:=NOT(T1) AND ABS(DDd-ref(DDd,1))/DDd*10000<5;
T2:=NOT(T1 OR T3);
kfm1:=if(t1[gb],'▲','▼');
kfm:=if(t3[gb],'◆',kfm1);
hs:=vvv/CAPITAL*100;
資金乖離率:=(hs-MA(hs,5))/MA(hs,5);
VDIF:=(資金乖離率-ref(資金乖離率,16));
VDBCD:=SMA(VDIF,76,1);
VMM:=MA(VDBCD,13);
zjgl:=if(VDBCD[gb]>=VMM[gb],'◎','※'); {本文來至程序化交易網 cxh99.com}

RSV:=(CCC-LLV(LLL,9))/(HHV(HHH,9)-LLV(LLL,9))*100;
K:=SMA(RSV,3,1),LINETHICK0;
D:=SMA(K,3,1),LINETHICK0;
J:=3*K-2*D,LINETHICK0;
pp[1]:=k[gb];pp[2]:=d[gb];
pp[3]:=j[gb];
ss[1]:=k[gb];ss[2]:=d[gb];
ss[3]:=j[gb];
VARIABLE:pPtr[3]='';
pPtr[1]:='K:';
pPtr[2]:='D:';
pPtr[3]:='J:';
VARIABLE:pPtrs[3]='';
pPtrs[1]:=if(k[gb]>k[gb-1],'↑','↓');
pPtrs[2]:=if(d[gb]>d[gb-1],'↑','↓');
pPtrs[3]:=if(j[gb]>j[gb-1],'↑','↓');
px1:=SORTPOS(pP,1,1,3);
N1:=3;N2:=9;N3:=12;N4:=26;
DIFF:=EMA(Ccc,N3)-EMA(Ccc,N4);
DEA:=EMA(DIFF,N2);
MAc1:=if(DIFF[gb]>DEA[gb],'↑','↓');
RSV:=(ccc-LLV(lll,N3))/(HHV(hhh,N3)-LLV(lll,N3))*100;
K:=SMA(RSV,N1,1);
D:=SMA(K,N1,1);
MAc2:=if(k[gb]>d[gb],'↑','↓');
LC:=ref(ccc,1);
RSI1:=(SMA(MAX(ccc-LC,0),N2,1))/(SMA(ABS(ccc-LC),N2,1))*100;
RSI2:=(SMA(MAX(ccc-LC,0),N4,1))/(SMA(ABS(ccc-LC),N4,1))*100;
MAc3:=if(RSI1[gb]>RSI2[gb],'↑','↓');
RSV:=-(HHV(hhh,N4)-ccc)/(HHV(hhh,N4)-LLV(lll,N4))*100; {文章來至程序化交易網 cxh99.com}
LWR1:=SMA(RSV,N1,1);
LWR2:=SMA(LWR1,N1,1);
MAc4:=if(LWR1[gb]>LWR2[gb],'↑','↓');
BBI:=(MA(ccc,N1)+MA(ccc,N2)+MA(ccc,N3)+MA(ccc,N4))/4;
MAc5:=if(ccc[gb]>BBI[gb],'↑','↓');
MTM:=ccc-ref(ccc,1);
MMS:=100*EMA(EMA(MTM,N2),N1)/EMA(EMA(ABS(MTM),N2),N1);
MMM:=100*EMA(EMA(MTM,N4),N3)/EMA(EMA(ABS(MTM),N4),N3);
MAc6:=if(mms[gb]>mmm[gb],'↑','↓');
ttss:=if(llv(lll,55)=llv(lll,160),'',' ');
DRAWTEXT(gbp2,ccc,ttss+pPtr[pP[1]]+NUMTOSTR(sS[pP[1]], 0)+pPtrs[pP[1]]+pPtr[pP[2]]+NUMTOSTR(sS[pP[2]], 0)+pPtrs[pP[2]]+pPtr[pP[3]]+NUMTOSTR(sS[pP[3]], 0)+pPtrs[pP[3]]+' MKRWBL'+MAc1+MAc2+MAc3+MAc4+MAc5+MAc6+kfm+zjgl),PXDN10,align5,COLORFFFF52; {本文來至程序化交易網 cxh99.com}
TYP := (hhh + lll + ccc)/3;
rs:=SUM(IF(TYP>ref(TYP,1),TYP*vvv,0),9)/SUM(IF(TYP<=ref(TYP,1),TYP*vvv,0),9);
能量:100-100/(1+rs),LINETHICK,colorred;
差:能量[gb]-能量[gb-1],LINETHICK;

D1:=EMA(ccc,3)-EMA(ccc,8);
D2:=EMA(ooo,3)-EMA(ooo,8);
D3:=EMA(hhh,3)-EMA(hhh,8);
D4:=EMA(lll,3)-EMA(lll,8);
A1:=BARSLAST(ref(CROSS(DIFF,DEA),1));
B1:=ref(ccc,A1+1)>ccc AND ref(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
MACD底背離:=FILTER(B1>0,5);
DRAWTEXT(MACD底背離 AND gb-10<=BARPOS and gb>=BARPOS ,lll,'M'),color7272FF,pxdn9,align0;
A2:=BARSLAST(ref(CROSS(K,D),1));
B2:=ref(ccc,A2+1)>ccc AND ref(K,A2+1)<K AND CROSS(K,D);
KDJ底背離:=FILTER(B2>0,5);
DRAWTEXT(KDJ底背離 AND gb-10<=BARPOS and gb>=BARPOS ,lll,'K'),color7272FF,pxdn9,align0;
DRAWTEXT(KDJ底背離,0.8,'K'),colorblue;
A3:=BARSLAST(ref(CROSS(RSI1,RSI2),1));
B3:=ref(ccc,A3+1)>CLOSE AND ref(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);
RSI底背離:=FILTER(B3>0,5);
DRAWTEXT(RSI底背離 AND gb-10<=BARPOS and gb>=BARPOS ,lll,'R'),color7272FF,pxdn9,align0;
C1:=BARSLAST(ref(CROSS(DEA,DIFF),1));
D1:=ref(ccc,C1+1)<ccc AND ref(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
MACD頂背離:=FILTER(D1>0,5);
DRAWTEXT(MACD頂背離 AND gb-10<=BARPOS and gb>=BARPOS,hhh,'M'),colorb5ae4a,pxup23,align0;
C2:=BARSLAST(ref(CROSS(D,K),1));
D2:=ref(ccc,C2+1)<ccc AND ref(K,C2+1)>K AND CROSS(D,K);
KDJ頂背離:=FILTER(D2>0,5);
DRAWTEXT(KDJ頂背離 AND gb-10<=BARPOS and gb>=BARPOS,hhh,'K'),colorb5ae4a,pxup23,align0;
C3:=BARSLAST(ref(CROSS(RSI2,RSI1),1));
D3:=ref(ccc,C3+1)<ccc AND ref(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);
RSI頂背離:=FILTER(D3>0,5);
DRAWTEXT(RSI頂背離 AND gb-10<=BARPOS and gb>=BARPOS,hhh,'R'),colorb5ae4a,pxup23,align0;

全部完畢！！！！！鼠標移動！！！變化多多！！！

{本文來至CXH99.COM}

{文章來至程序化交易網 cxh99.com}

(責任編輯：程序化交易網整理)