Question

关于mathematica绘图，怎样在一个图里画多于100个函数图象！！！！！！！！

怎样在一个图里画多于100个函数图象！！！！！！难道把所有的都输一遍吗？？？？？？

Answer 1

要看情况：
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能识别的，因为格式不对，还需要人工做一些修整才好

追问

谢谢您！我要输的函数是同一类型，是y=ax-(x/a)，然后一个一个递加，不知道这样的可以用table函数吗？？

追答

可以的.
比如说a值从1到100的话，就可以这样写语句：
Plot[
Table[a*x-x/a,{a,1,100,1}],
{x,-1,1}]
我给你画了一下a值从1到10的情况，图片在最后
Table函数的语法是Table[f(i),{i,imin,imax,inc}]，即Table函数将给出随着i从imin每次增长inc到imax的所有的f(i)，当inc为1时可以省略不写
补充：
不清楚你为什么要画那么多，如果你是要观察随着a值的变化，函数图像有什么变化的话，可以用Manipulate函数，如下：
Manipulate[
Plot[a*x-x/a,{x,-1,1},PlotRange->1],
{a,1,100}]
你可以试试看

追问

太谢谢了！还想再问一下，比如我想画把1/i + i*x 和 1/i - i*x 画在一起，可是一个要取{i，0,100}，另一个要取{i，-100,0}
这要怎么写语句？
谢谢您！

追答

这要用到Show函数
不过i是不能取0的，因为分母的位置有i，100的话太大，我给你写一下{i,1,10}和{i,-10,-1}的语句，具体数据你可以自己修改一下：
Show[
Plot[Table[1/i + i x, {i, 1, 10}], {x, -1, 1}],
Plot[Table[1/i - i x, {i, -10, -1}], {x, -1, 1}]
]

追问

太太太谢谢您了！还要问您一下，mathematica可以设定y轴的取值范围吗？？？上面的图都是它自动匹配的，可以自己设定吗？

追答

可以
用PlotRange选项命令，比如：
Plot[
x^3,
{x,-1,1},
PlotRange->2
]
这里PlotRange->2的意思就是y轴的取值范围为{-2,2}，换成其他数字也是一个意思