{虞美人实时和分时共用}
drawgbk(close>0,colorrgb(20,20,580),colorrgb(0,0,0),1);
stickline((open >= close),close,open,7,0),colorffff00;
stickline((open >= close),high,low,0,0),colorffff00;
stickline((close >= open),close,open,7,1),colorff;
stickline((close >= open),close,high,0,0),colorff;
stickline((close >= open),low,open,0,0),colorff;
stickline(c/ref(c,1)>1.095,c,o,3,0),coloryellow;
input:日期前推(10,0,100);{用于日线}
kk:=datatype;
n:=if(kk=6,日期前推,0);
中趋势线:=3*sma((c-llv(c,27))/(hhv(c,27)-llv(c,27))*100,5,1)-2*sma(sma((c-llv(c,27))/(hhv(c,27)-llv(c,27))*100,5,1),3,1);
长趋势线:=3*sma((c-llv(c,55))/(hhv(c,55)-llv(c,55))*100,5,1)-2*sma(sma((c-llv(c,55))/(hhv(c,55)-llv(c,55))*100,5,1),3,1);
if kk<>-1 then begin
ma13:ema(ma(c,5),8);ma5:ema(ma(c,3),2);
q2h:=sysparam(5)-mindiff;
q2l:=sysparam(5)-(sysparam(4)-sysparam(5))*0.2;
q1:=q2h;q2:=q2l;
限制当日:=barslast(date<>ref(date,1))+1;
品红总时:=sum(长趋势线>=90 ,限制当日+n),colormagenta,linethick;//分时周期为1分钟
青色总时:=sum(长趋势线<=10 ,限制当日+n),colorcyan,linethick;//分时周期为1分钟
红色总时:=sum(中趋势线>=90 ,限制当日+n),colorred,linethick;//分时周期为1分钟
蓝色总时:=sum(中趋势线<=10 ,限制当日+n),colorblue,linethick;//分时周期为1分钟
品%:品红总时/(品红总时+青色总时+红色总时+蓝色总时)*100,colormagenta,linethick;
青%:青色总时/(品红总时+青色总时+红色总时+蓝色总时)*100,colorcyan,linethick;
红%:红色总时/(品红总时+青色总时+红色总时+蓝色总时)*100,colorred,linethick;
蓝%:蓝色总时/(品红总时+青色总时+红色总时+蓝色总时)*100,colorblue,linethick;
stickline(1,q1,q2,10,0),color00aaff;
stickline(长趋势线>=90,q1,q2,10,0),colormagenta;
stickline(长趋势线<=10,q2,q2+(q1-q2)*3/4,10,0),colorcyan;
stickline(中趋势线>=90,q2+(q1-q2)*2/4,q2,10,0),colorred;
stickline(中趋势线<=10,q2+(q1-q2)*1/4,q2,10,0),colorblue;
stickline(barpos<=sysparam(2)+(sysparam(3)-sysparam(2))/5,q1,q2,10,0),color00aaff;
drawtextex(1,0,10,10,'品红总时%: '+numtostr(品%[sysparam(1)],0)),colormagenta;
drawtextex(1,0,10,60,'青色总时%: '+numtostr(青%[sysparam(1)],0)),colorcyan;
drawtextex(1,0,10,110,'红色总时%: '+numtostr(红%[sysparam(1)],0)),colorred;
drawtextex(1,0,10,160,'蓝色总时%: '+numtostr(蓝%[sysparam(1)],0)),colorblue;
end;
if kk=-1 then begin
品红总时:=sum(长趋势线>=90 ,0),colormagenta,linethick;//分时周期为1分钟
青色总时:=sum(长趋势线<=10 ,0),colorcyan,linethick;//分时周期为1分钟
红色总时:=sum(中趋势线>=90 ,0),colorred,linethick;//分时周期为1分钟
蓝色总时:=sum(中趋势线<=10 ,0),colorblue,linethick;//分时周期为1分钟
品_%:品红总时/(品红总时+青色总时+红色总时+蓝色总时)*100,colormagenta,linethick;
青_%:青色总时/(品红总时+青色总时+红色总时+蓝色总时)*100,colorcyan,linethick;
红_%:红色总时/(品红总时+青色总时+红色总时+蓝色总时)*100,colorred,linethick;
蓝_%:蓝色总时/(品红总时+青色总时+红色总时+蓝色总时)*100,colorblue,linethick;
rc:=dynainfo(3);{前收}
q:=datacount;
hh:=dynainfo(5);ll:=dynainfo(6);f:=max(hh-rc,rc-ll);
ff:=f/rc*100;{最大涨跌幅}
q2h:=if(ff<1,0.9797*rc,rc-2*f*1.016);
q2l:=if(ff<1,0.9697*rc,rc-3*f*1.011);
fillrgn(1,q2h,q2l),colorblack;cz:=(q2h-q2l)/6;{将显示区域分成6等分}
q1:=q2h;q2:=q2l;
stickline(1,q1,q2,10,0),color00aaff;
stickline(长趋势线>=90,q1,q2,10,0),colormagenta;
stickline(长趋势线<=10,q2,q2+(q1-q2)*3/4,10,0),colorcyan;
stickline(中趋势线>=90,q2+(q1-q2)*2/4,q2,10,0),colorred;
stickline(中趋势线<=10,q2+(q1-q2)*1/4,q2,10,0),colorblue;
drawtextex(1,0,10,10,'品红总时%: '+numtostr(品_%,0)),colormagenta;
drawtextex(1,0,10,60,'青色总时%: '+numtostr(青_%,0)),colorcyan;
drawtextex(1,0,10,110,'红色总时%: '+numtostr(红_%,0)),colorred;
drawtextex(1,0,10,160,'蓝色总时%: '+numtostr(蓝_%,0)),colorblue;
end;
上一指标公式:稳赚百分之三公式 飞狐稳赚百分指标 源码
下一指标公式:庄家现形选股公式 飞狐庄家选股指标 源码
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文虞美人实时和分时共用公式 飞狐共用实时指标 源码仅供学习研究。