Иллюстрированный самоучитель по Mathematica 3

Обработка внешних данных

Представление данных в виде контурного графика.

ListContourPlot[data,ContourShading->False, Contours->6,FrameTicks->None];

График плотности данных с сохранивших только несколько Фурье-компонент.

ListDensityPlot[Re[InverseFourier[ MapIndexed[If[Max[#2]<60,#,0]&,Fourier[data],{2}]]],
 Mesh->False,FrameTicks->None];

Распределение градаций серого в данных.

ListPlot[Sort[Flatten[data]]];

Представление данных в виде трехмерного графика.

ListPlot3D[data,ColorFunction->Hue,Mesh->False, ViewPoint->{0.2,-2,5}];