HW7 - [1] 73.11904 The population reduced when we changed...

Info iconThis preview shows pages 1–5. Sign up to view the full content.

View Full Document Right Arrow Icon
I: Population dynamics - Logistic Growth model: Question #1 -------R code------ Nt=2; r=0.05; K=10000; DN=r*Nt*(1-Nt/K) Nt1=Nt+r*Nt*(1-Nt/K) population<-c(2) i=2 for ( j in c(1:99)) { Nt1=Nt+r*Nt*(1-Nt/K) population[i]=Nt1 i=i+1 Nt=Nt1 } plot(population) title(main = "Population curve with Nt=2; r=0.05; K=1000;") Nt=2; r=0.05; K=1000; DN=r*Nt*(1-Nt/K) Nt1=Nt+r*Nt*(1-Nt/K) population<-c(2) i=2 for ( j in c(1:99)) { Nt1=Nt+r*Nt*(1-Nt/K) population[i]=Nt1 i=i+1 Nt=Nt1 } Population_at_the_End_Of_100 th _Year_For_K_1000=Nt
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Nt=2; r=0.05; K=100; DN=r*Nt*(1-Nt/K) Nt1=Nt+r*Nt*(1-Nt/K) population<-c(2) i=2 for ( j in c(1:99)) { Nt1=Nt+r*Nt*(1-Nt/K) population[i]=Nt1 i=i+1 Nt=Nt1 } Population_at_the_End_Of_100 th _Year_For_K_100=Nt; Population_at_the_End_Of_100 th _Year_For_K_1000 Population_at_the_End_Of_100 th _Year_For_K_100 ------R Output-------
Background image of page 2
Population_at_the_End_Of_100th_Year_For_K_1000 [1] 202.3481 Population_at_the_End_Of_100th_Year_For_K_100
Background image of page 3

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Background image of page 4
Background image of page 5
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: [1] 73.11904 The population reduced when we changed the value of K from 100o to 100 Question #2-------R code------Nt=1000; r=0.05; K=200; DN=r*Nt*(1-Nt/K) Nt1=Nt+r*Nt*(1-Nt/K) population&lt;-c(1000); i=2 for ( j in c(1:100)) { Nt1=Nt+r*Nt*(1-Nt/K) population[i]=Nt1; i=i+1; Nt=Nt1; } plot(population) title(main = &quot;Population curve with Nt=1000; r=0.05; K=200;&quot;)------R Output---------From the graph, its clear that the saturation will be around 60 years. Question #3-------R code------Nt=6; r=0.019; K=11; Nt1=Nt+r*Nt*(1-Nt/K) population&lt;-c(6) i=2 while (Nt&lt;=10) { Nt1=Nt+r*Nt*(1-Nt/K) population[i]=Nt1 i=i+1 Nt=Nt1 } i Required_Years=i-2 Required_Years Nt--------R Output----------&gt; Required_Years [1] 112 &gt; Nt [1] 10.01653 So the population will be around 10 billion by 1997+112=2109...
View Full Document

Page1 / 5

HW7 - [1] 73.11904 The population reduced when we changed...

This preview shows document pages 1 - 5. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online