元宵节送大礼【CCI资金主图】

元宵节送大礼【CCI资金主图】

 仅仅提供源码和说明，并不提供公式下载

元宵节祝朋友们：合家团圆，元宵节快乐！

【CCI主图】出来后，很多朋友想要DZH2的、飞狐的。原版怎么样？我不知道。

我想：能随时看资金变化的主图不会比原来的差吧。希望这份礼物友们喜欢。

一，【CCI资金主图】要用到我的〈盛唐参考Y〉和〈盛唐参考E〉两个引用公式。

   〈盛唐参考E〉新增了一些内容，但不影响其它公式的应用。

    在MACD青见王照华老师也引用了〈盛唐参考E〉。为不影响其使用 ，

    也组合了有关内容。

二，通达信增加周KD低位金叉信号和〈主力筹码%〉〈建仓天数〉。

   另命名【CCI资金】免与〈CCI主图〉重名。

三，通达信调用周KD数据与DZH2飞狐大不相同。但掌握它的规律，也有它的用

   处。筒单的说调用的都是每周周末收盘的日KD数据。下周内日KD金叉那么在

   周一位置调用数据金叉。若周末K又小于D调用数据金叉就不存在了。因此在

   周一看见上周有金叉信号说明日KD上周在低位金叉成立、再加上主图中K线

   "破黑看涨"和"☆成立"不用说应该知道怎么操作了。三种信号同时在一周

   内出现，那你们就自己考虑了。

最后说一点：未来数只要知道它的特点结合其它标使用。不但不可怕，

有时还一定的好处。

{CCI资金主图 DZH2}

DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0));
TYP := (HIGH + LOW + CLOSE)/3;
CCI1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,6));
差值1:=ABS(REF(CCI1,1)-CCI1);
CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10));
差值2:=ABS(REF(CCI2,1)-CCI2);
CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20));
差值3:=ABS(REF(CCI3,1)-CCI3);
CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30));
差值4:=ABS(REF(CCI4,1)-CCI4);
CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60));
差值5:=ABS(REF(CCI5,1)-CCI5);
CCI:=CCI1+CCI2+CCI3+CCI4+CCI5;
AAA:=(3*C+H+L+O)/6;
VAR1:=WMA(AAA,8);
VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3;
VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3;
VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3;
VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3;
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
短线:VAR1,COLORWHITE;
中线:VAR6,COLORYELLOW;
下跌:=IF(VAR1=VAR6,VAR6,0);
PARTLINE(VAR6,下跌=VAR6,RGB(0,255,0));

     {条件1}
TJ1:= CCI1>差值4;
立桩量:=TJ1;
TJ2:=IF(BARSLAST(立桩量)=1 ,1,IF(BARSLAST(立桩量)=2 ,1,
IF(BARSLAST(立桩量)=3 ,1,0)));
三天法则1:=TJ2=1;
成立1:=三天法则1;
条件成立1:=FILTER(成立1,5);
DRAWTEXT(条件成立1 AND 下跌=0,H*1.01,'破红看跌'),COLORFFFF00;
TJ11:= cci1<-差值4 ;
立桩量2:=TJ11;
TJ22:=IF(BARSLAST(立桩量2)=1 AND CLOSE>REF(HIGH,1),1,
IF(BARSLAST(立桩量2)=2 AND CLOSE>REF(HIGH,2),1,
IF(BARSLAST(立桩量2)=3 AND CLOSE>REF(HIGH,3),1,0)));
三天法则2:=TJ22=1;
成立2:=三天法则2;
条件成立2:=FILTER(成立2,5);
DRAWTEXT(条件成立2,L*0.99,'破黑看涨'),COLOR0000FF;
{条件2}
TJ111:=(ABS(CCI1)>CCI AND ABS( 差值1)> ABS(差值5));
立桩量3:=FILTER(TJ111,5);
TJ222:=IF(BARSLAST(立桩量3)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(立桩量3)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(立桩量3)=3 AND CLOSE>REF(HIGH,3),1,0)));
STICKLINE(CLOSE AND 下跌<>VAR6,REF(HIGH,BARSLAST(立桩量3)),REF(HIGH,BARSLAST(立桩量3)),20,0),COLORCYAN;
STICKLINE(CLOSE AND 下跌<> VAR6,REF(LOW,BARSLAST(立桩量3)),REF(LOW,BARSLAST(立桩量3)),20,0),COLORYELLOW;
三天法则:=TJ222=1;
成立:=三天法则{ AND 突破3};
条件成立:FILTER(成立,5),LINETHICK0,COLORYELLOW;
DRAWTEXT(条件成立 AND 下跌=0,L*0.97,'☆成立'),COLORYELLOW;
STICKLINE(C>=O,L,H,0,0),COLORred;
STICKLINE(C<O,L,H,0,0),COLORFFFF00;
STICKLINE(1 and C>O,C,O,7,0),COLORred;
STICKLINE(1,C,O,6,0),COLOR454500;
STICKLINE(1,C,O,5,0),COLOR555500;
STICKLINE(1,C,O,4,0),COLOR656500;
STICKLINE(1,C,O,3,0),COLOR757500;
STICKLINE(1,C,O,2,0),COLOR858500;

