Точки пересечения графиков

[Mechins]

Здравствуйте! Даны несколько функций одного (и того же) переменного и нужно найти общие их нули на заданном отрезке.
Посоветовали построить графики функций и найти все точки их пересечения. Алгоритм для двух функций есть в Wolfram Mathematica (8):

f[x_] := 1 + x
g[x_] := x^2
solution = Solve[{f[x] == g[x]}, x][[All,1,2]];
Plot[{Tooltip[f[x], f[x]], Tooltip[g[x], g[x]]}, {x, -Pi, Pi},
Epilog -> {Red, PointSize[0.01],
Tooltip[Point[{#, f[#]}], FullSimplify[{#, f[#]}]] & /@ solution},
ImageSize -> 600, PlotStyle -> Thick]

Как можно это реализовать для нескольких функций и есть ли другие варианты решения задачи?