通达信k线同图月周日主图选股指标公式源码

通达信k线同图月周日主图选股指标公式源码

源码正文：

第一步，建立一个引用公式“001引用”（ 引用公式不单独使用）
C1:C{XG51};
O1:O{XG51};
H1:H{XG51};
L1:L{XG51};
第二步，导入本公式
◆月周日k线同图◆
WC:="001引用.C1#WEEK"LINETHICK0{XG51};
WO1:=IF(WEEkdAY<REF(WEEKDAY,1),O,DRAWNULL){XG51};
WO:=HHV(WO1,WEEKDAY),LINETHICK0{XG51};
WH:=HHV(H,WEEKDAY),LINETHICK0{XG51};
WL:=LLV(L,WEEKDAY),LINETHICK0{XG51};
MC:="001引用.C1#MONTH"LINETHICK0{XG51};
MO1:=IF(DAY<REF(DAY,1),O,DRAWNULL){XG51};
MO:=HHV(MO1,DAY),LINETHICK0{XG51};
A:=DAY<REF(DAY,1){XG51};
B:=BArslAst(A)+1{XG51};
MH:=HHV(H,B),LINETHICK0{XG51};
ML:=LLV(L,B),LINETHICK0{XG51};
STICKLINE(MC>=MO,MO,MC,4,0),COLOR5CA8FD{XG51};
STICKLINE(MC<MO,MO,MC,4,0),COLOR008B00{XG51};
STICKLINE(WC>=WO,WO,WC,4,0),COLOR003399{XG51};
STICKLINE(WC<WO,WO,WC,4,0),COLOR993300{XG51};
GJ:=(C+H+L+O)/4{XG51};
明日阻力:=L+(GJ-L)+(C-L),LINETHICK0{XG51};
明日支撑:=L+(C-GJ),LINETHICK0{XG51};
今日阻力:IF(ISLASTBAR,REF(明日阻力,1),DRAWNULL),POINTDOT,LINETHICK4,COLORmaGENTA{XG51};
今日支撑:IF(ISLASTBAR,REF(明日支撑,1),DRAWNULL),POINTDOT,LINETHICK4,COLORLIMAGENTA{XG51};
DRAWKLINE(H,O,L,C){XG51};
MA5:MA(CLOSE,5){XG51};
MA10:MA(CLOSE,10){XG51};
MA30:MA(CLOSE,30){XG51};
MA60:MA(CLOSE,60){X!G-5^1!C!N!{};