STICKLINE(TJ1,C,O,6,0),COLOR000065;
STICKLINE(TJ1,C,O,5,0),COLOR000085;
STICKLINE(TJ1,C,O,4,0),COLOR0000A5;
STICKLINE(TJ1,C,O,3,0),COLOR0000C5;
STICKLINE(TJ1,C,O,2,0),COLOR0000E5;

五万以下:="盛唐参考E.五万以下J#tick";
五至二十万:="盛唐参考E.五至二十万J#tick";
二十至五十:="盛唐参考E.二十至五十J#tick";
五十至百万:="盛唐参考E.五十至百万J#tick";
百万以上:="盛唐参考E.百万以上J#tick";
总资金:="盛唐参考E.总资金J#tick";

五万下换:="盛唐参考E.五万下换#tick";
二十下换:="盛唐参考E.二十下换#tick";
二十上换:="盛唐参考E.二十上换#tick";
五十上换:="盛唐参考E.五十上换#tick";
百万上换:="盛唐参考E.百万上换#tick";
五万下换:="盛唐参考E.五万下换#tick";
总资金换:="盛唐参考E.总资金换#tick";
五至二十换:=二十下换-五万下换;
二十至五十换:=二十上换-五十上换;
五十至百万换:=五十上换-百万上换;

DRAWTEXTREL(390,740,'50-100 万： '+NUMTOSTRN(五十至百万,0)),ColorFFFFFF;
DRAWTEXTREL(530,740,'   ％：'+NUMTOSTRN(五十至百万换,2)),ColorFFFFFF;
DRAWTEXTREL(10,740,'百万以上 ： '+NUMTOSTRN(百万以上,2)),ColorFFFFFF;
DRAWTEXTREL(150,740,'   ％：'+NUMTOSTRN(百万上换,2)),ColorFFFFFF;

DRAWTEXTREL(390,860,' 5-20 万： '+NUMTOSTRN(五至二十万,0)),ColorFFFFFF;
DRAWTEXTREL(530,860,'   ％：'+NUMTOSTRN(五至二十换,2)),ColorFFFFFF;
DRAWTEXTREL(10,860,'20-50 万： '+NUMTOSTRN(二十至五十,2)),ColorFFFFFF;
DRAWTEXTREL(150,860,'   ％：'+NUMTOSTRN(二十至五十换,2)),ColorFFFFFF;

DRAWTEXTREL(720,740,'  总资金： '+NUMTOSTRN(总资金,0)),ColorFFFFFF;
DRAWTEXTREL(860,740,'   ％：'+NUMTOSTRN(总资金换,2)),ColorFFFFFF;
DRAWTEXTREL(720,860,'五万以下： '+NUMTOSTRN(五万以下,2)),ColorFFFFFF;
DRAWTEXTREL(860,860,'   ％：'+NUMTOSTRN(五万下换,2)),ColorFFFFFF;
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

{盛唐参考Y  引用公式}
input:n(20,0,300);         
V1:=TIME;
a1:=COUNT(BARSCOUNT(C)=1 and time<102000 ,0 );
开盘分:=if(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)),
(FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)));
aa:=BARSCOUNT(C);
人气1:=if(a1>0,aa/开盘分,aa/(开盘分-60));
买入:BUYVOL;
卖出:SELLVOL;
总买:sum(买入,0);
总卖:sum(卖出,0);
XS:=10000*n/c/100;
大单买入:=if(买入>=xs ,买入,0);
大单卖出:=if(卖出>=xs ,卖出,0);
总大买:=sum(大单买入,0);
总大卖:=sum(大单卖出,0);
大单买:总大买,LINETHICK0;
大单卖:总大卖,LINETHICK0;
人气:if(大单买>大单卖,FLOOR(人气1)+ABS((大单买-大单卖))/DYNAINFO( 8),
0-(FLOOR(人气1)+ABS((大单买-大单卖))/DYNAINFO( 8)));

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

{盛唐参考E  引用公式}
C1:=CLOSE;
T00:=IF(C1>REF(c1,1),0.9,-0.9);
T01:=IF(C1<REF(c1,1),-0.9,0.9);
T02:=T00+T01;
TT1:=BARSLAST(CROSS(T02,0));
TT2:=BARSLAST(CROSS(0,T02));
TT:=IF(T02=1.8,1,IF(T02=-1.8,-1,0));
正V:=IF(TT=1 OR (TT=0 AND TT1>TT2),AMOUNT*1000,0)/10000000;
负V:=IF(TT=-1 OR (TT=0 AND TT1<TT2),AMOUNT*1000,0)/10000000;
V1:=TIME;
a1:=COUNT(BARSCOUNT(C)=1 and time<102000 ,0 );
开盘分:if(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)),
(FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)));

