//月 半月 周 日 叠加
input:月(0,0,1),半月(0,0,1),周(0,0,1),日(0,0,1);
TBS:=POW(10,ABS(LOG(MINDIFF)));
BY:=MONTH;YB:=BY-REF(BY,1)<>0 OR BARPOS=1;
w:=BARSLAST(YB),LINETHICK;
dg:=w=0 or ISLASTBAR;
wx:=0*C;
for P=datacount-1 downto lbound(dg) do
if dg[P] then
wx[P]:=0;
else
wx[P]:=wx[P+1]+1;
r:=BACKSET(ISLASTBAR,w+1)-ISLASTBAR;
wx:=refx(wx,1)+r,LINETHICK;
oo:=ref(o,w);
zq1:=BARSLAST(ref(wx,1)=0 or BARPOS=1)+1;//月天数
yt1:=if(zq1=1 and refx(zq1,2)=1,13,if(refx(zq1,1)=1 or zq1=1,7,14));
YEK:=ROUND(OO*TBS)/TBS;
YES:=ROUND(refx(c,wx)*TBS)/TBS;
f:=YES>YEK or (YES=YEK and YES>ref(YES,W));
j:=cross(w,wx);
AS:=月;
月量:=SUM(V,zq1),ColorFFff00,LINETHICK0;
月换手率:=SUM(vol/CAPITAL*100,ZQ1),linethick0,PRECISion2,colorffff00;
STICKLINE(YEK<YES AND AS,0,月量*0.25,YT1,0),COLOReeaaEE;
STICKLINE(YEK>YES AND AS,0,月量*0.25,YT1,0),Color6AA932;
R:=DAY;
RBY:=IF(R<=15,R,R-15);
TY:=RBY;TB:=DATEDIFF(REF(DATE,1),DATE)<>TY-REF(TY,1) OR BARPOS=1;
TW:=BARSLAST(TB),LINETHICK;
Tdg:=TW=0 or ISLASTBAR;
Twx:=0*c;
for P=datacount-1 downto lbound(Tdg) do
if Tdg[P] then
Twx[P]:=0;
else
Twx[P]:=Twx[P+1]+1;
TTr:=BACKSET(ISLASTBAR,Tw+1)-ISLASTBAR;
Twx:=refx(Twx,1)+TTr,LINETHICK;
TQ:=BARSLAST(ref(Twx,1)=0 or BARPOS=1)+1;//N天数
TTo:=ref(o,Tw);
YYK:=ROUND(TTO*TBS)/TBS;
YYS:=ROUND(refx(c,Twx)*TBS)/TBS;
YT:=if(TQ=1 and refx(TQ,2)=1,13,if(refx(TQ,1)=1 or TQ=1,7,14));
YYL:=SUM(V,TQ),ColorFFff00,LINETHICK0;
ss:=半月;
STICKLINE(YYK<=YYS and ss,0,YYL*0.30,YT,0),Color613076;//Color5261EBColor613076
STICKLINE(YYK>=YYS and ss,0,YYL*0.30,YT,0),ColorFA7D32;
BZ:=WEEKDAY;ZB:=DATEDIFF(REF(DATE,1),DATE)<>BZ-REF(BZ,1) OR BARPOS=1;
ZW:=BARSLAST(ZB),LINETHICK;
Zdg:=ZW=0 or ISLASTBAR;
Zwx:=0*c;
for P=datacount-1 downto lbound(Zdg) do
if Zdg[P] then
Zwx[P]:=0;
else
Zwx[P]:=Zwx[P+1]+1;
Zr:=BACKSET(ISLASTBAR,Zw+1)-ISLASTBAR;
Zwx:=refx(Zwx,1)+Zr,LINETHICK;
zq:=BARSLAST(ref(Zwx,1)=0 or BARPOS=1)+1; //星期天数
Zo:=ref(o,Zw);
ZZK:=ROUND(ZO*TBS)/TBS;
ZZS:=ROUND(refx(c,Zwx)*TBS)/TBS;
ZT:=if(zq=1 and refx(zq,2)=1,13,if(refx(zq,1)=1 or zq=1,7,14));
周量:=SUM(V,zq),ColorFFff00,LINETHICK0;
周换手率:=SUM(vol/CAPITAL*100,ZQ),ColorFFff00,LINETHICK0;
ss:=周;
STICKLINE(ZZK<ZZS and ss,0,周量*0.45,ZT,0),Color3547E8,LINEDOT;//Color3547E8//ColorB468FF
STICKLINE(ZZK>ZZS and ss,0,周量*0.45,ZT,0),ColorFDDD32,LINEDOT;
RRL:=DAY;
RRL:=RRL-REF(RRL,1)<>0 OR BARPOS=1;
Rw:=BARSLAST(RRL),LINETHICK;
Rdg:=Rw=0 or ISLASTBAR;
Rwx:=0*C;
for P=datacount-1 downto lbound(Rdg) do
if Rdg[P] then
Rwx[P]:=0;
else
Rwx[P]:=Rwx[P+1]+1;
Rr:=BACKSET(ISLASTBAR,Rw+1)-ISLASTBAR;
Rwx:=refx(Rwx,1)+Rr,LINETHICK;
Roo:=ref(o,Rw);
Rzq1:=BARSLAST(ref(Rwx,1)=0 or BARPOS=1)+1;//N天数
Ryt1:=if(Rzq1=1 and refx(Rzq1,2)=1,13,if(refx(Rzq1,1)=1 or Rzq1=1,7,14));
RRK:=ROUND(ROO*TBS)/TBS;
RRS:=ROUND(refx(c,Rwx)*TBS)/TBS;
AR:=日;
日量:SUM(V,Rzq1),ColorFFff00,LINETHICK0;
STICKLINE(RRK<=RRS AND AR,0,日量*0.5,RYT1,0),ColorD24A92,LINEDOT;//ColorD24A92COLOReeaaEE
STICKLINE(RRK>=RRS AND AR,0,日量*0.5,RYT1,0),Color6AA932,LINED