36 lines
907 B
R
Executable File
36 lines
907 B
R
Executable File
N<-1000
|
|
t0<-0
|
|
tN<-600
|
|
h<-(tN-t0)/N
|
|
alpha1<-1/14
|
|
alpha2<-1/6
|
|
alpha3<-1/4
|
|
f<-30
|
|
miu1<-0.0025
|
|
miu2<-0.004
|
|
miu3<-0.0028
|
|
ro<-0.0068
|
|
pi<-50
|
|
L<-0.00165
|
|
d<-0.008
|
|
k<-0.0008
|
|
H<-c(1:N)
|
|
J<-c(1:N)
|
|
A<-c(1:N)
|
|
R<-c(1:N)
|
|
for (i in 1:N) {H[i+1]<-H[i]+h*(alpha3*f*A[i]*R[i]-(alpha1+miu1)*J[i])
|
|
J[i+1]<-J[i]+h*(alpha1*H[i]-(alpha2+miu2)*J[i])
|
|
A[i+1]<-A[i]+h*(alpha2*J[i]*R[i]-alpha3*d*A[i])
|
|
R[i+1]<-R[i]+h*(ro*R[i]*(1-pi*R[i])-L*J[i]*R[i]-d*A[i]*R[i]-k*R[i])}
|
|
N<-H+J+A
|
|
plot(N,ylim=c(0,max(N)),type='l',xlab="Tiempo(horas)",ylab="Densidad Poblacional")
|
|
lines(H,lwd=2,col="green")
|
|
lines(J,lwd=2,col="brown")
|
|
lines(A,lwd=2,col="blue")
|
|
title("Dinámica poblacional del nematodo en la raíz")
|
|
text(800,30, labels = "Adulto", col = "blue")
|
|
text(800,40, labels = "Juveniles", col = "brown")
|
|
text(800,50, labels = "Huevos", col = "green")
|
|
text(800,60, labels = "Total", col = "black")
|
|
|