CI:=IF(CATEGORY=0,1,C);
Var5:=IF(CATEGORY=0,正V,"盛唐参考Y.买入");
Var6:=IF(CATEGORY=0,负V,"盛唐参考Y.卖出");
xb5:=SUM(IF(AMOUNT<=50000,Var5,0),0);
xs5:=SUM(IF(AMOUNT<=50000,Var6,0),0);
HM5:=(xb5+xs5);
五万以下:=(xb5-xs5);
xb20:=SUM(IF(AMOUNT<=200000 and AMOUNT>50000,Var5,0),0);
xs20:=SUM(IF(AMOUNT<=200000 and AMOUNT>50000,Var6,0),0);
HM20:=(xb20+xs20);
五至二十万:=(xb20-xs20);
xb50:=SUM(IF(AMOUNT<=500000 and AMOUNT>200000,Var5,0),0);
xs50:=SUM(IF(AMOUNT<=500000 and AMOUNT>200000,Var6,0),0);
HM50:=(xb50+xs50);
二十至五十:=(xb50-xs50);
sxb5:=SUM(IF(AMOUNT<=1000000 and AMOUNT>500000,Var5,0),0);
sxs5:=SUM(IF(AMOUNT<=1000000 and AMOUNT>500000,Var6,0),0);
SHM5:=(sxb5+sxs5);
五十至百万:=(sxb5-sxs5);
xb100:=SUM(IF(AMOUNT>1000000,Var5,0),0);
xs100:=SUM(IF(AMOUNT>1000000,Var6,0),0);
HM100:=(xb100+xs100);
百万以上:(xb100-xs100);
总资金:=五万以下+五至二十万+二十至五十+ 五十至百万+百万以上;

CJ:=IF(CATEGORY=0,1,C);
Jxb5:=SUM(IF(AMOUNT<=50000,Var5*CJ,0),0)/100;
Jxs5:=SUM(IF(AMOUNT<=50000,Var6*CJ,0),0)/100;
JHM5:=(Jxb5+Jxs5);
五万以下J:(Jxb5-Jxs5);
Jxb20:=SUM(IF(AMOUNT<=200000 and AMOUNT>50000,Var5*CJ,0),0)/100;
Jxs20:=SUM(IF(AMOUNT<=200000 and AMOUNT>50000,Var6*CJ,0),0)/100;
JHM20:=(Jxb20+Jxs20);
五至二十万J:(Jxb20-Jxs20);
Jxb50:=SUM(IF(AMOUNT<=500000 and AMOUNT>200000,Var5*CJ,0),0)/100;
Jxs50:=SUM(IF(AMOUNT<=500000 and AMOUNT>200000,Var6*CJ,0),0)/100;
JHM50:=(Jxb50+Jxs50);
二十至五十J:(Jxb50-Jxs50);
Jsxb5:=SUM(IF(AMOUNT<=1000000 and AMOUNT>500000,Var5*CJ,0),0)/100;
Jsxs5:=SUM(IF(AMOUNT<=1000000 and AMOUNT>500000,Var6*CJ,0),0)/100;
JSHM5:=(Jsxb5+Jsxs5);
五十至百万J:(Jsxb5-Jsxs5);
Jxb100:=SUM(IF(AMOUNT>1000000,Var5*CJ,0),0)/100;
Jxs100:=SUM(IF(AMOUNT>1000000,Var6*CJ,0),0)/100;
JHM100:=(Jxb100+Jxs100);
百万以上J:(Jxb100-Jxs100);
JHM5+JHM20+JHM50+JSHM5+JHM100;
总资金J:五万以下J+五至二十万J+二十至五十J+ 五十至百万J+百万以上J;
涨速:(五十至百万J+百万以上J-ref(五十至百万J+百万以上J,1))/abs(五十至百万J+百万以上J)*100;
五十以上J:五十至百万J+百万以上J;

人气:"盛唐参考Y.人气";
二十万以下:五万以下+五至二十万;
二十下换:IF(CATEGORY=0,二十万以下/SUM(AMOUNT,0)*1000000,二十万以下/capital*100);
二十万以上:二十至五十+ 五十至百万+百万以上;
二十上换:IF(CATEGORY=0,二十万以上/SUM(AMOUNT,0)*1000000,二十万以上/capital*100);
五十万以上:五十至百万+百万以上;
五十上换:IF(CATEGORY=0,五十万以上/SUM(AMOUNT,0)*1000000,五十万以上/capital*100);
百万上换:IF(CATEGORY=0,百万以上/SUM(AMOUNT,0)*1000000,百万以上/capital*100);
五万下换:IF(CATEGORY=0,五万以下/SUM(AMOUNT,0)*1000000,五万以下/capital*100);
总资金换:IF(CATEGORY=0,总资金/SUM(AMOUNT,0)*1000000,总资金/capital*100);
HSJS:IF(CATEGORY=0,1/SUM(AMOUNT,0)*1000000,1/capital*100);
VVH:=MAX(JHM5,JHM20,JHM50,JSHM5,JHM100);
mm:=800/VVH;
mmm0:mm*JHM5,LINETHICK0 ;
mmm01:mm*Jxb5,LINETHICK0 ;
mmm02:mm*Jxs5,LINETHICK0;
mmm1:mm*JHM20,LINETHICK0 ;
mmm11:mm*Jxb20,LINETHICK0 ;
mmm12:mm*Jxs20,LINETHICK0;
mmm2:mm*JHM50,LINETHICK0 ;
mmm21:mm*Jxb50,LINETHICK0 ;
mmm22:mm*Jxs50,LINETHICK0;
mmm3:mm*JSHM5,LINETHICK0 ;
mmm31:mm*Jsxb5,LINETHICK0 ;
mmm32:mm*Jsxs5,LINETHICK0;
mmm4:mm*JHM100,LINETHICK0 ;
mmm41:mm*Jxb100,LINETHICK0 ;
mmm42:mm*Jxs100,LINETHICK0;

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
{【成立】  条件选股}{飞狐DZH2通用}

