FORTRAN90程序设计x05微分方程求解问题意大利生物学家Ancona曾致力于鱼类种群相互制约关系的研究,他从第一次世界大战期间,地中海各港口捕获的几种鱼类捕获量百分比的资料中,发现鲨
1人问答
问题描述：
FORTRAN90程序设计
x05微分方程求解问题
意大利生物学家Ancona曾致力于鱼类种群相互制约关系的研究,他从第一次世界大战期间,地中海各港口捕获的几种鱼类捕获量百分比的资料中,发现鲨鱼的比例有明显增加.为了反映在没有人工捕获的自然环境中食饵与捕食者之间的制约关系,建立一个食饵—捕食者系统的数学模型如下：
dx1/dt=x1*(r1-λ1*x2)
dx2/dt=x2*(-r2+λ2*x1)
①x1(t),x2(t)分别是食饵、捕食者（鲨鱼）在t时刻的数量；
②r1,r2是食饵、捕食者的固有增长率；
③λ1是捕食者掠取食饵的能力,λ2是食饵对捕食者的供养能力；
给定一组具体数据求解.
食饵：r1=1,λ1=0.1,x1(0)=25；
捕食者(鲨鱼)：r2=0.5,λ2=0.02,x2(0)=2；
绘制食饵和鲨鱼数量随时间的变化情况图.
郭武回答：
ProgramMain
ImplicitNone
Integer::i,iCount
iCount=0
Doi=351,432
If(Mod(i,3)/=0.And.(Mod(i,8)/=0))then
iCount=iCount+1
EndIf
EndDo
Write(*,*)iCount
EndProgramMain
其它推荐
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它
邮箱： 