博易大師公式如何改成通達信上面可以用的

發現未來函數SMA!

發現未來函數BACKSET!

含有多組未來函數，請謹慎使用！

{========狀態交易========}

Y:= (H+L)/2;

AO:=MA(Y,5)-MA(Y,34);

MAO:=MA(AO,5);

AC:=AO-MAO;

{========鱷魚組線========}

AA:=IF(BARSCOUNT(Y)>=6,SMA(Y,5,1),MA(Y,6));

BB:=IF(BARSCOUNT(Y)>=9,SMA(Y,8,1),MA(Y,9));

CC:=IF(BARSCOUNT(Y)>=14,SMA(Y,13,1),MA(Y,14));

R1:=REF(SMA(Y,8,1),5);

R2:=IF(C<R1,0,R1);

R3:=IF(C>R1,0,R1);

{========用羅列法尋找分形========}

A:=H;

A1:=REF(H,1);

A2:=REF(H,2);

A3:=REF(H,3);

A4:=REF(H,4);

A5:=REF(H,5);

A6:=REF(H,6);

A7:=REF(H,7);

A8:=REF(H,8);

B:=L;

B1:=REF(L,1);

B2:=REF(L,2);

B3:=REF(L,3);

B4:=REF(L,4);

B5:=REF(L,5);

B6:=REF(L,6);

B7:=REF(L,7);

B8:=REF(L,8);

FF1:=A2>A1 AND A2>A AND A2>A3 AND A2>A4;

FF2:=A3=A2 AND A2>A1 AND A2>A AND A2>A4 AND A2>A5;

FF3:=A4=A3 AND A3=A2 AND A2>A1 AND A2>A AND A2>A5 AND A2>A6;

FF4:=A2=A4 AND A2>A1 AND A2>A AND A2>A3 AND A2>A5 AND A2>A6;

FF44:=A2=A3 AND A2=A4 AND A2=A5 AND A2>A1 AND A2>A AND A2>A6 AND A2>A7;

FF5:=A6=A4 AND A4=A2 AND A2>A1 AND A2>A AND A2>A7 AND A2>A8 AND A2>A3 AND A2>A5;

FF6:=B2<B1 AND B2<B AND B2<B3 AND B2<B4;

FF7:=B3=B2 AND B2<B1 AND B2<B AND B2<B4 AND B2<B5;

FF8:=B2=B3 AND B4=B2 AND B2<B1 AND B2<B AND B2<B5 AND B2<B6;

FF9:=B2=B4 AND B2<B1 AND B2<B AND B2<B3 AND B2<B5 AND B2<B6;

FF99:=B2=B3 AND B2=B4 AND B2=B5 AND B2<B1 AND B2<B AND B2<B6 AND B2<B7;

FF10:=B2=B4 AND B2=B6 AND B2<B1 AND B2<B AND B2<B3 AND B2<B5 AND B2<B7 AND B2<B8;

FF11:=FF1 OR FF2 OR FF3 OR FF4 OR FF44 OR FF5;

FF12:=FF6 OR FF7 OR FF8 OR FF9 OR FF99 OR FF10;

FF13:=BACKSET(FF11,3);

FF133:=FILTER(FF13,2);

FF14:=BACKSET(FF12,3);

FF144:=FILTER(FF14,2);

SF:=IF(FF11,A2,REF(A2,BARSLAST(FF11)));

XF:=IF(FF12,B2,REF(B2,BARSLAST(FF12)));

TJ1:=H>SF;

TJ2:=H<REF(H,1) AND REF(H,1)>SF;

TJ3:=L<XF;

TJ4:=L>REF(L,1) AND REF(L,1)<XF;

上分形:IF(TJ1 OR TJ2,0,SF),COLORYELLOW,LINETHICK0;

下分形:IF(TJ3 OR TJ4,0,XF),COLORWHITE,LINETHICK0;

TJ5:=IF(H>SF AND REF(H,1)<=SF,1,0);

TJ52:=IF(H>SF AND REF(H,1)<=SF AND REF(H,2)>SF,0,1);

TJ6:=IF(L<XF AND REF(L,1)>=XF,1,0);

TJ62:=IF(L<XF AND REF(L,1)>=XF AND REF(L,2)<XF,0,1);

STICKLINE(TJ5+TJ52=2 AND SF>R1,SF,1.0001*SF,15,0),COLOR00FF00;

{=========上分形突破標誌，紅色橫線}

STICKLINE(TJ6+TJ62=2 AND XF<R1,XF,0.9999*XF,15,0),COLOR0000FF;

{==========下分形突破標誌，綠色橫線}

P1:MA(CLOSE,18),COLOR808000;

P2:MA(CLOSE,60),COLOR00FF00,LINETHICK5;

AP:=DATE <= 13181231;

工作線:=(EMA(C,14)) * AP;

STICKLINE(((C>=工作線)AND(C>=O)),O,C,4,1),COLORRED;

STICKLINE(((C>=工作線)AND(C<=O)),H,L,0,0),COLOR00FFFF;

STICKLINE(((C>=工作線)AND(C<=O)),O,C,4,0),COLOR00FFFF;

STICKLINE(((C<工作線)AND(C>=O)),O,C,4,0),COLORFFFFFF;

STICKLINE(((C<工作線)AND(C>=O)),H,L,0,0),COLORFFFFFF;

STICKLINE(((C<工作線)AND(C<=O)),O,C,4,0),COLORFFFF00;

H1:MA(CLOSE,18),COLOR00FF00;

TR2:= MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));

AR:= MA(TR,200);

AR1: REF(H1+2.04*AR,3),COLORFF8080,POINTDOT;

AR2: REF(H1-2.04*AR,3),COLORFF8080,POINTDOT;