mathematica问题,拉格朗日乘数法计算最大值最小值,
![](images/u2507.png)
mathematica问题,拉格朗日乘数法计算最大值最小值,
求函数f(x,y)=e^(-x*y)在条件x^2+4*y^2=1下的最大值和最小值,使用拉格朗日乘数法...感激不禁。全部分数送上!
求函数f(x,y)=e^(-x*y)在条件x^2+4*y^2=1下的最大值和最小值,使用拉格朗日乘数法...感激不禁。全部分数送上!
已提交,审核后显示!提交回复
共2条回复
闲云2006 共回答了23个问题
|采纳率91.3%- 第一步,先定义2个函数
f[x_,y_] := Exp[-x*y]
ph[x_,y_] := x^2 + 4*y^2 - 1
第二步,根据拉格朗日乘数法,算偏导数,解含有参数L的方程
sol1 = L /.Solve[D[f[x,y],x] + L*D[ph[x,y],x] == 0,L][[1]]
sol2 = L /.Solve[D[f[x,y],y] + L*D[ph[x,y],y] == 0,L][[1]]
第三步,消去L之后,解含有约束条件的方程:
Solve[{sol1 == sol2,ph[x,y] == 0},{x,y}] - 1年前
25742574 共回答了4个问题
|采纳率- 我还是删了吧.
- 1年前
相关推荐
- 用Mathematica如何求解(35/36)^x=1/2方程的.
淡月11年前1
-
jjduandebin 共回答了27个问题
|采纳率96.3%同学,看看帮助吧,或者找本书看看吧,这种的不是Solve就是Reduce:Reduce[(35/36)^x == 1/2, x](* C[1] [Element] Integers && x == -((2 I [Pi] C[1] + Log[2])/(-2 Log[2] - 2 Log[3] + Log[5] + Log[7])) *)...1年前查看全部
- 若a=(3,1,4,7,3,6) 怎么用Mathematica求a中元素的个数啊?
巡逻1年前1
-
polarisangel 共回答了20个问题
|采纳率85%Length[a]1年前查看全部
- 如何用Mathematica实现复合函数的反解?比如,知道g[x]的表达式,知道f[g[x]]的最终表达式子,如何求f[
如何用Mathematica实现复合函数的反解?比如,知道g[x]的表达式,知道f[g[x]]的最终表达式子,如何求f[x]?
在Mathematica上实现身曹心汉1年前1
-
吃井不忘挖水人 共回答了21个问题
|采纳率76.2%得尝试把g(x)反函数求出来吧1年前查看全部
- mathematica中RSolve函数的问题
mathematica中RSolve函数的问题
RT,我写的命令是
RSolve[{x[n + 1] == R^2/(R + r - y[n]),
y[n + 1] == r^2/(R + r - x[n]),x[0] == 0,y[0] == 1},{x[n],y[n]},
n]
,mma直接原样输出,我手解过,解得出来.请问为什么会原样输出呢?开个咖啡屋1年前1
-
sunnylion 共回答了21个问题
|采纳率90.5%Mathematica并不是万能的,有几个方程会解不出来并不是很让人吃惊的事.不过既然你知道这个的正确计算方法,倒是可以考虑用Mathematica辅助计算,加快求解速度.顺便,试了一下,发现R和r里有一个是已知的的话Mathematica的FindSequenceFunction就能找到它的通式,不过连用两次FindSequenceFunction的方法好像行不通……1年前查看全部
- 用Mathematica求解:i=7000000000,i‘(t)=-3*i*(i-2/3),求t值.用Mathemat
用Mathematica求解:i=7000000000,i‘(t)=-3*i*(i-2/3),求t值.用Mathematica怎么写?
飘雨过后1年前1
-
nicktin 共回答了21个问题
|采纳率85.7%i = 7000000000
i' (t) = -3*i*(i - 2/3)
请补充题目完整.1年前查看全部
- 怎么用mathematica算函数的最大值
漫天飞雪男1年前3
-
milan贩子 共回答了15个问题
|采纳率93.3%求数值解的话,FindMaximum[函数表达式,变量]
求精确解,MaxValue[函数表达式,变量]
例如
In[10]:= MaxValue[-2x^2-3x+5,x]
Out[10]= 49/8
和
In[14]:= FindMaximum[Sin[x]+Cos[x],x]
Out[14]= {1.41421,{x->0.785398}}1年前查看全部
- Mathematica中关于Reduce的疑问!
Mathematica中关于Reduce的疑问!
这个问题用Reduce会计算好久都算不出来:
但如果我稍微变一下,就可以马上计算出来了:
请问这是为什么啊?心蓝_WANG1年前3
-
Leon_Fan 共回答了17个问题
|采纳率100%跟涉及三角函数的问题本身较难求解有一定关系,你做的也并不是可逆的变换不是?如果等的够久还是有可能算出来的,到时候你应该会看到一个相当复杂的解.1年前查看全部
- Mathematica如何输入开三次根(不用1/3次方)?
Mathematica如何输入开三次根(不用1/3次方)?
比如这个,用mathematica怎么输入?
zwjgj1年前1
-
xunjing444 共回答了21个问题
|采纳率81%平面输入法或
CubeRoot[5] // TraditionalForm1年前查看全部
- mathematica求解微分方程的数值解,做出图像,
mathematica求解微分方程的数值解,做出图像,
R = 0.008;
Y = 47*2*3.14;
z = 0.18;
m = 0.14;
k = 20;
g = 10;
f = 20;
i = 0.143;
e = 28;
NDSolve[{0.5*m*(R^4 *y[t]^2 *y'[t]^2)/(R*Y^2 + z^2 - R*y[t]^2) +
0.5*i*y'[t]^2 + 0.5*k*(R*Y^2 + z^2 - R*y[t]^2) + 0.5*k*z^2 -
k*z*Sqrt[R*Y^2 + z^2 - R*y[t]^2] + 0.5*f*(y[t] - Y)^2 -
m*g*(Sqrt[R*Y^2 + z^2 - R*y[t]^2] - z) == e,y[0] == 0,
y'[0] == 1},y[t],{t,10}];
Plot[Evaluate[y[t] /.%],{t,0,10}]
这是代码,我用的mathematica 8 看不出错误来.wujilin1年前1
-
依旧来了 共回答了19个问题
|采纳率94.7%NDSolve里的语法错了,是{t,0,10}而不是{t,10};另外对于常微分方程,所需的边界条件数目,为它的最高阶导数的阶数,并且边界的导数阶数要小于方程的阶数.也就是说你这里的条件多了一个,把那个y'[0]==1去掉,并且,你这里的边界给的不合理,所以在计算开始不久就耗尽了全部的积分步长.试了一下也没找到合理的边界条件,你自己试试吧.1年前查看全部
- 一个关于mathematica的问题 f(x)=(x^2-25)/(x-5),令x=2 并且计算f(x)的值,怎么写
一个关于mathematica的问题 f(x)=(x^2-25)/(x-5),令x=2 并且计算f(x)的值,怎么写
用mathematica的标准语言写出来十_三1年前1
-
r6312115 共回答了24个问题
|采纳率87.5%f[x_] := (x^2 - 25)/(x - 5);
f[2]1年前查看全部
- mathematica 中我们可以画出e^t的图像,请问如何解出e^t==1时,t的值
hejian10231年前2
-
心被偷 共回答了22个问题
|采纳率95.5%在实数范围内求解
Reduce[E^t == 1,t,Reals]
在复数范围内求解
Reduce[E^t == 1,t,Complexes]1年前查看全部
- mathematica求轨迹,有一球以10m/s的速度以水平线以45度向斜上方抛去,该球着地后仍保持原方向弹跳,但速度是
mathematica求轨迹,
有一球以10m/s的速度以水平线以45度向斜上方抛去,该球着地后仍保持原方向弹跳,但速度是原来的90%,以后每着地一次,速度都比上次减少10%,求此球在第三次着地前的轨迹.
我知道很简单,但是我不会做囧,求高人赐教……
OTL,我说了用mathematica做
我要的是代码轻轨人生1年前2
-
songwenze1985 共回答了15个问题
|采纳率86.7%x1[t_]=10*Sqrt[2]*t/2;h1[t_]=10*Sqrt[2]*t/2-(1/2)*10*t^2;g1=ParametricPlot[{x1[t],h1[t]},{t,0,Sqrt[2]},AspectRatio->1];x2[t_]=10+0.9*10*Sqrt[2]*t/2; h2[t_]=0.9*10*Sqrt[2]*t/2-(1/2)*10*t^2;g2=...1年前查看全部
- Mathematica提问要怎么才能把下面每个数组里 关于(-1 + c)^3,(-2 + c) (-1 + c) c
Mathematica提问
要怎么才能把下面每个数组里 关于(-1 + c)^3,(-2 + c) (-1 + c) c 等等 这些项的前得系数 归一化 就是Normalize
{{(12.2654[VeryThinSpace]+ 0.[ImaginaryI])(-1 +
c)^3 - (31.3614[VeryThinSpace]-
1.82007*10^-15 [ImaginaryI]) (-2 + c) (-1 +
c) c + (21.6824[VeryThinSpace]-
9.34912*10^-16 [ImaginaryI]) (-3 +
c) c^2},{(11.2147[VeryThinSpace]+ 0.[ImaginaryI]) (-1 +
c)^3 + (55.8626[VeryThinSpace]-
1.31586*10^-15 [ImaginaryI]) (-2 + c) (-1 +
c) c + (19.825[VeryThinSpace]+
2.67534*10^-16 [ImaginaryI]) (-3 + c) c^2},{(-11.2147 -
2.22045*10^-16 [ImaginaryI]) (-1 +
c)^3 + (55.8626[VeryThinSpace]+
4.44089*10^-16 [ImaginaryI]) (-2 + c) (-1 +
c) c - (19.825[VeryThinSpace]+ 0.[ImaginaryI]) (-3 +
c) c^2},{(-12.2654 + 4.44089*10^-16 [ImaginaryI]) (-1 +
c)^3 - (31.3614[VeryThinSpace]+
8.88178*10^-16 [ImaginaryI]) (-2 + c) (-1 +
c) c - (21.6824[VeryThinSpace]+ 0.[ImaginaryI]) (-3 +
c) c^2}}dangerboy261年前1
-
东风破POLO 共回答了17个问题
|采纳率94.1%是这样吗?1年前查看全部
- 帮忙在Mathematica中做10道题.
帮忙在Mathematica中做10道题.
然后截图 把整个过程 给出来...谢谢...我写实验报告...可是自己压根不会用这个软件..也趁这个机会模仿一下..所以需要每个步骤- -
不晓得我表达的清楚不...没有截图的话...打在这里也好...我可以自己复制过去运行...
①设向量a=(1,2,3) ,b=(-2,3,5) 计算a+b,a-b,a.b,a×b
②作函数f(x,y)=x^2 y^2 e^(x^2+y^2)的图形
③绘制螺旋线{x=sin^(-1) , y=cost,t∈(0,8π) ,z=0.1t}
④求f(x,y)=x^2 y^2 e^(x^2+y^2)的所有一阶及二阶偏导数.
⑤方程xsiny+ye^x=0,确定y=y(x),求 dy/dx
⑥利用计算机绘图并求出二重积分∫∫(x^2+y^2)dxdy,D:x^2+y^2≤x.
⑦设y=sin,通过图形方式观察不同阶数的Taylor多项式逼近函数的效果.
⑧求e^2的近似值.(分别用5,10,20阶的Taylor多项式逼近)
⑨求解y'+y=1。
10。求解初值.y''-(y')^2=0,y(0)=0,y'(0)=-1。
OK 觉得如果会用数学那个 Mathematica软件的话应该很快..可是我现在真的不懂...学校突然要我们自己弄..希望好心人帮忙的快些..因为明天要上交...谢谢..我分不多..谢谢
1L 我有在看。。作业没交..但是我也想学..麻烦如果有时间就帮忙把所有的题做完 ..感谢帮助..雪落樱花舞1年前0
-
共回答了个问题
|采纳率
- mathematica 数列1)已知数列x[1]=2,x[n]=(2+(x[n-1])^1/2)^1/2,画数列散点图,
mathematica 数列
1)已知数列x[1]=2,x[n]=(2+(x[n-1])^1/2)^1/2,画数列散点图,列表前30项并求极限
2)已知C[n]的递推关系为 C[0]=C[1]=C[2]=1,n>=2时 C[N+1]=C[N-1]+C[N-2] ,列表前50项quixout1年前3
-
skygardenlemon 共回答了26个问题
|采纳率96.2%1)我的做法:
x[n_] := (2 + x[n - 1]^(1/2))^(1/2);
x[1] = 2;
TableForm[Array[x,30],TableHeadings -> Automatic]
ListPlot[Array[x,30],AxesOrigin -> {0,0},
PlotStyle -> PointSize[0.01],PlotRange -> {-1,3}]
Solve[a == (2 + a^(1/2))^(1/2),a](*设极限为a,则有*)
2)
c[n_] := c[n - 2] + c[n - 3];
c[0] = c[1] = c[2] = 1;
Prepend[Array[c,49],c[0]]
你粘贴 复制 运行一下看看 结果图片我就不传了1年前查看全部
- 请问用mathematica可以解二元递归方程吗?
请问用mathematica可以解二元递归方程吗?
f(n,m)=a1f(n-1,m)+a2f(n+1,m)+a3f(n,m-1)+a4f(n,m+1)+[1-a1-a2-a3-a4]f(n,m)
其中已知f(0,0)=0,f(N,M)=1,n属于(0,N),m属于(0,M)guominsheng151年前1
-
lichenghai1 共回答了15个问题
|采纳率93.3%二元递归方程是可以解的(帮助里可以查到相应的例子),但是你这个解不了.相应的语法是:RSolve[{f[n, m] == a1 f[n - 1, m] + a2 f[n + 1, m] + a3 f[n, m - 1] + a4 f[n, m + 1] + (1 - a1 - a2 - a3 - a4) f[n, m]}, f[n, m], {n, m}]原样返回了.也没什么意外的,递推方程找不到通式的情况并不少见.顺便如果你这个方程是由某个偏微分方程化过来的的话,建议你直接去解微分方程,可能解出来的可能性还大一些.1年前查看全部
- mathematica画图,大家看下这个怎么回事.不应该是锥面x^2+ y^2 -z^2=0吗?
mathematica画图,大家看下这个怎么回事.不应该是锥面x^2+ y^2 -z^2=0吗?
还有,我看书上写的是ContourPlot3D[x^2+y^2-z^2,{x,-3,3},{y,-3,3},{z,-3,3},PlotPoints->{5,6}]
但PlotPoints后不是应该跟数字吗,{5,rgk51年前1
-
月色有声 共回答了15个问题
|采纳率86.7%ContourPlot3D[x^2 + y^2 - z^2 == 0,{x,-3,3},{y,-3,3},{z,-3,3}]
x^2 + y^2 - z^2 == 0 这里要有等于 0,否则就不是一个方程了,跟 x^2 + y^2 - z^2 是不一样的.1年前查看全部
- 急求两篇用mathematica解决的数学建模论文,
lijie3141年前1
-
小鸟ZJQ 共回答了15个问题
|采纳率80%你去找2002年的车灯线光源的那个建模题(安徽大学),就是用mathematica解的,还有百度文库里的《MATHEMATICA在数学建模中的应用》也有具体介绍1年前查看全部
- Mathematica 在已知条件判断不等式是否成立
Mathematica 在已知条件判断不等式是否成立
RT,例如我想判断在条件x>y下,是否有x^2>y^2成立(x,y均为实数),请问应该如何写程序?lkcm1年前1
-
温柔老刀 共回答了18个问题
|采纳率100%Assuming[x > y,{TrueQ[x^2 > y^2](*判断结论是否总是成立*) ,
Simplify[Reduce[x^2 > y^2]](*求x,y应该满足的条件*),
FullSimplify[x^2 > y^2](*需要的条件彻底化简*)}]
结果:{False,x > Abs[y],x + y > 0}1年前查看全部
- mathematica怎样求解不等式组,(41/3 + k > 0,720 - 8k/3 > 0)
huwae1年前0
-
共回答了个问题
|采纳率
- mathematica中如何查看已知函数
mathematica中如何查看已知函数
比如Matlab中的 help sin东方魔主1年前1
-
狮子魔羯 共回答了22个问题
|采纳率90.9%?plot
?plot
都可以查看,后者更详细.1年前查看全部
- 哪位高人能帮忙看看这个Mathematica如何实现呢?
哪位高人能帮忙看看这个Mathematica如何实现呢?
是这样的,这样一个函数y=x+1,自变量x是
Range[1,4],我想画出y=x+1直线,然后在给定每个对应自变量Range[1,4]的(x,y)处画一个红色的小圆标示这个点,我该如何实现呢
Graphics[Circle /@Inner[List,Range[1,4],(# + 1) & /@ Range[1,4],List],这个倒是画出了对应的圆,但是我没法加上直径大小和颜色呀,豆豆鼠爱1年前1
-
婉莹001 共回答了14个问题
|采纳率85.7%这个我可以做的,http://hi.baidu.com/ggggwhw/blog/item/1ed2d35d5130b95efaf2c07b.html1年前查看全部
- Mathematica画一个函数的曲线图,
Mathematica画一个函数的曲线图,
式中a,b,c,d都是常数,J1(x)是第一类一介贝塞尔函数,这样的一个公式能画出曲线图吗?
Mathematica怎么做.ld1881611年前1
-
羞貓小仙女 共回答了19个问题
|采纳率94.7%1年前查看全部
- mathematica中用FindArgMin求极值,但变量数目可变,怎么设置FindArgMin中参数?
mathematica中用FindArgMin求极值,但变量数目可变,怎么设置FindArgMin中参数?
FindArgMin中设置搜索起始点,为:
FindArgMin[F,{{p[1],0},{p[2],0},{p[3],0},{p[4],0},{p[5],0}}]
但因为参数的具体个数是根据最初设定的,不一定是5个,设置为kmax个,那我是否能写成:
{p[1],0},{p[2],0},...,{p[kmax],0}
或者类似的其他表达形式,使我不用每次改过kmax数值后还要继续改范围中变量的个数?jsc0121年前1
-
若望23世广场 共回答了21个问题
|采纳率95.2%这样就行了:FindArgMin[F, Evaluate@Table[{p[i], 0}, {i, kmax}]]1年前查看全部
- Mathematica 如何列出相同元素所在的子表集?
Mathematica 如何列出相同元素所在的子表集?
如何列出相同元素所在的子表集?
例如: 输出s1中元素{a,b,c}所属的子表
输入: s1={{a ,e},{d,c,a,b},{d,e,b,g},{g,a,c,e}};
s2={a,b,c};
输出: s3={{1,2,4},{2,3},{2,4}}
对于s2中{a,b,c}, 因为:
a出现在s1第1个子表和第2个子表和第4个子表中,因此a等于{1,2,4};
b出现在s1第2个子表和第3个子表中,因此b等于{2,3};
c出现在s1第2个子表和第4个子表中,因此c等于{2,4};
所以: s3={{1,2,4},{2,3},{2,4}}
轻风JIL1年前1
-
31231211 共回答了13个问题
|采纳率92.3%用
Map[Position[s1, #][[All, 1]] &, s2]
Position[s1, #][[All, 1]] & 能够找出 s1 中某个元素出现的位置,将其作用于 s2 中的每一个元素,得到 {{1,2,4},{2,3},{2,4}}1年前查看全部
- mathematica中为什么table不出结果
mathematica中为什么table不出结果
Subscript[l,AB] = 200; Subscript[l,BC] = 500; Subscript[l,CD] =
800; Subscript[x,F] = 400; Subscript[x,D] = 350; Subscript[y,D] =
350; Subscript[[Omega],1] = 100;
Subscript[x,A][t_] = 0; Subscript[y,A][t_] = 0;
Subscript[[Phi],1][t_] = Subscript[[Omega],1] t;
Subscript[x,B][t_] =
Subscript[x,A][t] + Subscript[l,AB] Cos[Subscript[[Phi],1][t]];
Subscript[y,B][t_] =
Subscript[y,B][t] + Subscript[l,AB] Sin[Subscript[[Phi],1][t]];
Subscript[x,D][t_] = 750;
Subscript[y,D][t_] = 350; Subscript[A,0] =
2 Subscript[l,
BC] (Subscript[x,D][t] - Subscript[x,B][t]); Subscript[B,0] =
2 Subscript[l,BC] (Subscript[y,D][t] - Subscript[y,B][t]);
Subscript[C,0] =
Subscript[l,BC]^2 - Subscript[l,
CD]^2 + (Subscript[x,B][t] -
Subscript[x,D][t])^2 + (Subscript[y,B][t] -
Subscript[y,D][t])^2;
Subscript[[Phi],BC][t_] =
2 ArcTan[(
Subscript[B,0] + Sqrt[
Subscript[A,0]^2 + Subscript[B,0]^2 - Subscript[C,0]^2])/(
Subscript[A,0] + Subscript[C,0])];
Subscript[x,C][t_] =
Subscript[x,B][t] + Subscript[l,BC] Cos[Subscript[[Phi],BC][t]];
Subscript[y,C][t_] =
Subscript[y,B][t] + Subscript[l,BC] Sin[Subscript[[Phi],BC][t]];
Subscript[[Phi],CD][t_] =
ArcTan[(Subscript[y,C][t] - Subscript[y,D][t])/(
Subscript[x,C][t] - Subscript[x,D][t])];
Subscript[l,4] = 0; Subscript[l,EF] = 350;
Subscript[[Phi],5][t_] = [Pi]/2;
Subscript[x,K][t_] = 400; Subscript[y,K][t_] = 0;
Subscript[s,1] = (-Subscript[C,1] Sin[[Pi]/2] -
Subscript[C,2]
Cos[[Pi]/2])/Subscript[C,3]; Subscript[s,2] = (-Subscript[C,
1] Sin[Subscript[[Phi],CD][t]] -
Subscript[C,2] Cos[Subscript[[Phi],CD][t]])/Subscript[C,3];
Subscript[C,1] = -Subscript[x,K][t] + Subscript[x,C][t] -
Subscript[l,EF]
Sin[[Pi]/2]; Subscript[C,2] = -Subscript[y,C][t] -
Subscript[l,EF] Cos[[Pi]/2]; Subscript[C,3] =
Sin[[Pi]/2] Cos[Subscript[[Phi],CD][t]];
Subscript[x,E] =
Subscript[x,CD][t] + Subscript[s,1] Cos[Subscript[[Phi],CD][t]];
Table[Subscript[x,E][[Pi]/60.0 n],{n,0.0,12}]yansege1年前1
-
zhangp1122 共回答了15个问题
|采纳率93.3%前面Subscript[x, D]=350
Subscript[x,D]=750就这部分就出错了,整体更出错.1年前查看全部
- Mathematica中如何画出图形的线是点虚线
Mathematica中如何画出图形的线是点虚线
除了Dashed,Dotted,Full线外,还有什么线?可以区别前面三种线?如若今生1年前1
-
蓝橙子的花篮 共回答了20个问题
|采纳率85%设置PlotStyle就行了.例:
Plot[Sin[x],{x,-1,4},PlotStyle -> Dashed]1年前查看全部
- 在Mathematica中输入f[x_]=x*Sin[x]+x2得到什么?
子晗木木馨1年前1
-
minilihan 共回答了16个问题
|采纳率100%经检验,输出的是:
x2 + x Sin[x]
这是定义了函数f,但x2仍是作为一个没有值的符号.据算f[1]的话会输出x2 + Sin[1].1年前查看全部
- mathematica 8结果含sin cos,希望转换为e的复指数形式如何转化?
观音西来1年前1
-
oat7729 共回答了19个问题
|采纳率89.5%//TrigToExp1年前查看全部
- 已知一组数据data={{x1,y1},{x2,y2},{x3,y3},{x4,y4}},用Mathematica如何求
已知一组数据data={{x1,y1},{x2,y2},{x3,y3},{x4,y4}},用Mathematica如何求y=ax^b形式的拟合曲线方程.就是说,如何求出a和b.
喝多了不闹1年前2
-
花含石 共回答了13个问题
|采纳率100%用FindFit[]函数
data={{x1,y1},{x2,y2},{x3,y3},{x4,y4}};
FindFit[data,a x^b,{a,b},x]1年前查看全部
- mathematica公式变形已知y=(10^x-10^(-x))/2,怎么通过Mathematica将该公式变形为用x
mathematica公式变形
已知y=(10^x-10^(-x))/2,怎么通过Mathematica将该公式变形为用x表示y
也就是把变成
湛蓝的兰381年前1
-
白胡子了了 共回答了18个问题
|采纳率88.9%反解出 x 就行了.
Solve[y == (10^x - 10^(-x))/2,x,Reals] // Simplify1年前查看全部
- 关于mathematica绘图,怎样在一个图里画多于100个函数图象!
关于mathematica绘图,怎样在一个图里画多于100个函数图象!
怎样在一个图里画多于100个函数图象!难道把所有的都输一遍吗?冰珏儿1年前2
-
陕北媳妇 共回答了19个问题
|采纳率100%要看情况:
1.如果这100个函数都是同一类型的,并且能找到它们的变化规律的话,可以用Table函数生成.比如这100个函数都是幂函数,且幂次程等差数列规律升高,即x、x^2、x^3、x^4、x^5.x^100,那么可以用下面语句完成这100个函数的绘制:
Plot[
Table[x^i,{i,1,100}],
{x,-1,1}
]
当然100个函数的话运算量是有些大的,需要些时间,你可以将100改为10先试试,熟悉一下语句再说
2.如果这100个函数之间毫无规律可言的话,也并不一定就如你说的那么糟糕,非要一个个输入,因为Mathematica还有导入其他文件数据的功能,即函数Import,然后到菜单栏找Insert,再然后File Path,找到你的数据文件比如Excel、txt等进行导入即可.这种情况下的问题是导入进来的数据往往不是Mathematica能识别的,因为格式不对,还需要人工做一些修整才好1年前查看全部
- mathematica问题设有一平面温度场T=100-X^2-4Y^2,一粒子从A(6,4)出发始终沿温度升高最快的方向
mathematica问题
设有一平面温度场T=100-X^2-4Y^2,一粒子从A(6,4)出发始终沿温度升高最快的方向运动,试用mathematica模拟粒子运动轨迹
请完成后发送“.nb”文件到blood-mage@hotmail.com
若满意,还有加分 尽快!
songtuannian1年前1
-
ivy_yazi 共回答了21个问题
|采纳率95.2%已发送.不清楚的地方直接使用百度给我留言即可.
有网友留言让我把代码写出来,于是写到空间里了1年前查看全部
- 用mathematica把正态分布函数的逆函数展开成幂级数,得到了这个奇怪的式子,..
用mathematica把正态分布函数的逆函数展开成幂级数,得到了这个奇怪的式子,..
偶然想把正态分布函数求逆的运算展开成幂级数,看是否方便用计算器估算.运行了如下语句:
Series[InverseCDF[NormalDistribution[0,1],1 - x],{x,0,10},
Assumptions -> 0 < x < 1]
得到了下面的式子:
Sqrt[Log[1/(2 [Pi])] - 2 Log[x] - Log[Log[1/(2 [Pi])] - 2 Log[x]]] + O[x]^11
看起来有些奇怪,我增大了幂级数的项:
Series[InverseCDF[NormalDistribution[0,1],1 - x],{x,0,1000},
Assumptions -> 0 < x < 1]
结果却是:
Sqrt[Log[1/(2 [Pi])] - 2 Log[x] - Log[Log[1/(2 [Pi])] - 2 Log[x]]] + O[x]^1001
这样看起来,似乎前面那项应该是精确表达式了,但实际运行如下语句:
{InverseCDF[NormalDistribution[0,1],#],
Sqrt[Log[1/(2 [Pi])] - 2 Log[1 - #] -
Log[Log[1/(2 [Pi])] - 2 Log[1 - #]]]} & /@ {0.9,0.925,0.95,
0.975,0.99,0.995}
结果却是:
{{1.2815515655446006,1.3226577374030006},
{1.4395314709384563,1.4614688452505076},
{1.6448536269514722,1.6521546739636983},
{1.9599639845400538,1.9565041961310443},
{2.3263478740408408,2.318342386507109},
{2.5758293035489004,2.56684701349088}}
可见仍是有差距的.
我想问问,第一,为什么会出现上面的情况?也即是说,为什么幂级数部分的系数会始终为零?我很难相信这样的表达式会在某一项开始突然系数非零了...
第二,正态分布函数的逆函数是否能展开为幂级数,展开后的具体形式应该是什么?
100分虚心求教,也希望大家回答的别太简短了,我网上搜了一圈才来提问的...haizi221年前1
-
ssss又见ss 共回答了18个问题
|采纳率94.4%这其实更多的是一个数学问题.从没有哪本教科书保证过,任意函数在任意点的幂级数展开都是收敛的.高阶无穷小和收敛是两个概念,O[x]^1001仅能表明误差的大小是远小于[x]^1001的,而收徒敛是要求这项趋0,其实你的这个展开和原函数的差距可根本不是”有差距”这么简单,你可以看下它们在0到1的图像,那差别叫一个壮观啊.
在我看来,你的展开式之所以连幂级数都不是了,那是因为你压根就没有选择一个实际存在的“点”做为展开点:x=0处,原函数趋于无穷,所以幂级数恐怕也会表现为极限形式.
试了一下,只要把你的展开点移到中点来,这级数就能顺利逼近了:
a = Normal@
Series[InverseCDF[NormalDistribution[0, 1], 1 - x], {x, 1/2, 10},
Assumptions -> x > 0];
b = InverseCDF[NormalDistribution[0, 1], 1 - x];
Plot[{a, b, a - b}, {x, 0, 1}, PlotRange -> All,
PlotStyle -> {Red, Blue, Green}]1年前查看全部
- 隐函数求导怎么弄?用mathematica……
wjj7484131年前1
-
日暮征帆 共回答了11个问题
|采纳率90.9%给个我自己的例子给你,其中ri 即为隐函数,变量为t.多看看帮助文档吧,少年.
NDSolve[{
!(*SuperscriptBox["[Theta]i","[Prime]",
MultilineFunction->None])[t] == dir* p[Theta][ri[t],[Theta]i[t]],
!(*SuperscriptBox["ri","[Prime]",
MultilineFunction->None])[t] ==
dir* ri[t] pr[ri[t],[Theta]i[t]],[Theta]i[0] == [Theta]0,
ri[0] == r0},{[Theta]i,ri},{t,0,tend},
MaxSteps -> 2000]1年前查看全部
- 用mathematica画三维图形,只要网格线而不要曲面图用什么函数啊?
cqwangchongyu1年前0
-
共回答了个问题
|采纳率
- Mathematica怎么画三维的方程?
Mathematica怎么画三维的方程?
比如画球,x^2+y^2+z^2=1
指令怎样写?hby-ice1年前1
-
王芷乔 共回答了13个问题
|采纳率92.3%ContourPlot3D[x^2+y^2+z^2==1,{x,-1,1},{y,-1,1},{z,-1,1}]1年前查看全部
- 请用Mathematica 7求出Y和X的关系
请用Mathematica 7求出Y和X的关系
a*c=(Y*d+X*h)*(g+Sqrt(i+b/(X*e-Y*f)))
这样一个方程,a,b,c,d,e,f,g,h,i 都是常数,不必理会,请表达出Y等于多少?最好告诉我怎么输入到Mathematica 7里面的,
或者用MATLAB求解也行,无所谓。狼的哲学1年前1
-
风往北 共回答了17个问题
|采纳率100%Solve[a*c == (Y*d + X*h)*(g + Sqrt[i + b/(X*e - Y*f)]),Y]
有几个要点,
mathematica的方程式是两个等号 ==
mathematica的函数是首字符大写,后面是中括号,所以是 Sqrt[ ],求解方程的函数是Solve[ ]1年前查看全部
- 用mathematica求 farey 数列程序
用mathematica求 farey 数列程序
任意程序都行江南cc1年前1
-
九月霜降 共回答了16个问题
|采纳率87.5%Mathematica 程序:
farey[x_] :=
Module[{m,n,jieguo},
jieguo = Union[Sort[Flatten[Table[m/n,{n,1,x},{m,1,n}]]]];
jieguo
]
farey[12]
运行结果:
{1/12,1/11,1/10,1/9,1/8,1/7,1/6,2/11,1/5,2/9,1/4,3/11,2/7,3/10,1/3,4/11,3/8,2/5,5/12,3/7,4/9,5/11,1/2,6/11,5/9,4/7,7/12,3/5,5/8,7/11,2/3,7/10,5/7,8/11,3/4,7/9,4/5,9/11,5/6,6/7,7/8,8/9,9/10,10/11,11/12,1}1年前查看全部
- 急救,急救,mathematica 一元函数求极值
急救,急救,mathematica 一元函数求极值
急救,急救,我有一个关于一元函数求极值的题目,要是解答不出来我就完了.
题目是这样的:一元函数求极值的问题:请设计一个程序包求一元函数在[a,b]上最大值和最小值.要求运行时只要用户任意输入一个一元函数和连续区间[a,b],就计算并告知用户该函数在[a,b]上取最大值和最小值的点和相应的最大值和最小值.
我的程序是:
BeginPackage["jizhi`"]
jizhi::uasage = "jizhi is a programme for making MAX and MIN in a hanshu if
user input a f(x) and geting a exact (x,f(x))"
Begin["`Private`"]
Module[{a,b,x},
f[x_] := Input[ Inputhanshu];
a = Input[please Input zuoduandian];
b = Input[please Input youduandian];
zhudian = Solve[f[x] == 0,x];
zhudianbiao = Union[{x,f[x]} /.zhudian,{{a,f(a)},{b,f(b)}}];
fmax = Max[Transpose[zhudianbiao][[2]]];
fmin = Min[Transpose[zhudianbiao][[2]]];
x1 = Position[zhudianbiao,fmin];
x2 = Position[zhudianbiao,fmax];
Min = zhudianbiao[[x1[[1,1]]]];
Max = zhudianbiao[[x2[[1,1]]]];]
End[]
EndPackage[]
请指点下为什么运行不对呢?
若解答正确,小女子感恩不尽.
非常感谢你能抽时间帮我看,但是我用你修改的程序运行了一遍,还是不对啊?
你修改后的程序是
BeginPackage["jizhi`"]
jizhi::uasage = "jizhi is a programme for making MAX and MIN in a hanshu if
user input a f(x) and geting a exact (x,f(x))"
Begin["`Private`"]
Module[{a,b,x},f = Input[Inputhanshu];
fff[x_] := f
a = Input[please Input zuoduandian];
b = Input[please Input youduandian];
zhudian = Solve[fff[x] == 0,x];
zhudianbiao = Union[{x,fff[x]} /.zhudian,{{a,fff[a]},{b,fff[b]}}];
fmax = Max[Transpose[zhudianbiao][[2]]];
fmin = Min[Transpose[zhudianbiao][[2]]];
x1 = Position[zhudianbiao,fmin];
x2 = Position[zhudianbiao,fmax];
Min1 = zhudianbiao[[x1[[1,1]]]];
Max1 = zhudianbiao[[x2[[1,1]]]];
{Min1,Max1}]
End[]
EndPackage[]
再帮我看看吧~我用的是4.0Miro91年前1
-
sim025520 共回答了25个问题
|采纳率92%在外面定义若干函数,例如
fg[x_] := 3x + 1
模块修改如下:
Module[{a,b,x},fff = Input[Inputhanshu];
a = Input[please Input zuoduandian];
b = Input[please Input youduandian];
zhudian = Solve[fff[x] == 0,x];
zhudianbiao = Union[{x,fff[x]} /.zhudian,{{a,fff[a]},{b,fff[b]}}];
fmax = Max[Transpose[zhudianbiao][[2]]];
fmin = Min[Transpose[zhudianbiao][[2]]];
x1 = Position[zhudianbiao,fmin];
x2 = Position[zhudianbiao,fmax];
Min1 = zhudianbiao[[x1[[1,1]]]];
Max1 = zhudianbiao[[x2[[1,1]]]];
{Min1,Max1}]
出现Input[Inputhanshu]的时候,只是输入函数名,例如上面定义的 fg ,而不是输入函数表达式
另外Min不能用,它是内部函数,我把它改成 Max1、Min1
还有,你没有求极值,是求了函数的零点,你的zhudianbiao包括端点值和零点值,这个我没有改
再就是,你是不是要输出Min1,我把它写上了,就是{Min1,Max1}
最后,最大最小值Mathematica5.1中分别用用
Maximize[{(1-x^2)^2,x>=-2,x=-2,x4}}
Out[78]=
{0,{x->-1}}
实现,用这个产生你的zhudianbiao吧!
补充
如果一定要在Input[Inputhanshu]输入函数式的话,那么应将
f[x_] := Input[ Inputhanshu]
修改为
f = Input[ Inputhanshu]
fff[x_] := f
另外你在是用Module[]的时候是立即执行的,如果想定义成软件包的话应该这样
f[x_]:=Module[.]
只有这样,在调入软件包的时候,才不至于立即出现输入窗口.只有在输入并执行f[x]的时候出现输入窗口(Input[Inputhanshu])才对.1年前查看全部
- mathematica中分段函数怎么定义?
mathematica中分段函数怎么定义?
如题:比如怎么定义这样一个函数:g[x]=x,0788165861年前1
-
qmdx 共回答了22个问题
|采纳率86.4%有两种方式
1.这样写 g[x_]:=x/;01年前查看全部
- mathematica 级数创建函数问题
mathematica 级数创建函数问题
我想创建一个幂级数函数
f[x_] := Exp^x
FF[x_]:= Series[f[x],{x,0,5}]
上面这么写不正确.如果写成FF= Series[f[x],{x,0,5}]好像也不是函数.求正确的写法.
因为初学mathematica,许多语法规则还不是很懂.求指教了.朝笔拾籁1年前0
-
共回答了个问题
|采纳率
- 如何表示1*3*5*7*……*(2n+1) 这是为了在Mathematica中用和号计算,但不知道它的通项怎么表示
泠霖1年前1
-
jeackey 共回答了17个问题
|采纳率88.2%Mathematica中有连乘积模板,
点击: 文件-> 控制面板->BasicInput1年前查看全部
- 这个参数方程用mathematica怎么解,我怎么会出现错误的啊,麻烦指点下吧
这个参数方程用mathematica怎么解,我怎么会出现错误的啊,麻烦指点下吧
我把解题的过程抓图放到空间里了,
ccrdi_api1年前1
-
1391720 共回答了20个问题
|采纳率65%mathematica 中不用根号直接表示开方.请用sqrt(f)代替根号后再试一次.对了,输入是分号以 / 代替为好.
请把我加为好友,以后方便联系.1年前查看全部
- 如何用Mathematica求抽象函数f(x)的反函数的高阶导数
如何用Mathematica求抽象函数f(x)的反函数的高阶导数
有一抽象函数f(x),具体形式未知但可n次求导.又g(x)为f(x)的反函数.能否用Mathematica求g'(f(x)),g''(f(x))乃至g^(n) (f(x))等等的解析表达?
先说明一下,这个表达是可以算出的,根据g(f(x))=x,逐次求导并利用复合函数求导法则即可算出,如对前式求导有g'(f(x))f'(x)=1,于是g'(f(x))=1/f'(x);对此式再次求导又可得g''(f(x)) = -f''(x)/(f'(x))^3.那么在Mathematica中,有没有直接的函数可以解决呢?还是说必须像手算一样用递归算法?求教各位高达.
悬赏100分,希望也别答得太简略了,也尽量不要复制粘贴吧,我是搜索了一圈之后没发现合适的答案才提问的.hhhhxxxxpppp1年前1
-
shawnshang 共回答了19个问题
|采纳率89.5%在Mathematica中,
如果要直接给出n阶导数的表达式,很难.
用自定义函数还是可以实现的.
DD[k_] := {
g=InverseFunction[f][x];
Do[g=D[g,x],{i,k}];
g
};
DD[3]
其中:
g=InverseFunction[f][x]; (** 符号反函数 **)1年前查看全部
- 用mathematica作出z=Sqrt[1 - x^2 - y^2],x^2+y^2=x及xOy面围成的图形,谢谢~
花帽VS大金牙1年前2
-
浅草蓝蓝 共回答了15个问题
|采纳率100%p1 = Plot3D[Sqrt[1 - x^2 - y^2], {x, -1, 1}, {y, -1, 1},
AxesLabel -> {"x", "y", "z"},
RegionFunction ->
Function[{x, y}, x^2 + y^2 = x)]]
p2 = ContourPlot3D[
x^2 + y^2 == x, {x, 0, 1}, {y, -1/2, 1/2}, {z, 0, 1},
RegionFunction -> Function[{x, y, z}, Sqrt[1 - x^2 - y^2] >= z]]
p3 = ContourPlot3D[z == 0, {x, -1, 1}, {y, -1, 1}, {z, -1, 1},
RegionFunction ->
Function[{x, y, z}, x^2 + y^2 = x]]
Show[p1, p2, p3]1年前查看全部
- 关于Mathematica作图的小问题
heartfill1年前1
-
夜蛐蛐 共回答了18个问题
|采纳率94.4%y[x_] := Exp[I*x] + 1/2*Exp[-I*x]
Plot[Re[y[x]],{x,0,2 Pi}]1年前查看全部
- mathematica新手求问怎么用Dsolve求dn/dt=r n(1-n/k)
mathematica新手求问怎么用Dsolve求dn/dt=r n(1-n/k)
方程不对 导致out一直和in一样.求告知方程因该怎么写.aa75721391年前1
-
duoduo80108 共回答了21个问题
|采纳率95.2%DSolve[n'[t] == n[t] (1 - n[t]/k) r, n[t], t]
注意大小写和格式!1年前查看全部
- 1用Mathematica画出母线z轴沿着准线y=2sinx 平行移动所形成的柱面图形.它的命令格式是什么?并设计一个动
追风致源1年前0
-
共回答了个问题
|采纳率
大家在问
- 1英语连词成句初一的1.boy is his the brother 2.not she my is sister 3.a
- 2做装饰品比较大的汽车玩具不带遥控的是什么类型的玩具?
- 3中译英:请看附件订单并请签名
- 4千分之一百分之一 (打字一)
- 5等质量的Mg,MgO2,Mg(OH)2,MgSO4和等质量分数的HCl反应,谁产生的MgCl2最多?
- 6(2013•沈阳)下列物质由原子构成的是( )
- 7如何构造一个面积为3的正方形
- 8下列有关感受器的说法中不正确的是()
- 9哪些词,倒过来念,就成了另一个词,意思也不一样了?
- 10化学就在我们身边,它与我们的生活息息相关.
- 11高三生物判断题:池塘中全部的鱼、植物和微生物构成群落
- 12写出关与马的连续两句诗句
- 13如图中所示的图形是一个底面直径为20cm的装有一部分水的圆柱形玻璃杯,水中放着一个底面直径为6cm,高为20cm的一个小
- 14(2008•常德)“我住长江头,君住长江尾…山山皆向北,条条男流水.”这段话所描述的地理特征是( )
- 15大哥大姐们帮我找篇《今天真好》600字作文