input:最近天(60,1,360);{ 模糊调参数}
{一年时间之窗转折日}
当前月:=fracpart(round(当前日期/100)/100)*100,linethick;
月:=month;日:=day;
vertline(月=1 and (日=25)),colorffffff,linedashdot;
vertline(月=3 and (日=20)),colorffffff,linedashdot;
vertline(月=5 and (日=12)),colorffffff,linedashdot;
vertline(月=6 and (日=14 )),colorffffff,linedashdot;
vertline(月=7 and ( 日=19 )),colorffffff,linedashdot;
vertline(月=8 and ( 日=6 )),colorffffff,linedashdot;
vertline(月=9 and ( 日=18 )),colorffffff,linedashdot;
vertline(月=10 and ( 日=31)),colorffffff,linedashdot;
vertline(月=11 and ( 日=28)),colorffffff,linedashdot;
vertline(月=12 and ( 日=31)),colorffffff,linedashdot;
vertline(月=1 and ( 日=6 or 日=15 or 日=21 )),coloraaaaaa,linedashdot;
vertline(月=2 and ( 日=6 or 日=15 or 日=21 )),coloraaaaaa,linedashdot;
vertline(月=3 and ( 日=6 or 日=15 or 日=21 )),coloraaaaaa,linedashdot;
vertline(月=4 and ( 日=6 or 日=15 or 日=21 )),coloraaaaaa,linedashdot;
vertline(月=5 and ( 日=6 or 日=15 or 日=21 )),coloraaaaaa,linedashdot;
vertline(月=6 and ( 日=6or 日=21)),coloraaaaaa,linedashdot;
vertline(月=7 and ( 日=8 or 日=15or 日=23)),coloraaaaaa,linedashdot;
vertline(月=8 and ( 日=8or 日=15 or 日=23)),coloraaaaaa,linedashdot;
vertline(月=9 and ( 日=8 or 日=15or 日=23)),coloraaaaaa,linedashdot;
vertline(月=10 and ( 日=8 or 日=15 or 日=23 )),coloraaaaaa,linedashdot;
vertline(月=11 and ( 日=8 or 日=15 or 日=23)),coloraaaaaa,linedashdot;
vertline(月=12 and ( 日=8 or 日=15 or 日=23 )),coloraaaaaa,linedashdot;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='1',c,numtostr(当前月,0)+'月转折日:6、15、21、*25\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='2',c,numtostr(当前月,0)+'月转折日:6、15、21\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='3',c,numtostr(当前月,0)+'月转折日:6、15、*20、21\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='4',c,numtostr(当前月,0)+'月转折日:6、15、21\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='5',c,numtostr(当前月,0)+'月转折日:6、*1 2、15、21\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='6',c,numtostr(当前月,0)+'月转折日:6、*1 4、21\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='7',c,numtostr(当前月,0)+'月转折日:8、15、*1 9、23\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='8',c,numtostr(当前月,0)+'月转折日:*6、8、15、23\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='9',c,numtostr(当前月,0)+'月转折日:8、15、*1 8、23\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='10',c,numtostr(当前月,0)+'月转折日:8、15、23、*31\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='11',c,numtostr(当前月,0)+'月转折日:8、15、23、*28\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='12',c,numtostr(当前月,0)+'月转折日:8、15、23、*31\n \n \n \n '),color00ffff,align5;
n:=最近天;
hh:=hhv(high,n);
ll:=llv(low,n);
vn:=n;
{last1:=datacount;}
if vn>datacount then
vn=datacount+1;
for i=datacount downto datacount-vn+1 do begin
hh[i]:=hh[datacount];
ll[i]:=ll[datacount];
end;
tmp:=setlbound(hh,datacount-vn+1);
tmp:=setlbound(ll,datacount-vn+1);
阶段高:hh,linethick2,color0000ff;阶段低:ll,linethick2,color00ff00;
中线:(hh+ll)/2;
kkh:=barslast(h=hh);
kkl:=barslast(l=ll);
n低日:=strtonum(numtostr(ref(date,kkl),0)),linethick;
n高日:=strtonum(numtostr(ref(date,kkh),0)),linethick;
多空:if(n低日>n高日,2,1),linethick;
多空天:if(n低日<n高日,kkl,kkh),linethick;
kline(o,h,l,c,0);
date1:=if(多空=1,n低日,n高日);{}
hh0:=ref(h,barslast(date1=date));
ll0:=ref(l,barslast(date1=date));
h1:=strtonum(numtostr(hh0,3)),pointdot;
l1:=strtonum(numtostr(ll0,3)),pointdot;
partline(1,h1),,pointdot;
partline(1,l1),,pointdot;
ll:=h1 - l1;
vertline(date=date1),colorffaaaa,,linethick2;drawtext(date=date1,sysparam(4)*0.95,'起\n \n始\n \n线'),colorffffff;
起始至今天:barslast(date1=date),colorffff00,linethick;
涨幅:(c-ref(c,起始至今天))/ref(c,起始至今天)*100colorffdddd,linethick;
if 多空=1 then begin
{看多}
partline(date>=n低日,ll*1.50801 + l1),linethick1,coloree99ff,linedot;
partline(date>=n低日,ll*2.00001 + l1),color9999ff,linedot;
partline(date>=n低日,ll*2.40001 + l1),colorffff99,linedot;
partline(date>=n低日,ll*3.05001 + l1),color99ff99,linedot;
partline(date>=n低日,ll*3.75001 + l1),colorff9999,linedot;
partline(date>=n低日,ll*4.15001 + l1),colormagenta,linedot;
partline(date>=n低日,ll*4.80001 + l1),colorred,linedot;
partline(date>=n低日,ll*5.50001 + l1),colorcyan,linedot;
partline(date>=n低日,ll*6.10001 + l1),colorgreen,linedot;
partline(date>=n低日,ll*6.90001 + l1),linethick1,colorred,linedot;
drawtext(sysparam(3)=barpos,l1+ll*1.50801+0.002,numtostr(l1+ll*1.50801,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,l1+ll*2.00001+0.002,numtostr(l1+ll*2.00001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,l1+ll*2.40001+0.002,numtostr(l1+ll*2.40001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,l1+ll*3.05001+0.002,numtostr(l1+ll*3.05001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,l1+ll*3.75001+0.002,numtostr(l1+ll*3.75001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,l1+ll*4.15001+0.002,numtostr(l1+ll*4.15001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,l1+ll*4.80001+0.002,numtostr(l1+ll*4.80001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,l1+ll*5.50001+0.002,numtostr(l1+ll*5.50001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,l1+ll*6.10001+0.002,numtostr(l1+ll*6.10001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,l1+ll*6.90001+0.002,numtostr(l1+ll*6.90001,2)),coloraaaaaa,align2;
drawtext(date=date1,ll*1.50801 + l1+0.002,'多开门'),color999fff;
drawtext(date=date1,ll*6.90001 + l1+0.002,'多关门'),color999fff;
end;
else begin
{看空}
partline(date>=n高日,h1-ll*1.50801),linethick1,coloree99ff,linedot;
partline(date>=n高日,h1-ll*2.00001),color9999ff,linedot;
partline(date>=n高日,h1-ll*2.40001),colorffff99,linedot;
partline(date>=n高日,h1-ll*3.05001),color99ff99,linedot;
partline(date>=n高日,h1-ll*3.75001),colorff9999,linedot;
partline(date>=n高日,h1-ll*4.15001),colormagenta,linedot;
partline(date>=n高日,h1-ll*4.80001),colorred,linedot;
partline(date>=n高日,h1-ll*5.50001),colorcyan,linedot;
partline(date>=n高日,h1-ll*6.10001),colorgreen,linedot;
partline(date>=n高日,h1-ll*6.90001),linethick1,colorred,linedot;
drawtext(date=date1,h1-ll*1.50801+0.002,'空开门'),color3333ff;
drawtext(date=date1,h1-ll*6.90001+0.002,'空关门'),color3333ff;
drawtext(sysparam(3)=barpos,h1-ll*1.50801+0.002,numtostr(h1-ll*1.50801,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,h1-ll*2.00001+0.002,numtostr(h1-ll*2.00001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,h1-ll*2.40001+0.002,numtostr(h1-ll*2.40001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,h1-ll*3.05001+0.002,numtostr(h1-ll*3.05001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,h1-ll*3.75001+0.002,numtostr(h1-ll*3.75001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,h1-ll*4.15001+0.002,numtostr(h1-ll*4.15001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,h1-ll*4.80001+0.002,numtostr(h1-ll*4.80001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,h1-ll*5.50001+0.002,numtostr(h1-ll*5.50001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,h1-ll*6.10001+0.002,numtostr(h1-ll*6.10001,2)),coloraaaaaa,align2;
drawtext(sysparam(3)=barpos,h1-ll*6.90001+0.002,numtostr(h1-ll*6.90001,2)),coloraaaaaa,align2;
end;
高年:=ref(year,barslast(date=n高日));
高月:=ref(month,barslast(date=n高日));
高日:=ref(day,barslast(date=n高日));
低年:=ref(year,barslast(date=n低日));
低月:=ref(month,barslast(date=n低日));
低日:=ref(day,barslast(date=n低日));
drawtext(sysparam(2)=barpos,h1,'最近'+numtostr(最近天,0)+'天最高价日期:'+numtostr(高年,0)+'年'+numtostr(高月,0)+'月'+numtostr(高日,0)+'日'+'\n \n'
+'最近'+numtostr(最近天,0)+'天最低价日期:'+numtostr(低年,0)+'年'+numtostr(低月,0)+'月'+numtostr(低日,0)+'日'),colorffaaaa,align4;
drawtext(sysparam(2)=barpos,h1,'\n \n\n \n \n \n注意 : 随时调整指标参数\n \n 调整过程会自动找到高低点'),color00ffff,align4;
上一指标公式:发一板块监控公式下载 飞狐监控指标 源码
下一指标公式:简单主图非常简单公式下载 飞狐简单指标 源码
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文波神凯线二合一根据一起人生提供的资料改编公式下载 飞狐二合一人生指标 源码仅供学习研究。