Система Mathematica позволяетимпортировать

Чтение данных из файла image.dat. Точка с запятой после команды запрещает системе Mathematica выводить данные на экран.

data=ReadList["image.dat",Number,RecordLists->True];

Визуализация данных в виде графика плотности.

ListDensityPlot[data,Mesh->False, FrameTicks->None];

Вы можете применять к данным любую функцию системы Mathematica.

ListDensityPlot[Exp[Sqrt[data]],Mesh->False, FrameTicks->None,ColorFunction->Hue];

Здесь осуществлен последовательный сдвиг данных вправо.

ListDensityPlot[MapIndexed[RotateRight,data], Mesh->False,FrameTicks->None,ColorFunction->Hue];

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

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}];