成本1:=cost(95);
成本2:=cost(75);
成本3:=cost(55);
成本4:=cost(35);
成本5:=cost(15);
成本6:=cost(5); aa:=成本1;
散户带上沿:(20*aa+19*ref(aa,1)+18*ref(aa,2)+17*ref(aa,3)+16*ref(aa,4)+15*ref(aa,5)+14*ref(aa,6)
+13*ref(aa,7)+12*ref(aa,8)+11*ref(aa,9)+10*ref(aa,10)+9*ref(aa,11)+8*ref(aa,12)
+7*ref(aa,13)+6*ref(aa,14)+5*ref(aa,15)+4*ref(aa,16)+3*ref(aa,17)+2*ref(aa,18)+
ref(aa,20))/210,colorgreen;
a2:=成本2;
散户带下沿:(20*a2+19*ref(a2,1)+18*ref(a2,2)+17*ref(a2,3)+16*ref(a2,4)+15*ref(a2,5)+14*ref(a2,6)
+13*ref(a2,7)+12*ref(a2,8)+11*ref(a2,9)+10*ref(a2,10)+9*ref(a2,11)+8*ref(a2,12)
+7*ref(a2,13)+6*ref(a2,14)+5*ref(a2,15)+4*ref(a2,16)+3*ref(a2,17)+2*ref(a2,18)+
ref(a2,20))/210,colorgreen;
a3:=成本3;
主力带上沿:(20*a3+19*ref(a3,1)+18*ref(a3,2)+17*ref(a3,3)+16*ref(a3,4)+15*ref(a3,5)+14*ref(a3,6)
+13*ref(a3,7)+12*ref(a3,8)+11*ref(a3,9)+10*ref(a3,10)+9*ref(a3,11)+8*ref(a3,12)
+7*ref(a3,13)+6*ref(a3,14)+5*ref(a3,15)+4*ref(a3,16)+3*ref(a3,17)+2*ref(a3,18)+
ref(a3,20))/210,coloryellow;
a4:=成本4;
主力带下沿:(20*a4+19*ref(a4,1)+18*ref(a4,2)+17*ref(a4,3)+16*ref(a4,4)+15*ref(a4,5)+14*ref(a4,6)
+13*ref(a4,7)+12*ref(a4,8)+11*ref(a4,9)+10*ref(a4,10)+9*ref(a4,11)+8*ref(a4,12)
+7*ref(a4,13)+6*ref(a4,14)+5*ref(a4,15)+4*ref(a4,16)+3*ref(a4,17)+2*ref(a4,18)+
ref(a4,20))/210,coloryellow;
a5:=成本5;
底部上沿:(20*a5+19*ref(a5,1)+18*ref(a5,2)+17*ref(a5,3)+16*ref(a5,4)+15*ref(a5,5)+14*ref(a5,6)
+13*ref(a5,7)+12*ref(a5,8)+11*ref(a5,9)+10*ref(a5,10)+9*ref(a5,11)+8*ref(a5,12)
+7*ref(a5,13)+6*ref(a5,14)+5*ref(a5,15)+4*ref(a5,16)+3*ref(a5,17)+2*ref(a5,18)+
ref(a5,20))/210,colorblue;
a6:=成本6;
底部下沿:(20*a6+19*ref(a6,1)+18*ref(a6,2)+17*ref(a6,3)+16*ref(a6,4)+15*ref(a6,5)+14*ref(a6,6)
+13*ref(a6,7)+12*ref(a6,8)+11*ref(a6,9)+10*ref(a6,10)+9*ref(a6,11)+8*ref(a6,12)
+7*ref(a6,13)+6*ref(a6,14)+5*ref(a6,15)+4*ref(a6,16)+3*ref(a6,17)+2*ref(a6,18)+
ref(a6,20))/210,colorblue;
FILLRGN(散户带上沿 ,散户带下沿 ,c>0),colorgreen;
FILLRGN(主力带上沿 ,主力带下沿 ,c>0),coloryellow;
FILLRGN(底部上沿 ,底部下沿 ,c>0),colorblue; a:=(3*c+o+l+h)/6;
dkxa:(5*a+4*ref(a,1)+3*ref(a,2)+2*ref(a,3)+ref(a,5))/15,LINETHICK2,colorwhite;
dkxb:(20*a+19*ref(a,1)+18*ref(a,2)+17*ref(a,3)+16*ref(a,4)+15*ref(a,5)+14*ref(a,6)
+13*ref(a,7)+12*ref(a,8)+11*ref(a,9)+10*ref(a,10)+9*ref(a,11)+8*ref(a,12)
+7*ref(a,13)+6*ref(a,14)+5*ref(a,15)+4*ref(a,16)+3*ref(a,17)+2*ref(a,18)+
ref(a,20))/210,LINETHICK2,colorred; STICKLINE(c>o ,o,c,8,1),colorred;
STICKLINE(cSTICKLINE(c>o ,h,c,1,0),colorred;
STICKLINE(cSTICKLINE(c>o ,l,o,1,0),colorred;
STICKLINE(c
|
