日周月空心柱K线同显
//n=2,2,100//c1:="001.c1#week";
o1:="001.o1#week";
h1:="001.h1#week";
l1:="001.l1#week";
c2:="001.c1#MONTH";
o2:="001.o1#MONTH";
h2:="001.h1#MONTH";
l2:="001.l1#MONTH";
t1:=DAY=15 OR DAY=16 OR DAY=17 OR DAY=18 OR DAY=19
OR DAY=20 OR DAY=21 OR DAY=22 OR DAY=23 OR DAY=24;
t2:=FILTER(t1,10);
d:=DAY;
YQ:=if(D<REF(D,1),DAY,-1);
YD:=if(D>REFX(D,1),DAY,-1);
yj:=(c2>o2 or c2=o2 and c2>ref(c2,day));
STICKLINE(t2 and yj,h2,c2,10,1)color3F7CFF;
STICKLINE(t2 and yj,l2,o2,10,1)color3F7CFF;
STICKLINE(t2 and not(yj),h2,o2,10,1)ColorF38593;
STICKLINE(t2 and not(yj),l2,c2,10,1)ColorF38593;
partline(D>REF(D,1)and yj ,c2)color3F7CFF;
partline(D>REF(D,1)and not(yj),C2)ColorF38593;
partline(D>REF(D,1)and yj ,O2)color3F7CFF;
partline(D>REF(D,1)and not(yj) ,O2)ColorF38593;
stickline(YQ>0 and yj,c2,o2,0.5,0)color3F7CFF;
stickline(YD>0 and yj,c2,o2,0.5,0)color3F7CFF;
stickline(YQ>0 and not(yj),c2,o2,0.5,0)ColorF38593;
stickline(YD>0 and not(yj),c2,o2,0.5,0)ColorF38593;
STICKLINE(t2 and yj,c2+(h2-c2)/n,o2-(o2-l2)/n,9.9,0)COLORBLACK;
STICKLINE(t2 and not(yj),c2-(c2-l2)/n,o2+(h2-o2)/n,9.9,0)COLORBLACK;
Z:=WEEKDAY;
Zd1:=if(Z>REF(Z,1),WEEKDAY,1);
ZQa:=if(Zd1<REF(Zd1,1),date,0);
T:=BARSLAST(ZQa)+1;
Zql:=LLV(DATE,T)LINETHICK0;
Zmh:=HHV(DATE,T)LINETHICK0;
ts1:=DATEDIFF(ZQl,Zmh)+1;
ts2:=if(ts1<7,ts1,1);
ts3:=BARSLAST(ts2<ref(ts2,1))+1;
z1:=min(ts1,ts3);
ZQa:=if(Z1<REF(Z1,1) ,z1,-1);
ZDa:=if(Z1>REFX(Z1,1),z1,-1);
zj:=(c1>o1 or c1=o1 and c1>ref(c1,z1));
partline(z1>REF(Z1,1)and zj,C1)Color9973FD,linethick2;
partline(Z1>REF(Z1,1)and zj,O1)Color9973FD,linethick2;
partline(Z1>REF(Z1,1)and not(zj),C1)Color9DFC48,linethick2;
partline(Z1>REF(Z1,1)and not(zj),O1)Color9DFC48,linethick2;
stickline(ZQa>0and zj,c1,o1,0.5,0)Color9973FD,linethick2;
stickline(ZDa>0and zj,c1,o1,0.5,0)Color9973FD,linethick2;
stickline(ZQa>0and not(zj),c1,o1,0.5,0)Color9DFC48,linethick2;
stickline(ZDa>0and not(zj),c1,o1,0.5,0)Color9DFC48,linethick2;
rj:=(c>o or c=o and c>ref(c,1));
stickline(rj,h,l,0.1,1),colorred;
stickline(rj,c,o,8,1),colorred;
stickline(not(rj),h,l,0.1,0),colorcyan;
stickline(not(rj),c,o,8,0),colorcyan;
ma5:ma(c,5);
ma10:ma(c,10);
ma30:ma(c,30);
ma60:ma(c,60);
谢谢楼主分享 看帖顶帖,礼貌拿分!
页:
[1]