mathematica求积分问题

手镯_2022-10-04 11:39:541条回答

mathematica求积分问题
用mathematica求1/((1+x²)^(3/2))的积分为什么会不同的输入方式结果不同呢?

已提交,审核后显示!提交回复

共1条回复
滨湖春晓 共回答了17个问题 | 采纳率82.4%
你给的第一种写法和第三中写法,mathematica 认为效果是相同的,或者可以互换的,但是第二种和其它两种是不等价的,你可以用下面的两行代码来理解一下:
Equal[1/(Sqrt[(1 + x^2)])^3,1/(1 + x^2)^(3/2)]
Equal[1/Sqrt[(1 + x^2)^3],1/(1 + x^2)^(3/2)]
所以mathematica 在积分的时候采用了两种不同的方法.其中1和3是在实数域内积分的,2是在复数域内积分的,导致出现了两种不同的结果.
算出结果后,无法判断到底该不该把第二种积分后的分母提出一个平方后写成其它两种的结果但是不可否认两种结果都是正确的,
你可以用下面的代码来测试第二中情况:
Integrate[1/Sqrt[(1 + x^2)^3],x,Assumptions -> Im[x] == 0]
这是假定了x是实数,这时积分的结果和1和3情况的结果相同.
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])) *)...
若a=(3,1,4,7,3,6) 怎么用Mathematica求a中元素的个数啊?
巡逻1年前1
polarisangel 共回答了20个问题 | 采纳率85%
Length[a]
如何用Mathematica实现复合函数的反解?比如,知道g[x]的表达式,知道f[g[x]]的最终表达式子,如何求f[
如何用Mathematica实现复合函数的反解?比如,知道g[x]的表达式,知道f[g[x]]的最终表达式子,如何求f[x]?
在Mathematica上实现
身曹心汉1年前1
吃井不忘挖水人 共回答了21个问题 | 采纳率76.2%
得尝试把g(x)反函数求出来吧
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的方法好像行不通……
用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)
请补充题目完整.
怎么用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}}
Mathematica中关于Reduce的疑问!
Mathematica中关于Reduce的疑问!
这个问题用Reduce会计算好久都算不出来:

但如果我稍微变一下,就可以马上计算出来了:

请问这是为什么啊?
心蓝_WANG1年前3
Leon_Fan 共回答了17个问题 | 采纳率100%
跟涉及三角函数的问题本身较难求解有一定关系,你做的也并不是可逆的变换不是?如果等的够久还是有可能算出来的,到时候你应该会看到一个相当复杂的解.
Mathematica如何输入开三次根(不用1/3次方)?
Mathematica如何输入开三次根(不用1/3次方)?
比如这个,用mathematica怎么输入?
zwjgj1年前1
xunjing444 共回答了21个问题 | 采纳率81%
平面输入法或
CubeRoot[5] // TraditionalForm
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去掉,并且,你这里的边界给的不合理,所以在计算开始不久就耗尽了全部的积分步长.试了一下也没找到合理的边界条件,你自己试试吧.
一个关于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]
mathematica 中我们可以画出e^t的图像,请问如何解出e^t==1时,t的值
hejian10231年前2
心被偷 共回答了22个问题 | 采纳率95.5%
在实数范围内求解
Reduce[E^t == 1,t,Reals]
在复数范围内求解
Reduce[E^t == 1,t,Complexes]
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=...
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%
是这样吗?
帮忙在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]]
你粘贴 复制 运行一下看看 结果图片我就不传了
请问用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}]原样返回了.也没什么意外的,递推方程找不到通式的情况并不少见.顺便如果你这个方程是由某个偏微分方程化过来的的话,建议你直接去解微分方程,可能解出来的可能性还大一些.
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 是不一样的.
急求两篇用mathematica解决的数学建模论文,
lijie3141年前1
小鸟ZJQ 共回答了15个问题 | 采纳率80%
你去找2002年的车灯线光源的那个建模题(安徽大学),就是用mathematica解的,还有百度文库里的《MATHEMATICA在数学建模中的应用》也有具体介绍
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}
mathematica怎样求解不等式组,(41/3 + k > 0,720 - 8k/3 > 0)
huwae1年前0
共回答了个问题 | 采纳率
mathematica中如何查看已知函数
mathematica中如何查看已知函数
比如Matlab中的 help sin
东方魔主1年前1
狮子魔羯 共回答了22个问题 | 采纳率90.9%
?plot
?plot
都可以查看,后者更详细.
哪位高人能帮忙看看这个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.html
Mathematica画一个函数的曲线图,
Mathematica画一个函数的曲线图,
式中a,b,c,d都是常数,J1(x)是第一类一介贝塞尔函数,这样的一个公式能画出曲线图吗?
Mathematica怎么做.
ld1881611年前1
羞貓小仙女 共回答了19个问题 | 采纳率94.7%
Mathematica有现成函数的
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}]]
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}}
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就这部分就出错了,整体更出错.
Mathematica中如何画出图形的线是点虚线
Mathematica中如何画出图形的线是点虚线
除了Dashed,Dotted,Full线外,还有什么线?可以区别前面三种线?
如若今生1年前1
蓝橙子的花篮 共回答了20个问题 | 采纳率85%
设置PlotStyle就行了.例:
Plot[Sin[x],{x,-1,4},PlotStyle -> Dashed]
在Mathematica中输入f[x_]=x*Sin[x]+x2得到什么?
子晗木木馨1年前1
minilihan 共回答了16个问题 | 采纳率100%
经检验,输出的是:
x2 + x Sin[x]
这是定义了函数f,但x2仍是作为一个没有值的符号.据算f[1]的话会输出x2 + Sin[1].
mathematica 8结果含sin cos,希望转换为e的复指数形式如何转化?
观音西来1年前1
oat7729 共回答了19个问题 | 采纳率89.5%
//TrigToExp
已知一组数据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]
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] // Simplify
关于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能识别的,因为格式不对,还需要人工做一些修整才好
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%
已发送.不清楚的地方直接使用百度给我留言即可.
有网友留言让我把代码写出来,于是写到空间里了
用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}]
隐函数求导怎么弄?用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]
用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}]
请用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[ ]
用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}
急救,急救,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.0
Miro91年前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])才对.
mathematica中分段函数怎么定义?
mathematica中分段函数怎么定义?
如题:比如怎么定义这样一个函数:g[x]=x,0
788165861年前1
qmdx 共回答了22个问题 | 采纳率86.4%
有两种方式
1.这样写 g[x_]:=x/;0
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中有连乘积模板,
点击: 文件-> 控制面板->BasicInput
这个参数方程用mathematica怎么解,我怎么会出现错误的啊,麻烦指点下吧
这个参数方程用mathematica怎么解,我怎么会出现错误的啊,麻烦指点下吧
我把解题的过程抓图放到空间里了,




ccrdi_api1年前1
1391720 共回答了20个问题 | 采纳率65%
mathematica 中不用根号直接表示开方.请用sqrt(f)代替根号后再试一次.对了,输入是分号以 / 代替为好.
请把我加为好友,以后方便联系.
如何用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]; (** 符号反函数 **)
用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]
关于Mathematica作图的小问题
heartfill1年前1
夜蛐蛐 共回答了18个问题 | 采纳率94.4%
y[x_] := Exp[I*x] + 1/2*Exp[-I*x]
Plot[Re[y[x]],{x,0,2 Pi}]
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用Mathematica画出母线z轴沿着准线y=2sinx 平行移动所形成的柱面图形.它的命令格式是什么?并设计一个动
追风致源1年前0
共回答了个问题 | 采纳率