TYP := (HIGH + LOW + CLOSE)/3;
CCI1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,6));
差值1:=ABS(REF(CCI1,1)-CCI1);
CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10));
差值2:=ABS(REF(CCI2,1)-CCI2);
CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20));
差值3:=ABS(REF(CCI3,1)-CCI3);
CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30));
差值4:=ABS(REF(CCI4,1)-CCI4);
CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60));
差值5:=ABS(REF(CCI5,1)-CCI5);
CCI:=CCI1+CCI2+CCI3+CCI4+CCI5;
AAA:=(3*C+H+L+O)/6;
VAR1:=WMA(AAA,8);
VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3;
VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3;
VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3;
VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3;
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
短线:=VAR1;
中线:=VAR6;
下跌:=IF(VAR1=VAR6,VAR6,0);
TJ111:=(ABS(CCI1)>CCI AND ABS( 差值1)> ABS(差值5));
立桩量3:=FILTER(TJ111,5);
TJ222:=IF(BARSLAST(立桩量3)=1 AND CLOSE>REF(HIGH,1),1,
IF(BARSLAST(立桩量3)=2 AND CLOSE>REF(HIGH,2),1,
IF(BARSLAST(立桩量3)=3 AND CLOSE>REF(HIGH,3),1,0)));
成立:=TJ222=1;
条件成立:FILTER(成立,5)  AND 下跌=0 AND DYNAINFO(39)>0;

==========================================================
==========================================================

{CCI资金主图  飞狐}
DRAWGBK(CLOSE>0,COLORRGB(95,95,95),COLORRGB(0,0,0),1);
TYP := (HIGH + LOW + CLOSE)/3;
CCI1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,6));
差值1:=ABS(REF(CCI1,1)-CCI1);
CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10));
差值2:=ABS(REF(CCI2,1)-CCI2);
CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20));
差值3:=ABS(REF(CCI3,1)-CCI3);
CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30));
差值4:=ABS(REF(CCI4,1)-CCI4);
CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60));
差值5:=ABS(REF(CCI5,1)-CCI5);
CCI:=CCI1+CCI2+CCI3+CCI4+CCI5;
AAA:=(3*C+H+L+O)/6;
VAR1:=WMA(AAA,8);
VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3;
VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3;
VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3;
VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3;
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
短线:VAR1,COLORWHITE;
中线:VAR6,COLORYELLOW;
下跌:=IF(VAR1=VAR6,VAR6,0);
PARTLINE(下跌=VAR6,VAR6),COLOR00FF00;
{条件1}
TJ1:= CCI1>差值4;
立桩量:=TJ1;
TJ2:=IF(BARSLAST(立桩量)=1 ,1,IF(BARSLAST(立桩量)=2 ,1,
IF(BARSLAST(立桩量)=3 ,1,0)));
三天法则1:=TJ2=1;
成立1:=三天法则1;
条件成立1:=FILTER(成立1,5);
DRAWTEXT(条件成立1 AND 下跌=0,H*1.01,'破红看跌'),COLORFFFF00;
TJ11:= cci1<-差值4 ;
立桩量2:=TJ11;
TJ22:=IF(BARSLAST(立桩量2)=1 AND CLOSE>REF(HIGH,1),1,
IF(BARSLAST(立桩量2)=2 AND CLOSE>REF(HIGH,2),1,
IF(BARSLAST(立桩量2)=3 AND CLOSE>REF(HIGH,3),1,0)));
三天法则2:=TJ22=1;
成立2:=三天法则2;
条件成立2:=FILTER(成立2,5);
DRAWTEXT(条件成立2,L*0.99,'破黑看涨'),COLOR0000FF;
{条件2}
TJ111:=(ABS(CCI1)>CCI AND ABS( 差值1)> ABS(差值5));
立桩量3:=FILTER(TJ111,5);
TJ222:=IF(BARSLAST(立桩量3)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(立桩量3)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(立桩量3)=3 AND CLOSE>REF(HIGH,3),1,0)));
STICKLINE(CLOSE AND 下跌<>VAR6,REF(HIGH,BARSLAST(立桩量3)),REF(HIGH,BARSLAST(立桩量3)),10,0),COLORCYAN;
STICKLINE(CLOSE AND 下跌<> VAR6,REF(LOW,BARSLAST(立桩量3)),REF(LOW,BARSLAST(立桩量3)),10,0),COLORYELLOW;
三天法则:=TJ222=1;
成立:=三天法则;
条件成立:FILTER(成立,5),LINETHICK0,COLORYELLOW;
DRAWTEXT(条件成立 AND 下跌=0,L*0.97,'☆成立'),COLORYELLOW;
STICKLINE(C>=O,L,H,0,0),COLORred;
STICKLINE(C<O,L,H,0,0),COLORFFFF00;
STICKLINE(1 and C>O,C,O,7,0),COLORred;
STICKLINE(1,C,O,6,0),COLOR454500;
STICKLINE(1,C,O,5,0),COLOR555500;
STICKLINE(1,C,O,4,0),COLOR656500;
STICKLINE(1,C,O,3,0),COLOR757500;
STICKLINE(1,C,O,2,0),COLOR858500;

