周期全息图公式 飞狐周期指标 源码

指标公式详细说明

先建一个引用指标
{aaa引入}
var1:=1/winner(close);
var2:=(close-ma(close,13))/ma(close,13)*100;
var3:=100-abs(var2);
var4:=3*sma((close-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1)-2*sma(sma((close-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1),15,1);
var5:=3*sma((open-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1)-2*sma(sma((open-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1),15,1);
var6:=100-var5;
var7:=100-var4;
var8:=ma(winner(close*0.95)*100,3);
var9:=if(var1>5,if(var1<100,var1,var3-10),0);
vara:=(close-llv(low,9))/(hhv(high,9)-llv(low,9))*100;
varb:=sma(vara,3,1);
varc:=sma(varb,3,1);
vare:=(-1)*(ema(var7,12)-50)+50;
探索者:ema(3*varb-2*varc,3),colorwhite;
zs:ma(探索者,3),colorred;
zm:ma(ma(探索者,3),3),colorbrown;

公式：
{周期全息主图}
aaat:=stkindi('','aaa引入.探索者',0,0);
zst:=stkindi('','aaa引入.zs',0,0);
aaa1:=stkindi('','aaa引入.探索者',0,1);
zs1:=stkindi('','aaa引入.zs',0,1);
aaa5:=stkindi('','aaa引入.探索者',0,2);
zs5:=stkindi('','aaa引入.zs',0,2);
aaa15:=stkindi('','aaa引入.探索者',0,3);
zs15:=stkindi('','aaa引入.zs',0,3);
aaa30:=stkindi('','aaa引入.探索者',0,4);
zs30:=stkindi('','aaa引入.zs',0,4);
aaa60:=stkindi('','aaa引入.探索者',0,5);
zs60:=stkindi('','aaa引入.zs',0,5);
aaah:=stkindi('','aaa引入.探索者',0,11);
zsh:=stkindi('','aaa引入.zs',0,11);
aaad:=stkindi('','aaa引入.探索者',0,6);
zsd:=stkindi('','aaa引入.zs',0,6);
aaaw:=stkindi('','aaa引入.探索者',0,7);
zsw:=stkindi('','aaa引入.zs',0,7);
aaam:=stkindi('','aaa引入.探索者',0,8);
zsm:=stkindi('','aaa引入.zs',0,8);
aaay:=stkindi('','aaa引入.探索者',0,9);
zsy:=stkindi('','aaa引入.zs',0,9);

cct:=aaat;
zdt:=cct[sysparam(3)];
cdt:=max(1,abs(intpart(10*zdt/100)));
hxt:='_________________________________________________________';
if zdt>=0 then begin
drawtextex(1,0,250,38,strleft(hxt,cdt)),colorcf;
drawtextex(1,0,250,39,strleft(hxt,cdt)),coloref;
drawtextex(1,0,250,40,strleft(hxt,cdt)),color60ff;
drawtextex(1,0,250,41,strleft(hxt,cdt)),colora1ff;
drawtextex(1,0,250,42,strleft(hxt,cdt)),colorcaff;
drawtextex(1,0,250,43,strleft(hxt,cdt)),color60ffff;
drawtextex(1,0,250,44,strleft(hxt,cdt)),colord5ff;
drawtextex(1,0,250,45,strleft(hxt,cdt)),colorc4ff;
drawtextex(1,0,250,46,strleft(hxt,cdt)),colora0ff;
drawtextex(1,0,250,47,strleft(hxt,cdt)),color7fff;
drawtextex(1,0,250,48,strleft(hxt,cdt)),color50ff;
drawtextex(1,0,250,49,strleft(hxt,cdt)),coloref;
drawtextex(1,0,250,50,strleft(hxt,cdt)),colorcf;
end;
else begin
drawtextex(1,0,250,38,strleft(hxt,cdt)),color7e00;
drawtextex(1,0,250,39,strleft(hxt,cdt)),color8e00;
drawtextex(1,0,250,40,strleft(hxt,cdt)),colorae00;
drawtextex(1,0,250,41,strleft(hxt,cdt)),colorbe00;
drawtextex(1,0,250,42,strleft(hxt,cdt)),colorce00;
drawtextex(1,0,250,43,strleft(hxt,cdt)),colorde00;
drawtextex(1,0,250,44,strleft(hxt,cdt)),colorff60;
drawtextex(1,0,250,45,strleft(hxt,cdt)),colorde30;
drawtextex(1,0,250,46,strleft(hxt,cdt)),colorce00;
drawtextex(1,0,250,47,strleft(hxt,cdt)),colorbe00;
drawtextex(1,0,250,48,strleft(hxt,cdt)),colorae00;
drawtextex(1,0,250,49,strleft(hxt,cdt)),color9e00;
drawtextex(1,0,250,50,strleft(hxt,cdt)),color8e00;
drawtextex(1,0,250,51,strleft(hxt,cdt)),color7e00;
drawtextex(1,0,250,52,strleft(hxt,cdt)),color7e00;
end;

cc1:=aaa1;
zd1:=cc1[sysparam(3)];
cd1:=max(1,abs(intpart(10*zd1/100)));
hx1:='_________________________________________________________';
if zd1>=0 then begin
drawtextex(1,0,250,53,strleft(hx1,cd1)),colorcf;
drawtextex(1,0,250,54,strleft(hx1,cd1)),coloref;
drawtextex(1,0,250,55,strleft(hx1,cd1)),color60ff;
drawtextex(1,0,250,56,strleft(hx1,cd1)),colora1ff;
drawtextex(1,0,250,57,strleft(hx1,cd1)),colorcaff;
drawtextex(1,0,250,58,strleft(hx1,cd1)),color60ffff;
drawtextex(1,0,250,59,strleft(hx1,cd1)),colord5ff;
drawtextex(1,0,250,60,strleft(hx1,cd1)),colorc4ff;
drawtextex(1,0,250,61,strleft(hx1,cd1)),colora0ff;
drawtextex(1,0,250,62,strleft(hx1,cd1)),color7fff;
drawtextex(1,0,250,63,strleft(hx1,cd1)),color50ff;
drawtextex(1,0,250,64,strleft(hx1,cd1)),coloref;
drawtextex(1,0,250,65,strleft(hx1,cd1)),colorcf;
end;
else begin
drawtextex(1,0,250,53,strleft(hx1,cd1)),color7e00;
drawtextex(1,0,250,54,strleft(hx1,cd1)),color8e00;
drawtextex(1,0,250,55,strleft(hx1,cd1)),colorae00;
drawtextex(1,0,250,56,strleft(hx1,cd1)),colorbe00;
drawtextex(1,0,250,57,strleft(hx1,cd1)),colorce00;
drawtextex(1,0,250,58,strleft(hx1,cd1)),colorde00;
drawtextex(1,0,250,59,strleft(hx1,cd1)),colorff60;
drawtextex(1,0,250,60,strleft(hx1,cd1)),colorde30;
drawtextex(1,0,250,61,strleft(hx1,cd1)),colorce00;
drawtextex(1,0,250,62,strleft(hx1,cd1)),colorbe00;
drawtextex(1,0,250,63,strleft(hx1,cd1)),colorae00;
drawtextex(1,0,250,64,strleft(hx1,cd1)),color9e00;
drawtextex(1,0,250,65,strleft(hx1,cd1)),color8e00;
drawtextex(1,0,250,66,strleft(hx1,cd1)),color7e00;
drawtextex(1,0,250,67,strleft(hx1,cd1)),color7e00;
end;

cc5:=aaa5;
zd5:=cc5[sysparam(3)];
cd5:=max(1,abs(intpart(10*zd5/100)));
hx5:='_________________________________________________________';
if zd5>=0 then begin
drawtextex(1,0,250,68,strleft(hx5,cd5)),colorcf;
drawtextex(1,0,250,69,strleft(hx5,cd5)),coloref;
drawtextex(1,0,250,70,strleft(hx5,cd5)),color60ff;
drawtextex(1,0,250,71,strleft(hx5,cd5)),colora1ff;
drawtextex(1,0,250,72,strleft(hx5,cd5)),colorcaff;
drawtextex(1,0,250,73,strleft(hx5,cd5)),color60ffff;
drawtextex(1,0,250,74,strleft(hx5,cd5)),colord5ff;
drawtextex(1,0,250,75,strleft(hx5,cd5)),colorc4ff;
drawtextex(1,0,250,76,strleft(hx5,cd5)),colora0ff;
drawtextex(1,0,250,77,strleft(hx5,cd5)),color7fff;
drawtextex(1,0,250,78,strleft(hx5,cd5)),color50ff;
drawtextex(1,0,250,79,strleft(hx5,cd5)),coloref;
drawtextex(1,0,250,80,strleft(hx5,cd5)),colorcf;
end;
else begin
drawtextex(1,0,250,69,strleft(hx5,cd5)),color7e00;
drawtextex(1,0,250,70,strleft(hx5,cd5)),color8e00;
drawtextex(1,0,250,71,strleft(hx5,cd5)),colorae00;
drawtextex(1,0,250,72,strleft(hx5,cd5)),colorbe00;
drawtextex(1,0,250,73,strleft(hx5,cd5)),colorce00;
drawtextex(1,0,250,74,strleft(hx5,cd5)),colorde00;
drawtextex(1,0,250,75,strleft(hx5,cd5)),colorff60;
drawtextex(1,0,250,76,strleft(hx5,cd5)),colorde30;
drawtextex(1,0,250,77,strleft(hx5,cd5)),colorce00;
drawtextex(1,0,250,78,strleft(hx5,cd5)),colorbe00;
drawtextex(1,0,250,79,strleft(hx5,cd5)),colorae00;
drawtextex(1,0,250,80,strleft(hx5,cd5)),color9e00;
drawtextex(1,0,250,81,strleft(hx5,cd5)),color8e00;
drawtextex(1,0,250,82,strleft(hx5,cd5)),color7e00;
drawtextex(1,0,250,83,strleft(hx5,cd5)),color7e00;
end;

cc15:=aaa15;
zd15:=cc15[sysparam(3)];
cd15:=max(1,abs(intpart(10*zd15/100)));
hx15:='_________________________________________________________';
if zd15>=0 then begin
drawtextex(1,0,250,84,strleft(hx15,cd15)),colorcf;
drawtextex(1,0,250,85,strleft(hx15,cd15)),coloref;
drawtextex(1,0,250,86,strleft(hx15,cd15)),color60ff;
drawtextex(1,0,250,87,strleft(hx15,cd15)),colora1ff;
drawtextex(1,0,250,88,strleft(hx15,cd15)),colorcaff;
drawtextex(1,0,250,89,strleft(hx15,cd15)),color60ffff;
drawtextex(1,0,250,90,strleft(hx15,cd15)),colord5ff;
drawtextex(1,0,250,91,strleft(hx15,cd15)),colorc4ff;
drawtextex(1,0,250,92,strleft(hx15,cd15)),colora0ff;
drawtextex(1,0,250,93,strleft(hx15,cd15)),color7fff;
drawtextex(1,0,250,94,strleft(hx15,cd15)),color50ff;
drawtextex(1,0,250,95,strleft(hx15,cd15)),coloref;
drawtextex(1,0,250,96,strleft(hx15,cd15)),colorcf;
end;
else begin
drawtextex(1,0,250,84,strleft(hx15,cd15)),color7e00;
drawtextex(1,0,250,85,strleft(hx15,cd15)),color8e00;
drawtextex(1,0,250,86,strleft(hx15,cd15)),colorae00;
drawtextex(1,0,250,87,strleft(hx15,cd15)),colorbe00;
drawtextex(1,0,250,88,strleft(hx15,cd15)),colorce00;
drawtextex(1,0,250,89,strleft(hx15,cd15)),colorde00;
drawtextex(1,0,250,90,strleft(hx15,cd15)),colorff60;
drawtextex(1,0,250,91,strleft(hx15,cd15)),colorde30;
drawtextex(1,0,250,92,strleft(hx15,cd15)),colorce00;
drawtextex(1,0,250,93,strleft(hx15,cd15)),colorbe00;
drawtextex(1,0,250,94,strleft(hx15,cd15)),colorae00;
drawtextex(1,0,250,95,strleft(hx15,cd15)),color9e00;
drawtextex(1,0,250,96,strleft(hx15,cd15)),color8e00;
drawtextex(1,0,250,97,strleft(hx15,cd15)),color7e00;
drawtextex(1,0,250,98,strleft(hx15,cd15)),color7e00;
end;

cc30:=aaa30;
zd30:=cc30[sysparam(3)];
cd30:=max(1,abs(intpart(10*zd30/100)));
hx30:='_________________________________________________________';
if zd30>=0 then begin
drawtextex(1,0,250,99,strleft(hx30,cd30)),colorcf;
drawtextex(1,0,250,100,strleft(hx30,cd30)),coloref;
drawtextex(1,0,250,101,strleft(hx30,cd30)),color60ff;
drawtextex(1,0,250,102,strleft(hx30,cd30)),colora1ff;
drawtextex(1,0,250,103,strleft(hx30,cd30)),colorcaff;
drawtextex(1,0,250,104,strleft(hx30,cd30)),color60ffff;
drawtextex(1,0,250,105,strleft(hx30,cd30)),colord5ff;
drawtextex(1,0,250,106,strleft(hx30,cd30)),colorc4ff;
drawtextex(1,0,250,107,strleft(hx30,cd30)),colora0ff;
drawtextex(1,0,250,108,strleft(hx30,cd30)),color7fff;
drawtextex(1,0,250,109,strleft(hx30,cd30)),color50ff;
drawtextex(1,0,250,110,strleft(hx30,cd30)),coloref;
drawtextex(1,0,250,111,strleft(hx30,cd30)),colorcf;
end;
else begin
drawtextex(1,0,250,99,strleft(hx30,cd30)),color7e00;
drawtextex(1,0,250,100,strleft(hx30,cd30)),color8e00;
drawtextex(1,0,250,101,strleft(hx30,cd30)),colorae00;
drawtextex(1,0,250,102,strleft(hx30,cd30)),colorbe00;
drawtextex(1,0,250,103,strleft(hx30,cd30)),colorce00;
drawtextex(1,0,250,104,strleft(hx30,cd30)),colorde00;
drawtextex(1,0,250,105,strleft(hx30,cd30)),colorff60;
drawtextex(1,0,250,106,strleft(hx30,cd30)),colorde30;
drawtextex(1,0,250,107,strleft(hx30,cd30)),colorce00;
drawtextex(1,0,250,108,strleft(hx30,cd30)),colorbe00;
drawtextex(1,0,250,109,strleft(hx30,cd30)),colorae00;
drawtextex(1,0,250,110,strleft(hx30,cd30)),color9e00;
drawtextex(1,0,250,111,strleft(hx30,cd30)),color8e00;
drawtextex(1,0,250,112,strleft(hx30,cd30)),color7e00;
drawtextex(1,0,250,113,strleft(hx30,cd30)),color7e00;
end;

cc60:=aaa60;
zd60:=cc60[sysparam(3)];
cd60:=max(1,abs(intpart(10*zd60/100)));
hx60:='_________________________________________________________';
if zd60>=0 then begin
drawtextex(1,0,250,115,strleft(hx60,cd60)),colorcf;
drawtextex(1,0,250,116,strleft(hx60,cd60)),coloref;
drawtextex(1,0,250,117,strleft(hx60,cd60)),color60ff;
drawtextex(1,0,250,118,strleft(hx60,cd60)),colora1ff;
drawtextex(1,0,250,119,strleft(hx60,cd60)),colorcaff;
drawtextex(1,0,250,120,strleft(hx60,cd60)),color60ffff;
drawtextex(1,0,250,121,strleft(hx60,cd60)),colord5ff;
drawtextex(1,0,250,122,strleft(hx60,cd60)),colorc4ff;
drawtextex(1,0,250,123,strleft(hx60,cd60)),colora0ff;
drawtextex(1,0,250,124,strleft(hx60,cd60)),color7fff;
drawtextex(1,0,250,125,strleft(hx60,cd60)),color50ff;
drawtextex(1,0,250,126,strleft(hx60,cd60)),coloref;
drawtextex(1,0,250,127,strleft(hx60,cd60)),colorcf;
end;
else begin
drawtextex(1,0,250,115,strleft(hx60,cd60)),color7e00;
drawtextex(1,0,250,116,strleft(hx60,cd60)),color8e00;
drawtextex(1,0,250,117,strleft(hx60,cd60)),colorae00;
drawtextex(1,0,250,118,strleft(hx60,cd60)),colorbe00;
drawtextex(1,0,250,119,strleft(hx60,cd60)),colorce00;
drawtextex(1,0,250,120,strleft(hx60,cd60)),colorde00;
drawtextex(1,0,250,121,strleft(hx60,cd60)),colorff60;
drawtextex(1,0,250,122,strleft(hx60,cd60)),colorde30;
drawtextex(1,0,250,123,strleft(hx60,cd60)),colorce00;
drawtextex(1,0,250,124,strleft(hx60,cd60)),colorbe00;
drawtextex(1,0,250,125,strleft(hx60,cd60)),colorae00;
drawtextex(1,0,250,126,strleft(hx60,cd60)),color9e00;
drawtextex(1,0,250,127,strleft(hx60,cd60)),color8e00;
drawtextex(1,0,250,128,strleft(hx60,cd60)),color7e00;
drawtextex(1,0,250,129,strleft(hx60,cd60)),color7e00;
end;

cch:=aaah;
zdh:=cch[sysparam(3)];
cdh:=max(1,abs(intpart(10*zdh/100)));
hxh:='_________________________________________________________';
if zdh>=0 then begin
drawtextex(1,0,250,130,strleft(hxh,cdh)),colorcf;
drawtextex(1,0,250,131,strleft(hxh,cdh)),coloref;
drawtextex(1,0,250,132,strleft(hxh,cdh)),color60ff;
drawtextex(1,0,250,133,strleft(hxh,cdh)),colora1ff;
drawtextex(1,0,250,134,strleft(hxh,cdh)),colorcaff;
drawtextex(1,0,250,135,strleft(hxh,cdh)),color60ffff;
drawtextex(1,0,250,136,strleft(hxh,cdh)),colord5ff;
drawtextex(1,0,250,137,strleft(hxh,cdh)),colorc4ff;
drawtextex(1,0,250,138,strleft(hxh,cdh)),colora0ff;
drawtextex(1,0,250,139,strleft(hxh,cdh)),color7fff;
drawtextex(1,0,250,140,strleft(hxh,cdh)),color50ff;
drawtextex(1,0,250,141,strleft(hxh,cdh)),coloref;
drawtextex(1,0,250,142,strleft(hxh,cdh)),colorcf;
end;
else begin
drawtextex(1,0,250,131,strleft(hxh,cdh)),color7e00;
drawtextex(1,0,250,132,strleft(hxh,cdh)),color8e00;
drawtextex(1,0,250,133,strleft(hxh,cdh)),colorae00;
drawtextex(1,0,250,134,strleft(hxh,cdh)),colorbe00;
drawtextex(1,0,250,135,strleft(hxh,cdh)),colorce00;
drawtextex(1,0,250,136,strleft(hxh,cdh)),colorde00;
drawtextex(1,0,250,137,strleft(hxh,cdh)),colorff60;
drawtextex(1,0,250,138,strleft(hxh,cdh)),colorde30;
drawtextex(1,0,250,139,strleft(hxh,cdh)),colorce00;
drawtextex(1,0,250,140,strleft(hxh,cdh)),colorbe00;
drawtextex(1,0,250,141,strleft(hxh,cdh)),colorae00;
drawtextex(1,0,250,142,strleft(hxh,cdh)),color9e00;
drawtextex(1,0,250,143,strleft(hxh,cdh)),color8e00;
drawtextex(1,0,250,144,strleft(hxh,cdh)),color7e00;
drawtextex(1,0,250,145,strleft(hxh,cdh)),color7e00;
end;

cc:=aaad;
zd:=cc[sysparam(3)];
cd:=max(1,abs(intpart(10*zd/100)));
hx:='_________________________________________________________';
if zd>=0 then begin
drawtextex(1,0,250,146,strleft(hx,cd)),colorcf;
drawtextex(1,0,250,147,strleft(hx,cd)),coloref;
drawtextex(1,0,250,148,strleft(hx,cd)),color60ff;
drawtextex(1,0,250,149,strleft(hx,cd)),colora1ff;
drawtextex(1,0,250,150,strleft(hx,cd)),colorcaff;
drawtextex(1,0,250,151,strleft(hx,cd)),color60ffff;
drawtextex(1,0,250,152,strleft(hx,cd)),colord5ff;
drawtextex(1,0,250,153,strleft(hx,cd)),colorc4ff;
drawtextex(1,0,250,154,strleft(hx,cd)),colora0ff;
drawtextex(1,0,250,155,strleft(hx,cd)),color7fff;
drawtextex(1,0,250,156,strleft(hx,cd)),color50ff;
drawtextex(1,0,250,157,strleft(hx,cd)),coloref;
drawtextex(1,0,250,158,strleft(hx,cd)),colorcf;
end;
else begin
drawtextex(1,0,250,146,strleft(hx,cd)),color7e00;
drawtextex(1,0,250,147,strleft(hx,cd)),color8e00;
drawtextex(1,0,250,148,strleft(hx,cd)),colorae00;
drawtextex(1,0,250,149,strleft(hx,cd)),colorbe00;
drawtextex(1,0,250,150,strleft(hx,cd)),colorce00;
drawtextex(1,0,250,151,strleft(hx,cd)),colorde00;
drawtextex(1,0,250,152,strleft(hx,cd)),colorff60;
drawtextex(1,0,250,153,strleft(hx,cd)),colorde30;
drawtextex(1,0,250,154,strleft(hx,cd)),colorce00;
drawtextex(1,0,250,155,strleft(hx,cd)),colorbe00;
drawtextex(1,0,250,156,strleft(hx,cd)),colorae00;
drawtextex(1,0,250,157,strleft(hx,cd)),color9e00;
drawtextex(1,0,250,158,strleft(hx,cd)),color8e00;
drawtextex(1,0,250,159,strleft(hx,cd)),color7e00;
drawtextex(1,0,250,160,strleft(hx,cd)),color7e00;
end;

ccw:=aaaw;
zdw:=ccw[sysparam(3)];
cdw:=max(1,abs(intpart(10*zdw/100)));
hxw:='_________________________________________________________';
if zdw>=0 then begin
drawtextex(1,0,250,161,strleft(hxw,cdw)),colorcf;
drawtextex(1,0,250,162,strleft(hxw,cdw)),coloref;
drawtextex(1,0,250,163,strleft(hxw,cdw)),color60ff;
drawtextex(1,0,250,164,strleft(hxw,cdw)),colora1ff;
drawtextex(1,0,250,165,strleft(hxw,cdw)),colorcaff;
drawtextex(1,0,250,166,strleft(hxw,cdw)),color60ffff;
drawtextex(1,0,250,167,strleft(hxw,cdw)),colord5ff;
drawtextex(1,0,250,168,strleft(hxw,cdw)),colorc4ff;
drawtextex(1,0,250,169,strleft(hxw,cdw)),colora0ff;
drawtextex(1,0,250,170,strleft(hxw,cdw)),color7fff;
drawtextex(1,0,250,171,strleft(hxw,cdw)),color50ff;
drawtextex(1,0,250,172,strleft(hxw,cdw)),coloref;
drawtextex(1,0,250,173,strleft(hxw,cdw)),colorcf;
end;
else begin
drawtextex(1,0,250,161,strleft(hxw,cdw)),color7e00;
drawtextex(1,0,250,162,strleft(hxw,cdw)),color8e00;
drawtextex(1,0,250,163,strleft(hxw,cdw)),colorae00;
drawtextex(1,0,250,164,strleft(hxw,cdw)),colorbe00;
drawtextex(1,0,250,165,strleft(hxw,cdw)),colorce00;
drawtextex(1,0,250,166,strleft(hxw,cdw)),colorde00;
drawtextex(1,0,250,167,strleft(hxw,cdw)),colorff60;
drawtextex(1,0,250,168,strleft(hxw,cdw)),colorde30;
drawtextex(1,0,250,169,strleft(hxw,cdw)),colorce00;
drawtextex(1,0,250,170,strleft(hxw,cdw)),colorbe00;
drawtextex(1,0,250,171,strleft(hxw,cdw)),colorae00;
drawtextex(1,0,250,172,strleft(hxw,cdw)),color9e00;
drawtextex(1,0,250,173,strleft(hxw,cdw)),color8e00;
drawtextex(1,0,250,174,strleft(hxw,cdw)),color7e00;
drawtextex(1,0,250,175,strleft(hxw,cdw)),color7e00;
end;

ccm:=aaam;
zdm:=ccm[sysparam(3)];
cdm:=max(1,abs(intpart(10*zdm/100)));
hxm:='_________________________________________________________';
if zdm>=0 then begin
drawtextex(1,0,250,176,strleft(hxm,cdm)),colorcf;
drawtextex(1,0,250,177,strleft(hxm,cdm)),coloref;
drawtextex(1,0,250,178,strleft(hxm,cdm)),color60ff;
drawtextex(1,0,250,179,strleft(hxm,cdm)),colora1ff;
drawtextex(1,0,250,180,strleft(hxm,cdm)),colorcaff;
drawtextex(1,0,250,181,strleft(hxm,cdm)),color60ffff;
drawtextex(1,0,250,182,strleft(hxm,cdm)),colord5ff;
drawtextex(1,0,250,183,strleft(hxm,cdm)),colorc4ff;
drawtextex(1,0,250,184,strleft(hxm,cdm)),colora0ff;
drawtextex(1,0,250,185,strleft(hxm,cdm)),color7fff;
drawtextex(1,0,250,186,strleft(hxm,cdm)),color50ff;
drawtextex(1,0,250,187,strleft(hxm,cdm)),coloref;
drawtextex(1,0,250,188,strleft(hxm,cdm)),colorcf;
end;
else begin
drawtextex(1,0,250,176,strleft(hxm,cdm)),color7e00;
drawtextex(1,0,250,177,strleft(hxm,cdm)),color8e00;
drawtextex(1,0,250,178,strleft(hxm,cdm)),colorae00;
drawtextex(1,0,250,179,strleft(hxm,cdm)),colorbe00;
drawtextex(1,0,250,180,strleft(hxm,cdm)),colorce00;
drawtextex(1,0,250,181,strleft(hxm,cdm)),colorde00;
drawtextex(1,0,250,182,strleft(hxm,cdm)),colorff60;
drawtextex(1,0,250,183,strleft(hxm,cdm)),colorde30;
drawtextex(1,0,250,184,strleft(hxm,cdm)),colorce00;
drawtextex(1,0,250,185,strleft(hxm,cdm)),colorbe00;
drawtextex(1,0,250,186,strleft(hxm,cdm)),colorae00;
drawtextex(1,0,250,187,strleft(hxm,cdm)),color9e00;
drawtextex(1,0,250,188,strleft(hxm,cdm)),color8e00;
drawtextex(1,0,250,189,strleft(hxm,cdm)),color7e00;
drawtextex(1,0,250,190,strleft(hxm,cdm)),color7e00;
end;

ccy:=aaay;
zdy:=ccy[sysparam(3)];
cdy:=max(1,abs(intpart(10*zdy/100)));
hxy:='_________________________________________________________';
if zdy>=0 then begin
drawtextex(1,0,250,191,strleft(hxy,cdy)),colorcf;
drawtextex(1,0,250,192,strleft(hxy,cdy)),coloref;
drawtextex(1,0,250,193,strleft(hxy,cdy)),color60ff;
drawtextex(1,0,250,194,strleft(hxy,cdy)),colora1ff;
drawtextex(1,0,250,195,strleft(hxy,cdy)),colorcaff;
drawtextex(1,0,250,196,strleft(hxy,cdy)),color60ffff;
drawtextex(1,0,250,197,strleft(hxy,cdy)),colord5ff;
drawtextex(1,0,250,198,strleft(hxy,cdy)),colorc4ff;
drawtextex(1,0,250,199,strleft(hxy,cdy)),colora0ff;
drawtextex(1,0,250,200,strleft(hxy,cdy)),color7fff;
drawtextex(1,0,250,201,strleft(hxy,cdy)),color50ff;
drawtextex(1,0,250,202,strleft(hxy,cdy)),coloref;
drawtextex(1,0,250,203,strleft(hxy,cdy)),colorcf;
end;
else begin
drawtextex(1,0,250,191,strleft(hxy,cdy)),color7e00;
drawtextex(1,0,250,192,strleft(hxy,cdy)),color8e00;
drawtextex(1,0,250,193,strleft(hxy,cdy)),colorae00;
drawtextex(1,0,250,194,strleft(hxy,cdy)),colorbe00;
drawtextex(1,0,250,195,strleft(hxy,cdy)),colorce00;
drawtextex(1,0,250,196,strleft(hxy,cdy)),colorde00;
drawtextex(1,0,250,197,strleft(hxy,cdy)),colorff60;
drawtextex(1,0,250,198,strleft(hxy,cdy)),colorde30;
drawtextex(1,0,250,199,strleft(hxy,cdy)),colorce00;
drawtextex(1,0,250,200,strleft(hxy,cdy)),colorbe00;
drawtextex(1,0,250,201,strleft(hxy,cdy)),colorae00;
drawtextex(1,0,250,202,strleft(hxy,cdy)),color9e00;
drawtextex(1,0,250,203,strleft(hxy,cdy)),color8e00;
drawtextex(1,0,250,204,strleft(hxy,cdy)),color7e00;
drawtextex(1,0,250,205,strleft(hxy,cdy)),color7e00;
end;

drawtextex(aaa15<20 and aaa30<20 and aaa60<20 ,1,500,50,'多周期共震'),colorgreen;
drawtextex(aaa30<20 and aaa60<20 and aaah<20 ,1,500,50,'多周期共震'),colorgreen;
drawtextex(aaa30<20 and aaa60<20 and aaad<20 ,1,500,50,'多周期共震'),colorgreen;
drawtextex(c,1,100,100,'周期 风险值 升降 底 金叉 买 监控'),coloryellow;

drawtextex(c,1,100,150,'mint: '+numtostr(aaat[sysparam(3)],2)),colorgreen;
drawtextex(aaat>zst,1,100,150,' ↑'),colorred;
drawtextex(aaat<=zst,1,100,150,' ↓'),colorgreen;
drawtextex(aaat<10,1,100,150,' △'),coloryellow;
drawtextex(aaat<0,1,100,150,' ▲'),colorred;
drawtextex(cross(aaat,zst),1,100,150,' ■'),coloryellow;
drawtextex(cross(aaat,zst),1,100,150,' §'),colorred;

drawtextex(c,1,100,200,'min1: '+numtostr(aaa1[sysparam(3)],2)),colorgreen;
drawtextex(aaa1>zs1,1,100,200,' ↑'),colorred;
drawtextex(aaa1<=zs1,1,100,200,' ↓'),colorgreen;
drawtextex(aaa1<10,1,100,200,' △'),coloryellow;
drawtextex(aaa1<0,1,100,200,' ▲'),colorred;
drawtextex(cross(aaa1,zs1),1,100,200,' ■'),coloryellow;
drawtextex(cross(aaa1,zs1),1,100,200,' §'),colorred;
drawtextex(aaa15<0 and aaa5<0 and aaa1<50,1,100,200,' a'),colorgreen;

drawtextex(c,1,100,250,'min5: '+numtostr(aaa5[sysparam(3)],2)),colorgreen;
drawtextex(aaa5>zs5,1,100,250,' ↑'),colorred;
drawtextex(aaa5<=zs5,1,100,250,' ↓'),colorgreen;
drawtextex(aaa5<10,1,100,250,' △'),coloryellow;
drawtextex(aaa5<0,1,100,250,' ▲'),colorred;
drawtextex(cross(aaa5,zs5),1,100,250,' ■'),coloryellow;
drawtextex(cross(aaa5,zs5),1,100,250,' §'),colorred;
drawtextex((aaa5>zs5 or zs5>ref(zs5,1))and aaa1<0,1,100,250,' 买');// or zs5>ref(zs5,1)
drawtextex(aaa30<0 and aaa15<0 and aaa5<50,1,100,250,' a'),colorgreen;

drawtextex(c,1,100,300,'min15: '+numtostr(aaa15[sysparam(3)],2)),colorgreen;
drawtextex(aaa15>zs15,1,100,300,' ↑'),colorred;
drawtextex(aaa15<=zs15,1,100,300,' ↓'),colorgreen;
drawtextex(aaa15<10,1,100,300,' △'),coloryellow;
drawtextex(aaa15<0,1,100,300,' ▲'),colorred;
drawtextex(cross(aaa15,zs15),1,100,300,' ■'),coloryellow;
drawtextex(cross(aaa15,zs15),1,100,300,' §'),colorred;
drawtextex(aaa60<0 and aaa30<0 and aaa15<50,1,100,300,' a'),colorgreen;

drawtextex(c,1,100,350,'min30: '+numtostr(aaa30[sysparam(3)],2)),colorgreen;
drawtextex(aaa30>zs30,1,100,350,' ↑'),colorred;
drawtextex(aaa30<=zs30,1,100,350,' ↓'),colorgreen;
drawtextex(aaa30<10,1,100,350,' △'),coloryellow;
drawtextex(aaa30<0,1,100,350,' ▲'),colorred;
drawtextex(cross(aaa30,zs30),1,100,350,' ■'),coloryellow;
drawtextex(cross(aaa30,zs30),1,100,350,' §'),colorred;
drawtextex(aaah<0 and aaa60<0 and aaa30<50,1,100,350,' a'),colorgreen;

drawtextex(c,1,100,400,'min60: '+numtostr(aaa60[sysparam(3)],2)),colorgreen;
drawtextex(aaa60>zs60,1,100,400,' ↑'),colorred;
drawtextex(aaa60<=zs60,1,100,400,' ↓'),colorgreen;
drawtextex(aaa60<10,1,100,400,' △'),coloryellow;
drawtextex(aaa60<0,1,100,400,' ▲'),colorred;
drawtextex(cross(aaa60,zs60),1,100,400,' ■'),coloryellow;
drawtextex(cross(aaa60,zs60),1,100,400,' §'),colorred;
drawtextex(aaaw<10 and aaah<0 and aaa60<50,1,100,400,' a'),colorgreen;

drawtextex(c,1,100,450,'min4h: '+numtostr(aaah[sysparam(3)],2)),colorgreen;
drawtextex(aaah>zsh,1,100,450,' ↑'),colorred;
drawtextex(aaah<=zsh,1,100,450,' ↓'),colorgreen;
drawtextex(aaah<10,1,100,450,' △'),coloryellow;
drawtextex(aaah<0,1,100,450,' ▲'),colorred;
drawtextex(cross(aaah,zsh),1,100,450,' ■'),coloryellow;
drawtextex(cross(aaah,zsh),1,100,450,' §'),colorred;
drawtextex(aaaw<10 and aaad<0 and aaah<50,1,100,450,' a'),colorgreen;

drawtextex(c,1,100,500,'mind: '+numtostr(aaad[sysparam(3)],2)),colorgreen;
drawtextex(aaad>zsd,1,100,500,' ↑'),colorred;
drawtextex(aaad<=zsd,1,100,500,' ↓'),colorgreen;
drawtextex(aaad<10,1,100,500,' △'),coloryellow;
drawtextex(aaad<0,1,100,500,' ▲'),colorred;
drawtextex(cross(aaad,zsd),1,100,500,' ■'),coloryellow;
drawtextex(cross(aaad,zsd),1,100,500,' §'),colorred;
drawtextex(aaam<0 and aaaw<0 and aaad<50,1,100,500,' a'),colorgreen;

drawtextex(c,1,100,550,'minw: '+numtostr(aaaw[sysparam(3)],2)),colorgreen;
drawtextex(aaaw>zsw,1,100,550,' ↑'),colorred;
drawtextex(aaaw<=zsw,1,100,550,' ↓'),colorgreen;
drawtextex(aaaw<10,1,100,550,' △'),coloryellow;
drawtextex(aaaw<0,1,100,550,' ▲'),colorred;
drawtextex(cross(aaaw,zsw),1,100,550,' ■'),coloryellow;
drawtextex(cross(aaaw,zsw),1,100,550,' §'),colorred;
//drawtextex(c,1,100,550,' 2.6'),colorgreen;

drawtextex(c,1,100,600,'minm: '+numtostr(aaam[sysparam(3)],2)),colorgreen;
drawtextex(aaam>zsm,1,100,600,' ↑'),colorred;
drawtextex(aaam<=zsm,1,100,600,' ↓'),colorgreen;
drawtextex(aaam<10,1,100,600,' △'),coloryellow;
drawtextex(aaam<0,1,100,600,' ▲'),colorred;
drawtextex(cross(aaam,zsm),1,100,600,' ■'),coloryellow;
drawtextex(cross(aaam,zsm),1,100,600,' §'),colorred;

drawtextex(c,1,100,650,'miny: '+numtostr(aaay[sysparam(3)],2)),colorgreen;
drawtextex(aaay>zsy,1,100,650,' ↑'),colorred;
drawtextex(aaay<=zsy,1,100,650,' ↓'),colorgreen;
drawtextex(aaay<10,1,100,650,' △'),coloryellow;
drawtextex(aaay<0,1,100,650,' ▲'),colorred;
drawtextex(cross(aaay,zsy),1,100,650,' ■'),coloryellow;
drawtextex(cross(aaay,zsy),1,100,650,' §'),colorred;

指标公式下载地址

上一指标公式：回升浪副图公式 飞狐回升指标 源码

下一指标公式：简单打劫公式 飞狐打劫指标 源码

相关飞狐公式推荐

指标公式下载注意

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

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

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

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

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

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

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

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

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

☉ 本文周期全息图公式 飞狐周期指标 源码仅供学习研究。