mathematica 级数创建函数问题

mathematica函数画图 在mathematica中对(x-1)^{2/3}(x+1)^{1/3}画图 怎么 出不来 [-1,1]的图?

如何用Mathematica实现复合函数的反解?比如,知道g[x]的表达式,知道f[g[x]]的最终表达式子,如何求f[x]?
在Mathematica上实现

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直接原样输出,我手解过,解得出来.请问为什么会原样输出呢?

用Mathematica求解：i=7000000000,i‘（t）=-3*i*（i-2/3）,求t值.用Mathematica怎么写?

Mathematica中关于Reduce的疑问!
这个问题用Reduce会计算好久都算不出来：

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

请问这是为什么啊?

Mathematica如何输入开三次根（不用1/3次方）?
比如这个,用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 看不出错误来.

一个关于mathematica的问题 f（x）=(x^2-25)/(x-5),令x=2 并且计算f（x）的值,怎么写
用mathematica的标准语言写出来

mathematica求轨迹,
有一球以10m/s的速度以水平线以45度向斜上方抛去,该球着地后仍保持原方向弹跳,但速度是原来的90%,以后每着地一次,速度都比上次减少10%,求此球在第三次着地前的轨迹.
我知道很简单,但是我不会做囧,求高人赐教……
OTL，我说了用mathematica做
我要的是代码

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}}

帮忙在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 我有在看。。作业没交..但是我也想学..麻烦如果有时间就帮忙把所有的题做完 ..感谢帮助..

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项

请问用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）

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,

Mathematica 在已知条件判断不等式是否成立
RT,例如我想判断在条件x>y下,是否有x^2>y^2成立（x,y均为实数）,请问应该如何写程序?

mathematica中如何查看已知函数
比如Matlab中的 help sin

哪位高人能帮忙看看这个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],这个倒是画出了对应的圆,但是我没法加上直径大小和颜色呀,

Mathematica画一个函数的曲线图,
式中a,b,c,d都是常数,J1（x）是第一类一介贝塞尔函数,这样的一个公式能画出曲线图吗?
Mathematica怎么做.

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数值后还要继续改范围中变量的个数?

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}}

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}]

Mathematica中如何画出图形的线是点虚线
除了Dashed,Dotted,Full线外,还有什么线?可以区别前面三种线?

已知一组数据data={{x1,y1},{x2,y2},{x3,y3},{x4,y4}},用Mathematica如何求y=ax^b形式的拟合曲线方程.就是说,如何求出a和b.

mathematica公式变形
已知y=(10^x-10^(-x))/2,怎么通过Mathematica将该公式变形为用x表示y
也就是把变成

关于mathematica绘图,怎样在一个图里画多于100个函数图象!
怎样在一个图里画多于100个函数图象!难道把所有的都输一遍吗?

mathematica问题
设有一平面温度场T=100-X^2-4Y^2,一粒子从A（6,4）出发始终沿温度升高最快的方向运动,试用mathematica模拟粒子运动轨迹
请完成后发送“.nb”文件到blood-mage@hotmail.com
若满意,还有加分 尽快!

用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分虚心求教,也希望大家回答的别太简短了,我网上搜了一圈才来提问的...

Mathematica怎么画三维的方程?
比如画球,x^2+y^2+z^2=1
指令怎样写?

请用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求解也行，无所谓。

用mathematica求 farey 数列程序
任意程序都行

急救,急救,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

mathematica中分段函数怎么定义?
如题:比如怎么定义这样一个函数：g[x]=x,0

这个参数方程用mathematica怎么解,我怎么会出现错误的啊,麻烦指点下吧
我把解题的过程抓图放到空间里了,

如何用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分,希望也别答得太简略了,也尽量不要复制粘贴吧,我是搜索了一圈之后没发现合适的答案才提问的.

mathematica新手求问怎么用Dsolve求dn/dt=r n(1-n/k)
方程不对 导致out一直和in一样.求告知方程因该怎么写.