Asig 2c Exponential Growth
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Asig 2c Exponential Growth as PDF for free.
More details
- Words: 67
- Pages: 1
Sharon M. Boschetti-Medina 801-01-0907 FISI 3011 Prof. Baretti
Asignación # 2
c exponential growth //example population growthdP/dt = lambda*P c e.g. lambda ~ -107 /years lambda ~ 1 /time real lambda lambda=.02 kount=5 kprint=kount p0=1.e9 tscale=1./lambda dt=tscale/100 tf=2.*tscale nstep=int(tf/dt) print 100 , 0., p0 do 10 i=1,nstep t=dt*float(i) p1=p0+dt*lambda*p0 if(i.eq.kprint)then print 100 , t , p1 kprint=kprint + kount endif p0=p1 10 continue 100 format(2x,'t,Poblacion(Billones)=',2(6x,e11.6)) stop end
Asignación # 2
c exponential growth //example population growthdP/dt = lambda*P c e.g. lambda ~ -107 /years lambda ~ 1 /time real lambda lambda=.02 kount=5 kprint=kount p0=1.e9 tscale=1./lambda dt=tscale/100 tf=2.*tscale nstep=int(tf/dt) print 100 , 0., p0 do 10 i=1,nstep t=dt*float(i) p1=p0+dt*lambda*p0 if(i.eq.kprint)then print 100 , t , p1 kprint=kprint + kount endif p0=p1 10 continue 100 format(2x,'t,Poblacion(Billones)=',2(6x,e11.6)) stop end
Related Documents
Asig 2c Exponential Growth
November 2019 10
Model Exponential Growth
April 2020 12
Asig Hbsc2103
July 2020 7
2c
June 2020 18
2c
November 2019 22