当前位置:→ 股海网大智慧公式 → 正文
  • 换手分析源码附图

  • 相关简介:VARIABLE:K=1; VAR1:=SUM(VOL,0); VAR2:=VAR1/CAPITAL; N:=FLOOR(VAR2); IF N=REF(N,1)+1 THEN BEGIN STICKLINE(C,0,180,4,1); DRAWTEXT(C,80,' 第'),ALIGN0,COLORGREEN; DRAWTEXT(C,70,' '+NUMTOSTR( N)),ALIGN0,COLORRED; DRAWTEXT(C,60,' 次'),ALIGN0,COLORGREEN; DRAW

  • 文章来源:股海网作者:股海网发布时间:2015-05-17浏览次数:下载次数:0

VARIABLE:K=1;
 VAR1:=SUM(VOL,0);
 VAR2:=VAR1/CAPITAL;
 N:=FLOOR(VAR2);
 IF N=REF(N,1)+1 THEN BEGIN
 STICKLINE(C,0,180,4,1);
 DRAWTEXT(C,80,' 第'),ALIGN0,COLORGREEN;
 DRAWTEXT(C,70,' '+NUMTOSTR( N)),ALIGN0,COLORRED;
 DRAWTEXT(C,60,' 次'),ALIGN0,COLORGREEN;
 DRAWTEXT(C,50,' 完'),ALIGN0,COLORGREEN;
 DRAWTEXT(C,40,' 全'),ALIGN0,COLORGREEN;
 DRAWTEXT(C,30,' 换'),ALIGN0,COLORGREEN;
 DRAWTEXT(C,20,' 手'),ALIGN0,COLORGREEN;
 DRAWTEXT(C,10,' '+NUMTOSTR( K)+'天'),ALIGN0,COLORGREEN;
 K:=1;
 END
 ELSE
 K:=K+1;
五日换手: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 ;

 vol/CAPITAL;
 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;
 {解盘:N=75 25 100 }
 REFLINE: 0, 25, 75, 100;
 Var1:=IF(MA(CLOSE,88),1,0);
 Var2:=1/WINNER(CLOSE);
 Var3:=100-ABS((CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100);
 HSL:=vol/capital*100;
量能:=SUM(HSL,N);
涨幅1:=100*(CLOSE-REF(CLOSE,N))/REF(CLOSE,N);
流通市值:=capital*c;
 AH:=HHV(流通市值,N);
 AL:=LLV(流通市值,N);
 t1:=if(HSL<=2,1,0);
 t2:=if(HSL>2 AND HSL<3,1,0);
 t3:=if(HSL>3 AND HSL<5,1,0);
 t4:=if(HSL>5 AND HSL<8,1,0);
 t5:=if(HSL>8 AND HSL<15,1,0);
 t6:=if(HSL>15 AND HSL<25,1,0);
 t7:=if(HSL>=25,1,0);
 sss:=100/4;
 i:=0;
 IF  HSL<=2  THEN  BEGIN  DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'日换手率在1%--2%,股价属于成交低靡,属于冷门股。日换手率成交小于3%的成交额称为“成交无量”。'),Color00FFFF,ALIGN2; i:=i+1; 
 END
 IF  HSL>2 AND HSL<3  THEN  BEGIN  DRAWTEXT(c>0 and
 DISPSTATUS=2,100-(sss*i),'日换手率在2%--3%,股价属于成交温和,属于备份股。'),Color00FFFF,ALIGN2;
 i:=i+1; 
 END
 IF  HSL>3 AND HSL<5  THEN  BEGIN  DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),' 日换手率在3%--5%,股价属于成交活跃,表示有庄家在积极活动,属于热门股。把10日平均换手率大于3%或大于5%,而后又缩量至换手率小于3%高度控盘的个股作为选股条件。'),Color00FFFF,ALIGN2; i:=i+1;  END
 IF  HSL>5 AND HSL<8  THEN  BEGIN  DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),' 日换手率在5%--8%, 大于7%,常常超过10%,属于股价成交带量,表明筹码在急剧换手。发生在低位或是通过第一阻力区,很可能是强庄积极进货。'),Color00FFFF,ALIGN2;
 i:=i+1;  END
 IF  HSL>8 AND HSL<15  THEN  BEGIN  DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),' 日换手率大于8%--15%,股价属于成交放量。'),ColorFFFFF5,ALIGN2; i:=i+1;  END
 IF  HSL>15 AND HSL<25  THEN  BEGIN  DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),' 日换手率大于15%--25%,股价属于成交巨量,发生在高位或高位缩量横盘之后,很可能是庄家出货。'),Color00FFFF,ALIGN2;
 i:=i+1;  END
 IF  HSL>=25  THEN  BEGIN  DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),' 日换手率大于25% 股价属于成交怪异。'),ColorFFFFFF,ALIGN2; i:=i+1;  END
 IF  量能>3*N AND 涨幅1>3*N  THEN  BEGIN  DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'继续大涨'),ColorFF00FF,ALIGN2; i:=i+1;  END
 IF  量能<0.5*N AND 涨幅1<N  THEN  BEGIN  DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'继续小涨'),ColorFFFF00,ALIGN2; i:=i+1;  END
 IF  量能<0.5*N AND 涨幅1>-N AND 涨幅1>0  THEN  BEGIN  DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'继续小跌'),ColorFFFF00,ALIGN2; i:=i+1;  END
 IF  量能>3*N AND 涨幅1<-3*N  THEN  BEGIN  DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'继续大跌'),ColorFF00FF,ALIGN2; i:=i+1;  END
 IF  ((量能>3*N AND 涨幅1<N) OR (量能<0.5*N AND 涨幅1>3*N)
 OR (量能>3*N AND 涨幅1>-N AND 涨幅1<0) OR (量能<0.5*N AND 涨幅1<-3*N))  THEN  BEGIN  DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'注意反转'),ColorFFFFF5,ALIGN2;
 i:=i+1;  END
 IF  涨幅1>0 and 流通市值<=AL  THEN  BEGIN  DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'流通市值减小,涨幅加大'),Color00FFFF,ALIGN2; i:=i+1;  END
 IF  涨幅1<=0 and 流通市值<=AL  THEN  BEGIN  DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'流通市值加大,涨幅减小'),Color00FFFF,ALIGN2; i:=i+1;  END;
 DRAWTEXTREL(20 ,50 ,'趋势看周线' );
