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
As1-1
16-09-2020ExVitorb
Hiring Discrimination
Figura
R
Análise de Variâncias DIC e teste de Tukey 1
practica 2
K
Ex11-03-21EdsonAmanda
Sensitivity to Escitalopram MACE count