?

?

?來源:程序化久久網（ www.kzuj.com.cn ）

?

ccl:=openint-ref(openint,1);
c1:=c>ref(c,1) and ccl<0;
stickline(c1,0,ccl,8,0),colorred;
drawtext(c1,ccl,'空頭減倉'),COLORWHITE;
c2:=c>ref(c,1) and ccl>0;
stickline(c2,0,ccl,8,0),colorred;
drawtext(c2,ccl,'空頭加倉'),COLORWHITE;

c3:=c<ref(c,1) and ccl<0;
stickline(c3,0,ccl,8,0),colorgreen;
drawtext(c3,ccl,'多頭減倉'),COLORWHITE;
c4:=c<ref(c,1) and ccl>0;
stickline(c4,0,ccl,8,0),colorgreen;
drawtext(c4,ccl,'空頭加倉'),COLORWHITE;

?

?