時刻において、戸の農家からなる集団がのがすんごくいい技術を導入しようとしている、とする。そこから、ちょっとした期間において、導入しようとする新たな農家は
:すでに導入した農家
:まだ導入していない農家
に比例して増えると考えられる。ここで、をある定数とすると
とすると、これはロジスティクス方程式で、これを解くと
t <- 0:100 N <- 1000 a <- 0.0002 x0 <- 1 intro <- (N * x0 * exp(a * N * t))/(N - x0 + x0 * exp(a * N * t)) / N plot(intro, xlab="time", ylab="introduced family")
ここでは、技術革新の導入は農家間でのやり取りに限る、とした。
現代社会ではインターネットやらテレビやらマスコミがいるので、この影響を加味してみる。
マスコミによって導入を考えるのは、新しい技術を導入していない農家なので、ある定数を用いて
だけさらに増加する。
となり、農家間で伝搬するより早く飽和する。
#上のスクリプトから続き。 b <- 0.0001 mass_media <- (N*(a*x0+b)*exp((a*N+b)*t)-b*(N-x0))/(a*(N-x0)+(a*x0+b)*exp((a*N+b)*t)) / N matplot(cbind(intro, mass_media), cex=0.5, pch=1, xlab="time", ylab="introduced family") legend(0, 1, c("interactive model", "mass media model"), col=1:2, pch=16)