先建一个引用指标
{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;
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
