如何用Mathematica软件完成这一道简单的数学题?海洋生物学家发现,当鲨鱼在海水中觉察到血液的存在时,就会沿着血液浓度增加得最快的方向前进去袭击目标,根据在海水中实际测试的结果,如果
来源:学生作业学帮网 编辑:学帮网 时间:2024/06/25 09:38:10
如何用Mathematica软件完成这一道简单的数学题?
海洋生物学家发现,当鲨鱼在海水中觉察到血液的存在时,就会沿着血液浓度增加得最快的方向前进去袭击目标,根据在海水中实际测试的结果,如果以流血目标处作为原点在海面上建立直角坐标系,则在海面上点P (x,y) 处的血液浓度近似等于
f(x)=exp(-((x^2+2y^2)/10^4)),作出鲨鱼袭击目标的前进轨迹(梯度线),你能否写出这个轨迹的函数表达式?
Clear[f]; f[x_, y_] = Exp[(-x^2 - 2*y^2)/10^4] t1 = ContourPlot[f[x, y], {x, -1, 1}, {y, -1, 1}, PlotPoints -> 50, ContourShading -> False] fx[x_, y_] = D[f[x, y], x] fy[x_, y_] = D[f[x, y], y] a = 1; b = 1; lamda = 0.01; Do[u = a + lamda*fx[a, b]/Sqrt[(fx[a, b])^2 + (fy[a, b])^2]; v = b + lamda*fy[a, b]/Sqrt[(fx[a, b])^2 + (fy[a, b])^2]; c[n] = u; d[n] = v; a = u; b = v, {n, 200}] data = Table[{c[n], d[n]}, {n, 200}]; t2 = ListPlot[data] Show[t1, t2] 老公加油!
如何用软件(Mathematica或Maple)画图中的曲面?如何用软件(Mathematica或Maple)画下图中的曲面?
如何用Mathematica作球体
如何用Mathematica软件完成如下数学题目?(肿瘤生长模型) 肿瘤大小V的生长速度与V的a次方成正比,其中a为形状参数,0
如何用Mathematica软件完成这一道简单的数学题?海洋生物学家发现,当鲨鱼在海水中觉察到血液的存在时,就会沿着血液浓度增加得最快的方向前进去袭击目标,根据在海水中实际测试的结果,如果
mathematica解三角方程请问如何用mathematica解这个方程?
分段函数如何用Mathematica求极值
如何用mathematica对隐函数求导
如何用 mathematica 解常微分方程?
如何用 mathematica 生成 1/ f 噪声
CAD,如何用CAD软件延长一直线?
Wolfram Mathematica 8求助Q= k1*(T1 - Ta)/d;Q= k2*(Ta - Tb)/l;Q= k1*(Tb - T2)/d;如何用Wolfram Mathematica 8软件化简,把Ta和Tb消掉得出Q的等式
如何用MATHEMATICA求数列的前n项和
已知一组数据,如何用mathematica模拟函数,并画图
如何用mathematica作出三维的x=2图形
如何用Mathematica求一个方程的反函数
如何用Mathematica编写1+2+3+4.+1000?
怎样使用mathematica软件?
Mathematica是什么软件?