请问这个公式怎么用mathematica 3d画图画图？请把编程语言发给我谢谢，

来源：蜘蛛抓取(WebSpider) 时间：2018-06-18 13:50 标签： mathematica 画图比例
如果函数为f[t_]=cos[t],t的范围是(0,0.00002),我想间隔0.取值，用mathematica应该怎么写啊，谢谢_百度知道
如果函数为f[t_]=cos[t],t的范围是(0,0.00002),我想间隔0.取值，用mathematica应该怎么写啊，谢谢
我有更好的答案
这个我可以做的,
很简单，循环。
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。在mathematica中如何实现简单的公式推导？急求，谢谢！_百度知道
在mathematica中如何实现简单的公式推导？急求，谢谢！
matlab中如下公式推导程序在mathematica中如何编程实现？
matlab中的程序如下：
1. gradationEi
function[Ei]=gradationEi(d,c1)
EM=24.83855;
nM=54.14688;
EV=2.44846;
nV=442.4779;
E0=(EM*nM*(EV+nV*s)*s)/(EM*EV+(nM*EV+EM*(nM+nV))*s+n...
我有更好的答案
(*公式推导程序在mathematica中的程序如下：1. *) gradationEi[d_, c1_] := Module[{EM = 24.83855,
nM = 54.14688,
EV = 2.44846,
nV = 442.4779, s, E0, v0 = 0.4, K0, u0, E1 = 40000, v1 = 0.2, K1,
u1, p0m, q0, a = 0.001, q0m, K, u(*,E2*)},
E0 = (EM*nM*(EV + nV*s)*s)/(EM*EV + (nM*EV + EM*(nM + nV))*s + nM*nV*s^2);
K0 = E0/(3*(1 - 2*v0/s));
u0 = E0/(2*(1 + v0/s));
K1 = E1/(3*(1 - 2*v1)*s);
u1 = E1/(2*(1 + v1)*s);
p0m = K0/(3*K0 + 4*u0);
q0 = 3*(K0 + 2*u0)/(5*(3*K0 + 4*u0));
q0m = q0 + 12*a*u0*q0*(1 - 2*q0)/(5*d);
K = K0 + (c1*K0*(K1 - K0))/(K0 + 3*p0m*(1 - c1)*(K1 - K0));
u = u0 + (c1*u0*(5*d*(u1 - u0) - 12*a*u0*u1))/(5*d*u0 +
10*d*q0m*(1 - c1)*(u1 - u0) + 12*c1*a*u0*u1);Simplify[9*K*u/(3*K + u)]]dg = 0.001*{16, 13.2, 9.5, 4.75, 2.36};c1g = {0, 0...2297};Eg = ConstantArray[0, 5];For[ j = 1, j &= 5, j++, Eg[[j]] = gradationEi[dg[[j]], c1g[[j]] ]]P1 = 1; P2 = 0.975; P3 = 0.70; P4 = 0.35; P5 = 0.275;Egg = 0.5*((Eg (1) + Eg (2))*(P1 - P2) + (Eg (2) + Eg (3))*(P2 -
P3) + (Eg (3) + Eg (4))*(P3 - P4) + (Eg (4) + Eg (5))*(P4 -P5))
采纳率：80%
为您推荐：
其他类似问题
mathematica的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。高分悬赏！用mathematica求解二阶微分方程数值解，回答满意另有加分。谢谢！_百度知道
高分悬赏！用mathematica求解二阶微分方程数值解，回答满意另有加分。谢谢！
用mathematica求解如下二阶微分方程的数值解A*y(x)=y''(x)/{{1+[y'(x)]^2}^(3/2)}+y'(x)/{{1+[y'(x)]^2}^(1/2)}其中A＝134708。边界条件: 1) y'(0)=0; 2) y'(0.005)=cot58 (58是角度)
x={0, 0.005}, 步长是0.0001求y的数值解 即当x＝0是y等于多少；x＝0.0001时y的值；x＝0.0002时y的值；以此类推......一直求解到当x＝0.005时y的值。用mathematica求解此二阶微分方程的数值解和画图，求程序代码！！不好意思上面方程写错了，应该是下边这个：A*y(x)=y''(x)/{{1+[y'(x)]^2}^(3/2)}+y'(x)/{x*{1+[y'(x)]^2}^(1/2)}
In[1]:=s&=&NDSolve[{134708*y[x]&==&&&&&y''[x]/(1&+&(y'[x])^2)^1.5&+&y'[x]/(1&+&(y'[x])^2)^0.5,&&&&y'[0]&==&0,&y'[0.005]&==&Cot[58*\[Pi]/180]},&y,&{x,&0,&0.005}]Plot[Evaluate[y[x]&/.&s],&{x,&0,&0.005},&PlotRange&-&&All]
谢谢你！不好意思，原题的方程我写错了，方程右边第二项的分母上要再乘以x，这样就解不出结果。A*y(x)=y''(x)/{{1+[y'(x)]^2}^(3/2)}+y'(x)/{x*{1+[y'(x)]^2}^(1/2)}麻烦你再试一下看看有没有什么办法解决。
esol = Block[{\[Epsilon] = $MachineEpsilon},
NDSolve[{134708*y[x] ==
y''[x]/(1 + (y'[x])^2)^1.5 + y'[x]/(x*(1 + (y'[x])^2)^0.5),
y'[\[Epsilon]] == 0, y'[0.005] == Cot[58*\[Pi]/180]},
y, {x, \[Epsilon], 0.005}]]Plot[Evaluate[y[x] /. esol], {x, 0.0}, PlotRange -& All]
采纳率：64%
来自团队：
给你用mathematica求解微分方程的命令，你试试可以计算不？Dlove[{微分方程，初始条件或边界条件}，y[x],x]你可以用这个命令试着计算一下，本人忙两三天就有时间给你解决这个问题了，留给你一个联系方式：希望对你有所帮助！
谢谢！我已经给你的邮箱发信了，请查收。
为您推荐：
其他类似问题
二阶微分方程的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。用mathematica软件编写牛顿-科特斯公式遇到的问题，请高手指教，谢谢！_百度知道
用mathematica软件编写牛顿-科特斯公式遇到的问题，请高手指教，谢谢！
NC[f_, {x_, a_, b_}, n_] :=
Module[{Z = b - a, C},
C = Product[(t - j)/(k - j), {j, 0, n, 1}];
Z*Sum[1/n*Q*(f /. x -&k), {k, 0, n}]]
-------------------------上面函数中C表达式有问题，不知道如何表达-------------------------
C式中，分...
这里的第二页和第三页就是你的公式吧，怎么感觉有点区别啊？你这函数最后要输出啥啊？另，Newton-Cotes算法在mathematica里是有内建函数的：&& NumericalDifferentialEquationAnalysis`NewtonCotesWeights[n,a,b]NewtonCotesError[n,f,a,b]具体请参看：NumericalDifferentialEquationAnalysis/tutorial/\NumericalDifferentialEquationAnalysis（把上面一串放到软件帮助页面的地址栏里回车。）
采纳率：86%
为您推荐：
其他类似问题
mathematica的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。请大家帮我画一个mathematica动态图，谢谢了_百度知道
请大家帮我画一个mathematica动态图，谢谢了
sin[x],在0到2 Pi的图像，它的在每个x点上的切线不断变化，我不管怎么想总是画不出来，希望大家帮帮我，谢谢了！
pic = Plot[Sin[x], {x, 0, 2 \[Pi]}];Manipulate[ Show[pic, Graphics[{PointSize[0.02], Black, Point[{x0, Sin[x0]}]}],
Plot[Cos[x0] (x - x0) + Sin[x0], {x, 0, 2 \[Pi]}, PlotStyle -& Red],
PlotRange -& {-2, 2}], {x0, 0, 2 \[Pi]}]
太感谢了，希望以后不懂的能再问你
采纳率：70%
为您推荐：
其他类似问题
mathematica的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 mathematica 画图比例 的文章

 

随机推荐