通达信目标预测主图未加密选股指标公式源码

源码正文：

stICKLINE(C>O AND L>REF(H,1),CLOSE,OPEN,3,1),COLORBLUE{XG51};
STICKLINE(C<O AND L>REF(H,1),CLOSE,OPEN,3,0),COLORGREEN{XG51};
STICKLINE(C>O AND H<REF(L,1),CLOSE,OPEN,3,1),COLORmaGENTA{XG51};
STICKLINE(C<O AND H<REF(L,1),CLOSE,OPEN,3,0),COLORCYAN{XG51};
VARA01:=BArslAST(L>REF(H,1)){XG51};
VARA02:=BARSLAST(H<REF(L,1)){XG51};
STICKLINE(VARA01>0,REF(L,VARA01),REF(L,VARA01),2,0),COLORLIMAGENTA{XG51};
STICKLINE(VARA01>0,REF(H,VARA01+1),REF(H,VARA01+1),2,0),COLORLIMAGENTA{XG51};
STICKLINE(VARA02>0,REF(H,VARA02),REF(H,VARA02),2,0),COLORCYAN{XG51};
STICKLINE(VARA02>0,REF(L,VARA02+1),REF(L,VARA02+1),2,0),COLORCYAN{XG51};
N:=(1,99,10){XG51};
A1:=REF(HIGH,3)=HHV(HIGH,N){XG51};
B1:=FILTER(A1,3){XG51};
C1:=BacKSET(B1,3+1){XG51};
D1:=FILTER(C1,3){XG51};
A2:=REF(LOW,3)=LLV(LOW,N){XG51};
B2:=FILTER(A2,3){XG51};
C2:=BACKSET(B2,3+1){XG51};
D2:=FILTER(C2,3){XG51};
E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2{XG51};
E2:=(HIGH+LOW)/2{XG51};
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1{XG51};
H2:=D1 AND NOT(D2 AND E1>=E2){XG51};
L1:=D2 AND NOT(D1 AND E1=E2){XG51};
X1:=REF(BARSLAST(H1),1)+1{XG51};
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1)){XG51};
G1:=F1>REF(F1,1){XG51};
I1:=BACKSET(G1,2){XG51};
LD:=I1>REF(I1,1){XG51};
L2:=LD OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1{XG51};
X2:=REF(BARSLAST(L2),1)+1{XG51};
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2)){XG51};
G2:=F2>REF(F2,1){XG51};
I2:=BACKSET(G2,2){XG51};
HD:=I2>REF(I2,1){XG51};
J1:=BACKSET(BARSTATUS=2,MIN(BARSLAST(HD),BARSLAST(LD))+1){XG51};
J2:=J1>REF(J1,1){XG51};
UU:=BACKSET(BARSTATUS=2,BARSLAST(LD)+1){XG51};
VV:=UU>REF(UU,1){XG51};
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2){XG51};
XX:=WW>REF(WW,1){XG51};
WWQ:=BACKSET(XX,REF(BARSLAST(LD),1)+2){XG51};
XXQ:=WWQ>REF(WWQ,1){XG51};
下轨:DRAWLINE(XX,L,VV,L,1),COLORBLACK{XG51};
UU2:=BACKSET(BARSTATUS=2,BARSLAST(HD)+1){XG51};
VV2:=UU2>REF(UU2,1){XG51};
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2){XG51};
XX2:=WW2>REF(WW2,1){XG51};
WW3Q:=BACKSET(XX2,REF(BARSLAST(HD),1)+2){XG51};
XX3Q:=WW3Q>REF(WW3Q,1){XG51};
WW4Q:=BACKSET(XX3Q,REF(BARSLAST(HD),1)+2){XG51};
XX4Q:=WW4Q>REF(WW4Q,1){XG51};
上轨:DRAWLINE(XX2,H,VV2,H,1),COLORBLACK{XG51};
Q0:=BARSLAST(XX2>0){XG51};
Q1:=BARSLAST(XX>0){XG51};
Q2:=BARSLAST(WW2>0){XG51};
Q3:=BARSLAST(VV>0){XG51};
Q4:=BARSLAST(XXQ>0){XG51};
Q5:=BARSLAST(XX3Q>0){XG51};
OA周:=Q0-Q1+1;AB周:=Q1-Q2+1;BC周:=Q2-Q3+1{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(Q5)>Q4,0.80,0.01,1,STRCAT('◆―【A】： ',STRCAT(CON2STR(OA周,0),'天')))COLOR00FF00{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(Q5)>Q4,0.80,0.04,1,STRCAT('【A】―【B】： ',STRCAT(CON2STR(AB周,0),'天')))COLORWHITE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(Q5)>Q4,0.80,0.07,1,STRCAT('【B】―【C】： ',STRCAT(CON2STR(BC周,0),'天')))COLOR00FF00{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(Q5)>Q4,0.80,0.10,1,STRCAT('【C】―--： ',STRCAT(CON2STR(Q3,0),'天')))COLORBLUE{XG51};
Z01:=Q1-Q0+1;Z12:=Q0-Q3+1;Z23:=Q3-Q2+1{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(Q5)<Q4,0.80,0.01,1,STRCAT('低1―高2： ',STRCAT(CON2STR(Z01,0),'天')))COLORWHITE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(Q5)<Q4,0.80,0.04,1,STRCAT('高2―低2： ',STRCAT(CON2STR(Z12,0),'天')))COLOR00FF00{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(Q5)<Q4,0.80,0.07,1,STRCAT('低2―高3： ',STRCAT(CON2STR(Z23,0),'天')))COLORWHITE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(Q5)<Q4,0.80,0.10,1,STRCAT('高3―-- ： ',STRCAT(CON2STR(Q2,0),'天')))COLORBLUE{XG51};
DRAWTEXT( VV=1 AND Q0>Q1,L,'【Ｃ】')COLORRED{XG51};
DRAWTEXT(VV2=1 AND Q0>Q1,H,'【Ｂ】')COLORRED{XG51};
DRAWTEXT( XX=1 AND Q0>Q1,L,'【Ａ】')COLORRED{XG51};
IF(XX2=1 AND Q5>Q4 ,H,DRAWNULL),COLORCYAN,LINETHICK5,CIRCLEDOT{XG51};
IF(XXQ=1 AND Q5>Q4 ,L,DRAWNULL),COLORWHITE,LINETHICK5,CIRCLEDOT{XG51};
DRAWLINE(XXQ=1 AND Q5>Q4 ,L,XX2=1 AND Q5>Q4 ,H,0),COLORWHITE{XG51};
DRAWLINE(VV2=1 AND Q0>Q1,H, VV=1 AND Q0>Q1,L,0),COLORCYAN{XG51};
DRAWLINE( XX=1 AND Q0>Q1,L,VV2=1 AND Q0>Q1,H,0),COLORWHITE{XG51};
DRAWLINE(XX2=1 AND Q5>Q4 ,H, XX=1 AND Q0>Q1,L,0),COLORCYAN{XG51};
DRAWTEXT( VV=1 AND Q0<Q1,L,'(低2)')COLORRED{XG51};
DRAWTEXT(VV2=1 AND Q0<Q1,H,'(高3)')COLORRED{XG51};
DRAWTEXT(XX2=1 AND Q0<Q1,H,'(高2)')COLORRED{XG51};
DRAWTEXT(XX=1 AND Q5<Q4,L,'(低1)')COLORRED{XG51};
DRAWTEXT(XX3Q=1 AND Q5<Q4,H,'(高1)')COLORRED{XG51};
DRAWLINE(XX3Q=1 AND Q5<Q4,H,XX=1 AND Q5<Q4,L,0),COLORCYAN{XG51};
DRAWLINE(XX=1 AND Q5<Q4,L,XX2=1 AND Q0<Q1,H,0),COLORWHITE{XG51};
DRAWLINE(XX2=1 AND Q0<Q1,H, VV=1 AND Q0<Q1,L,0),COLORCYAN{XG51};
DRAWLINE(VV=1 AND Q0<Q1,L,VV2=1 AND Q0<Q1,H,0),COLORWHITE{XG51};
笔:DRAWLINE(J2,IF(HD,H,L),BARSTATUS=2,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),DOTLINE,COLORBLUE{XG51};
TL:=1000000+160526;DRAWTEXT(DATE=TL ,L*0.997,'DA')COLORGREEN{XG51};
TH:=1000000+160606;DRAWTEXT(DATE=TH ,H,'DB')COLORGREEN,DRAWAbovE{XG51};
TC:=1000000+160624;DRAWTEXT(DATE=TC ,L*0.997,'DC')COLORGREEN{XG51};
TO:=1000000+160413;DRAWTEXT(DATE=TO ,H,'DO')COLORGREEN DRAWABOVE{XG51};
IF(DATE=TO ,H,DRAWNULL),COLORGREEN,LINETHICK5,CIRCLEDOT{XG51};
IF(DATE=TC ,L,DRAWNULL),COLORRED,LINETHICK5,CIRCLEDOT{XG51};
AL:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(HIGH,TL),REFDATE(LOW,TL)){XG51};
BH:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(LOW,TH),REFDATE(HIGH,TH)){XG51};
CZF:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(HIGH,TC),REFDATE(LOW,TC)){XG51};
DJB:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(LOW,TO),REFDATE(HIGH,TO)){XG51};
OP:=BH-AL+CZF{XG51};
COP:=0.618*(BH-AL)+CZF{XG51};
XOP:=IF((1.618*(BH-AL)+CZF)<0,OP,1.618*(BH-AL)+CZF){XG51};
TODAY:=DATE{XG51};
STICKLINE(DATE=TC,CZF,XOP,0,-1),COLORBLUE{XG51};
DRAWLINE(DATE=TC,COP,DATE=TODAY,COP,1),DOTLINE,COLORBLUE{XG51};
DRAWLINE(DATE=TC,OP,DATE=TODAY,OP,1),DOTLINE,COLORBLUE{XG51};
DRAWLINE(DATE=TC,XOP,DATE=TODAY,XOP,1),DOTLINE,COLORBLUE{XG51};
DRAWTEXT(DATE=TC,COP*1.002,'COP=0.618'),COLORBLUE {XG51};
DRAWTEXT(DATE=TC,OP*1.002,'OP=1.000'),COLORBLUE;
DRAWTEXT(DATE=TC,XOP*1.002,'XOP=1.618'),COLORBLUE {XG51};
DRAWNUMBER(DATE=TC,COP,COP),COLORBLUE{XG51};
DRAWNUMBER(DATE=TC,OP,OP),COLORBLUE{XG51};
DRAWNUMBER(DATE=TC,XOP,XOP),COLORBLUE{XG51};
DRAWLINE(DATE=TO,DJB,DATE=TL,AL,0) ,COLORBLUE{XG51};
DRAWLINE(DATE=TL,AL,DATE=TH,BH,0) ,COLORBLUE{XG51};
DRAWLINE(DATE=TH,BH,DATE=TC,CZF,0) ,COLORBLUE{X~G.5?1~C~N~{};

源码正文：

N:=10{XG51};
涨幅1:= REF(C<COst(10),1) && C/REF(C,1)>=1.04;
BB:= naMELIKE('ST')=0 AND NAMELIKE('*ST')=0 AND NAMELIKE('SST')=0 AND NAMELIKE('S*ST')=0 AND NAMELIKE('S ST')=0 AND NAMELIKE('S')=0{XG51};
套牢比例:= C<HHV(H,50)*0.7{XG51};
综合:= 套牢比例 && 涨幅1 && BB{XG51};
选股: REF( 综合 ,N) && DYNAINFO(8)>0 && FINANCE(7)<2500000000.00;{X=G~5^1=C=N={};