注意:本指标源码用于通达信、通达信金融终端和通达信期货通。
M13:=EMA(C,21); MM13:=EMA(M13,13); MM17:=EMA(M13,17); ZONGGUI:=(MM13+MM17)/2,POINTDOT; DRAWICON(REF(ZONGGUI,1)<=REF(ZONGGUI,2) AND ZONGGUI>REF(ZONGGUI,1),MM17,7); DRAWICON(REF(ZONGGUI,1)>=REF(ZONGGUI,2) AND ZONGGUI<REF(ZONGGUI,1),MM13,8); H1:=15; L1:=15; HH1:=IF(C=HHV(C,5*H1),C,DRAWNULL); HH2:=CONST(BARSLAST(HH1=C))+1; LL1:=IF(L=LLV(L,5*L1),L,DRAWNULL); LL2:=CONST(BARSLAST(LL1=L))+1; NOD:=(IF(HH2>LL2,HH2,LL2)-IF(HH2>LL2,LL2,HH2)); CC1:=FORCAST(C,NOD+1); NP:=IF(CURRBARSCOUNT<=MAX(LL2,HH2),CONST(IF(MIN(HH2,LL2)=1,CC1,REF(CC1,MIN(HH2,LL2)-1))),DRAWNULL),POINTDOT,COLOR93BDA8; CC2:=SLOPE(C,NOD+1); CC3:=CONST(IF(MIN(HH2,LL2)=1,CC2,REF(CC2,MIN(HH2,LL2)-1))); FP:=NP-CC3*(NOD),POINTDOT,COLOR93BDA8; AD:=ABS(NP-FP); DBL:=BARSLAST(LL1!=DRAWNULL)+1; DBH:=BARSLAST(HH1!=DRAWNULL)+1; BSP:=IF(LL2>HH2,DBL,DBH)-1; CCL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP); DD1:=IF(BETWEEN(CURRBARSCOUNT,LL2,HH2) AND C>CCL,C,CCL); DD2:=HHV(DD1-CCL,MAX(LL2,HH2)); DD3:=CONST(BARSLAST(DD1-CCL=DD2)); DD5:=CONST(IF(DD3=0,DD1-CCL,REF(DD1-CCL,DD3))); DDL:=CCL+DD5; EE1:=IF(BETWEEN(CURRBARSCOUNT,LL2,HH2) AND L<CCL,L,CCL); EE2:=HHV(CCL-EE1,MAX(LL2,HH2)); EE3:=CONST(BARSLAST(CCL-EE1=EE2)); EE5:=CONST(IF(EE3=0,CCL-EE1,REF(CCL-EE1,EE3))); EEL:=CCL-EE5; D1HH:=IF(CURRBARSCOUNT>=MIN(LL2,HH2)-10,DDL,CONST(REF(DDL,MIN(LL2,HH2)-11))); D1LL:=IF(CURRBARSCOUNT>=MIN(LL2,HH2)-10,EEL,CONST(REF(EEL,MIN(LL2,HH2)-11))); MID1:=IF(NP>FP,IF(CCL<=D1HH,CCL,DRAWNULL),IF(CCL>=D1LL,CCL,DRAWNULL)),COLORLICYAN; UP1:IF(NP>FP,IF(DDL<=D1HH,DDL,DRAWNULL),IF(DDL>=D1LL,DDL,DRAWNULL)),COLORLICYAN; BOTTOM1:IF(NP>FP,IF(EEL<=D1HH,EEL,DRAWNULL),IF(EEL>=D1LL,EEL,DRAWNULL)),COLORLICYAN; IF(NP>FP,IF(CCL-EEL<DDL-CCL,CCL*2-EEL,IF(DDL-CCL<CCL-EEL,CCL-(DDL-CCL),DRAWNULL)),IF(CCL-EEL<DDL-CCL,CCL*2-EEL,IF(DDL-CCL<CCL-EEL,CCL-(DDL-CCL),DRAWNULL))),DOTLINE,COLORLICYAN; H2:=5; L2:=5; HH1A:=IF(C=HHV(C,5*H2),C,DRAWNULL); HH2A:=CONST(BARSLAST(HH1A=C))+1; LL1A:=IF(L=LLV(L,5*L2),L,DRAWNULL); LL2A:=CONST(BARSLAST(LL1A=L))+1; NODA:=(IF(HH2A>LL2A,HH2A,LL2A)-IF(HH2A>LL2A,LL2A,HH2A)); CC1A:=FORCAST(C,NODA+1); NPA:=IF(CURRBARSCOUNT<=MAX(LL2A,HH2A),CONST(IF(MIN(HH2A,LL2A)=1,CC1A,REF(CC1A,MIN(HH2A,LL2A)-1))),DRAWNULL),POINTDOT,COLOR93BDA8; CC2A:=SLOPE(C,NODA+1); CC3A:=CONST(IF(MIN(HH2A,LL2A)=1,CC2A,REF(CC2A,MIN(HH2A,LL2A)-1))); FPA:=NPA-CC3A*(NODA),POINTDOT,COLOR93BDA8; ADA:=ABS(NPA-FPA); DBLA:=BARSLAST(LL1A!=DRAWNULL)+1; DBHA:=BARSLAST(HH1A!=DRAWNULL)+1; BSPA:=IF(LL2A>HH2A,DBLA,DBHA)-1; CCLA:=IF(NPA>FPA,FPA+ADA/NODA*BSPA,FPA-ADA/NODA*BSPA); DD1A:=IF(BETWEEN(CURRBARSCOUNT,LL2A,HH2A) AND C>CCLA,C,CCLA); DD2A:=HHV(DD1A-CCLA,MAX(LL2A,HH2A)); DD3A:=CONST(BARSLAST(DD1A-CCLA=DD2A)); DD5A:=CONST(IF(DD3A=0,DD1A-CCLA,REF(DD1A-CCLA,DD3A))); DDLA:=CCLA+DD5A; EE1A:=IF(BETWEEN(CURRBARSCOUNT,LL2A,HH2A) AND L<CCLA,L,CCLA); EE2A:=HHV(CCLA-EE1A,MAX(LL2A,HH2A)); EE3A:=CONST(BARSLAST(CCLA-EE1A=EE2A)); EE5A:=CONST(IF(EE3A=0,CCLA-EE1A,REF(CCLA-EE1A,EE3A))); EELA:=CCLA-EE5A; D2HH:=IF(CURRBARSCOUNT>=MIN(LL2A,HH2A)-10,DDLA,CONST(REF(DDLA,MIN(LL2A,HH2A)-11))); D2LL:=IF(CURRBARSCOUNT>=MIN(LL2A,HH2A)-10,EELA,CONST(REF(EELA,MIN(LL2A,HH2)-11))); MID2:=IF(NPA>FPA,IF(CCLA<=D2HH,CCLA,DRAWNULL),IF(CCLA>=D2LL,CCLA,DRAWNULL)),COLOR628962; UP2:IF(NPA>FPA,IF(DDLA<=D2HH,DDLA,DRAWNULL),IF(DDLA>=D2LL,DDLA,DRAWNULL)),COLORWHITE; BOTTOM2:IF(NPA>FPA,IF(EELA<=D2HH,EELA,DRAWNULL),IF(EELA>=D2LL,EELA,DRAWNULL)),COLORWHITE; IF(NPA>FPA,IF(CCLA-EELA<DDLA-CCLA,CCLA*2-EELA,IF(DDLA-CCLA<CCLA-EELA,CCLA-(DDLA-CCLA),DRAWNULL)),IF(CCLA-EELA<DDLA-CCLA,CCLA*2-EELA,IF(DDLA-CCLA<CCLA-EELA,CCLA-(DDLA-CCLA),DRAWNULL))),DOTLINE,COLORWHITE;
{温馨提示,斜线绘制方式使用了未来函数} |
友情提示:本文内容仅作为知识分享,供交流学习使用,不构成任何投资建议,不作为投资依据。 |
发布者:股市刺客,转载请注明出处:https://www.95sca.cn/archives/111761
站内所有文章皆来自网络转载或读者投稿,请勿用于商业用途。如有侵权、不妥之处,请联系站长并出示版权证明以便删除。敬请谅解!