周期全息主圖指標源碼[其他軟件公式]

相關標簽:周期全息主圖指標源碼,周期全息主圖源碼,周期全息指標源碼,全息主圖公式指標,周期全息主圖指標源碼、

先建一個引用指標

引用指標源碼

{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; {本文來至CXH99.COM}

主公式指標源碼：

{周期全息主圖}
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); {內容來至程序化交易網 CXH99.COM}
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; {文章來至程序化交易網 cxh99.com}
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; {內容來至程序化交易網 CXH99.COM}