2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Wolfram Mathemarica Как нарисовать результат процедуры в 3D?
Сообщение04.05.2015, 14:14 
Здраствуйте!
Помогите, пожалуйста, нарисовать график сумы результатов моей процедуры в 3D!!
Процедура выводит график функции Sin[x] и прямоугольники на нем И Ln[y] и прямоугольники на нем !!
Изображение
Изображение
Мне нужно вывести это в 3D, тогда эти прямоугольники должны стать паралелепипетами..

Код:
  spxsin = {-1, -0.35, 0.3, 0.95, 1.6, 2.375, 3.15, 3.925, 4.7, 5.025,
      5.35, 5.675, 6};   
     spxlny = {1, 2.25, 3.5, 4.75, 6};
        operation[value_, f_, a_, b_] := Block[{data},
          data = Table[{x, f[x]}, {x, a, b, 0.1}];
          Graphics[{Thick, Blue, Line[data],
            Green,
            Table[Point[{value[[i]], f[value[[i]]]}], {i, 1, Length[value]}],
            Pink, Opacity[.7],
            Table[Rectangle[{value[[i]], f[value[[i]]]}, {value[[i + 1]],
               f[value[[i + 1]]]}], {i, 1, Length[value] - 1}]
            }, Axes -> True]]
       
    operation[spxsin, Sin, -1, 6]       
    operation[spxlny, Log, 1, 6]


я пробовала вот так, но нет никакого результата(

Код:
Plot3D[{operation[spxsin, Sin, -1, 6] + operation[spxlny, Log, 1, 6]}, {x, -1, 6}, {y, 1, 6}]

 
 
 
 Re: Wolfram Mathemarica Как нарисовать результат процедуры в 3D?
Сообщение06.05.2015, 23:38 
poisongirlala: никак паралелепипеды не получатся, ибо исходно третьей координаты просто нет.
Меняйте Graphics на Graphics3D, добавляйте третью координату (можно просто 0) в список, который вы отрисовываете Line, меняйте Rectangle на Box c добавлением 3-их координат начала и конца.

Альтернатива, если просто нужны паралелепипеды на графике, а не честное 3D - наляпать их Inset[...]-ом

 
 
 [ Сообщений: 2 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group