{周K線}
HH:=AA.H1#WEEK,LINETHICK;
LL:=AA.L1#WEEK,LINETHICK;
CC:=AA.C1#WEEK,LINETHICK;
OO:=AA.O1#WEEK,LINETHICK;
ZQ:=CURRBARSCOUNT<90;{設(shè)置日MACD顯示周期數(shù)為最后90天}
P:=91;{設(shè)定從倒數(shù)第150根K線開始顯示周MACD}
Q:=40;{設(shè)定周周MACD顯示周期數(shù)為40周}
P1:=135;{設(shè)定從倒數(shù)第135根K線開始顯示月MACD}
Q1:=20;{設(shè)定月MACD顯示周期數(shù)為20個(gè)月}
P30:=157;
Q30:=20;
ZK:=BOLL.BOLL#WEEK;ZD:=BOLL.UB#WEEK;ZJ:=BOLL.LB#WEEK;
YK:=BOLL.BOLL#MONTH;YD:=BOLL.UB#MONTH;YJ:=BOLL.LB#MONTH;
ZQZ:=TOTALBARSCOUNT;
ZQ1:=BARSCOUNT(C);
KX1:=ZQZ-ZQ1;{周K線顯示開始位置按倒數(shù)K線數(shù)計(jì)算}
N1:=KX1;{周K線顯示開始位置}
K6:=AA.DT1#WEEK;{周K線周期}
K7:=K6>REF(K6,1);{周K線更后}
K8:=SUM(K7,0);{當(dāng)前周K線位置}
K9:=CONST(K8)-K8;
ZH:=ISLASTBAR;
SU:=IF(ZH,0,SUMBARS(K7,N1-K9)-1);
Z1:=REF(ZK,SU);Z2:=REF(ZD,SU);Z3:=REF(ZJ,SU);
Z11:=REFX(Z1,P);Z22:=REFX(Z2,P);Z33:=REFX(Z3,P);
W2:=KX1 C1:=REF(CC,SU);O1:=REF(OO,SU);H1:=REF(HH,SU);L1:=REF(LL,SU);
RC:=REFX(C1,P);RO:=REFX(O1,P);RH:=REFX(H1,P);RL:=REFX(L1,P);
TJ4:=RC>=REF(RC,1); TJ5:=RC STICKLINE(W2 AND TJ4,RH,RL,0,0),COLOR0080FF;
STICKLINE( W2 AND TJ5,RH,RL,0,0),COLORFF8000;
STICKLINE(W2 AND TJ4,RC,RO,3,0),COLOR0080FF;
STICKLINE( W2 AND TJ5,RC,RO,3,0),COLORFF8000;
周中軌:IF(W2,Z11,DRAWNULL),COLORWHITE;
周上軌:IF(W2,Z22,DRAWNULL),COLORYELLOW,LINETHICK1;
周下軌:IF(W2,Z33,DRAWNULL),COLORMAGENTA;
KK6:=AA.DT1#MONTH;
KK7:=KK6>REF(KK6,1);
KK8:=SUM(KK7,0);
KK9:=CONST(KK8)-KK8;
SU1:=IF(ZH,0,SUMBARS(KK7,KX1-KK9)-1);
Y1:=REF(YK,SU1);Y2:=REF(YD,SU1);Y3:=REF(YJ,SU1);
Y11:=REFX(Y1,P1);Y22:=REFX(Y2,P1);Y33:=REFX(Y3,P1);
W22:=KX1 月中軌:IF(W22,Y11,DRAWNULL),COLORWHITE;
月上軌:IF(W22,Y22,DRAWNULL),COLORYELLOW,LINETHICK1;
月下軌:IF(W22,Y33,DRAWNULL),COLORRED;
{月K線}
HH1:=AA.H1#MONTH,LINETHICK;
LL1:=AA.L1#MONTH,LINETHICK;
CC1:=AA.C1#MONTH,LINETHICK;
OO1:=AA.O1#MONTH,LINETHICK;
C11:=REF(CC1,SU1);O11:=REF(OO1,SU1);H11:=REF(HH1,SU1);L11:=REF(LL1,SU1);
RC1:=REFX(C11,P1);RO1:=REFX(O11,P1);RH1:=REFX(H11,P1);RL1:=REFX(L11,P1);
TJ41:=RC1>=REF(RC1,1); TJ51:=RC1 STICKLINE(W22 AND TJ41,RH,RL,0,0),COLOR0080FF;
STICKLINE( W22 AND TJ51,RH,RL,0,0),COLORFF8000;
STICKLINE(W22 AND TJ41,RC,RO,3,0),COLOR0080FF;
STICKLINE( W22 AND TJ51,RC,RO,3,0),COLORFF8000;
中:IF(ZQ,BOLL.BOLL,DRAWNULL);
上:IF(ZQ,BOLL.UB,DRAWNULL);
下:IF(ZQ,BOLL.LB,DRAWNULL);
STICKLINE(ZQ AND C STICKLINE(ZQ AND C>=O,H,L,0,0),COLORRED;
STICKLINE(ZQ AND C STICKLINE(ZQ AND C>=O,C,O,3,1),COLORRED;
DRAWTEXT(KX1=P+Q-2,BOLL.BOLL,’周’);
DRAWTEXT(KX1=P1+Q1-2,BOLL.BOLL,’月’);