Список проголосовавших за комментарий "Igoron, <br/> <p>it<-«sber»</p><p>ff<-read.table(paste0(«data1/»,as.character(it),".txt"),sep=";",header=F)</p><p>dat<-ff[,1]<br/> tim<-ff[,2]/100<br/> opn<-ff[,3]<br/> hgh<-ff[,4]<br/> low<-ff[,5]<br/> cls<-ff[,6]<br/> L<-length(dat)<br/> L<-10000</p><p>dep<-10^9<br/> maxlong<-1*dep<br/> addlong<-0.1<br/> maxshort<-(-1*dep)<br/> addshort<-(-0.1)</p><p>mova<-st<-allpos<-array(0,dim=L)<br/> lng<-sht<-0<br/> pos<-0<br/> m<-60<br/> for(l in m:L) mova[l]<-mean((low[(l-m+1):(l)]+hgh[(l-m+1):(l)])/2)</p><p>for(l in (m+1):L)<br/> {<br/> newpos<-0<br/> if(opn[l]-mova[l]>0.0) if(pos*opn[l]<maxlong) if(tim[l]>1000) if(tim[l]<1839)<br/> {<br/> newpos<-addpos<-floor(min(addlong*dep,maxlong-pos*opn[l])/opn[l])<br/> pos<-pos+addpos<br/> lng<-lng+1<br/> }<br/> if(mova[l]-opn[l]>0.0) if(pos*opn[l]>maxshort) if(tim[l]>1000) if(tim[l]<1839)<br/> {<br/> newpos<-addpos<-floor(max(addshort*dep,maxshort-pos*opn[l])/opn[l])<br/> pos<-pos+addpos<br/> sht<-sht+1<br/> }<br/> if(F) if(tim[l]>=1830) if(pos!=0)<br/> {<br/> newpos<-addpos<-(-pos)<br/> pos<-pos+addpos<br/> }<br/> allpos[l]<-pos#*opn[l]/dep<br/> if(l>1) st[l]<-st[l]+allpos[l-1]*(cls[l]-cls[l-1])<br/> st[l]<-st[l]+newpos*(cls[l]-opn[l])<br/> }</p><p>par(mfcol=c(3,1),mar=c(2,2,2,1))<br/> plot(cls[1:L],type=«l»)<br/> plot(100*cumsum(st)/dep,type=«l»)<br/> plot(allpos,type=«h»)</p><p>print(lng)<br/> print(sht)</p>"