网上淘来,觉得不错,与大家分享源码,无来来函数,也不知以前发过没有,若有不适之处就请版主删除即可。谈几点基本功能,见图中。更多使用技巧大家自己体会。
如果觉得好,方便的话顶下贴,让更多朋友都能看到,谢谢。
源码如下:
{nn 20130
n6 110
m3 2.83.1}{参数}
aaa:=checkuser(0);
周k:=stkindi(stklabel,'kdj.k',0,7);
周d:=stkindi(stklabel,'kdj.d',0,7);
rsv:=(close-llv(low,13))/(hhv(high,13)-llv(low,13))*100;
k:=sma(rsv,3,1);
d:=sma(k,3,1);
j:=3*k-2*d;
rsv12:=(close-llv(low,34))/(hhv(high,34)-llv(low,34))*100;
k12:=sma(rsv12,3,1);
d12:=sma(k12,3,1);
j12:=3*k12-2*d12;
rsv24:=(close-llv(low,55))/(hhv(high,55)-llv(low,55))*100;
k24:=sma(rsv24,3,1);
d24:=sma(k24,3,1);
j24:=3*k24-2*d24;
支撑:if(cross(j,j24),low,ref(low,barslast(cross(j,j24)))),colorffff;
压力:if(cross(j24,j),high,ref(high,barslast(cross(j24,j)))),colorff;
u2l:=if(close>=ma(close,nn),80,50);
l2l:=if(close>=ma(close,nn),50,20);
rh1:=if(j<u2l and ref(j,1)>=u2l,hhv(ref(high,1),barslast(j>=u2l and ref(j,1)<u2l)-1),ref(hhv(ref(high,1),barslast(j>=u2l and ref(j,1)<u2l)-1),barslast(j<u2l and ref(j,1))));
rh4:=if(high>rh1,low,ref(low,barslast(high>rh1)));
rh42:=if(high>rh1,j,ref(j,barslast(high>rh1)));
强压:if(high>rh4 and j<rh42 and j<j24,high,ref(high,barslast(high>rh4 and j<rh42 and j<j24))),colorff00;
rl1:=if(j>l2l and ref(j,1)<=l2l,llv(ref(low,1),barslast(j<=l2l and ref(j,1)>l2l)-1),ref(llv(ref(low,1),barslast(j<=l2l and ref(j,1)>l2l)-1),barslast(j>l2l and ref(j,1))));
rl4:=if(low<rl1,high,ref(high,barslast(low<rl1)));
rl42:=if(low<rl1,j,ref(j,barslast(low<rl1)));
强撑:if(low<rl4 and j>rl42 and j>j24,low,ref(low,barslast(low<rl4 and j>rl42 and j>j24))),colorff00ff;
z,:(close-压力)*100/压力,linethick0;
x1:=if(barscount(close)=1,(open+high+low+close)/4,close);
x2:=if(barscount(close)=1,(open+close)/2,sma(ref(x1,1),2,1));
x3:=high;
x4:=low;
{stickline(x2<x1,x3,x4,0.1,0),colorff;
stickline(x2<x1,x1,x2,7,1),colorff;
stickline(x2>x1,x3,x4,0.1,0),colorffff00;
stickline(x2>x1,x1,x2,7,0),colorffff00;
stickline(x2=x1 and x1>=ref(x1,1),x3,x4,0.1,0),colorff;
stickline(x2=x1 and x1>=ref(x1,1),x1,x2,7,0),colorff;
stickline(x2=x1 and x1<ref(x1,1),x3,x4,0.1,0),colorff0000;
stickline(x2=x1 and x1<ref(x1,1),x1,x2,7,0),colorff0000;
stickline(x2=x1 and barscount(close),x3,x4,0.1,0),colorff00ff;
stickline(x2=x1 and barscount(close),x2,x1,7,0),colorff00ff;}
cb:=amount/vol/100;
cd:=cb>high or cb<low;
aa:=if(close>200,182.60001,1.826);
bb:=if(close>200,91.3,0.913);
大下箱:intpart(close/aa)*aa,pointdot,linethick3,colorffff00;
大上箱:大下箱+aa,pointdot,linethick3,colorff;
小下箱:intpart(close/bb)*bb,pointdot,linethick1,colorff00ff;
小上箱:小下箱+bb,pointdot,linethick1,colorffff;
explain(1,stklabel+stkname+'\n所属板块:'+blkname);
aaa:=checkuser(0);
var1:=(close+high+low)/3;
var2:=high-low;
var4:=var1+var2;
var5:=var1-var2;
var6:=2*var1-low;
var7:=2*var1-high;
【明天最高】:=var6;
【明天最低】:=var7;
var9:=islastbar;
stickline(var9>0,var4,var5,0,0),shift1,colorffff;
stickline(var9>0,var6,var7,8,0),shift1,colorffff;
var11:=(close+high+low)/3;
var12:=high-low;
var14:=var11+var12;
var15:=var11-var12;
var16:=2*var11-low;
var17:=2*var11-high;
明日转:=ref(close,2)*2-ref(close,5);
explainex(vol>0,'★★【明天生命】=',明日转,1,0),colorffffff;
explainex(vol>0,'【明天最高】=',var14,1,0),colorffff;
explainex(vol>0,'【范围上限】=',var16,1,0),colorff00ff;
explainex(vol>0,'【范围下限】=',var17,1,0),colorffff00;
explainex(vol>0,'【明天最低】=',var15,1,0),colorff00;
var1:=splitdata(1)+splitdata(2);
cap:=close;
cap[datacount]:=1;
for i=datacount downto 2 do begin
cap[i-1]:=cap[i]/(1+var1[i]/10);
end;
capi:=cap*capital/100;
hs:=vol/capi;
历史流通盘{万股}:=capi;
z,:=(high-low)*100/low,linethick0;
stz,:=(close-open)*100/open;
spz,:=(close-low)*100/low;
stz,b:=stz,/z,;
spz,b:=spz,/z,;
最大震幅:=ref(hhv(z,,5),1);
最小震幅:=ref(llv(z,,5),1);
xz,b:=z,/最大震幅;
dz,b:=z,/最小震幅;
xhsb:=hs/ref(hhv(hs,4),1);
dhsb:=hs/ref(llv(hs,4),1);
dy1:=-5*(stz,b>=0.48 and spz,b>0.5 and dz,b>2 and dhsb>2 and close>open);
dy2:=-5*(stz,b>=0.8 and dz,b>1.5 and dhsb>1.5 and close>open);
dy3:=-5*(stz,b>=0.82 and xz,b>0.9 and dz,b>1.5 and xhsb>0.9 and dhsb>1.5 and close>open);
单阳:=filter((dy1 or dy2 or dy3) and 周k>周d,n);
vv:=单阳*low;
ts:=barslast(单阳>0)+1>=1 and barslast(单阳>0)<=13;
单阳高:=ref(hhv(high,barslast(单阳>0)),1);
单阳攻击:=cross(close,单阳高) and ts;
强势攻击:=if(单阳=1 and 单阳攻击=1,1,0);
单阳低点:=ref(low,barslast(vv));
单阳不破:=ts and low>=单阳低点;
时间:=if(low>=单阳低点,barslast(单阳<0),0);
单阳启稳:=cross(hs,z,) and close>open and ts;
aa:ma(1.05*high,21),colorff0000;
bb:ma(0.85*low,21),colorffff00;
partline(单阳不破=1,bb),linethick1,colorff;
stickline(单阳=1,bb,1.04*bb,0,0),colorffff;
stickline(单阳=1,bb*1.01,1.03*bb,8,0),colorffff;
drawtext(单阳=1 and 周k<50,bb*0.97,'弱'),colorffff;
drawtext(单阳=1 and cross(周k,周d) and 周k<50,bb*1.08,'启'),colorffff;
drawtext(单阳=1 and 周k>50 and 周k<80,bb*0.97,'强'),colorffff;
drawtext(单阳=1 and 周k>=80,bb*0.97,'冲'),colorffff;
stickline(单阳启稳=1,bb,bb*1.03,0,0),colord36f3e;
stickline(单阳启稳=1,bb*1.02,bb*1.02,8,0),colord36f3e;
drawtext(单阳启稳=1,bb,'稳'),colord36f3e;
stickline(单阳攻击=1,bb,bb*1.05,0,1),colora400ff;
stickline(单阳攻击=1,bb*1.01,bb*1.04,8,1),colora400ff;
drawtext(单阳攻击=1,bb*1.08,'攻'),colorff;
上一指标公式:美人眼KD—庆祝深圳特区成立30周年副图公式 飞狐指标源码指标 源码
下一指标公式:多周期KDJ共振副图公式 飞狐源码周期指标 源码
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文小天风暴用主图公式 飞狐小天源码指标 源码仅供学习研究。