心想事成【aielite作品分享】

aiuoker

在用核心算法之一，源码分享。
此算法参数由aielite创制。
XLXS0:=(H+L+C)/3;
XLXS1:=TMA(EMA((XLXS0-MA(XLXS0,25))/(0.024*AVEDEV(XLXS0,25)),3),0.1,0.9);
XLXS2:=SUM(IF(XLXS0>REF(XLXS0,1),XLXS0*VOL,0),16)/SUM(IF(XLXS0<REF(XLXS0,1),XLXS0*VOL,0),16);
XLXS3:=TMA(3.6*(50-(100/(1+XLXS2))),0.1,0.9);
心想:IF(PERIOD<2,EMA(WMA(XLXS1,3),2),XLXS1),NoDraw,ColorCyan;
事成:IF(PERIOD<2,EMA(WMA(XLXS3,3),2),XLXS3),NoDraw,ColorMagenta;
IF(心想>105,105,IF(心想<-105,-105,心想)),NoText,ColorCyan,LineThick2;
IF(事成>105,105,IF(事成<-105,-105,事成)),NoText,ColorMagenta,LineThick2;
效果如图

jdgoal

好公式，祝心想事成！

17152838@qq.com

Fxc8:=C ,  COLOR40FF00 , LINETHICK0;
Ax8:=HHV(H,NB8);
Bx8:=LLV(L,NB8);
ax18:=MA(H,NB8+1);
bx18:=MA(L,NB8+1);
axx18:=EMA(H,NB8+1);
bxx18:=EMA(L,NB8+1);
hh8:=CROSS(C,ax18);
ll8:=CROSS(bx18,C);
arh8:=REF(H,1);
arl8:=REF(L,1);
axxx18:=EMA(H,NB8);
bxxx18:=EMA(L,NB8);
hl8:=H;
Kk8:=H;
<%
Vc8=ffl.vardata("fxc8")
LAST=UBOUND(vc8)
vhh8=ffl.vardata("hh8")
vll8=ffl.vardata("ll8")
vhl8=ffl.vardata("hl8")
vhk8=ffl.vardata("Kk8")
vlk8=ffl.vardata("Kk8")
vax18=ffl.vardata("ax18")
vbx18=ffl.vardata("bx18")
vrax18=ffl.vardata("axxx18")
vrbx18=ffl.vardata("bxxx18")

For i8=2 TO LAST
vhh8(i8)=0
vll8(i8)=0
IF vc8(i8-1) <= vax18(i8-1)  AND  vc8(i8) > vax18(i8)  THEN vhh8(i8)=1
IF vc8(i8-1) >= vbx18(i8-1)  AND  vc8(i8) < vbx18(i8) THEN vll8(i8)=1
next

For i8=2 TO LAST
vhk8(i8)=0
vlk8(i8)=0
IF vc8(i8-1) <= vrax18(i8-1)  AND  vc8(i8) > vrax18(i8)  THEN vhk8(i8)=1
IF vc8(i8-1) >= vrbx18(i8-1)  AND  vc8(i8) < vrbx18(i8) THEN vlk8(i8)=1
next

th8=0
tl8=0
kh8=0
kl8=0

For i8=1 TO LAST

IF vhh8(i8)=1 THEN
     th8=1
     tl8=0
END IF
IF th8=1 AND tl8=0 THEN vhl8(i8)=1

IF vll8(i8)=1 THEN
      th8=0
      tl8=1
END IF
  IF tl8=1 AND th8=0 THEN vhl8(i8)=0

next

For i8=1 TO LAST

IF vhk8(i8)=1 THEN
     kh8=1
     kl8=0
END IF
IF kh8=1 AND kl8=0 THEN vhk8(i8)=1

IF vlk8(i8)=1 THEN
      kh8=0
      kl8=1
END IF
  IF kl8=1 AND kh8=0 THEN vhk8(i8)=0

next

ffl.vardata("hl8")=vhl8
ffl.vardata("Kk8")=vhk8
rem ffl.vardata("ll8")=vhl8
rem ffl.vardata("hh8")=vhl8
%>
mm:=IF(hl8=1,bx8,ax8),linethick1,colorblue;
mm1:=IF(hl8=1,bx18,ax18),linethick1,colorgreen;
转mm+mm1)/2,COLORGREEN,linethick1;
PARTLINE(C>=转,转),PRECISION3,linethick1,COLORMAGENTA;
DRAWTEXT(BARSTATUS=2 ,转,'转'+NUMTOSTR(转,3)),COLORFFAA00 ,shift1;