mathematica 作图中的问题
For[
nmta = -1, nmta <= 1, nmta = nmta + 1,
(
y[x_] := Sqrt[1 - nmta^2*(1 - x^2)];
u[x_] := 1 - x^2;
f[x_] :=
If[x < 1, ArcCos[x*y[x] + nmta*(1 - x^2)],
ArcCosh[x*y[x] + nmta*(1 - x^2)]];
T[x_] :=
If[x == 1, 2/3*(1 - nmta^3),
1/u[x]*(f[x]/Sqrt[Abs[1 - x^2]] - x + nmta*y[x])];
Plot[{T[x]}, {x, 0, 1}]
)
]
这里我想画3条线，用Print是可以打出T[x]的值的，但是无法画线(Plot没起作用)，有好的解决办法吗？
For[nmta = -1, nmta <= 1, nmta = nmta + 1,
y[x_] := Sqrt[1 - nmta^2*(1 - x^2)];
u[x_] := 1 - x^2;
f[x_] :=
If[x < 1, ArcCos[x*y[x] + nmta*(1 - x^2)],
ArcCosh[x*y[x] + nmta*(1 - x^2)]];
T[x_] :=
If[x == 1, 2/3*(1 - nmta^3),
1/u[x]*(f[x]/Sqrt[Abs[1 - x^2]] - x + nmta*y[x])];
Print[Plot[{T[x]}, {x, 0, 1}]]]追问
不是三幅图，三条线画在一张图上
追答那你开始的程序就有问题。应当修改。
而且第三幅图基本上接近于0，画在一起，呵呵，看不出了。
Print[Plot[T[x], {x, -1, 2}, AxesOrigin -> {-1, 0}]]]
您的做法是对的（至少可以画出线来），只是现在不知道该怎样把三条线合并到一副图中
我在评论里给出了答案了。先给定要给空白表格，将图赋值，最后用show。
本回答被提问者采纳mathematica7作图问题,求助求助~
mathematica的空格表示乘法，你写 xy 中间没有空格，它认为这个是一个变量，而不是x和y相乘。另外，画隐函数曲线的ImplicitPlot，高版本都不用了，6.0以后的版本就是用ContourPlot3D这个函数了。
Mathematica的函数作图问题
参考资料：http:\/\/reference.wolfram.com\/mathematica\/ref\/Manipulate.html?q=Manipulate&lang=en
Mathematica作图报错,Table[]函数问题
原因在于函数 Plot 执行的是非标准计算，那个 Table 并没有生成列表，要想实现输出级数的各阶展开，必须改变 Table 语句的执行次序，也就是用 函数 Evaluate 将 Table 语句先于 Plot 执行。f[x_] = Sin[x];Export["e:\\\\sin(x).jpg",Show[Plot[f[x], {x, -2 \\[Pi], 2 \\[Pi]},Plo...
mathematica作图怎么图形出不来呀? 我键入 Plot[sin[x],{x,0,2Pi}...
我估计是你写错地方了 把语句写在Kernel上就会出现你说的这种情况，虽然Kernel里可以进行一般的数字运算，但是画图是不行的，它不是正规的进行输入的地方 Mathematica里运算应是在"Notebook"里，俗称"笔记本"，在那里边就可以绘制函数图像了
Mathematica作图求助 我想把一组数据的频率直方图和其正态分布曲线放在...
一般把2个图放一块用show函数就行。比如你这个 Show[ { t , w } ] 就Ok了，要是想输出文件就 p=Show[ { t,w } , ImageSize->{1024,768}]Export["c:\\\\picture.jpg", p]但是说来简单，做起来还是需要一点技巧的。比如你这2个图的坐标范围不一样，画一起就很难看，甚至看不见了；...
mathematica作图颜色问题
j + 1}, {i + 2, j + 2}]}], {i, 1, 7, 2}, {j, 1,7, 2}] \/\/ MatrixForm 全白是看不出的, 或者：g2 = Table[Graphics[{White, EdgeForm[Black],Rectangle[{i + 1, j + 1}, {i + 2, j + 2}]}], {i, 1, 7, 2}, {j, 1,7, 2}] \/\/ MatrixForm ...
Mathematica积分作图失败, 显示more input i needed
你的函数名 AxesLabel 拼写错误，另外语法格式（应该使用花括号）也不正确，最后一项应该是下面的这个样子 AxesLabel -> {y, z, integration}
Mathematica作图问题
费了我半天劲，终于找出你这个东西为什么了，MaxRecursion 允许的的最大递归分割数，这个参数做些调整，我调到10，计算需要几秒种，估计你再增加就变连续了，但是计算时间会更长
mathematica 8.1.0作图时怎么图形出不来呀? 我键入如下表达式。跪求答 ...
Plot[Sin[x], {x, 0, 6 Pi}]可以啊，图像为：
mathematica中作图时怎样在图像中直接显示两函数曲线交点并标明坐标...
如两个函数是x^2和2x，则：a = NSolve[y == x^2 && y == 2 x, {x, y}]; Plot[{x^2, 2 x}, {x, -1, 3},Epilog -> {Point[{x, y} \/. a],Table[Inset[({x, y} \/. a)[[i]], ({x, y} \/. a)[[i]]], {i, 1,Length[a]}]}]其输出效果如图。
