通达信筹码异动抄底选股指标公式源码副图

M50:=MA(C,50);
CC11:=REF(C,1);
CC22:=REF(C,2);
{www.gszx.com.cn97-425}
VAR1:=(C-M50)/M50*100<-23;
VAR2:=SMA(MAX(C-CC11,0),3,1)/SMA(Abs(C-CC11),3,1)*100>16;
VAR3:=100*(HHV(H,27)-C)/(HHV(H,27)-LLV(L,27));
A97:=VAR1 AND VAR2 AND crOSS(VAR3,79) AND (O>C OR O<C) AND
(O-CC11)/CC11<0.05 AND V>MA(V,23) AND DATE>940630,COLORWHITE ;
{www.gszx.com.cn97-520}
MA3:=MA(C,3);
C0:=CC22*0.865;
C1:=REF(C,13)*0.772;
BOT:=MIN(C0,C1);
HSL:=100*V/CAPITAL;
MA13:=MA(C,13);
B97:=IF((C-BOT)/C<6/100 AND SUM(HSL,5)/5<1.8 AND WINNER(C)*100<0.1,1,0)
AND (C-MA(C,20))/MA(C,20)*100<-23,COLORYELLOW;
{www.gszx.com.cn98-2348}
VAR9:=INDEXC;
VARA:=MA(VAR9,6);
VARB:=MA(VAR9,24);
VARC:=MA(VAR9,32);
VARD:=MA(VAR9,62);
VARE:=MA(VAR9,105);
VARF:=VARD<REF(VARD,1) AND VARE<REF(VARE,1) AND VARD<VARE*0.98;
VAR10:=VARC>VARA*1.11 AND VARB>VARA*1.095;
VAR11:=VARA>VAR9*0.95;
DARA:=(C-MA(C,28))/MA(C,28)*100<-23;
A98:=(DARA AND VAR2 AND CROSS(VAR3,79) AND (O>C OR O<C) AND
(O-CC11)/CC11<0.05 AND V>MA(V,23) OR VARF AND VAR10 AND
VAR11 AND C/COST(8)<=0.8 AND COUNT(C>O OR C<O,2)=2) ,COLORRED;
{www.gszx.com.cnB97-3074}
VARA1:=C/MA(C,48)*100<67;
VARA2:=C/M50*100<69;
VARA3:=H>L*1.078;
VARA4:=VARA3 AND COUNT(VARA3,4)>2;
C97:=VARA4 AND (VARA1 OR VARA2) OR VARF AND VAR10 AND
VAR11 AND C/COST(8)<=0.8 AND COUNT(C>O OR C<O,2)=2,COLORGREEN;
{www.gszx.com.cn98-2436}
YAR1:=PWINNER(1,C);
YAR2:=FORCAST(YAR1,10);
YAR3:=MA(YAR2,3);
YAR4:=MA(YAR3,12);
YAR5:=MA(YAR4,16);
YAR6:=MA(YAR5,31);
YAR7:=MA(YAR6,55);
YAR8:=YAR6<REF(YAR6,1) AND YAR7<REF(YAR7,1) AND YAR6<YAR7*0.98;
YAR9:=YAR5>YAR3*1.11 AND YAR4>YAR3*1.095;
YARA:=YAR3>YAR2*0.95;
YAR11:=VARD<VARE*0.97;
YAR14:=IF(H=L AND C=O AND L=C AND C>0 AND
REF(H,1)=REF(L,1) AND CC11=REF(O,1) AND
REF(H,1)=CC11 AND CC11>0,0,1)>0;
B98:=(YAR11 AND VAR10 AND VAR11 AND C/COST(8)<=0.799 AND
(COUNT(C=L,4)<3 OR C>CC11) AND YAR14 OR YAR8 AND YAR9
AND YARA AND C/COST(5)<=0.8 AND YAR2<>O AND
REF(YAR2,1)<>REF(O,1) AND YAR14),COLOR6699FF;
{www.gszx.com.cn96}
AA:=("1A0001$CLOSE"/REF("1A0001$CLOSE",20)-1)*100<-16
AND (C/REF(C,27)-1)*100<-35 ;
A96:=FILTER(AA ,3 );
{www.gszx.com.cn98}
VBR1:=(CC22-CC11)/CC22>0.05;
VBR2:=(REF(C,3)-CC22)/REF(C,3)>0.05;
VBR3:=REF(H,2)-REF(H,1);
VBR4:=REF(H,1)-VBR3;
VBR5:=V/CAPITAL*100;
VBR6:=1-(VBR5<15 AND (H-L)/C>0.045 AND C>VBR4 AND VBR1 AND VBR2 AND C>O AND MA(C,60)-MA(C,9)/2.68>C);
VBR7:=VBR6;
C98:=CROSS(0.5,VBR7),COLOR99CCFF;
{www.gszx.com.cn98}
VBR11:=REF(O,1)<REF(O,2);
VBR12:=CC11<CC22;
VBR13:=REF(L,1)<REF(L,2);
VBR14:=O>CC11 AND O/CC11>=1.1;
VBR15:=C>O AND C/O>1.03;
D98:= VBR11 AND VBR12 AND VBR13 AND VBR14 AND VBR15,COLORFFFF33;
{www.gszx.com.cn96-150}
VBR16:=AMOUNT;
VBR17:=IF(H*V<=VBR16,(L+H)/2*V*100,VBR16);
VBR18:=IF(C<200,VBR17/V/100,(H+L)/2);
VBR19:=MA(C,70)-MA(C,10)/2.5;
VBR20:=MA(C,60)-MA(C,10)/2.5;
VBR21:=M50-MA(C,10)/2.36;
VBR22:=MA(VBR17,12)/1.39;
VBR23:=MA(VBR17,12)/1.09;
VBR24:=MA(VBR17,5);
VBRA:=MA(VBR22,360)/5.2;
VBRB:=MA(VBR17,150)/2;
VBRC:=MA(VBR22,360)/3.8;
E96:=(CROSS(VBR22,VBRA) AND C<VBR19 OR CROSS(VBR23,VBRB)
AND C<VBR20 OR CROSS(VBR24,VBRC) AND C<VBR21) ,COLOR009933;
{www.gszx.com.cn98}
VBR41:=1;
VAR13:=V/CAPITAL;
REC1:=CC11;
VBR42:=IF(EMA(C,5)/EMA(EMA(C,9),16)<=0.85 AND C/REC1>0.905 AND C/REC1<1.05 AND VAR13*100<5,50,0);
VBR43:=(-100)*(HHV(H,34)-C)/(HHV(H,34)-LLV(L,34))+100;
VBR44:=(-100)*(HHV(H,50)-C)/(HHV(H,50)-LLV(L,50))+100;
VBR45:=(-100)*(HHV(H,70)-C)/(HHV(H,70)-LLV(L,70))+100;
VBR46:=((C-MA(C,34))/MA(C,34)*100+10)*5;
VBR47:=((C-M50)/M50*100+10)*5;
VBR48:=((C-MA(C,70))/MA(C,70)*100+10)*5;
VBR49:=(VBR43+VBR44+VBR45+VBR46+VBR47+VBR48)/6;
VBR60:=EMA(VBR49,3);
VBR61:=ABS(VBR46-VBR48);
VBR62:=(VBR49+VBR61)/2;
VBR63:=(-1)*(EMA(100*(1-WINNER(C)),1)-50)+50;
VBR64:=VBR63+VBR62;
VBR65:=IF(VBR42>0 AND VBR64<0,200,0);
VBR50:=IF(VBR62<0 AND C=LLV(C,5) AND C/REC1>0.905 AND C/REC1<1.05 AND VAR13*100<5,-50,0);
VBR51:=IF(VBR64<0 AND VBR50=-50,100,0);
VBR52:=MA(C,3);
VBR53:=CC22*0.865;
VBR54:=REF(C,13)*0.772;
VBR55:=MIN(VBR53,VBR54);
VBR56:=100*VAR13;
VBR57:=MA(C,13);
VBR58:=IF((C-VBR55)/C<0.03 AND SUM(VBR56,5)/5<1.8,1,0);
VBR59:=IF(VBR58>0 AND (VBR50<0 OR VBR42>0),100,0);
VBR1A:=VBR59;
VBR1B:=IF(VBR65>0 AND VBR51>0 AND SUM(VAR13*100,5)/5<1 OR VBR58>0 AND REC1/CC22>0.902
OR (VBR65>0 AND VBR51>0 AND SUM(VAR13*100,5)/5<1 OR VBR58>0) AND (VBR50<0 OR VBR42>0) AND VBR59<10,50,0);
VBR1C:=(VBR65>0 AND VBR51>0 AND SUM(VAR13*100,5)/5<1 OR VBR58>0) AND (VBR50<0 OR VBR42>0);
VBR1D:=VBR65>0 AND VBR51>0 AND SUM(VAR13*100,5)/5<1 OR VBR58>0 AND REC1/CC22>0.902;
VBR1E:=VBR1C OR VBR1D;
VBR1F:=MA(C,80)-MA(C,10)/2.5;
F98:=VBR1A AND C<VBR1F*VBR41,COLORMAGENTA;
{www.gszx.com.cnAA--99-594 }
VR3:=INDEXC;
vr4:=MA(VR3,8);
VR5:=MA(VR3,22);
VR6:=MA(VR3,28);
VR7:=MA(VR3,73);
VR8:=MA(VR3,106);
 

源码未复制完整....

下载附件中的源码