STICKLINE(TJ1,C,O,6,0),COLOR000065;
STICKLINE(TJ1,C,O,5,0),COLOR000085;
STICKLINE(TJ1,C,O,4,0),COLOR0000A5;
STICKLINE(TJ1,C,O,3,0),COLOR0000C5;
STICKLINE(TJ1,C,O,2,0),COLOR0000E5;

五万以下:=STKINDI('','盛唐参考E.五万以下J',0,0),PRECISION2,linethick0,COLORFFFFFF;
五至二十万:=STKINDI('','盛唐参考E.五至二十万J',0,0),PRECISION2,linethick0,COLORFF00FF;
二十至五十:=STKINDI('','盛唐参考E.二十至五十J',0,0),PRECISION2,linethick0,COLORFFFFFF;;
五十至百万:=STKINDI('','盛唐参考E.五十至百万J',0,0),PRECISION2,linethick0,COLORFF00FF;;
百万以上:=STKINDI('','盛唐参考E.百万以上J',0,0),PRECISION2,COLORFFFFFF,linethick0;
总资金:=STKINDI('','盛唐参考E.总资金J',0,0),PRECISION2,colorred,linethick0;
涨速:=STKINDI('','盛唐参考E.涨速',0,0),PRECISION2,color00ffff,linethick0;
五万下换:=STKINDI('','盛唐参考E.五万下换',0,0);
二十下换:=STKINDI('','盛唐参考E.二十下换',0,0);
二十上换:=STKINDI('','盛唐参考E.二十上换',0,0);
五十上换:=STKINDI('','盛唐参考E.五十上换',0,0);
百万上换:=STKINDI('','盛唐参考E.百万上换',0,0);
五万下换:=STKINDI('','盛唐参考E.五万下换',0,0);
总资金换:=STKINDI('','盛唐参考E.总资金换',0,0);
五至二十换:=二十下换-五万下换;
二十至五十换:=二十上换-五十上换;
五十至百万换:=五十上换-百万上换;
开盘分:=STKINDI('','盛唐参考E.开盘分',0,0);
人气:=STKINDI('','盛唐参考E.人气',0,0);

DRAWTEXTEX(1,1,200,20,'开盘分:'+NUMTOSTR(开盘分,0)),COLORFFFFFF;
DRAWTEXTEX(1,1,680,20,'人气:'+NUMTOSTR(人气,2)),COLORFFFFFF;

DRAWTEXTEX(1,1,390,760,'50-100 万： '+NUMTOSTR(五十至百万,0)),ColorFFFFFF;
DRAWTEXTEX(1,1,530,760,'   ％：'+NUMTOSTR(五十至百万换,2)),ColorFFFFFF;
DRAWTEXTEX(1,1,10,760,'百万以上 ： '+NUMTOSTR(百万以上,2)),ColorFFFFFF;
DRAWTEXTEX(1,1,150,760,'   ％：'+NUMTOSTR(百万上换,2)),ColorFFFFFF;

DRAWTEXTEX(1,1,390,880,' 5-20 万： '+NUMTOSTR(五至二十万,0)),ColorFFFFFF;
DRAWTEXTEX(1,1,530,880,'   ％：'+NUMTOSTR(五至二十换,2)),ColorFFFFFF;
DRAWTEXTEX(1,1,10,880,'20-50 万： '+NUMTOSTR(二十至五十,2)),ColorFFFFFF;
DRAWTEXTEX(1,1,150,880,'   ％：'+NUMTOSTR(二十至五十换,2)),ColorFFFFFF;

