波神点石成金公式 飞狐点石成金指标 源码

指标公式详细说明

价值1万公式请改为大智慧l2

请高手改为大智慧2的公式
希望不要搞什么特效之类,
最重要是运行速度快

波神++点石成金
飞狐的

input:最近天(20,1,360);

当前月:=fracpart(round(currentdate/100)/100)*100;
月:=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;

n:=if(sysparam(1)=datacount,最近天,datacount-sysparam(1));
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,linethick0;
kkh:=barslast(high=hh);
kkl:=barslast(low=ll);
n低日:=strtonum(numtostr(ref(date,kkl),0)),linethick;
n高日:=strtonum(numtostr(ref(date,kkh),0)),linethick;
多空:if(n低日>n高日,2,1),linethick0;
多空天:if(n低日<n高日,kkl,kkh),linethick0;

date1:=if(多空=1,n低日,n高日);{}
hh0:=ref(high,barslast(date1=date));
ll0:=ref(low,barslast(date1=date));
h1:=strtonum(numtostr(hh0,3)),pointdot;
l1:=strtonum(numtostr(ll0,3)),pointdot;
partline(1,h1),,pointdot,linethick0;
partline(1,l1),,pointdot,linethick0;
ll:=h1 - l1;
vertline(date=date1),colorffaaaa,,linethick2;
drawtext(date=date1,sysparam(4)*0.95,'起\n \n始\n \n线'),colorffffff;
起始至今天:barslast(date1=date),colorffff00,linethick0;
涨幅:(close-ref(close,起始至今天))/ref(close,起始至今天)*100,colorffdddd,linethick0;
if 多空=1 then begin
{看多}
开门线: partline(date>=n低日,ll*1.50801 + l1),linethick1,coloree99ff;;
partline(date>=n低日,ll*2.00001 + l1),color9999ff,linedot;
多2线: partline(date>=n低日,ll*2.40001 + l1),colorffff99,linethick1;
partline(date>=n低日,ll*3.05001 + l1),color99ff99,linedot;
partline(date>=n低日,ll*3.75001 + l1),colorff9999,linedot;
多5线: partline(date>=n低日,ll*4.15001 + l1),colormagenta,linethick2,linedot;
partline(date>=n低日,ll*4.80001 + l1),colorred,linedot;
多7线: partline(date>=n低日,ll*5.50001 + l1),colorcyan,linethick2;
partline(date>=n低日,ll*6.10001 + l1),colorgreen,linedot;
partline(date>=n低日,ll*6.90001 + l1),linethick1,colorred;

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,'no.2 '+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,'no.5 '+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,'no.7 '+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,'多开门'),colorred;
drawtext(date=date1,ll*6.90001 + l1+0.002,'多关门'),colorred;
end;
else begin
{看空}
空开门线: partline(date>=n高日,h1-ll*1.50801),linethick1,coloree99ff;
partline(date>=n高日,h1-ll*2.00001),color9999ff,linedot;
空2线: partline(date>=n高日,h1-ll*2.40001),colorffff99;
partline(date>=n高日,h1-ll*3.05001),color99ff99,linedot;
partline(date>=n高日,h1-ll*3.75001),colorff9999,linedot;
空5线: partline(date>=n高日,h1-ll*4.15001),colormagenta;
partline(date>=n高日,h1-ll*4.80001),colorred,linedot;
空7线: partline(date>=n高日,h1-ll*5.50001),colorcyan;
partline(date>=n高日,h1-ll*6.10001),colorgreen,linedot;
空关门线: partline(date>=n高日,h1-ll*6.90001),linethick1,colorred;
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,'no.2 '+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,'no.5 '+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,'no.7 '+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 and numtostr(当前月,0)='1',close,numtostr(当前月,0)+'月转折日:6、15、21、*25\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='2',close,numtostr(当前月,0)+'月转折日:6、15、21\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='3',close,numtostr(当前月,0)+'月转折日:6、15、*20、21\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='4',close,numtostr(当前月,0)+'月转折日:6、15、21\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='5',close,numtostr(当前月,0)+'月转折日:6、*1 2、15、21\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='6',close,numtostr(当前月,0)+'月转折日:6、*1 4、21\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='7',close,numtostr(当前月,0)+'月转折日:8、15、*1 9、23\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='8',close,numtostr(当前月,0)+'月转折日:*6、8、15、23\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='9',close,numtostr(当前月,0)+'月转折日:8、15、*1 8、23\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='10',close,numtostr(当前月,0)+'月转折日:8、15、23、*31\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='11',close,numtostr(当前月,0)+'月转折日:8、15、23、*28\n \n \n \n '),color00ffff,align5;
drawtext(sysparam(2)=barpos and numtostr(当前月,0)='12',close,numtostr(当前月,0)+'月转折日:8、15、23、*31\n \n \n \n '),color00ffff,align5;


