MATHEMATICA数学实验的问题

fzww20462022-10-04 11:39:542条回答

MATHEMATICA数学实验的问题
.假设有一种传染病,任何人得病后,在传染期内不会死亡,且最初设有m人患病,每个人年平均传染率为k ,治愈率为i,若一年内等时间间隔检测n次,则一年后患病人数为多少?若检测次数无限增加,一年后传染病人数会无限增加吗?
利用MATHEMATICA 5.0做的

已提交，审核后显示！提交回复

多利亚共回答了17个问题 | 采纳率100%: [m(1+k/n)](1-i)第一次检查后得病的
m(1+k/n)^2(1-i)^2第二次检查后得病的
m(1+k/n)^n(1-i)^n第n次检查后得病的
m(1+k/n)是指本来患病的和被传染的
(1-i)没有治愈的概率
n检测次数每检测一次就会治疗吧.; 1年前

fanglei0001 共回答了12个问题 | 采纳率91.7%: 后面忘了回答当然不会啊,; 1年前

三道Mathematica数学实验题
三道mathematica数学实验题
一、已知f(x)=arctanx ,给出f(x) 的20次麦克老林多项式（要求写出的mathematica程序,展示运行结果）.二、一个筒仓a 由xy 平面上的半径为3的直圆柱与半径为5的球面构成,计算a 的体积v .要求：(1) 做出a 的图形；(2) 写出计算a 体积的mathematica程序; (3) 求出v 的值.三、英***口学家马尔萨斯（malthus,1766-1834）根据百余年的人口统计资料,于1798年提出了人口指数增长模型.基本假设是：单位时间内人口的增长量于当时的人口总数成正比.若已知t=t0 时的人口总数为x0 ,试根据马尔萨斯假设确定出时间t 与人口总数x(t) 之间的函数关系.根据******统计局1999年发表的公报,1999年我***口总数为125909万,过去8年的年人口平均增长率为14.8‰. （1）若今后的年增长率保持这个数字,试用马尔萨斯方程预报2010年***的人口总数.（2）从现在起我***口平均增长率控制在怎样的范围,才能保证***的人口总数50年内不超过14亿. 用mathematica求解如下：

aasp1年前1: 挨踢小瓜呆共回答了24个问题 | 采纳率87.5%

一.程序：Series[ArcTan[x], {x, 0, 20}]
结果：SeriesData[x, 0, {1, 0,
Rational[-1, 3], 0,
Rational[1, 5], 0,
Rational[-1, 7], 0,
Rational[1, 9], 0,
Rational[-1, 11], 0,
Rational[1, 13], 0,
Rational[-1, 15], 0,
Rational[1, 17], 0,
Rational[-1, 19]}, 1, 21, 1]
---------------------------------------------------------------------------------------------------------
第二问描述图形没看懂
-------------------------------------------------------------------------------
模型：DSolve[{x'[t] == a x[t]}, x[t], t]
{{x[t] -> E^(a t) C[1]}},代入边界条件 x[t0]=x0,所以 x[t]=x0*exp[a t]
(1)x[t_] := Subscript[x, 0] Exp[a t];
Subscript[x, 0] = 1.25909*10^9;
a = 14.8*10^-3;
t = 2010 - 1999;
x[t]
j结果1.4817*10^9
（2）Clear[a]
NSolve[x[50] == 1.4*10^9, a]；
{{a -> 0.00212166}}

1年前查看全部

Mathematica数学实验!观察f(x)=cos x的各阶泰勒展开的图形. Mathematica数学实验!观察f(x)=cos x的各阶泰勒展开的图形. 我今天搞了一个下午了，实在不行了~ 我们根本没上过Mathematica的课，叫我怎么写啊~ 星星gg1年前1: DinOKain 共回答了16个问题 | 采纳率81.3%

首先构造一个距阵f,存入各阶泰勒展开的表达式:
我在这令m=10;就是说,最多展开到10,你自己可以随意更改,其他的不用变动
下面是代码,直接粘贴到notebook里 ,按组合键shift +ctrl 运行.
m = 10; f = Range[m]*0;
For[ii = 1,ii ≤ m,ii++,f[[ii]] = Normal[Series[Cos[x],{x,0,ii}]]];
Plot[Evaluate[{Cos[x],f}],{x,-2π,2π},AxesLabel -> {x,y}];

1年前查看全部

MATHEMATICA数学实验的问题

共2条回复

相关推荐

大家在问