Я знаю его просто исправить, но может кто-то пожалуйста, посмотрите на него:Может кто-то проверить мой код, чтобы понять, почему это сообщение выскакивает «Ошибка: не удалось найти функцию„N1“»
a12= 0
a21= 0
K1= 1000
K2= 600
r1= 0.2
r2= 0.1
N1= ((K1 - a12*K2)/(1 - a12*a21))
N2= ((K2 - a21*K1)/(1 - a21*a12))
for(t in 1:80){
N1[t+1]= N1(t) + r1*N1(t)*(K1 - N1 - a12*N2)/K1
N2[t+1]= N2(t) + r2*N2(t)*(K2 - N2 - a21*N1)/K2
}
## Error: could not find function "N1"
Исправленная Код:
N1= rep(0,80)
N2= rep(0,80)
a12= 0
a21= 0
K1= 1000
K2= 600
r1= 0.2
r2= 0.1
N1[1]= ((K1 - a12*K2)/(1 - a12*a21))
N2[1]= ((K2 - a21*K1)/(1 - a21*a12))
for(t in 1:80){
N1[t+1]= N1[t] + r1*N1[t]*(K1 - N1[t] - a12*N2[t])/K1
N2[t+1]= N2[t] + r2*N2[t]*(K2 - N2[t] - a21*N1[t])/K2
}
plot(1:81, N1, type="l", lwd=3, xlab="Time")
lines(1:81, N2, lwd=3, col='red')
Когда я пробежала участки, где я изменил значение a12 и a21 они выглядели как то, что я мог бы ожидать, так как они смоделированы конкурентоспособности между двумя видами.
Три модели я бегу:
no competition- a12=0 a21=0
stable coexistence- a12=0.25 a21=0.1
competitive exclusion- a12=0.25 a21=0.75
Поскольку N1 не определяется как функция, но только значение 1000. – A5C1D2H2I1M1N2O1R2T1
Когда вы размещаете код, пожалуйста, удалите ' > и + ', поэтому его можно запустить без удаления этих элементов. –
Есть ли у вас какие-либо предложения по его устранению. Я пытаюсь запустить модель Lotka-Votera, и это формулы, и это формулы, которые мне нужны для создания моей модели. – Southard