
等级: 新手上路
- 注册:
- 2021-8-3
- 曾用名:
|
{参数} N:=15;
SHOWATRZD:=1:
SHOWATRZK:=1;
SHOWATR:=1:
{主线}
MAN:=MA(C.N)COLORWHITELINETHICK4POINTDOT IF(MAN>REF(MAN1)MANDRAWNULL)COLORRED.LINET HICK4,POINTDOT;
IF(MAN>REF(MAN.1)MANDRAWNULL)COLORREDLINET HICK1;
IF(MAN=REF(MAN1)MANDRAWNULL)COLORWHITELIN ETHICK4POINTDOT
IF(MAN=REF(MAN,1),MAN,DRAWNULL),COLORWHITE,LIN ETHICK1;
IF(MAN<REF(MAN.1)MANDRAWNULL)COLORGREEN,LIN ETHICK1:
IF(MAN<REF(MAN1)MANDRAWNULL)COLORGREEN,LIN ETHICK4POINTDOT
{ATR}
MTR:=MAX(MAX((HIGH-LOW)ABS(REF(C1)-HIGH))ABS(R EF(C1)-LOW));
ATR:MA(MTRN),NODRAW;
ZD:=IF(SHOWATRZD=1H-2*ATR,DRAWNULL)COLORRED: ZK:=IF(SHOWATRZK=1,L+2*ATR,DRAWNULL)COLORGREB N;
{ATR轨道中轨}
IF(MAN>REF(MAN1)MANDRAWNULL)COLORRED,LINET HICK4POINTDOT
IF(MAN>REF(MAN1)MANDRAWNULL)COLORRED,LINET HICK1:
IF(MAN=REF(MAN1)MANDRAWNULL)COLORWHITE.LIN ETHICK4POINTDOT:
IF(MAN=REF(MAN.1)MANDRAWNULL).COLORWHITE.LIN ETHICK1:
IF(MAN<REF(MAN.1)MANDRAWNULL)COLORGREEN.LIN ETHICK1:
IF(MAN<REF(MAN,1)MANDRAWNULL),COLORGREEN,LIN ETHICK4,POINTDOT:
{ATR轨道下轨}
下轨:MAN-ATRNODRAW:
IF(下轨>REF(下轨1)ANDSHOWATR=1下轨DRAWNULL),C OIOREFOOFELINETHICK4POINTDOT:
IF(下轨=REF(下轨1)ANDSHOWATR=1下轨DRAWNULL).C OLORYELLOWLINETHICK4POINTDOT
F(下轨<REF(下轨1)ANDSHOWATR=1下轨DRAWNULL).C OLORBLUE,LINETHICK4POINTDOT:
{ATR轨道上轨}
上轨:MAN+ATRNODRAW:
IF(上轨>REF(上轨1)AND SHOWATR=1,上轨DRAWNULL).C OLORRED,LINETHICK4POINTDOT
IF(上轨=REF(上轨1)ANDSHOWATR=1.上轨DRAWNULL).C OLORYELLOWLINETHICK4POINTDOT:
IF(上轨<REF(上轨1)ANDSHOWATR=1上轨DRAWNULL).O OLORGREENLINETHICK4POINTDOT
DG:=C>LLV(上轨,N)AND MAN>=REF(MAN,1) KG:=C<HHV(下轨N)ANDMAN<=REE(MAN1)
DRAWICON(BARSLAST(KG)<REF(BARSLAST(DG)1)AND DG AND REF(DG.1)!=1.H*1.002.1)
DRAWICON(BARSLAST(DG)<REF(BARSLAST(KG)1)AND KG AND REF(KG1)!=1,L*0.998.2) |
|