{-----------------------------立体k线--------------------------------------}
ko:=close;
kc:=ref(close,1);

stickline(ko<=kc ,close ,open,8,0 ),color008800;
stickline(ko<=kc ,close ,open,7,0 ),color009900;
stickline(ko<=kc ,close ,open,6,0 ),color00aa00;
stickline(ko<=kc ,close ,open,5,0 ),color00bb00;
stickline(ko<=kc,close ,open,4,0 ),color00cc00;
stickline(ko<=kc,close ,open,3,0 ),color33dd00;
stickline(ko<=kc,close ,open,2,0 ),color00ee00;
stickline(ko<=kc,close ,open,1,0 ),color66ff00;

stickline(ko>kc,close,open,8,0 ),color000088;
stickline(ko>kc,close,open,7,0 ),color000099;
stickline(ko>kc,close,open,6 ,0 ),color0000aa;
stickline(ko>kc,close,open,5,0 ),color0000bb;
stickline(ko>kc,close,open,4,0 ),color0000cc;
stickline(ko>kc,close,open,3 ,0 ),color0000dd;
stickline(ko>kc,close,open,2,0 ),color0000ee;
stickline(ko>kc,close,open,1 ,0 ),color0033ff;

stickline(ko>kc,open,low,0.5,0 ),colorred;
stickline(ko>kc,close,high,0.5 ,0 ),colorred;
stickline(ko<=kc,close,low,0.5 ,0 ),color66cc33;
stickline(ko<=kc,open,high,0.5 ,0 ),color66cc33;

bc:=barslast(sysparam(1)=barpos)+1;
点石成金h:=if(close>100,sum(high*vol,bc)/sum(vol,bc),sum(amount,bc)/sum(vol,bc)/100*sum(high,bc)/sum(close,bc)),colorred,linethick2;
点石成金l:=if(close>100,sum(low*vol,bc)/sum(vol,bc),sum(amount,bc)/sum(vol,bc)/100*sum(low,bc)/sum(close,bc)),colorblue,linethick2;
点石成金:if(ref(high,bc-1)>ref(high,bc) and ref(high,bc-1)>ref(high,bc-2) ,点石成金h,点石成金l),colorred,linethick2;
{开盘既知今天高低价}
高:=ma(ref(high,1)/ref(close,2),27)*ref(close,1);
低:=ma(ref(low,1)/ref(close,2),27)*ref(close,1);
a5:=低[sysparam(1)];
ra5:=低[sysparam(1)-1];
a10:=高[sysparam(1)];
ra10:=高[sysparam(1)-1];
jt5:=if(a5>ra5,'↑','↓');
jt10:=if(a10>ra10,'↑','↓');
sz1:='开盘预测最高价:'+numtostr(高[sysparam(1)],2)+jt10;
drawtext(barpos=sysparam(2),close,sz1),align4,colormagenta;
sz:='\n \n开盘预测最低价:'+numtostr(低[sysparam(1)],2)+jt5;
drawtext(barpos=sysparam(2),close,sz),align4,colorgreen;

指标公式下载地址

上一指标公式：海底捞月选股---捞月选股必有所得公式 飞狐海底捞月指标 源码

下一指标公式：新年独角兽礼物——公式 飞狐指标指标 源码

相关飞狐公式推荐

指标公式下载注意

☉ 好公式网发布的指标公式主要用于软件技术面分析，仅供参考，勿用于实际操作，据此操作风险自负！

☉ 解压密码：www.goodgongshi.com 就是好公式网域名，希望大家看清楚，切勿输错。

☉ tnc和tni格式指标公式，仅可以用通达信软件引入使用，例如可以用通达信软件引入使用指标公式；

☉ tne格式指标公式，仅可以用通达信软件公式编辑器5.0版导入，高版本兼容低版本；

☉ fnc格式指标公式，可以用大智慧软件新一代高速行情分析系统股票软件使用，少部分可以用分析家软件引入使用；

☉ alg格式指标公式，仅仅可以用飞狐交易师软件引入使用；exp格式指标公式，仅可以用大智慧经典版软件引入使用；

☉ hxf格式指标公式，仅可以用同花顺软件引入使用。

☉ 如果您发现下载软件链接错误，请联系管理员报告错误。

☉ 好公式网欢迎各位网友帮忙宣传转发本站网址，有您的支持，我们会做得更好！

☉ 本文波神点石成金公式 飞狐点石成金指标 源码仅供学习研究。