{组合公式源码
首先声明，组合的两个公式均来自创幻论坛。如果原发布者有异议，请通知删除。
参数：N，缺省：11 最小：0 最大：100
}
DRAWGBK(DATE>900101,COLORRGB(0,150,130),COLORRGB(0,0,0),1);
//限制坐标参数：0;25;75;100;
INPUT:N(11);
F:=MOD(SUM(100*VOL/CAPITAL,0),100);
M:=(SUM(100*VOL/CAPITAL,0)-F)/100;
TJ:=F<REF(F,1);
STICKLINE(TJ,0,75,1,1),COLORCYAN;
FD:=REF(BARSLAST(TJ),1)+1;
DRAWNUMBER(TJ,75,M,0),ALIGN1,COLORRED;
DRAWTEXT(TJ,60,'次'),ALIGN1,COLORGREEN;
DRAWTEXT(TJ,45,'换'),ALIGN1,COLORGREEN;
DRAWTEXT(TJ,30,'手'),ALIGN1,COLORGREEN;
DRAWNUMBER(TJ,15,FD,0),ALIGN1,COLORCYAN;
DRAWTEXT(TJ,0,'天'),ALIGN1,COLORGREEN;DRAWTEXTEX(1,0,0,0,'趋势看周线');
DRAWTEXTEX(1,0,0,20,'选股看日线');
DRAWTEXTEX(1,0,0,40,'买股看时线');日换手:VOL*100/CAPITAL,COLORF0F000,LINETHICK0;
五日换手:SUM(VOL,5)*100/CAPITAL,COLORF0F000,LINETHICK0 ;
十日换手:SUM(VOL,10)*100/CAPITAL,COLORF0F000,LINETHICK0 ;
二十日换手:SUM(VOL,20)*100/CAPITAL,COLORF0F000,LINETHICK0 ;
百日换手:SUM(VOL,100)*100/CAPITAL,COLORF0F000,LINETHICK0 ;
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
成交量（手）:VOL,COLORC700FF,LINETHICK0;
主动买盘:IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,LINETHICK0;
主动卖盘:IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2)),COLOR66FF00,LINETHICK0;
HSL:=VOL/CAPITAL*100;
量能:=SUM(HSL,N);
涨幅１:=100*(CLOSE-REF(CLOSE,N))/REF(CLOSE,N);
流通市值:=CAPITAL*C;
AH:=HHV(流通市值,N);
AL:=LLV(流通市值,N);DRAWTEXTEX(ISLASTBAR AND HSL<=2,0,100,0,'日换手率在1%--2%，股价属于成交低靡，属于冷门股。日换手率成交小于3%的成交额称为"成交无量"。'),COLOR00FFFF;
DRAWTEXTEX(ISLASTBAR AND HSL>2 AND HSL<=3,0,100,0,'日换手率在2%--3%，股价属于成交温和，属于备份股。'),COLOR00FFFF;
DRAWTEXTEX(ISLASTBAR AND HSL>3 AND HSL<=5,0,100,0,'日换手率在3%--5%，股价属于成交活跃，表示有庄家在积极活动，属于热门股。把10日平均换手率大于3%或大于5%，而后又缩量至换手率小于3%高度控盘的个股作为选股条件。'),COLOR00FFFF;
DRAWTEXTEX(ISLASTBAR AND HSL>5 AND HSL<=8,0,100,0,'日换手率在5%--8%,大于7%，常常超过10%，属于股价成交带量，表明筹码在急剧换手。发生在低位或是通过第一阻力区，很可能是强庄积极进货。'),COLOR00FFFF;
DRAWTEXTEX(ISLASTBAR AND HSL>8 AND HSL<=15,0,100,0,'日换手率大于8%--15%，股价属于成交放量。'),COLOR00FFFF;
DRAWTEXTEX(ISLASTBAR AND HSL>15 AND HSL<=25,0,100,0,'日换手率大于15%--25%，股价属于成交巨量，发生在高位或高位缩量横盘之后，很可能是庄家出货。'),COLOR00FFFF;
DRAWTEXTEX(ISLASTBAR AND HSL>25,0,100,0,'日换手率大于25% 股价属于成交怪异；周换手率大于25%属于成交活跃。'),COLOR00FFFF;DRAWTEXTEX(ISLASTBAR AND 量能>3*N AND 涨幅１>3*N,0,100,20,'继续大涨'),COLORFFFFF5;
DRAWTEXTEX(ISLASTBAR AND 量能<0.5*N AND 涨幅１<N,0,100,20,'继续小涨'),COLORFFFFF5;
DRAWTEXTEX(ISLASTBAR AND 量能<0.5*N AND 涨幅１>-N AND 涨幅１>0,0,100,20,'继续小跌'),COLORFFFFF5;
DRAWTEXTEX(ISLASTBAR AND 量能>3*N AND 涨幅１<-3*N,0,100,20,'继续大跌'),COLORFFFFF5;
DRAWTEXTEX(ISLASTBAR AND (量能>3*N AND 涨幅１<N) OR (量能<0.5*N AND 涨幅１>3*N) OR (量能>3*N AND 涨幅１>-N AND 涨幅１<0) OR (量能<0.5*N AND 涨幅１<-3*N),0,100,20,'注意反转：股价高位向下反转，中位横盘杀跌，低位向上反转。'),COLORFFFFF5;DRAWTEXTEX(ISLASTBAR AND 涨幅１>0 AND 流通市值<=AL,0,100,40,'流通市值减小，涨幅加大'),COLOR00FFFF;
DRAWTEXTEX(ISLASTBAR AND 涨幅１<=0 AND 流通市值>=AH,0,100,40,'流通市值加大，涨幅减小'),COLOR00FFFF;
RSV:=(C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100;
K:SMA(RSV,3,1),COLORFFFFFF;
D:SMA(K,3,1),COLOR00FFFF;
J:3*K-2*D,COLORFF00FF;
超跌:IF(J<0,10,0),COLORFFFF00;
BDDD:=LLV(J,2)=LLV(J,8);
重启:IF(CROSS(J,REF(J+0.01,1)) AND BDDD AND J<20,30,0),COLOR00FF00;
加码:IF(CROSS(J,REF(J+0.01,1)) AND BDDD AND BETWEEN(J,20,60),1,0),COLOR00FFFF,POINTDOT,LINETHICK0;
BDGD:=HHV(J,2)=HHV(J,8) AND J>80;
小心:IF(CROSS(REF(J-0.01,1),J) AND REF(BDGD,1),70,100),COLOR0000FF;
DRAWTEXT(加码,J,'△'),COLOR00FFFF;
50,LINETHICK1,COLORFFFFFF;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
