{-----------------------☆功能开关------------------------}
{箱体部分}
cc:=c;
oo:=o;
hh:=h;
ll:=l;
top:=h;
bot:=l;
xx[1]:=1;
kk:=1;
for i=1 to datacount do begin
if xx=1 then begin
top:=hh;
end;
if xx[i-1]=1 then begin
if hh>top[i-1] then begin
top:=hh;
xx:=1;
end;else begin
top:=top[i-1];
xx:=2;
end;
end;
if xx[i-1]=2 then begin
if hh>top[i-1] then begin
top:=hh;
xx:=1;
end;else begin
top:=top[i-1];
bot:=ll;
xx:=3;
end;
end;
if xx[i-1]=3 then begin
top:=top[i-1];
if ll<bot[i-1] then begin
bot:=ll;
xx:=3;
end;else begin
bot:=bot[i-1];
xx:=4;
end;
end;
if xx[i-1]=4 then begin
top:=top[i-1];
if ll<bot[i-1] then begin
bot:=ll;
xx:=3;
end;else begin
bot:=bot[i-1];
xx:=5;
end;
end;
if xx[i-1]=5 then begin
if ll<bot[i-1] or hh>top[i-1] then begin
top:=hh;
bot:=hh;
xx:=1;
end;else begin
bot:=bot[i-1];
top:=top[i-1];
xx:=5;
end;
end;
end;
for j=1 to datacount do begin
if xx[j]=5 and xx[j-1]=4 then begin
for k=j-1 downto j-kk do begin
top[k]:=top[j];
bot[k]:=bot[j];
end;
end;
if xx[j-1]=5 and xx[j]=1 then kk:=0;
kk:=kk+1;
end;
中位线:=(top+bot)/2;
{信号部分---参考}
买点:=filter((troughbars(3,15,1)<4)=1,3);
卖点:=filter((peakbars(3,15,1)<4)=1,3);
{短波--未来}
f:=100*(c-ref(c,1))/ref(c,1);
p1:=if(c<ref(o,1) and f<0,1,0);
p3:=if(c>ref(o,1) and f>0,1,0);
p2:=if(c<ref(o,2) and f<0,1,0);
p4:=if(c>ref(o,2) and f>0,1,0);
买d5:=p1=0 and ref(p1,1)=1 and p2=0 and ref(p2,1)=1;
卖d6:=p3=0 and ref(p3,1)=1 and p4=0 and ref(p4,1)=1;
fz:=peak(3,5,1);
fw:=peakbars(3,5,1);
gz:=trough(3,5,1);
gw:=troughbars(3,5,1);
as:=zig(3,3);
涨al:=cross(as,ref(as,1));
跌ag:=cross(ref(as,1),as);
ss1:=if(fw>gw,fw,0);
ss2:=if(fw<gw,gw,0);
ss3:=barslast(ss1);
ss4:=barslast(ss2);
{---------立体k线--------}
m1:ma(close,5);
m2:ma(close,13);
m3:ma(close,30);
m4:ma(close,60);
stickline(open>=close ,close ,open,9,0 ),color009900;
stickline(open>=close ,close ,open,6,0 ),color00cc00;
stickline(open>=close ,close ,open,2.4,0 ),color33ff00;
stickline(open>=close ,close ,open,1.1,0 ),color66ff00;
stickline(close>open,close,open,9,0 ),color000099;
stickline(close>open,close,open,6 ,0 ),color0000cc;
stickline(close>open,close,open,2.4 ,0 ),color0000ff;
stickline(close>open,close,open,1.1 ,0 ),color0033ff;
stickline(close>open,open,low,0.5,0 ),color9933ff;
stickline(close>open,close,high,0.5 ,0 ),color9933ff;
stickline(open>=close,close,low,0.5 ,0 ),color66cc33;
stickline(open>=close,open,high,0.5 ,0 ),color66cc33;
a0:=numtostr(ma(vol,5),2);
b0:=numtostr(ma(vol/capital*100,5)*5,2);
typ:=(high+low+close)/3;
ll:=llv(low,12);
hh:=hhv(high,12);
wr:=typ+(typ-ll);
ws:=typ-(hh-typ);
wa:=numtostr(wr,2);
wb:=numtostr(ws,2);
mm:=buyvol/(buyvol+sellvol)*100;
zlm1:=(dynainfo(23)/2+dynainfo(22)/10)/2;
zlm2:=ma(vol,60)*0.333;
zlm3:=capital*(ma(vol/capital*100,60)*60-indexv/estdata(1)*1000);
zlm:=(zlm1+zlm2+zlm3)/3;
t:=numtostr(zlm/10000,2);
drawtext(barpos=sysparam(2),high,'\n'+blkname+';五日均量:'+a0+',五日换手:'+b0+'%'+',支撑:'
+wb+',压力:'+wa+',\n主力持仓:'+t),align4,colorgreen;
a1:=barslast(ref(cross("macd.diff","macd.dea"),1));
b1:=ref(close,a1+1)>close and ref("macd.diff",a1+1)<"macd.diff" and cross("macd.diff","macd.dea");
a2:=barslast(ref(cross("kdj.k","kdj.d"),1));
b2:=ref(close,a2+1)>close and ref("kdj.k",a2+1)<"kdj.k" and cross("kdj.k","kdj.d");
a3:=barslast(ref(cross("rsi.rsi1","rsi.rsi2"),1));
b3:=ref(close,a3+1)>close and ref("rsi.rsi1",a3+1)<"rsi.rsi1" and cross("rsi.rsi1","rsi.rsi2");
fil1:=filter(b1>0,7) or filter(b2>0,7) or filter(b3>0,7);
drawtext(fil1,low-0.02,'底背'),colorred;
c1:=barslast(ref(cross("macd.dea","macd.diff"),1));
d1:=ref(close,c1+1)<close and ref("macd.diff",c1+1)>"macd.diff" and cross("macd.dea","macd.diff");
c2:=barslast(ref(cross("kdj.d","kdj.k"),1));
d2:=ref(close,c2+1)<close and ref("kdj.k",c2+1)>"kdj.k" and cross("kdj.d","kdj.k");
c3:=barslast(ref(cross("rsi.rsi2","rsi.rsi1"),1));
d3:=ref(close,c3+1)<close and ref("rsi.rsi1",c3+1)>"rsi.rsi1" and cross("rsi.rsi2","rsi.rsi1");
fil2:=filter(d1>0,7) or filter(d2>0,7) or filter(d3>0,7);
drawtext(fil2,high+0.1,'顶背'),colorblue;
{-----------------【图解模板】---------------------};
{箱体部分}
partline(top=ref(top,1),top),color008293;//箱顶
partline(bot=ref(bot,1),bot),color008293;//箱底
stickline((top<>ref(top,1) or bot<>ref(bot,1)) and xx=1 and ref(xx,1)=5,top,bot,1,0),color008293;//左侧竖线
stickline((top<>refx(top,1) or bot<>refx(bot,1)) and xx=5 and refx(xx,1)=1,top,bot,1,0),color008293;//右侧竖线
{-------阻力支撑------}
b:=barscount(close)=sysparam(2);
d:=barslast(b);
hh:=hhv(high,d);
drawtext(barstatus=2,hh,stklabel+' '+stkname+' '),colorffff80,pxdn20,align4,align2;
换手率:=100*vol/capital,colorffffff;
rh:=high-low;
r:=dynainfo(13)*100;
drawtext(barstatus=2,hh,'当日振幅:'+numtostr(r,2)+'% '+numtostr(rh,2)+'元 '+' 当前换手率:'+numtostr(换手率,2)+'% '+' '),colorffffff,pxdn20,align4,align2;
drawtext(barstatus=2,hh,' 机构评级:'+selfstring('评级')+' '),colorffffff,pxdn80,align4,align2;
gj:=if(close=indexc,(indexc+indexh+indexl+indexo)/4,amount/(vol+0.01)/100);
明日阻力:=low+(gj-low)+(close-low);
明日支撑:=low+(close-gj);
今日阻力:=ref(明日阻力 , 1);
今日支撑:=ref(明日支撑 , 1);
stickline(barstatus=2 and close>=今日阻力,今日阻力,今日阻力,30,0),color0000ff;
stickline(barstatus=2 and close<今日阻力,今日阻力,今日阻力,30,0),color00ff00;
stickline(barstatus=2 and close>=今日支撑,今日支撑,今日支撑,30,0),colorff00ff;
stickline(barstatus=2 and close<今日支撑,今日支撑,今日支撑,30,0),,color0000ff;
drawtext(barstatus=2 ,hh,'---------------------------------- '),colorffffff,pxdn2,align4,align2;
drawtext(barstatus=2 and close>=今日支撑,hh,' 今日支撑=:'+numtostr(今日支撑 ,2 )+' '),colorff00ff,pxdn50,align4,align2;
drawtext(barstatus=2 and close<今日支撑,hh,' 今日支撑=:'+numtostr(今日支撑 ,2 )+' '),,color0000ff,pxdn50,align4,align2;
drawtext(barstatus=2 and close>=今日阻力,hh,' 今日阻力=:'+numtostr(今日阻力 ,2 )+' '),align4,color0000ff,pxdn20,align2;
drawtext(barstatus=2 and close<今日阻力,hh,' 今日阻力=:'+numtostr(今日阻力 ,2 )+' '),color00ff00,pxdn20,align4,align2;
drawtext(barstatus=2 ,hh,' 明日阻力=:'+numtostr(明日阻力 ,2 )+' '),color00ffff,pxdn20,align4,align2;
drawtext(barstatus=2 ,hh,' 明日支撑=:'+numtostr(明日支撑 ,2 )+' '),color00ffff,pxdn50,align4,align2;
drawtext(barstatus=2 ,hh,'---------------------------------- '),colorffffff,pxdn70,align4,align2;
drawtext(barstatus=2 and vol>ref(vol,1) and ma(vol,5)>ref(ma(vol,5),1),hh,'今日成交量大于昨日,且有继续增大趋势'+' '),color8285ff,pxdn90,align4,align2;
drawtext(barstatus=2 and vol<ref(vol,1) and ma(vol,5)>ref(ma(vol,5),1),hh,'今日成交量小于昨日,但有放大迹象'+' '),color8285ff,pxdn90,align4,align2;
drawtext(barstatus=2 and vol>ref(vol,1)and ma(vol,5)<ref(ma(vol,5),1),hh,'今日成交量大于昨日, 但有缩小迹象'+' '),color8285ff,pxdn90,align4,align2;
drawtext(barstatus=2 and vol<ref(vol,1)and ma(vol,5)<ref(ma(vol,5),1),hh,'今日成交量小于昨日,且有缩小迹象'+' '),color8285ff,pxdn90,align4,align2;
哪位大侠高手可以改写成tdx可用?一些附贴通达信可实现的别人的一种思路。请高手帮忙~~~
附贴源码如下:
{箱体--tdx}
{hh:=hhv(high,5);
ll:=llv(low ,5);
xh:=const(if(islastbar,if(1<=1,hh,ref(hh,1-1)),drawnull));
xl:=const(if(islastbar,if(1<=1,ll,ref(ll,1-1)),drawnull));
stickline(currbarscount=1+floor(5/2),xh,xl,5*4+1,1),colorwhite;
drawkline(high,open,low,close);}
[这个应该是个飞狐的源码,可惜测试不通过,希望高手能修正一下,附件里下载的,是源码,并非公式]
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文箱体-类弘历软件箱体主图公式下载 飞狐源码贴图指标 源码仅供学习研究。