# ある集合に順序があり # その部分集合を全体集合に定まった順序でソートしたい my.sort.subset <- function(subset,setorder){ loc <- rep(0,length(subset)) for(i in 1:length(loc)){ loc[i] <- which(setorder==subset[i]) } ord <- order(loc) return(…

2次元平面に単調増加な観測点があるとする 事情があって、この点を結んだ折れ線には垂直な部分と水平な部分とが、それなりに頻発しているものとする まずはそのような点を適当に作ってみる Np<-20 x<-runif(Np) y<-runif(Np) Ndup<-10 x<-c(x,sample(x,Ndup,…

こちらで車両ソート問題における車両の移動をHakellで一般的に取り扱うことを試してみた この問題は「ソート」の問題である では、いわゆる「１次元配列のソート」と同じ枠組みで考えて、「１次元ソートと車両ソートとを同じルール」で取り扱うことを考えた…