要看情况：
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}，换成其他数字也是一个意思
