| 

 等级: 新手上路 
注册: 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)
 | 
 |