相關標簽:

?

乘風換手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;{http://www.weiqiv.net.cn}
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;//換手99.99%AMOUNT
階段總量（手）:=SUM(VOL,S2)*100,PRECISION,LINETHICK,COLORCYAN;//換手99.99%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;{http://www.weiqiv.net.cn}
比率:=(預測量-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,CO

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?