通达信条件选股公式

    通达信条件选股公式

   variable:a1=0;

    c1:=INTPART(cyc(5)*100*0.96)/100;

    a2:=intpart(ref(cyc(5),1)*100)/100;

    a3:=intpart(ref(cyc(5),1)*0.96*100)/100;

    vv:=intpart(min(capital*0.05,ref(ma(vol,34),1))/100);

    a40:=intpart(maxcyc*100)/100;

    a41:=intpart(ref(MAXCYC,1)*100)/100;

    a4:=a1=0andc>a2or(ref(vol/100,1)<vvandc>intpart(a2*0.98*100)/100andvol>min(capital*0.05,ref(ma(vol,34),1)));

    a5:=a1=1andc<min(a3,a41);

    a1:=if(a4=1,1,if(a5=1,0,ref(a1,1)));

    cross(a1,0);

    LC:=REF(CLOSE,1);

    RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;

    AR:=SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100;

    卖点雷达:=CROSS(85,RSI1)*30;

    DRAWTEXT(CROSS(85,RSI1),20,'顶'),COLOR00FF00;

    STICKLINE(卖点雷达,0,20,3,0),COLOR00FF00;

    VARB:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;

    VARC:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;

    VARD:=BARSCOUNT(CLOSE);

    买点雷达:(VARB<20ANDVARC<25ANDVARD>50ANDAR<70)*30,LINETHICK2,COLOR0078FF;

    BT1:=CROSS(RSI1,25);

    DRAWTEXT(BT1,-80,'底'),COLOR0000FF;

    STICKLINE(BT1,-100,-80,3,0),COLOR0000FF;

    主力:EMA((CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*480,2)*5,LINETHICK1,COLOR0000FF;

    散户:EMA((CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*480,7)*5,LINETHICK2,COLORC87800;

    BT2:=CROSS(主力,散户)AND主力<-10;

    DRAWICON(CROSS(RSI1,25),主力,26);

    DRAWICON(CROSS(主力,散户)AND主力<-10,主力,23);

    BT:=FILTER(COUNT(BT1ORBT2,3)>=2,3);

    STICKLINE(BT,0,50,4,1),COLOR0000FF;

    DRAWTEXT(BT,50,'金底'),COLOR0000FF;

    STICKLINE(BT2,0,20,3,0),COLORFF00FF;

    DRAWTEXT(BT2,20,'升'),COLORFF00FF;

    MA3:=MA(C,3);

    MA4:=MA(C,4);

    MA5:MA(C,5),LINETHICK1,COLORYELLOW;

    MA20:MA(C,20),LINETHICK2,COLOR007733;

    MA40:MA(C,40),LINETHICK2,COLOR0055ff;

    MA60:MA(C,60),LINETHICK3,COLOR00ff00;

    FILLRGN(MA3,MA4,MA3>MA4,(RGB(100,0,100)));

    FILLRGN(MA3,MA4,MA3<MA4,(RGB(0,150,250)));

    FILLRGN(MA5,MA4,MA4>MA5,(RGB(150,150,0)));

    FILLRGN(MA5,MA4,MA4<MA5,(RGB(150,150,150)));

    STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,7,0),COLOR000033;

    STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,6,0),COLOR000055;

    STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,5,0),COLOR000066;

    STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,4,0),COLOR000077;

    STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,3,0),COLOR000099;

    STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,2,0),COLOR0000BB;

    STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,1,0),COLOR0000DD;

    STICKLINE(CLOSE>=OPEN,LOW,H,0.5,0),COLOR0000DD;{收阳}

    STICKLINE(CLOSE<OPEN,OPEN,CLOSE,7,0),COLOR003300;

    STICKLINE(CLOSE<OPEN,OPEN,CLOSE,6,0),COLOR005500;

    STICKLINE(CLOSE<OPEN,OPEN,CLOSE,5,0),COLOR007700;

    STICKLINE(CLOSE<OPEN,OPEN,CLOSE,4,0),COLOR008800;

    STICKLINE(CLOSE<OPEN,OPEN,CLOSE,3,0),COLOR009900;

    STICKLINE(CLOSE<OPEN,OPEN,CLOSE,2,0),COLOR00BB00;

    STICKLINE(CLOSE<OPEN,OPEN,CLOSE,1,0),COLOR00DD00;

    STICKLINE(CLOSE<OPEN,LOW,H,0.5,0),COLOR00DD00;{收阴}

    VARDQ:=((REF(CLOSE,1)=HHV(CLOSE,4))AND(CLOSE<REF(CLOSE,2))or((REF(CLOSE,2)=HHV(CLOSE,4))AND(REF(CLOSE,1)>REF(CLOSE,3))or(REF(CLOSE,3)=HHV(CLOSE,4))AND(REF(CLOSE,1)>REF(CLOSE,2)))AND(REF(CLOSE,2)>=REF(CLOSE,4))AND(CLOSE<REF(CLOSE,1)));

    STICKLINE(VARDQ,OPEN,(OPEN+CLOSE)/(2),7,0),CoLorFF1100;

    STICKLINE(VARDQ,OPEN,(OPEN+CLOSE)/(2),6,0),CoLorFF3300;

    STICKLINE(VARDQ,OPEN,(OPEN+CLOSE)/(2),5,0),CoLorFF5500;

    STICKLINE(VARDQ,OPEN,(OPEN+CLOSE)/(2),4,0),CoLorFF7700;

    STICKLINE(VARDQ,OPEN,(OPEN+CLOSE)/(2),3,0),CoLorFF9900;

    STICKLINE(VARDQ,OPEN,(OPEN+CLOSE)/(2),2,0),CoLorFFBB00;

    STICKLINE(VARDQ,OPEN,(OPEN+CLOSE)/(2),1,0),CoLorFFDD00;

    VARCQ:=((REF(CLOSE,1)=LLV(CLOSE,4))AND(CLOSE>=REF(CLOSE,2))or(REF(CLOSE,2)=LLV(CLOSE,4))AND(REF(CLOSE,1)<=REF(CLOSE,3))AND(REF(CLOSE,2)<REF(CLOSE,4))AND(CLOSE>=REF(CLOSE,1)));

    STICKLINE(VARCQ,OPEN,(OPEN+CLOSE)/(2),7,0),CoLor003300;

    STICKLINE(VARCQ,OPEN,(OPEN+CLOSE)/(2),6,0),CoLor005500;

    STICKLINE(VARCQ,OPEN,(OPEN+CLOSE)/(2),5,0),CoLor007700;

    STICKLINE(VARCQ,OPEN,(OPEN+CLOSE)/(2),4,0),CoLor009900;

    STICKLINE(VARCQ,OPEN,(OPEN+CLOSE)/(2),3,0),CoLor00BB00;

    STICKLINE(VARCQ,OPEN,(OPEN+CLOSE)/(2),2,0),CoLor00DD00;

    STICKLINE(VARCQ,OPEN,(OPEN+CLOSE)/(2),1,0),CoLor00FF00;