a:=maxcyc;
上成本:1.1*a,color00ff00;
下成本:0.91*a,color00ff00;
牛熊线:a,colorwhite,pointdot;
stickline(a>ref(a,1),a,ref(a,1),4,0),colorred;
stickline(a<=ref(a,1),a,ref(a,1),4,0),color00ff00;
获利线:1.21*a,coloryellow,linethick2;
弱庄线:0.826*a,coloryellow,linethick2;
高控线:1.357*a,color0099ff;
超跌线:0.704*a,colorff00ff;
acdp:=(h+l+2*c)/4;
aa:=acdp*vol;
smx:=SUM(aa,0)/SUM(vol,0);
生命线:smx,pointdot,colorwhite; {无穷周期成本线,某视为生命线}
stickline(smx>ref(smx,1),smx,ref(smx,1),4,0),colorred,linethick3; {红色表示在上行}
stickline(smx<=ref(smx,1),smx,ref(smx,1),4,0),color00ff00,linethick3;{ 绿色表示在下行}
ZDF:=(C-REF(C,1))/REF(C,1)*100;
STICKLINE(ZDF>9.8,O,C,6,0),COLORRED; {涨停时为实心红色K线}
STICKLINE(ZDF<-9.8,O,C,6,0),COLORBLUE; {跌停时为蓝色实心K线}
202108211146.jpg
|