ryamada22 https://blog.hatena.ne.jp/ryamada22/ ryamadaの遺伝学・遺伝統計学メモ https://ryamada22.hatenablog.jp/ R deSolve ロトカ=ヴォルテラ 曲線 曲率 my.Moving.Frame.2 <- function(X,k=length(X[1,])){ n <- length(X[,1]) # No. points d <- length(X[1,]) # Dimension # inter-point distance L <- rep(0,n-1) for(i in 1:(n-1)){ L[i] <- sqrt(sum((X[i,]-X[i+1,])^2)) } diff.X <- list() #diff.X[[1]] <- X diff.X[[1]] <- apply(X,2,diff) diff.L <- list() diff.L[… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20140914%2F1410676826" title="ロトカ=ヴォルテラの向きの分離 - ryamadaの遺伝学・遺伝統計学メモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/r/ryamada22/20140914/20140914154010.jpg Hatena Blog https://hatena.blog 2014-09-14 15:40:26 rich https://ryamada22.hatenablog.jp/entry/20140914/1410676826 1.0 100%