3d-график по точкам

Форум пользователей пакета Mathematica

Модератор: Admin

Bartyk
Сообщения: 1
Зарегистрирован: Сб дек 25, 2010 12:52 am

3d-график по точкам

Сообщение Bartyk » Сб дек 25, 2010 12:56 am

Добрый день!
Столкнулся с такой проблемой:
у меня есть около 800 точек с координатми x,y,z. Необходимо построить 3d модель...(это изолинии на топографической карте).
Как эту задачу решить с помощью пакета Математика? или если она не решается так, то направьте в нужное русло, пожалуйста.

Gordon
Сообщения: 300
Зарегистрирован: Вт сен 08, 2009 8:16 pm

Сообщение Gordon » Сб дек 25, 2010 12:42 pm

Код: Выделить всё

data = Flatten[
   Table[{x, y, Sin[x] + Cos[y]}, {x, 0, 7, 0.1}, {y, 0, 7, 0.1}], 1];
ListContourPlot[data, ColorFunction -> "TemperatureMap"]
ListPlot3D[data, ColorFunction -> "TemperatureMap", Mesh -> None]