乘风换手VOL优化DRAWGBK(CLOSE=CLOSE,COLORRGB(30,30,30),COLORRGB(3,3,3),1);
预测额:=IF(DATE<>CURRENTDATE OR OPENMINUTES(CURRENTTIME)=1,AMOUNT,(AMOUNT/OPENMINUTES(CURRENTTIME))*240), LINETHICK;
n:=20;
SAT:=IF((预测额/CLOSE)/(HHV(预测额,N)/HHV(CLOSE,N))*100>100,100,(预测额/CLOSE)/(HHV(预测额,N)/HHV(CLOSE,N))*100);
预测量:=IF(DATE<>CURRENTDATE OR OPENMINUTES(CURRENTTIME)=1,VOL,(VOL/OPENMINUTES(CURRENTTIME))*240), LINETHICK;
量:=VOL;
V0001:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主买:IF(CLOSE>OPEN,V0001*(HIGH-LOW),IF(CLOSE<OPEN,V0001*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),Color0000FF,POINTDOT,LINETHICK0,PRECISION0;
主卖:IF(CLOSE>OPEN,0-V0001*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-V0001*(HIGH-LOW),0-VOL/2)),ColorFFFF00,POINTDOT,LINETHICK0,PRECISION0;
净买:主买+主卖,ColorFFFFFF,LINETHICK0,PRECISION0;
换手率:=VOL/CAPITAL*100;
hs:=换手率;
量比:IF(BARPOS=DATACOUNT,DYNAINFO(17),VOL/REF(MA(VOL,5),1)),LINETHICK0,ColorFFFFFF,PRECISION2;
A:=MA(换手率,2);
X:=LLV(A,20),linethick;
X1:=(A-LLV(A,20))=0;
换手最小:=IF(ALL (A>0,5) AND FILTERX(X1,5),X1,0),COLORRED;
小天:BARSLAST(换手最小),LINETHICK,color008888;
X2:=HHV(A,20);
X3:=(A-X2)=0;
换手最大:=IF(ALL(REF(A,1)<X2,5) AND FILTERX(X3,5),1,0),COLORGREEN;
STICKLINE(CLOSE<=REF(CLOSE,1) , VOL,0,7,1),Color759700,LINETHICK2;
STICKLINE(CLOSE>REF(CLOSE,1), VOL,0,7,1) {ColorFF4D80}ColorFF87FF,LINETHICK2;STICKLINE(净买>0,0,主买,5,0),Color0000FF;
STICKLINE(净买<=0,0,主买,5,0),ColorFFFF00;
STICKLINE(净买>0,v,主买,5,0),Color00FFFF;
STICKLINE(净买<=0,v,主买,5,0),ColorA84802;
STICKLINE(c,量比*15000,0,2,0),ColorFFFFFF;
{线形}
h13:=HHV(MA(VOL,13),13);
l13:=LLV(MA(VOL,5),13);
mv5:MA(VOL,5),ColorFFFFFF,PRECISION0;
mv13:MA(VOL,13),Color00FFFF,PRECISION0;
mv34:MA(VOL,34),LINEDOT,Color519F7E,PRECISION0;
{信号和文字提示}
PARTLINE(MA(SUM(主买,34),10)<SUM(主买,34),-300),COLORMAGENTA,LINETHICK2;
PARTLINE(MA(SUM(主买,34),10)>=SUM(主买,34) ,-300),COLORBLUE,LINETHICK2;
DRAWICON(MA(SUM(主买,34),10)>REF(MA(SUM(主买,34),10),1),-300,12);
DRAWICON(MA(SUM(主买,34),10)<=REF(MA(SUM(主买,34),10),1),-300,11);
天量:=VOL=HHV(VOL,0);
VERTLINE(天量),LINEDOT,COLORYELLOW;
DRAWTEXT(REF(COUNT(VOL>l13,8)=8,1) and VOL<l13,VOL,'量\n缩'),COLORWHITE,ALIGN;
DRAWTEXT(REF(COUNT(VOL<mv34,8)=8,1) and VOL>mv34,VOL,'量\n突'),COLORWHITE,ALIGN;
F:=100*(CLOSE-REF(CLOSE,1))/REF(CLOSE,1);
今小昨:=IF(CLOSE<REF(OPEN,1) AND F<0,1,0);
Sa1:=今小昨;
今小前:=IF(CLOSE<REF(OPEN,2) AND F<0,1,0),LINETHICK0;
Sa2:=今小前;
STICKLINE(Sa1=0 AND REF(Sa1,1)=1 AND Sa2=0 AND REF(Sa2,1)=1 AND CROSS(ZIG(3,3),REF(ZIG(3,3),1)),VOL*2,0,0.1,0),LINEDOT,colorFF00FF;//此信号是未来函数
svol:=INTPART(SUM(VOL,0)/CAPITAL);
tj0:=svol>REF(svol,1) or BARSSINCE(CLOSE)=0;
S1:=BARSLAST(tj0)+1,PRECISION,COLORWHITE;//时间1
tj2:=S1<REF(S1,1);//取点
S2:=IF(tj2,REF(S1,1)+1,S1),PRECISION,COLORMAGENTA;//时间2
S3:=SUM(tj2,0),COLORMAGENTA;
阶段总额（万元）:=SUM(AMOUNT/10000,S2)*100,PRECISION,LINETHICK,Color008BFA;//换手100%AMOUNT
阶段总量（手）:=SUM(VOL,S2)*100,PRECISION,LINETHICK,COLORCYAN;//换手100%VOL
阶段成本（元）:=(阶段总额（万元）/(阶段总量（手）/100)),LINETHICK,PRECISION2,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'■阶段平均成本:'+NUMTOSTR(阶段成本（元）[SYSPARAM(1)],2)+'(元)'),align4,COLORCYAN;
{取点}
Zk1:=STKINDI('' ,'kdj.k',0,7);
Zd2:=STKINDI('' ,'kdj.d',0,7);
ZF1:=STKINDI('' ,'macd.diff',0,7);
ZA2:=STKINDI('' ,'macd.dea',0,7);
{建仓统计}
JCD:=FILTER(CROSS(Zk1,Zd2) and Zd2<30,13);{周KD金叉位置}
取点:=BARSLAST(JCD);
吸筹区:=IF(取点>0 and 取点<61,取点,0);
ZS1:=吸筹区;
ZS2:=吸筹区+1;
ZS3:=换手率/5;{庄家筹码估算}
ZSA:=IF(ZS1>0,SUM((ZS3),吸筹区+1),0);{统计庄家筹码}
{控制画线高度}
n1:=SYSPARAM(3);
nn:=n1-SYSPARAM(2)+1;
hh:=HHV(VOL,nn);
ll:=LLV(VOL,nn);
最高:=hh[n1];
最低:=ll[n1];
中:=最低+(最高-最低)*0.5;
//PARTLINE(RANGE(BARPOS,SYSPARAM(2),SYSPARAM(1)+1) and ZS1>0,中),COLORCYAN,LINETHICK2;//建仓横线
VERTLINE(JCD),LINEDOT,COLORRED;//建仓点竖线
{左侧数字}
三日总换手:=SUM(换手率,3);
五日总换手:=SUM(换手率,5);
DRAWTEXTEX(CLOSE,1,1,60,'\n\n■三日总换手■'),COLORRED;
DRAWTEXTEX(CLOSE,1,1,115,'\n\n今总:'+NUMTOSTR(三日总换手,2)+' %'+'\n'+'昨总:'+NUMTOSTR(REF(三日总换手,1),2)+' %'+'\n'+'前总:'
+NUMTOSTR(REF(三日总换手,2),2)+' %'+'\n'+'前一:'+NUMTOSTR(REF(三日总换手,3),2)+' %'+'\n'+'前二:'+NUMTOSTR(REF(三日总换手,4),2)+' %'),colorFFFF;
DRAWTEXTEX(CLOSE,1,120,60,'\n\n■五日总换手■'),COLORRED;
DRAWTEXTEX(CLOSE,1,120,115,'\n\n今总:'+NUMTOSTR(五日总换手,2)+' %'+'\n'+'昨总:'+NUMTOSTR(REF(五日总换手,1),2)+' %'+'\n'+'前总:'
+NUMTOSTR(REF(五日总换手,2),2)+' %'+'\n'+'前一:'+NUMTOSTR(REF(五日总换手,3),2)+' %'+'\n'+'前二:'+NUMTOSTR(REF(五日总换手,4),2)+' %'),COLORWHITE;
{可移动变化数字}
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(1)&&SYSPARAM(1)>ZS1,中*2.5,' ■主力建仓天数:'+NUMTOSTR(ZS1[SYSPARAM(1)],0)+'(天)'),PXDN30,align2,COLORYELLOW;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(1)&&SYSPARAM(1)>ZS1,中*2.5,' \n■估算主力筹码:'+NUMTOSTR(ZSA[SYSPARAM(1)],2)+'%'),PXDN30,align2,COLORMAGENTA;
DRAWICON(FILTER(CROSS(ZF1,ZA2),5),0,4),align;
DRAWICON(FILTER(CROSS(Zk1,Zd2),5),0,8),align;
DRAWICON(FILTER(CROSS(Zd2,Zk1),5),0,9),align;
DRAWTEXT(SYSPARAM(1)=BARPOS,中*2.5,' \n \n■爆发力度: '+NUMTOSTR(sat[SYSPARAM(1)],2)),COLORRED,PXDN30,align2;
STICKLINE(SAT>REF(SAT,1)+5 AND VOL>REF(VOL,1),REF(VOL,1)*0.98,REF(VOL,1),10,0),COLORWHITE;
VERTLINE(ALL (A>0,5) AND FILTERX(X1,5)),COLORRED;
DRAWTEXT(SYSPARAM(1)=BARPOS and ALL(A>0,5) AND FILTERX(X1,5),10,'■换手特小'),COLORRED,align4;
DRAWTEXT(SYSPARAM(1)=BARPOS and ALL(REF(A,1)<X2,5) AND FILTERX(X3,5),10,'■换手过大'),COLORGREEN,align4;换手极低:=hs<=1;
换手冷清:=hs>1 and hs<=3;
换手正常:=hs>3 and hs<=5;
换手活跃:=hs>5 and hs<=9;
换手热烈:=hs>9 and hs<=13;
换手旺盛:=hs>13 and hs<=20;
换手过热:=hs>20 and hs<30;
换手异常:=hs>=30;
DRAWTEXT(换手极低 AND BARPOS=SYSPARAM(1),中*2.5,' \n \n \n■换手极低:'+NUMTOSTR(换手率[SYSPARAM(1)],2)+'% '),PXDN30,align2,COLORGRAY;
DRAWTEXT(换手冷清 AND BARPOS=SYSPARAM(1),中*2.5,' \n \n \n■换手冷清:'+NUMTOSTR(换手率[SYSPARAM(1)],2)+'% '),PXDN30,align2,COLORBLUE;
DRAWTEXT(换手正常 AND BARPOS=SYSPARAM(1),中*2.5,' \n \n \n■换手正常:'+NUMTOSTR(换手率[SYSPARAM(1)],2)+'% '),PXDN30,align2,COLORWHITE;
DRAWTEXT(换手活跃 AND BARPOS=SYSPARAM(1),中*2.5,' \n \n \n■换手活跃:'+NUMTOSTR(换手率[SYSPARAM(1)],2)+'% '),PXDN30,align2,COLORYELLOW;
DRAWTEXT(换手热烈 AND BARPOS=SYSPARAM(1),中*2.5,' \n \n \n■换手热烈:'+NUMTOSTR(换手率[SYSPARAM(1)],2)+'% '),PXDN30,align2,COLORRED;
DRAWTEXT(换手旺盛 AND BARPOS=SYSPARAM(1),中*2.5,' \n \n \n■换手旺盛:'+NUMTOSTR(换手率[SYSPARAM(1)],2)+'% '),PXDN30,align2,COLORMAGENTA;
DRAWTEXT(换手过热 AND BARPOS=SYSPARAM(1),中*2.5,' \n \n \n■换手过热:'+NUMTOSTR(换手率[SYSPARAM(1)],2)+'% '),PXDN30,align2,COLORBROWN;
DRAWTEXT(换手异常 AND BARPOS=SYSPARAM(1),中*2.5,' \n \n \n■换手异常:'+NUMTOSTR(换手率[SYSPARAM(1)],2)+'% '),PXDN30,align2,COLORGREEN;
比率:=(预测量-REF(VOL,1))/REF(VOL,1)*100;
DRAWTEXT(预测量>REF(VOL,1) and BARPOS=SYSPARAM(1),中*2.5,
' \n \n \n \n ■预测量:'+NUMTOSTR(预测量[SYSPARAM(1)],0)+'(+'+NUMTOSTR(比率[SYSPARAM(1)],2)+'% '+')'),PXDN30,align2,COLORRED;
DRAWTEXT(预测量<=REF(VOL,1) and BARPOS=SYSPARAM(1),中*2.5,
' \n \n \n \n ■预测量:'+NUMTOSTR(预测量[SYSPARAM(1)],0)+'(-'+NUMTOSTR(比率[SYSPARAM(1)],2)+'% '+')'),PXDN30,align2,COLORGREEN;{3日换手柱状右侧显示}
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<1,0,REF(hs,2)*5000,6,0),SHIFT3,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<1,0,REF(hs,1)*5000,6,0),SHIFT2,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<1,0,hs*5000,6,0),SHIFT1,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<2 and FINANCE(7)/10000>=1,0,REF(hs,2)*10000,6,0),SHIFT3,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<2 and FINANCE(7)/10000>=1,0,REF(hs,1)*10000,6,0),SHIFT2,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<2 and FINANCE(7)/10000>=1,0,hs*10000,6,0),SHIFT1,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<4 and FINANCE(7)/10000>=2,0,REF(hs,2)*20000,6,0),SHIFT3,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<4 and FINANCE(7)/10000>=2,0,REF(hs,1)*20000,6,0),SHIFT2,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<4 and FINANCE(7)/10000>=2,0,hs*20000,6,0),SHIFT1,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<6 and FINANCE(7)/10000>=4,0,REF(hs,2)*30000,6,0),SHIFT3,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<6 and FINANCE(7)/10000>=4,0,REF(hs,1)*30000,6,0),SHIFT2,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<6 and FINANCE(7)/10000>=4,0,hs*30000,6,0),SHIFT1,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<9 and FINANCE(7)/10000>=6,0,REF(hs,2)*45000,6,0),SHIFT3,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<9 and FINANCE(7)/10000>=6,0,REF(hs,1)*45000,6,0),SHIFT2,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<9 and FINANCE(7)/10000>=6,0,hs*45000,6,0),SHIFT1,color1472FF;STICKLINE(ISLASTBAR AND FINANCE(7)/10000<12 and FINANCE(7)/10000>=9,0,REF(hs,2)*65000,6,0),SHIFT3,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<12 and FINANCE(7)/10000>=9,0,REF(hs,1)*65000,6,0),SHIFT2,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<12 and FINANCE(7)/10000>=9,0,hs*65000,8,0),SHIFT1,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<20 and FINANCE(7)/10000>=12,0,REF(hs,2)*90000,6,0),SHIFT3,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<20 and FINANCE(7)/10000>=12,0,REF(hs,1)*90000,6,0),SHIFT2,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000<20 and FINANCE(7)/10000>=12,0,hs*90000,8,0),SHIFT1,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000>=20 AND FINANCE(7)/10000<35,0,REF(hs,2)*150000,6,0),SHIFT3,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000>=20 AND FINANCE(7)/10000<35,0,REF(hs,1)*150000,6,0),SHIFT2,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000>=20 AND FINANCE(7)/10000<35,0,hs*150000,6,0),SHIFT1,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000>=35 AND FINANCE(7)/10000<50,0,REF(hs,2)*250000,6,0),SHIFT3,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000>=35 AND FINANCE(7)/10000<50,0,REF(hs,1)*250000,6,0),SHIFT2,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000>=35 AND FINANCE(7)/10000<50,0,hs*250000,6,0),SHIFT1,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000>=50 AND FINANCE(7)/10000<100,0,REF(hs,2)*550000,6,0),SHIFT3,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000>=50 AND FINANCE(7)/10000<100,0,REF(hs,1)*550000,6,0),SHIFT2,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000>=50 AND FINANCE(7)/10000<100,0,hs*550000,6,0),SHIFT1,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000>=100,0,REF(hs,2)*1000000,6,0),SHIFT3,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000>=100,0,REF(hs,1)*1000000,6,0),SHIFT2,color1472FF;
STICKLINE(ISLASTBAR AND FINANCE(7)/10000>=100,0,hs*1000000,6,0),SHIFT1,color1472FF;
{3日换手数字}
DRAWTEXT(ISLASTBAR AND CLOSE>0,中*0.8,'一换'+'\n'+NUMTOSTR(hs,2)),ALIGN,SHIFT1,COLORWHITE;
DRAWTEXT(ISLASTBAR AND CLOSE>0,中*0.8,'二换'+'\n'+NUMTOSTR(REF(hs,1),2)),ALIGN,SHIFT2,COLORWHITE;
DRAWTEXT(ISLASTBAR AND CLOSE>0,中*0.8,'三换'+'\n'+NUMTOSTR(REF(hs,2),2)),ALIGN,SHIFT3,COLORWHITE;
{3日量比数字}
DRAWTEXT(ISLASTBAR AND CLOSE>0,中*1.4,'今\n日'+'\n'+'量\n比'+'\n'+NUMTOSTR(量比,2)),ALIGN,SHIFT1,COLORGREEN;
DRAWTEXT(ISLASTBAR AND CLOSE>0,中*1.4,'昨\n日'+'\n'+'量\n比'+'\n'+NUMTOSTR(REF(量比,1),2)),ALIGN,SHIFT2,COLORGREEN;
DRAWTEXT(ISLASTBAR AND CLOSE>0,中*1.4,'前\n日'+'\n'+'量\n比'+'\n'+NUMTOSTR(REF(量比,2),2)),ALIGN,SHIFT3,COLORGREEN;
{三日买盘和增比数字}
主买比:=(主买-ref(主买,1))/ref(主买,1);
昨主买比:=(ref(主买,1)-ref(主买,2))/ref(主买,2);
前主买比:=(ref(主买,2)-ref(主买,3))/ref(主买,3);
DRAWTEXT(ISLASTBAR AND CLOSE>0,中*2.0,'现\n主\n买'+'\n'+NUMTOSTR(主买,0)+'\n'+'增'+NUMTOSTR(主买比,2)),ALIGN,SHIFT1,COLORRED;
DRAWTEXT(ISLASTBAR AND CLOSE>0,中*2.0,'昨\n主\n买'+'\n'+NUMTOSTR(ref(主买,1),0)+'\n'+'增'+NUMTOSTR(昨主买比,2)),ALIGN,SHIFT2,COLORRED;
DRAWTEXT(ISLASTBAR AND CLOSE>0,中*2.0,'前\n主\n买'+'\n'+NUMTOSTR(ref(主买,2),0)+'\n'+'增'+NUMTOSTR(前主买比,2)),ALIGN,SHIFT3,COLORRED;
{三日净买数字}
DRAWTEXT(ISLASTBAR AND CLOSE>0,中*2.5,'现\n净\n买'+'\n'+NUMTOSTR(净买,0)),ALIGN,SHIFT1,coloryellow;
DRAWTEXT(ISLASTBAR AND CLOSE>0,中*2.5,'昨\n净\n买'+'\n'+NUMTOSTR(ref(净买,1),0)),ALIGN,SHIFT2,coloryellow;
DRAWTEXT(ISLASTBAR AND CLOSE>0,中*2.5,'前\n净\n买'+'\n'+NUMTOSTR(ref(净买,2),0)),ALIGN,SHIFT3,coloryellow; {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
