那你可以参考画K线的写法。
c1:= close;
o1:= open;
h1:= high;
l1:= low;
ma20:ma(c,20);
if c>ma(c,20) then begin
kred:STICKLINE( c1>o1,c1 ,o1, 10,1 ,colorred);//空心实体
kred1:STICKLINE( c1>o1,h1 ,max(c1,o1), 0,1 ,colorred);//上引线
kred2:STICKLINE( c1>o1,min(c1,o1) ,l1, 0,1 ,colorred);//下引线
kgreen:STICKLINE( c1<=o1,c1 ,o1, 10,1 ,colorgreen);//实心实体
kgreen1:STICKLINE( c1<=o1,h1 ,max(c1,o1), 0,1 ,colorgreen);
kgreen2:STICKLINE( c1<=o1,min(c1,o1) ,l1, 0,1 ,colorgreen);
end
if c<ma(c,20) then begin
kred3:STICKLINE( c1>o1,c1 ,o1, 10,0 ,colorred);//空心实体
kred4:STICKLINE( c1>o1,h1 ,max(c1,o1), 0,0 ,colorred);//上引线
kred5:STICKLINE( c1>o1,min(c1,o1) ,l1, 0,0 ,colorred);//下引线
kgreen3:STICKLINE( c1<=o1,c1 ,o1, 10,0 ,colorgreen);//实心实体
kgreen4:STICKLINE( c1<=o1,h1 ,max(c1,o1), 0,0 ,colorgreen);
kgreen5:STICKLINE( c1<=o1,min(c1,o1) ,l1, 0,0 ,colorgreen);
end