aa:=winner(c+c*15/100)*100;
bb:=winner(c+c*0/100)*100;
cc:=aa-bb;
dd:=(winner(c-c*0.1/100)-winner(c-c*15/100))*100;
ee:=cc<3 and dd<0.5 and o<>l;
a1:=dynainfo(6);
a2:=if(l>a1,0,if(h a3:=v/winner(l);
a4:=ref(hhv(c,120),1);
a5:=ref(llv(c,120),1);
a6:=100*(c-a5)/(a4-a5);
a7:=a2>0 or a2=1;
a8:=a7 and a3/ref(a3,3)>=3 and a6<80 ;
a9:=ref(a8,1) or ref(a8,2) or ref(a8,3) or ref(a8,4);
a10:=a8 and a9;
a11:=if(filter(a8,3),5,0);
a12:=if(filter(a10,3) or ee,10,0);
私募機構進場日:stickline(a11,0,5,5,0),colorff7700;
私募機構加倉日:stickline(a12,0,15,5,0),colorff00ff;
stickline(a11,0,5,5,0),colorff7700;
stickline(a11,0,5,4.5,0),colorff8800;
stickline(a11,0,5,4,0),colorff9900;
stickline(a11,0,5,3.5,0),colorffaa00;
stickline(a11,0,5,3,0),colorffbb00;
stickline(a11,0,5,2.5,0),colorffcc00;
stickline(a11,0,5,2,0),colorffdd00;
stickline(a11,0,5,1,0),colorffee00;
stickline(a12,0,15,4.5,0),color102099;
stickline(a12,0,15,4,0),color1020aa;
stickline(a12,0,15,3.5,0),color1020bb;
stickline(a12,0,15,3,0),color1020cc;
stickline(a12,0,15,2.5,0),color1020dd;
stickline(a12,0,15,2,0),color1020ee;
stickline(a12,0,15,1,0),color1020ff;
drawtext(a11,8,’進場’),COLORYELLOW;
drawtext(a12,17,’加倉’),COLORWHITE;