借花献佛★副图公式★周 k 线★ 建一指标名为OCHL，原码为 ND1970:=(YEAR-1970)*365+INTPART((YEAR-1972)/4)-IF(INTPART(YEAR/4)=YEAR/4,1,0)+DAY+(MONTH-1)*30+IF(MONTH<=8,INTPART(MONTH/2),INTPART((MONTH-7)/2)+4)-IF(MONTH>2 AND INTPART(YEAR/4)=YEAR/4,1,IF(MONTH>2 AND NOT(INTPART(YEAR/4)=YEAR/4),2,0)); C1:C; O1:REF(O,BARSLAST(ND1970-REF(ND1970,1)>WEEKDAY-REF(WEEKDAY,1))); H1:HHV(H,BARSLAST(ND1970-REF(ND1970,1)>WEEKDAY-REF(WEEKDAY,1))+1); L1:LLV(L,BARSLAST(ND1970-REF(ND1970,1)>WEEKDAY-REF(WEEKDAY,1))+1); 再建一指标，名为周K线副图，原码为： WO1:="OCHL.O1#WEEK"; WC:="OCHL.C1#WEEK"; WH:="OCHL.H1#WEEK"; WL:="OCHL.L1#WEEK"; K1:=WO1=REF(WO1,1) AND WC=REF(WC,1) AND WH=REF(WH,1) AND WL=REF(WL,1); K3:=REF(C,1)=DYNAINFO(3) AND O=DYNAINFO(4) AND C=DYNAINFO(7) AND H=DYNAINFO(5) AND L=DYNAINFO(6); DD:=REF(BARSLAST(K1=0)+1,1),LINETHICK0; DD1:=CROSS(BACKSET((K1=0 OR K3) AND DD=5,4),0.5),NODRAW; DD2:=CROSS(BACKSET((K1=0 OR K3) AND (DD=4 OR DD=3),3),0.5),NODRAW; DD3:=CROSS(BACKSET((K1=0 OR K3) AND DD<=2,2),0.5),LINETHICK0; BK1:=DD1 OR DD2 OR DD3; BK2:=CROSS(BACKSET(K1=0,2),0.5); BK3:=CROSS(BACKSET(K1=0 AND REF(K1=0,1),2),0.5); WO:IF(BARSLAST(K1=0)=0,O,REF(O,BARSLAST(K1=0))),NODRAW; 五:MA(C,25); 十:MA(C,50); 二十:MA(C,100),COLORRED; K0:=WC>WO OR (WC=WO AND WC>REF(WC,BARSLAST(K1=0)+1)); STICKLINE(K0 AND BK1,WH,WC,0,0),COLORLIMAGENTA; STICKLINE(K0 AND BK1,WO,WL,0,0),COLORLIMAGENTA; STICKLINE(K0 AND K1=0,WC,WO,0,0),COLORLIMAGENTA; STICKLINE(K0 AND (BK2 OR K3),WC,WO,0,0),COLORLIMAGENTA; STICKLINE(K0 AND ((K1 AND BK2=0 AND K3=0) OR BK3),WC,WC,8,1),COLORLIMAGENTA; STICKLINE(K0 AND ((K1 AND BK2=0 AND K3=0) OR BK3),WO,WO,8,1),COLORLIMAGENTA; STICKLINE(NOT(K0) AND BK1,WH,WO,0,0),COLORCYAN; STICKLINE(NOT(K0) AND BK1,WC,WL,0,0),COLORCYAN; STICKLINE(NOT(K0) AND K1=0,WC,WO,0,0),COLORCYAN; STICKLINE(NOT(K0) AND (BK2 OR K3),WC,WO,0,0),COLORCYAN; STICKLINE(NOT(K0) AND ((K1 AND BK2=0 AND K3=0) OR BK3),WC,WC,8,1),COLORCYAN; STICKLINE(NOT(K0) AND ((K1 AND BK2=0 AND K3=0) OR BK3),WO,WO,8,1),COLORCYAN; |
