请老师编写一个持仓异动的幅图指标　[金字塔]

 来源:程序化久久网（ WWW.CXH99.COM ）

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;