DRAWTEXTEX(1,1,720,760,'  总资金： '+NUMTOSTR(总资金,0)),ColorFFFFFF;
DRAWTEXTEX(1,1,860,760,'   ％：'+NUMTOSTR(总资金换,2)),ColorFFFFFF;
DRAWTEXTEX(1,1,720,880,'五万以下： '+NUMTOSTR(五万以下,2)),ColorFFFFFF;
DRAWTEXTEX(1,1,860,880,'   ％：'+NUMTOSTR(五万下换,2)),ColorFFFFFF;
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
{盛唐参考Y  飞狐引用公式}
input:n(20,0,300);         
V1:=TIME;
a1:=COUNT(BARSCOUNT(C)=1 and time<102000 ,0 );
开盘分:=if(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)),
(FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)));
aa:=BARSCOUNT(C);
人气1:=if(a1>0,aa/开盘分,aa/(开盘分-60));
D1:=(ASKVOL(1)+ASKVOL(2)+ASKVOL(3))=0 AND REF((ASKVOL(1)+ASKVOL(2)+ASKVOL(3)),1 )=0 and REF(BIDVOL(1),1)>0;
E1:=(BIDVOL(1)+BIDVOL(2)+BIDVOL(3))=0 AND REF((BIDVOL(1)+BIDVOL(2)+BIDVOL(3)),1 )=0 and REF(ASKVOL(1),1)>0;
买入:IF(E1,SELLVOL,IF(D1=0,BUYVOL,0));
卖出:IF(D1,BUYVOL,IF(E1=0,SELLVOL,0));
总买:sum(买入,0);
总卖:sum(卖出,0);
XS:=10000*n/c/100;
大单买入:=if(买入>=xs ,买入,0);
大单卖出:=if(卖出>=xs ,卖出,0);
总大买:=sum(大单买入,0);
总大卖:=sum(大单卖出,0);
大单买:总大买,LINETHICK0;
大单卖:总大卖,LINETHICK0;
人气:if(大单买>大单卖,FLOOR(人气1)+ABS((大单买-大单卖))/DYNAINFO( 8),
0-(FLOOR(人气1)+ABS((大单买-大单卖))/DYNAINFO( 8)));

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
{盛唐参考E  飞狐引用公式}
input:OFF(1,-1,2);
T00:=IF(C>REF(C,1),0.9,-0.9);
T01:=IF(C<REF(C,1),-0.9,0.9);
T02:=T00+T01;
TT1:=BARSLAST(CROSS(T02,0));
TT2:=BARSLAST(CROSS(0,T02));
TT:=IF(T02=1.8,1,IF(T02=-1.8,-1,0));
正V:=IF(TT=1 OR (TT=0 AND TT1>TT2),AMOUNT*1000,0)/10000000;
负V:=IF(TT=-1 OR (TT=0 AND TT1<TT2),AMOUNT*1000,0)/10000000;
V1:=TIME;
a1:=COUNT(BARSCOUNT(C)=1 and time<102000 ,0 );
开盘分:if(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)),(FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)));
aa:=BARSCOUNT(C);
CI:=IF(CATEGORY=0,1,C);
{D1:=(ASKVOL(1)+ASKVOL(2)+ASKVOL(3))=0 AND REF((ASKVOL(1)+ASKVOL(2)+ASKVOL(3)),1 )=0 and REF(BIDVOL(1),1)>0;
E1:=(BIDVOL(1)+BIDVOL(2)+BIDVOL(3))=0 AND REF((BIDVOL(1)+BIDVOL(2)+BIDVOL(3)),1 )=0 and REF(ASKVOL(1),1)>0;
买入:=IF(E1,SELLVOL,IF(D1=0,BUYVOL,0));
卖出:=IF(D1,BUYVOL,IF(E1=0,SELLVOL,0));
Var5:=IF(CATEGORY=0,正V,买入);
Var6:=IF(CATEGORY=0,负V,卖出);}

Var5:=IF(CATEGORY=0,正V,"盛唐参考Y.买入");
Var6:=IF(CATEGORY=0,负V,"盛唐参考Y.卖出");
xb5:=SUM(IF(AMOUNT<=50000,Var5,0),0);
xs5:=SUM(IF(AMOUNT<=50000,Var6,0),0);
HM5:=(xb5+xs5);
五万以下:(xb5-xs5);
xb20:=SUM(IF(AMOUNT<=200000 and AMOUNT>50000,Var5,0),0);
xs20:=SUM(IF(AMOUNT<=200000 and AMOUNT>50000,Var6,0),0);
HM20:=(xb20+xs20);
五至二十万:(xb20-xs20);
xb50:=SUM(IF(AMOUNT<=500000 and AMOUNT>200000,Var5,0),0);
xs50:=SUM(IF(AMOUNT<=500000 and AMOUNT>200000,Var6,0),0);
HM50:=(xb50+xs50);
二十至五十:(xb50-xs50);
sxb5:=SUM(IF(AMOUNT<=1000000 and AMOUNT>500000,Var5,0),0);
sxs5:=SUM(IF(AMOUNT<=1000000 and AMOUNT>500000,Var6,0),0);
SHM5:=(sxb5+sxs5);
五十至百万:(sxb5-sxs5);
xb100:=SUM(IF(AMOUNT>1000000,Var5,0),0);
xs100:=SUM(IF(AMOUNT>1000000,Var6,0),0);
HM100:=(xb100+xs100);
百万以上:(xb100-xs100);
总资金:五万以下+五至二十万+二十至五十+ 五十至百万+百万以上;

CJ:=IF(CATEGORY=0,1,C);
Jxb5:=SUM(IF(AMOUNT<=50000,Var5*CJ,0),0)/100;
Jxs5:=SUM(IF(AMOUNT<=50000,Var6*CJ,0),0)/100;
JHM5:=(Jxb5+Jxs5);
五万以下J:(Jxb5-Jxs5);
Jxb20:=SUM(IF(AMOUNT<=200000 and AMOUNT>50000,Var5*CJ,0),0)/100;
Jxs20:=SUM(IF(AMOUNT<=200000 and AMOUNT>50000,Var6*CJ,0),0)/100;
JHM20:=(Jxb20+Jxs20);
五至二十万J:(Jxb20-Jxs20);
Jxb50:=SUM(IF(AMOUNT<=500000 and AMOUNT>200000,Var5*CJ,0),0)/100;
Jxs50:=SUM(IF(AMOUNT<=500000 and AMOUNT>200000,Var6*CJ,0),0)/100;
JHM50:=(Jxb50+Jxs50);
二十至五十J:(Jxb50-Jxs50);
Jsxb5:=SUM(IF(AMOUNT<=1000000 and AMOUNT>500000,Var5*CJ,0),0)/100;
Jsxs5:=SUM(IF(AMOUNT<=1000000 and AMOUNT>500000,Var6*CJ,0),0)/100;
JSHM5:=(Jsxb5+Jsxs5);
五十至百万J:(Jsxb5-Jsxs5);
Jxb100:=SUM(IF(AMOUNT>1000000,Var5*CJ,0),0)/100;
Jxs100:=SUM(IF(AMOUNT>1000000,Var6*CJ,0),0)/100;
JHM100:=(Jxb100+Jxs100);
百万以上J:(Jxb100-Jxs100);
JHM5+JHM20+JHM50+JSHM5+JHM100;
总资金J:五万以下J+五至二十万J+二十至五十J+ 五十至百万J+百万以上J;
涨速:(五十至百万J+百万以上J-ref(五十至百万J+百万以上J,1))/abs(五十至百万J+百万以上J)*100;

