指南針云帶(飛狐源碼)
a0:=BARSCOUNT(c);a3:=SYSPARAM(3);a2:=SYSPARAM(2);
a4:=SYSPARAM(4);a5:=SYSPARAM(5);
nn0:=a3-a2;nn:=a0-a2;hh1:=(a4-a5)/8;
hh2:=hh1/4;
ll1:=llv(l,nn0);ll2:=ll1[a3];
y0:=a0>=a2;vv0:=if(y0=1 and SYSPARAM(1)>=a0,v,0);
c1:=if(BETWEEN(c,a4-0*hh1,a4-1*hh1),vv0,0);
c2:=if(BETWEEN(c,a4-1*hh1,a4-2*hh1),vv0,0);
c3:=if(BETWEEN(c,a4-2*hh1,a4-3*hh1),vv0,0);
c4:=if(BETWEEN(c,a4-3*hh1,a4-4*hh1),vv0,0);
c5:=if(BETWEEN(c,a4-4*hh1,a4-5*hh1),vv0,0);
c6:=if(BETWEEN(c,a4-5*hh1,a4-6*hh1),vv0,0);
c7:=if(BETWEEN(c,a4-6*hh1,a4-7*hh1),vv0,0);
c8:=if(BETWEEN(c,a4-7*hh1,a4-8*hh1),vv0,0);
c9:=if(BETWEEN(c,a4-8*hh1,a4-9*hh1),vv0,0);
c10:=if(BETWEEN(c,a4-9*hh1,a4-10*hh1),vv0,0);
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,nn0),0),2)),LINETHICK;
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,nn0),0),2));
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,nn0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,nn0),0),2));
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,nn0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,nn0),0),2));
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,nn0),0),2));
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,nn0),0),2));
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,nn0),0),2));
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,nn0),0),2));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
x1:=v1/av0>=nn/nn0 and nn>=0;
x3:=v3/av0>=nn/nn0 and nn>=0;
x5:=v5/av0>=nn/nn0 and nn>=0;
x7:=v7/av0>=nn/nn0 and nn>=0;
FILLRGN(v1/av0>=nn/nn0 and nn>=0,a4-0*hh1,a4-1*hh1+hh1*0.5),color666666;
FILLRGN(v2/av0>=nn/nn0 and nn>=0,a4-1*hh1,a4-2*hh1+hh1*0.5),color666666;
FILLRGN(v3/av0>=nn/nn0 and nn>=0,a4-2*hh1,a4-3*hh1+hh1*0.5),color666666;
FILLRGN(v4/av0>=nn/nn0 and nn>=0,a4-3*hh1,a4-4*hh1+hh1*0.5),color666666;
FILLRGN(v5/av0>=nn/nn0 and nn>=0,a4-4*hh1,a4-5*hh1+hh1*0.5),color666666;
FILLRGN(v6/av0>=nn/nn0 and nn>=0,a4-5*hh1,a4-6*hh1+hh1*0.5),color666666;
FILLRGN(v7/av0>=nn/nn0 and nn>=0,a4-6*hh1,a4-7*hh1+hh1*0.5),color666666;
FILLRGN(v8/av0>=nn/nn0 and nn>=0,a4-7*hh1,a4-8*hh1+hh1*0.5),color666666;
{陰柱}
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR009900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00;
{紅柱}
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLORFFBBFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLORFF00FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLORFF22FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLORFF44FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLORFF66FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLORFF88FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLORFF99FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLORFFAAFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLORFFBBFF;
SSL:CLOSE,LINETHICK;
上限:a4,LINETHICK;
間距:HH1,LINETHICK;
DRAWNUMBER(FILTER(refx(x10,10),a4,a4-0*hh1,2),COLORCYAN;
DRAWNUMBER(FILTER(refx(x30,10),(a4-2.7*3*hh2),a4-2*hh1,2),COLORCYAN;
DRAWNUMBER(FILTER(refx(x50,10),(a4-3.2*5*hh2),a4-4*hh1,2),COLORCYAN;
DRAWNUMBER(FILTER(refx(x70,5),10),ll2+1.1*7*hh2,a4-6*hh1,2),COLORCYAN;
ema17:ema(c,17);
ema50:ema(c,50);
ema144:ema(c,144);
飛狐行情軟件調(diào)出云帶方法
飛狐行情軟件調(diào)出云帶方法:
飛狐行情軟件-成本分析-- 成本分布設(shè)置--三角形分布--歷史換手衰減系數(shù)--改為0.1--應(yīng)用--確定
衰減系數(shù)小了所有歷史的籌碼就顯示出來了!
SSL與籌碼分布指標(biāo)(原碼)
說明:由于指南針指標(biāo)體系缺少相應(yīng)功能的函數(shù),這兩個指標(biāo)是在飛狐上實現(xiàn)的。
SSL
a0:=BARSCOUNT(c);a3:=SYSPARAM(3);a2:=SYSPARAM(2);
a4:=SYSPARAM(4);a5:=SYSPARAM(5);
nn0:=a3-a2;nn:=a0-a2;hh1:=(a4-a5)/10;
y0:=a0>=a2;vv0:=if(y0=1 and SYSPARAM(1)>=a0,v,0);
c1:=if(BETWEEN(c,a4-0*hh1,a4-1*hh1),vv0,0);
c2:=if(BETWEEN(c,a4-1*hh1,a4-2*hh1),vv0,0);
c3:=if(BETWEEN(c,a4-2*hh1,a4-3*hh1),vv0,0);
c4:=if(BETWEEN(c,a4-3*hh1,a4-4*hh1),vv0,0);
c5:=if(BETWEEN(c,a4-4*hh1,a4-5*hh1),vv0,0);
c6:=if(BETWEEN(c,a4-5*hh1,a4-6*hh1),vv0,0);
c7:=if(BETWEEN(c,a4-6*hh1,a4-7*hh1),vv0,0);
c8:=if(BETWEEN(c,a4-7*hh1,a4-8*hh1),vv0,0);
c9:=if(BETWEEN(c,a4-8*hh1,a4-9*hh1),vv0,0);
c10:=if(BETWEEN(c,a4-9*hh1,a4-10*hh1),vv0,0);
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,nn0),0),2));
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,nn0),0),2));
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,nn0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,nn0),0),2));
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,nn0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,nn0),0),2));
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,nn0),0),2));
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,nn0),0),2));
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,nn0),0),2));
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,nn0),0),2));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
FILLRGN(v1/av0>=nn/nn0 and nn>=0,a4-0*hh1,a4-1*hh1+0.05),colorgray;
FILLRGN(v2/av0>=nn/nn0 and nn>=0,a4-1*hh1,a4-2*hh1+0.05),colorgray;
FILLRGN(v3/av0>=nn/nn0 and nn>=0,a4-2*hh1,a4-3*hh1+0.05),colorgray;
FILLRGN(v4/av0>=nn/nn0 and nn>=0,a4-3*hh1,a4-4*hh1+0.05),colorgray;
FILLRGN(v5/av0>=nn/nn0 and nn>=0,a4-4*hh1,a4-5*hh1+0.05),colorgray;
FILLRGN(v6/av0>=nn/nn0 and nn>=0,a4-5*hh1,a4-6*hh1+0.05),colorgray;
FILLRGN(v7/av0>=nn/nn0 and nn>=0,a4-6*hh1,a4-7*hh1+0.05),colorgray;
FILLRGN(v8/av0>=nn/nn0 and nn>=0,a4-7*hh1,a4-8*hh1+0.05),colorgray;
FILLRGN(v9/av0>=nn/nn0 and nn>=0,a4-8*hh1,a4-9*hh1+0.05),colorgray;
FILLRGN(v10/av0>=nn/nn0 and nn>=0,a4-9*hh1,a4-10*hh1+0.05),colorgray;
STICKLINE(c>=o,c,o,9,1),colorred;
STICKLINE(c>=o,l,o,0.1,0),colorred;
STICKLINE(c>=o,c,h,0.1,0),colorred;
STICKLINE(c
STICKLINE(c< P>
籌碼分布
variable: pv[21]=1;//定義每個價格元內(nèi)的累計換手率數(shù)組
n:=sysparam(3)-sysparam(1)+1;//光標(biāo)k線到最后可見k線的k線數(shù)
nh1:=hhv(h,n);
nl1:=llv(l,n);
nh:=nh1[sysparam(3)]-nl1[sysparam(3)];//n周期內(nèi)的高低價之差
nllv:=nl1[sysparam(3)];//n周期內(nèi)的最低價
dp:=nh/20;//價格元
hsl:=5*vol/capital*100;//換手率
fh:=high;
fl:=low;
for i=sysparam(3) downto sysparam(1) do begin
end;
STICKLINE(barpos=sysparam(3),hhv(h,n),llv(l,n),2,0),SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n),0,n,1),SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+0.5*dp,0,pv[1],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+1.5*dp,0,pv[2],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+2.5*dp,0,pv[3],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+3.5*dp,0,pv[4],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+4.5*dp,0,pv[5],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+5.5*dp,0,pv[6],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+6.5*dp,0,pv[7],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+7.5*dp,0,pv[8],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+8.5*dp,0,pv[9],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+9.5*dp,0,pv[10],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+10.5*dp,0,pv[11],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+11.5*dp,0,pv[12],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+12.5*dp,0,pv[13],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+13.5*dp,0,pv[14],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+14.5*dp,0,pv[15],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+15.5*dp,0,pv[16],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+16.5*dp,0,pv[17],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+17.5*dp,0,pv[18],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+18.5*dp,0,pv[19],1),COLORGRAY,SHIFT1;
drawsl(barpos=sysparam(3),llv(l,n)+19.5*dp,0,pv[20],1),COLORGRAY,SHIFT1;
{★移動籌碼}
DRAWGBK(C,COLORRGB(90,10,10),COLORRGB(90,10,10),0);
nn0:=SYSPARAM(3)-SYSPARAM(2);
nn:=BARSCOUNT(c)-SYSPARAM(2);
hh1:=(SYSPARAM(4)-SYSPARAM(5))/10;
y0:=BARSCOUNT(c)>=SYSPARAM(2);
vv0:=if(y0=1 and SYSPARAM(1)>=BARSCOUNT(c),v,0);
c1:=if(BETWEEN(c,SYSPARAM(4)-0*hh1,SYSPARAM(4)-0.5*hh1),vv0,0);
c2:=if(BETWEEN(c,SYSPARAM(4)-0.5*hh1,SYSPARAM(4)-1*hh1),vv0,0);
c3:=if(BETWEEN(c,SYSPARAM(4)-1*hh1,SYSPARAM(4)-1.5*hh1),vv0,0);
c4:=if(BETWEEN(c,SYSPARAM(4)-1.5*hh1,SYSPARAM(4)-2*hh1),vv0,0);
c5:=if(BETWEEN(c,SYSPARAM(4)-2*hh1,SYSPARAM(4)-2.5*hh1),vv0,0);
c6:=if(BETWEEN(c,SYSPARAM(4)-2.5*hh1,SYSPARAM(4)-3*hh1),vv0,0);
c7:=if(BETWEEN(c,SYSPARAM(4)-3*hh1,SYSPARAM(4)-3.5*hh1),vv0,0);
c8:=if(BETWEEN(c,SYSPARAM(4)-3.5*hh1,SYSPARAM(4)-4*hh1),vv0,0);
c9:=if(BETWEEN(c,SYSPARAM(4)-4*hh1,SYSPARAM(4)-4.5*hh1),vv0,0);
c10:=if(BETWEEN(c,SYSPARAM(4)-4.5*hh1,SYSPARAM(4)-5*hh1),vv0,0);
c11:=if(BETWEEN(c,SYSPARAM(4)-5*hh1,SYSPARAM(4)-5.5*hh1),vv0,0);
c12:=if(BETWEEN(c,SYSPARAM(4)-5.5*hh1,SYSPARAM(4)-6*hh1),vv0,0);
c13:=if(BETWEEN(c,SYSPARAM(4)-6*hh1,SYSPARAM(4)-6.5*hh1),vv0,0);
c14:=if(BETWEEN(c,SYSPARAM(4)-6.5*hh1,SYSPARAM(4)-7*hh1),vv0,0);
c15:=if(BETWEEN(c,SYSPARAM(4)-7*hh1,SYSPARAM(4)-7.5*hh1),vv0,0);
c16:=if(BETWEEN(c,SYSPARAM(4)-7.5*hh1,SYSPARAM(4)-8*hh1),vv0,0);
c17:=if(BETWEEN(c,SYSPARAM(4)-8*hh1,SYSPARAM(4)-8.5*hh1),vv0,0);
c18:=if(BETWEEN(c,SYSPARAM(4)-8.5*hh1,SYSPARAM(4)-9*hh1),vv0,0);
c19:=if(BETWEEN(c,SYSPARAM(4)-9*hh1,SYSPARAM(4)-9.5*hh1),vv0,0);
c20:=if(BETWEEN(c,SYSPARAM(4)-9.5*hh1,SYSPARAM(4)-10*hh1),vv0,0);
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,nn0),0),2));
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,nn0),0),2));
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,nn0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,nn0),0),2));
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,nn0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,nn0),0),2));
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,nn0),0),2));
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,nn0),0),2));
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,nn0),0),2));
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,nn0),0),2));
v11:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c11,nn0),0),2));
v12:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c12,nn0),0),2));
v13:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c13,nn0),0),2));
v14:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c14,nn0),0),2));
v15:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c15,nn0),0),2));
v16:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c16,nn0),0),2));
v17:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c17,nn0),0),2));
v18:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c18,nn0),0),2));
v19:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c19,nn0),0),2));
v20:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c20,nn0),0),2));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,max(v10,max(V11,max(V12,max(V13,max(V14,max(V15,max(V16,max(V17,max(V18,max(V19,V20)))))))))))))))))));
FILLRGN(v1/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-0*hh1,SYSPARAM(4)-0.5*hh1+0.05),ColorF16085;
FILLRGN(v2/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-0.5*hh1,SYSPARAM(4)-1*hh1+0.05),Color008591;
FILLRGN(v3/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-1*hh1,SYSPARAM(4)-1.5*hh1+0.05),ColorF16085;
FILLRGN(v4/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-1.5*hh1,SYSPARAM(4)-2*hh1+0.05),Color008591;
FILLRGN(v5/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-2*hh1,SYSPARAM(4)-2.5*hh1+0.05),ColorF16085;
FILLRGN(v6/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-2.5*hh1,SYSPARAM(4)-3*hh1+0.05),Color008591;
FILLRGN(v7/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-3*hh1,SYSPARAM(4)-3.5*hh1+0.05),ColorF16085;
FILLRGN(v8/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-3.5*hh1,SYSPARAM(4)-4*hh1+0.05),Color008591;
FILLRGN(v9/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-4*hh1,SYSPARAM(4)-4.5*hh1+0.05),ColorF16085;
FILLRGN(v10/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-4.5*hh1,SYSPARAM(4)-5*hh1+0.05),Color008591;
FILLRGN(v11/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-5*hh1,SYSPARAM(4)-5.5*hh1+0.05),ColorF16085;
FILLRGN(v12/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-5.5*hh1,SYSPARAM(4)-6*hh1+0.05),Color008591;
FILLRGN(v13/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-6*hh1,SYSPARAM(4)-6.5*hh1+0.05),ColorF16085;
FILLRGN(v14/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-6.5*hh1,SYSPARAM(4)-7*hh1+0.05),Color008591;
FILLRGN(v15/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-7*hh1,SYSPARAM(4)-7.5*hh1+0.05),ColorF16085;
FILLRGN(v16/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-7.5*hh1,SYSPARAM(4)-8*hh1+0.05),Color008591;
FILLRGN(v17/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-8*hh1,SYSPARAM(4)-8.5*hh1+0.05),ColorF16085;
FILLRGN(v18/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-8.5*hh1,SYSPARAM(4)-9*hh1+0.05),Color008591;
FILLRGN(v19/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-9*hh1,SYSPARAM(4)-9.5*hh1+0.05),ColorF16085;
FILLRGN(v20/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-9.5*hh1,SYSPARAM(4)-10*hh1+0.05),Color008591;
stickline(c>=o,c,o,6.6,1),colorff;
stickline(c>=o,l,o,0.1,0),colorff;
stickline(c>=o,c,h,0.1,0),colorff;
stickline(c
stickline(c