input:显示个数(3),升降开关(2),时间范围(200,1,100000),时间精度(1),转折强度(15),man1(5),man2(13),man3(21),man4(34),天(120,0,9999);
主图最高:=sysparam(4);
主图最低:=sysparam(5);
个股量能:=vol/ma(ref(vol,1),5);
大盘量能:=indexv/ma(ref(indexv,1),5);
相对比较:=个股量能/大盘量能;
nn:=显示个数+1;
qk_0:=if(datacount>天,datacount-天,1);
qk_1:=datacount-barpos+1<天;
qk_2:=high*qk_1;
qk_3:=low*qk_1;
for i=datacount-1 downto qk_0 do begin
if qk_2[i]<qk_2[i+1] then
qk_2[i]:=qk_2[i+1];
if qk_3[i]>qk_3[i+1] then
qk_3[i]:=qk_3[i+1];
end;
qk_4:=if(low>ref(high,1),2,if(high<ref(low,1),1,0));
qk_5:=if(qk_4=2,low,if(qk_4=1,ref(low,1),0));
qk_6:=if(qk_4=2,ref(high,1),if(qk_4=1,high,0));
qk_7:=qk_4=2 and qk_3<=qk_5 and qk_3>=qk_6 or qk_4=1 and qk_2<qk_5 and qk_2>=qk_6;
qk_8:=count(qk_7,if(barpos>天,天+1,0));
qk_9:=qk_8[datacount]-qk_8+1;
qk_10:=(qk_9<nn)*(barslast(qk_7*barpos=barpos))+1;
qk_11:=lbound(qk_10);
qk_12:=if(ref(qk_4,qk_10-1)=2,ref(qk_3,qk_10-1),if(ref(qk_4,qk_10-1)=1,ref(qk_2,qk_10-1),0));
qk_13:=if(ref(qk_4,qk_10-1)=2,ref(qk_6,qk_10-1),if(ref(qk_4,qk_10-1)=1,ref(qk_5,qk_10-1),0));
qk_14:=max(qk_12,qk_13);
qk_15:=min(qk_12,qk_13);
a1:=sysparam(1);
if a1<qk_11 then
exit;
stickline(qk_1 and qk_10 and qk_9<nn and ref(qk_4,qk_10-1)=1,qk_12,qk_13,15,0),color808080;
stickline(qk_1 and qk_10 and qk_9<nn and ref(qk_4,qk_10-1)=2,qk_12,qk_13,15,0),coloraa9900;
drawtext(barpos=a1 and qk_9<nn,qk_14,'倒数缺口:'+numtostr(qk_9[a1],0)+' \n'+numtostr(qk_15[a1],2)+'-'+numtostr(qk_14[a1],2)),align0,pxup20,colorddddcc;
{ma1:ma(close,man1),linethick2,colorff;
ma2:ma(close,man2),linethick2,color9000;
ma3:ma(close,man3),linethick2,coloraaaa00;
ma4:ma(close,man4),linethick2,color900090;}
kline(open,high,low,close,0);
kt1:=troughbars(2,时间精度,1);
ft1:=peakbars(1,时间精度,1);
最近周期:=时间范围;
起点:=datacount-最近周期;
fz1:=high>=ref(high,1) and high>=refx(high,1);
kz1:=low<=ref(low,1) and low<=refx(low,1);
kk1:=kt1=0 and low=llv(low,转折强度);
ff1:=ft1=0 and high=hhv(high,转折强度);
xqg:=if(ff1,sumbars(ff1,2)-1,sumbars(ff1,1)-1);
xlg:=if(kk1,sumbars(kk1,2)-1,sumbars(kk1,1)-1);
zqg:=if(fz1,sumbars(fz1,2)-1,sumbars(fz1,1)-1);
zlg:=if(kz1,sumbars(kz1,2)-1,sumbars(kz1,1)-1);
if 升降开关>0 and 升降开关<4 then begin
xby:=(low-ref(low,xlg))/xlg;
xbu:=intpart((ref(high,barslast(if(xqg>xlg,fz1,ff1)))-low)/xby+0.99);
xbu1:=intpart((ref(high,sumbars(if(xqg>xlg,fz1,ff1),2)-1)-low)/xby+0.99);
drawsl(barslast(if(xqg>xlg,fz1,ff1))<xlg and xbu>0 and low<ref(high,if(xqg>xlg,zqg,xqg)) and low>ref(low,xlg) and kk1 and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,low,xby,xbu,0),linedot,colorffff;
drawsl(barslast(if(xqg>xlg,fz1,ff1))<xlg and xlg>0 and low<ref(high,if(xqg>xlg,zqg,xqg)) and low>ref(low,xlg) and kk1 and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,low,xby,xlg,1),linedot,colorffff;
drawsl(barslast(if(xqg>xlg,fz1,ff1))<xlg and barslast(if(xqg>xlg,fz1,ff1))>0 and low<ref(high,if(xqg>xlg,zqg,xqg)) and low>ref(low,xlg) and kk1 and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,ref(high,barslast(if(xqg>xlg,fz1,ff1))),0,barslast(if(xqg>xlg,fz1,ff1)),1),linedot,colorffff;
drawsl(barslast(if(xqg>xlg,fz1,ff1))<xlg and low<ref(high,if(xqg>xlg,zqg,xqg)) and low>ref(low,xlg) and kk1 and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,ref(high,barslast(if(xqg>xlg,fz1,ff1))),0,xbu,0),linedot,colorffff;
xcy:=(low-ref(high,xqg))/xqg;
xcu:=intpart((abs(ref(low,if(xlg>xqg,zlg,xlg))-low))/abs(xcy)+0.99);
drawsl(xcu<>0 and low<ref(high,xqg) and low>ref(high,1) and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,low,xcy,xcu,0),colora0;
drawsl(xqg<>0 and low<ref(high,xqg) and low>ref(high,1) and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,low,xcy,xqg,1),colora0;
drawsl(if(xlg>xqg,zlg,xlg)<>0 and low<ref(high,xqg) and low>ref(high,1) and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,ref(low,if(xlg>xqg,zlg,xlg)),0,if(xlg>xqg,zlg,xlg),1),colora0;
drawsl(xcu<>0 and low<ref(high,xqg) and low>ref(high,1) and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,ref(low,if(xlg>xqg,zlg,xlg)),0,xcu,0),colora0;
xdy:=(high-ref(high,xqg))/xqg;
xdu:=intpart((abs(ref(low,barslast(if(xlg>xqg,kz1,kk1)))-high))/abs(xdy)+0.99);
drawsl(xdu<>0 and high<ref(high,xqg) and high<refx(low,1) and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,high,xdy,xdu,0),colora0;
drawsl(xqg<>0 and high<ref(high,xqg) and high<refx(low,1) and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,high,xdy,xqg,1),colora0;
drawsl(if(xlg>xqg,zlg,xlg)<>0 and high<ref(high,xqg) and high<refx(low,1) and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点 and barslast(kk1)<>0,ref(low,if(xlg>xqg,zlg,xlg)),0,if(xlg>xqg,zlg,xlg),1),colora0;
drawsl(xdu<>0 and high<ref(high,xqg) and high<refx(low,1) and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点 and barslast(kk1)<>0,ref(low,if(xlg>xqg,zlg,xlg)),0,xdu,0),colora0;
end;
if 升降开关<>1 and 升降开关<4 and 升降开关>=-1 then begin
xcy1:=(high-ref(high,xqg))/xqg;
xcu1:=intpart((abs(high-ref(low,barslast(if(xlg>xqg,kz1,kk1)))))/abs(xcy1)+0.99);
xcu2:=intpart((abs(high-ref(low,sumbars(if(xlg>xqg,kz1,kk1),2)-1)))/abs(xcy1)+0.99);
drawsl(barslast(if(xlg>xqg,kz1,kk1))<xqg and xcu1>0 and high>ref(low,if(xlg>xqg,zlg,xlg)) and high<ref(high,xqg) and ff1 and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,high,xcy1,xcu1,0),linedot,colorff00;
drawsl(barslast(if(xlg>xqg,kz1,kk1))<xqg and xqg>0 and high>ref(low,if(xlg>xqg,zlg,xlg)) and high<ref(high,xqg) and ff1 and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,high,xcy1,xqg,1),linedot,colorff00;
drawsl(barslast(if(xlg>xqg,kz1,kk1))<xqg and barslast(if(xlg>xqg,kz1,kk1))>0 and high>ref(low,if(xlg>xqg,zlg,xlg)) and high<ref(high,xqg) and ff1 and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,ref(low,barslast(if(xlg>xqg,kz1,kk1))),0,barslast(if(xlg>xqg,kz1,kk1)),1),linedot,colorff00;
drawsl(barslast(if(xlg>xqg,kz1,kk1))<xqg and high>ref(low,if(xlg>xqg,zlg,xlg)) and high<ref(high,xqg) and ff1 and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,ref(low,barslast(if(xlg>xqg,kz1,kk1))),0,xcu1,0),linedot,colorff00;
xey:=(low-ref(low,xlg))/xlg;
xeu:=intpart((abs(ref(high,barslast(if(xqg>xlg,fz1,ff1)))-low))/abs(xey)+0.99);
tjdq:=xeu>0 and low>ref(low,xlg) and low>refx(high,1) and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点;
drawsl(tjdq,low,xey,xeu,0),colora0;
drawsl(tjdq and xlg<>0,low,xey,xlg,1),linedot,colorffffff;
drawsl(tjdq and if(xqg>xlg,zqg,xqg)<>0,ref(high,if(xqg>xlg,zqg,xqg)),0,if(xqg>xlg,zqg,xqg),1),colora0;
drawsl(tjdq,ref(high,if(xqg>xlg,zqg,xqg)),0,xeu,0),colora0;
xfy:=(high-ref(low,xlg))/xlg;
xfu:=intpart((abs(ref(high,if(xqg>xlg,zqg,xqg))-high))/abs(xfy)+0.99);
drawsl(xfu>0 and high>ref(low,xlg) and high<ref(low,1) and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,high,xfy,xfu,0),colora0;
drawsl(xlg>0 and high>ref(low,xlg) and high<ref(low,1) and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,high,xfy,xlg,1),colora0;
drawsl(if(xqg>xlg,zqg,xqg)>0 and high>ref(low,xlg) and high<ref(low,1) and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,ref(high,if(xqg>xlg,zqg,xqg)),0,if(xqg>xlg,zqg,xqg),1),colora0;
drawsl(xfu>0 and high>ref(low,xlg) and high<ref(low,1) and barpos>=起点 and ref(barpos,max(xlg,xqg))>=起点,ref(high,if(xqg>xlg,zqg,xqg)),0,xfu,0),colora0;
end;
drawtextex(close,0,5,5,'今日涨停:'+numtostr(ref(close,1)*1.1,2)),colora0a0a0;
drawtextex(close,0,5,20,'今日跌停:'+numtostr(ref(close,1)*0.9,2)),colora0a0a0;
drawtextex(相对比较>1,0,5,35,'量能强弱:'+numtostr(相对比较,2)),colora0000f0;
drawtextex(相对比较<=1,0,5,35,'量能强弱:'+numtostr(相对比较,2)),colora009000;
drawtextex(1,0,5,50,'测量周期:'+numtostr(时间范围,2)),colora0a0a0;
r:=vol/((high-low)*2-(abs(open-close)));
买:=if(open=close and (close-ref(close,1))/ref(close,1)*100>9.8,vol,r*(close-low));
资比:=买/vol*100;
主力流入:=amount*资比/10000000000;
主力流出:=amount/100000000-主力流入;
资金差额:=主力流入-主力流出;
资金比率:=资比;
drawtextex(datatype>-1,1,850,850,'主力流入:'+numtostr(主力流入,2)+' 亿'),coloraa;
drawtextex(datatype>-1,1,850,900,'主力流出:'+numtostr(主力流出,2)+' 亿'),coloraa00;
drawtextex(datatype>-1,1,850,950,'资金差额:'+numtostr(资金差额,2)+' 亿'),color808080;
drawtextex(datatype>-1,1,850,1000,'资金比率:'+numtostr(资金比率,2)),coloraaaa;
上一指标公式:利润副图FH公式下载 飞狐利润指标 源码
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文反转魔力2主图说明公式下载 飞狐反转魔力指标 源码仅供学习研究。