二十万以下:五万以下+五至二十万;
二十万以上:二十至五十+ 五十至百万+百万以上;
五十万以上:五十至百万+百万以上;
五万下换:IF(CATEGORY=0,五万以下/SUM(AMOUNT,0)*1000000,五万以下/capital*100);
二十下换:IF(CATEGORY=0,二十万以下/SUM(AMOUNT,0)*1000000,二十万以下/capital*100);
二十上换:IF(CATEGORY=0,二十万以上/SUM(AMOUNT,0)*1000000,二十万以上/capital*100);
五十上换:IF(CATEGORY=0,五十万以上/SUM(AMOUNT,0)*1000000,五十万以上/capital*100);
百万上换:IF(CATEGORY=0,百万以上/SUM(AMOUNT,0)*1000000,百万以上/capital*100);
总资金换:IF(CATEGORY=0,总资金/SUM(AMOUNT,0)*1000000,总资金/capital*100);

流通:=FINANCE(7);
牛熊:=IF(OFF=1,1,0.6);//牛=1 熊=0
M1:=8*牛熊; M2:=6*牛熊; M3:=4.5*牛熊; M4:=3.5*牛熊; M5:=2.5*牛熊; M6:=1.8*牛熊; M7:=1.2*牛熊; M8:=0.6*牛熊;
系数:=IF(流通<1500,M1,IF(流通>=1500 AND 流通<2500,M2,IF(流通>=2500 AND 流通<4000,M3,
IF(流通>=4000 AND 流通<5000,M4,IF(流通>=5000 AND 流通<7000,M5,IF(流通>=7000 AND 流通<10000,M6,
IF(流通>=10000 AND 流通<20000,M7,IF(流通>=20000,M8,0))))))));
大买:=SUM(IF(BUYVOL*100/FINANCE(7)>=系数 or BUYVOL*DYNAINFO(7)>5000*系数,BUYVOL,0),0),LINETHICK,PRECISION0,COLORred;
大卖:=SUM(IF(SELLVOL*100/FINANCE(7)>=系数 or SELLVOL*DYNAINFO(7)>5000*系数,SELLVOL,0),0),LINETHICK,PRECISION0,COLORCYAN;
主力增减仓:大买-大卖,LINETHICK,PRECISION0,COLORGREEN;
大单买:=if(BUYVOL>=系数,BUYVOL,0);
大单卖:=if(SELLVOL>=系数,SELLVOL,0);
大单买入:=SUM(大单买,0);
大单卖出:=SUM(大单卖,0);
大买金:=sum(if(BUYVOL>=系数,BUYVOL,0)*c,0),LINETHICK;
大单买均价:大买金/大单买入,LINETHICK;
大卖金:=sum(if(SELLVOL>=系数,SELLVOL,0)*c,0),LINETHICK;
大单卖均价:大卖金/大单卖出,LINETHICK;
成交款:=SUM(AMOUNT,0);
人气:"盛唐参考Y.人气";
大单:大买-大卖,LINETHICK;

==================================================================
==================================================================

