Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
untitled
#R version 3.4.4 library(deSolve) #初期条件 D1=1 D2=1.5 #パラメータ a=0.005 b=0.004 c=0.001 N=1 #計算回数 steps=3000 #初期条件、パラメータ、微分方程式を必要な形に準備 y <- c(D1=D1,D2=D2) parms <- c(a=a,b=b,c=c,N=N) times <- seq(0, steps, 1) model <- function(time, y, parms) { with(as.list(c(y, parms)), { #微分方程式 dD1 <- a - b*D1 - c*N*D2 dD2 <- a - b*D2 - c*N*D1 list(c(dD1,dD2)) }) } #解いてグラフ表示 out <- ode(y,times,model,parms) plot(out)
run
|
edit
|
history
|
help
0
Polynomial Regression with Interaction Terms
G
sinimona
AjusteLinearizado
Ch. 5: Cookie Chip Sampling
rungeefeito
jcruet_crickets and temp
PUP LDA
jessray
Teste