DRAWTEXTREL(20 ,200 ,'选股看日线' );
DRAWTEXTREL(20 ,350 ,'买股看时线' );

 

 

 

BIAS1:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*1000;
 BIAS2:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*1000;
 BIAS3:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*1000;
 BIAS:=(BIAS1+2*BIAS2+3*BIAS3)/6;
乖离:=MA(BIAS,3);
抄底:IF(乖离<-18 AND 乖离>=-27,-10,0), COLORred,LINETHICK0;
 STICKLINE(乖离<-3 AND 乖离>=-9,2,0,6,0) , COLORred;
抄底二:IF(乖离<-9,15,0),ColorFF35FF,LINETHICK0;

 STICKLINE(乖离<-120,15,0,6,0),Colorgreen;

 STICKLINE(乖离<-53,9,0,6,0),Coloryellow;
 STICKLINE(乖离<-13,4,0,6,0),ColorFF35FF;
 Var1:=DMA(CLOSE,VOL/MA(VOL,4)/4);
 Var2:=DMA(CLOSE,VOL/MA(VOL,31)/31);
 Var3:=(CLOSE-Var1)/Var1*100<-10;
 Var4:=(Var1-Var2)/Var2*100<-16;
 Var5:=(CLOSE-MA(CLOSE,50))/MA(CLOSE,50)*100<-23;
 Var6:=SMA(MAX(CLOSE-REF(CLOSE,1),0),3,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),3,1)*100>16;
 Var7:=100*(HHV(HIGH,27)-CLOSE)/(HHV(HIGH,27)-LLV(LOW,27));
 Var8:=INDEXC;
 Var9:=MA(Var8,6);
 VarA:=MA(Var8,24);
 VarB:=MA(Var8,32);
 VarC:=VarB>Var9*1.11 AND VarA>Var9*1.095;
 sss:=(Var3 AND Var4 AND (OPEN-REF(CLOSE,1))/REF(CLOSE,1)>-0.07 OR Var5 AND Var6 AND CROSS(Var7,79) OR VarC AND CLOSE/COST(8)<=0.8)*100;
 Varr1:=(CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100;
 Varr2:=EMA(Varr1,24);
 Varr3:=EMA(Varr2,10);
 Varr4:=3*Varr2-2*Varr3;
 Varr5:=EMA(Varr4,5)/10;

换手分析源码附图

 ☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:

换手分析源码附图

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

上传会员: 
股海网
文件大小: 
Bytes
上传时间: 
2015-05-17
下载积分: 
-
免责声明: 
请仔细阅读并同意后才能下载
本附件为用户分享上传,股海网没有对文件进行验证,不能保证下载资源的准确性、安全性和完整性,也不保证下载资源能正常安装和使用,且下载后扣除的积分无法退还,除非您充分理解并完全接受本声明,否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利,其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究使用,不得用于商业或者非法用途,如有侵犯您的版权, 请参看 《股海网侵权处理流程》《股海网免责声明条款》
点击下载无反应时,更换主流浏览器重新登录操作,如360浏览器、Edge浏览器、谷歌浏览器,个别浏览器有不兼容现象。
勾选以下表示您已经阅读并同意以上声明才能下载本文件,扣除积分无法退还!
我已阅读所有条款规定, 请点我同意 所有条款内容!我自愿下载!
提示:如下载失败,请点关闭刷新此页面或提交问题反馈给管理员→
关闭

关于我们 - 联系我们 - 隐私政策 - 免责声明 - 下载帮助 - 广告合作 - SiteMap - TOP
增值电信业务经营ICP许可证:湘B2-20210269 湘ICP备09016573号-10 湘公网安备43108102000040号
Copyright © 2021 铭网科技,All Rights Reserved.