input:最近天(30,1,360);当前月:=fracpart(round(当前日期/100)/100)*100;
月:=month;日:=day;
n:=if(sysparam(1)=datacount,最近天,datacount-sysparam(1)+1);
hh:=hhv(high,n);
ll:=llv(low,n);
vn:=n;
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);
kkh:=barslast(h=hh);
kkl:=barslast(l=ll);
n低日:=strtonum(numtostr(ref(date,kkl),0));
n高日:=strtonum(numtostr(ref(date,kkh),0));
多空:=if(n低日>n高日,2,1),linethick0;
date1:=if(多空=1,n低日,n高日);
llow:=ref(low,barslast(date1=date));
h1:=strtonum(numtostr(hh,2));
l1:=strtonum(numtostr(llow,2));
vertline(date=date1),colorffaaaa,linethick1;
{drawtext(date=date1,sysparam(4)*0.95,起\n \n\n测\n \n点),colorffffff;}
if 多空=1 then begin
partline(date>n低日,l1),colorffff99,linedot;
partline(date>n低日,l1*1.042),colorffff99,linedot;
partline(date>n低日,l1*1.083),colorffff99,linedot;
partline(date>n低日,l1*1.125),colormagenta;
partline(date>n低日,l1*1.167),colorffff99,linedot;
partline(date>n低日,l1*1.208),colorffff99,linedot;
partline(date>n低日,l1*1.25),colormagenta;
partline(date>n低日,l1*1.292),colorffff99,linedot;
partline(date>n低日,l1*1.33),colormagenta;
partline(date>n低日,l1*1.375),colorffff99,linedot;
partline(date>n低日,l1*1.417),colorffff99,linedot;
partline(date>n低日,l1*1.458),colorffff99,linedot;
partline(date>n低日,l1*1.5),colormagenta;
partline(date>n低日,l1*1.542),colorffff99,linedot;
partline(date>n低日,l1*1.583),colorffff99,linedot;
partline(date>n低日,l1*1.625),colormagenta;
partline(date>n低日,l1*1.667),colorffff99,linedot;
partline(date>n低日,l1*1.708),colorffff99,linedot;
partline(date>n低日,l1*1.75),colormagenta;
partline(date>n低日,l1*1.792),colorffff99,linedot;
partline(date>n低日,l1*1.833),colorffff99,linedot;
partline(date>n低日,l1*1.875),colormagenta;
partline(date>n低日,l1*1.917),colorffff99,linedot;
partline(date>n低日,l1*1.958),colorffff99,linedot;
partline(date>n低日,l1*2),colormagenta;
drawtext(sysparam(3)=barpos,l1+0.002,numtostr(l1,2)+ 0 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.042+0.002,numtostr(l1*1.042,2)+ 15 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.083+0.002,numtostr(l1*1.083,2)+ 30 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.125+0.002,numtostr(l1*1.125,2)+ 45 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.167+0.002,numtostr(l1*1.167,2)+ 60 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.208+0.002,numtostr(l1*1.208,2)+ 75 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.25+0.002,numtostr(l1*1.25,2)+ 90 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.292+0.002,numtostr(l1*1.292,2)+ 105 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.33+0.002,numtostr(l1*1.33,2)+ 120 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.375+0.002,numtostr(l1*1.375,2)+ 135 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.417+0.002,numtostr(l1*1.417,2)+ 150 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.458+0.002,numtostr(l1*1.458,2)+ 165 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.5+0.002,numtostr(l1*1.5,2)+ 180 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.542+0.002,numtostr(l1*1.542,2)+ 195 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.583+0.002,numtostr(l1*1.583,2)+ 210 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.625+0.002,numtostr(l1*1.625,2)+ 225 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.667+0.002,numtostr(l1*1.667,2)+ 240 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.708+0.002,numtostr(l1*1.708,2)+ 255 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.75+0.002,numtostr(l1*1.75,2)+ 270 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.792+0.002,numtostr(l1*1.792,2)+ 285 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.833+0.002,numtostr(l1*1.833,2)+ 290 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.875+0.002,numtostr(l1*1.875,2)+ 315 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.917+0.002,numtostr(l1*1.917,2)+ 330 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*1.958+0.002,numtostr(l1*1.958,2)+ 345 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,l1*2+0.002,numtostr(l1*2,2)+ 360 ),colorwhite,align2;
end;
else begin
partline(date>n高日,h1),colorffff99,linedot;
partline(date>n高日,h1-h1*0.042),colorffff99,linedot;
partline(date>n高日,h1-h1*0.083),colorffff99,linedot;
partline(date>n高日,h1-h1*0.125),colormagenta;
partline(date>n高日,h1-h1*0.167),colorffff99,linedot;
partline(date>n高日,h1-h1*0.208),colorffff99,linedot;
partline(date>n高日,h1-h1*0.25),colormagenta;
partline(date>n高日,h1-h1*0.292),colorffff99,linedot;
partline(date>n高日,h1-h1*0.33),colormagenta;
partline(date>n高日,h1-h1*0.375),colorffff99,linedot;
partline(date>n高日,h1-h1*0.417),colorffff99,linedot;
partline(date>n高日,h1-h1*0.458),colorffff99,linedot;
partline(date>n高日,h1-h1*0.5),colormagenta;
partline(date>n高日,h1-h1*0.542),colorffff99,linedot;
partline(date>n高日,h1-h1*0.583),colorffff99,linedot;
partline(date>n高日,h1-h1*0.625),colormagenta;
partline(date>n高日,h1-h1*0.667),colorffff99,linedot;
partline(date>n高日,h1-h1*0.708),colorffff99,linedot;
partline(date>n高日,h1-h1*0.75),colormagenta;
partline(date>n高日,h1-h1*0.792),colorffff99,linedot;
partline(date>n高日,h1-h1*0.833),colorffff99,linedot;
partline(date>n高日,h1-h1*0.875),colormagenta;
partline(date>n高日,h1-h1*0.917),colorffff99,linedot;
partline(date>n高日,h1-h1*0.958),colormagenta;
drawtext(sysparam(3)=barpos,h1+0.002,numtostr(h1-h1*0.042,2)+ 0 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.042+0.002,numtostr(h1-h1*0.042,2)+ 15 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.083+0.002,numtostr(h1-h1*0.083,2)+ 30 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.125+0.002,numtostr(h1-h1*0.125,2)+ 45 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.167+0.002,numtostr(h1-h1*0.167,2)+ 60 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.208+0.002,numtostr(h1-h1*0.208,2)+ 75 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.25+0.002,numtostr(h1-h1*0.25,2)+ 90 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.292+0.002,numtostr(h1-h1*0.292,2)+ 105 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.33+0.002,numtostr(h1-h1*0.33,2)+ 120 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.375+0.002,numtostr(h1-h1*0.375,2)+ 135 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.417+0.002,numtostr(h1-h1*0.417,2)+ 150 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.458+0.002,numtostr(h1-h1*0.458,2)+ 165 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.5+0.002,numtostr(h1-h1*0.5,2)+ 180 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.542+0.002,numtostr(h1-h1*0.542,2)+ 195 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.583+0.002,numtostr(h1-h1*0.583,2)+ 210 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.625+0.002,numtostr(h1-h1*0.625,2)+ 225 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.667+0.002,numtostr(h1-h1*0.667,2)+ 240 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.708+0.002,numtostr(h1-h1*0.708,2)+ 255 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.75+0.002,numtostr(h1-h1*0.75,2)+ 270 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.792+0.002,numtostr(h1-h1*0.792,2)+ 285 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.833+0.002,numtostr(h1-h1*0.833,2)+ 300 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.875+0.002,numtostr(h1-h1*0.875,2)+ 315 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.917+0.002,numtostr(h1-h1*0.917,2)+ 330 ),colorwhite,align2;
drawtext(sysparam(3)=barpos,h1-h1*0.958+0.002,numtostr(h1-h1*0.958,2)+ 345 ),colorwhite,align2;
end;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)=1,c,numtostr(当前月,0)+月转折日:6、15、21、*25\n \n \n \n ),color00ffff,align4;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)=2,c,numtostr(当前月,0)+月转折日:6、15、21\n \n \n \n ),color00ffff,align4;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)=3,c,numtostr(当前月,0)+月转折日:6、15、*20、21\n \n \n \n ),color00ffff,align4;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)=4,c,numtostr(当前月,0)+月转折日:6、15、21\n \n \n \n ),color00ffff,align4;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)=5,c,numtostr(当前月,0)+月转折日:6、*12、15、21\n \n \n \n ),color00ffff,align4;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)=6,c,numtostr(当前月,0)+月转折日:6、*14、21\n \n \n \n ),color00ffff,align4;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)=7,c,numtostr(当前月,0)+月转折日:8、15、*19、23\n \n \n \n ),color00ffff,align4;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)=8,c,numtostr(当前月,0)+月转折日:*6、8、15、23\n \n \n \n ),color00ffff,align4;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)=9,c,numtostr(当前月,0)+月转折日:8、15、*18、23\n \n \n \n ),color00ffff,align4;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)=10,c,numtostr(当前月,0)+月转折日:8、15、23、*31\n \n \n \n ),color00ffff,align4;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)=11,c,numtostr(当前月,0)+月转折日:8、15、23、*28\n \n \n \n ),color00ffff,align4;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)=12,c,numtostr(当前月,0)+月转折日:8、15、23、*31\n \n \n \n ),color00ffff,align4;
这个公式,我改了几次,都不能给改成飞狐公式,请高手出手吧
上一指标公式:dde预警FH公式下载 飞狐预警指标 源码
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文网上搜的江恩FH公式下载 飞狐江恩指标 源码仅供学习研究。