{CCI资金  TDX}
ZK1:="KD.K#WEEK"(9,3,3);
ZD2:="KD.D#WEEK"(9,3,3);
换手:=V/CAPITAL*100,LINETHICK0;
JCD:=FILTER(CROSS(ZK1,ZD2) AND REF(ZD2,1)<30,13),NODRAW;
取点:=BARSLAST(JCD);
吸筹区:=IF(取点>0 AND 取点<61,取点,0);
ZS1:=吸筹区;
ZS2:=吸筹区+1;
ZS3:=换手/5;
ZSA:=IF(ZS1>0,SUM((ZS3),吸筹区+1),0),NODRAW;
主力筹码%:ZSA,NODRAW;
建仓天数:ZS1,NODRAW;
DRAWICON(JCD,H*1.005,11);
TYP := (HIGH + LOW + CLOSE)/3;
CCI1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,6));
差值1:=ABS(REF(CCI1,1)-CCI1),LINETHICK0;
CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10));
差值2:=ABS(REF(CCI2,1)-CCI2),LINETHICK0;
CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20));
差值3:=ABS(REF(CCI3,1)-CCI3),LINETHICK0;
CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30));
差值4:=ABS(REF(CCI4,1)-CCI4),LINETHICK0;
CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60));
差值5:=ABS(REF(CCI5,1)-CCI5),LINETHICK0;
CCI:=CCI1+CCI2+CCI3+CCI4+CCI5;
AAA:=(3*C+H+L+O)/6;
VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36;
VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3;
VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3;
VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3;
VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3;
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
短线:VAR1,COLORWHITE;
中线:VAR6,COLORYELLOW;
下跌:IF(VAR1=VAR6,VAR6, DRAWNULL),COLORGREEN;
{条件1}
TJ1:= CCI1>差值4;
立桩量:=FILTER(TJ1,0);
TJ2:=IF(BARSLAST(立桩量)=1 ,1,IF(BARSLAST(立桩量)=2 ,1,
IF(BARSLAST(立桩量)=3 ,1,0)));
成立1:=TJ2;
条件成立1:=FILTER(成立1,5);
DRAWTEXT(条件成立1,H*1.005,'破红看跌'),COLORDDDD00;
TJ11:= CCI1<-差值4 ;
立桩量2:=FILTER(TJ11,0);
TJ22:=IF(BARSLAST(立桩量2)=1 AND CLOSE>REF(HIGH,1),1,
IF(BARSLAST(立桩量2)=2 AND CLOSE>REF(HIGH,2),1,
IF(BARSLAST(立桩量2)=3 AND CLOSE>REF(HIGH,3),1,0)));
成立2:=TJ22;
条件成立2:=FILTER(成立2,5);
DRAWTEXT(条件成立2,L*0.99,'破黑看涨'),COLORDD00DD;
TJ111:=(ABS(CCI1)>CCI AND ABS( 差值1)> ABS(差值5));
立桩量3:=FILTER(TJ111,5);
TJ222:=IF(BARSLAST(立桩量3)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(立桩量3)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(立桩量3)=3 AND CLOSE>REF(HIGH,3),1,0)));
突破3:=TJ222=1;
STICKLINE(CLOSE AND 下跌!= VAR6,REF(HIGH,BARSLAST(立桩量3)),
REF(HIGH,BARSLAST(立桩量3)),10,1),COLORCYAN;
STICKLINE(CLOSE AND 下跌!= VAR6,REF(LOW,BARSLAST(立桩量3)),
REF(LOW,BARSLAST(立桩量3)),10,1),COLORYELLOW;
TJ3:=IF(BARSLAST(立桩量3)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(立桩量3)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(立桩量3)=3 AND CLOSE>REF(LOW,3),1,0)));
三天法则:=TJ3=1;
成立:=三天法则 AND 突破3;
条件成立:=FILTER(成立,5);
DRAWTEXT(条件成立 AND 下跌!= VAR6,L*0.98,'☆成立');
{STICKLINE(C>=O,L,H,0,0),COLORRED;
STICKLINE(C<O,L,H,0,0),COLORFFFF00;}
STICKLINE(C>O,C,O,3,0),COLORRED;
STICKLINE(1,C,O,2.8,0),COLOR454500;
{STICKLINE(1,C,O,2,0),COLOR555500;
STICKLINE(1,C,O,1.5,0),COLOR656500;}
STICKLINE(1,C,O,1,0),COLOR757500;
{STICKLINE(1,C,O,0.5,0),COLOR858500;
   
{STICKLINE(立桩量,C,O,2.8,0),COLOR000045;}
STICKLINE(立桩量,C,O,2.8,0),COLOR000065;
{STICKLINE(立桩量,C,O,2,0),COLOR000085;
STICKLINE(立桩量,C,O,1.5,0),COLOR0000A5;}
STICKLINE(立桩量,C,O,1,0),COLOR0000C5;
{STICKLINE(立桩量,C,O,0.5,0),COLOR0000E5;};

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

{【成立】   TDX条件选股}

TYP := (HIGH + LOW + CLOSE)/3;
CCI1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,6));
差值1:=ABS(REF(CCI1,1)-CCI1);
CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10));
差值2:=ABS(REF(CCI2,1)-CCI2);
CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20));
差值3:=ABS(REF(CCI3,1)-CCI3);
CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30));
差值4:=ABS(REF(CCI4,1)-CCI4);
CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60));
差值5:=ABS(REF(CCI5,1)-CCI5);
CCI:=CCI1+CCI2+CCI3+CCI4+CCI5;
AAA:=(3*C+H+L+O)/6;
VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)
+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36;
TJ111:=(ABS(CCI1)>CCI AND ABS( 差值1)> ABS(差值5))
OR (VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1);
VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3;
VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3;
VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3;
VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3;
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
短线:=VAR1,COLORWHITE;
中线:=VAR6,COLORYELLOW;
下跌:=IF(VAR1=VAR6,VAR6, DRAWNULL),COLORGREEN;

立桩量3:=FILTER(TJ111,5);
TJ222:=IF(BARSLAST(立桩量3)=1 AND CLOSE>REF(HIGH,1),1,
IF(BARSLAST(立桩量3)=2 AND CLOSE>REF(HIGH,2),1,
IF(BARSLAST(立桩量3)=3 AND CLOSE>REF(HIGH,3),1,0)));
成立:=TJ222=1;
条件成立:FILTER(成立,5)  AND 下跌!=VAR6 AND DYNAINFO(39)>0;