2014 dxdy logo

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

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




 
 Wolfram Mathematica сдвиг графика решения
Сообщение09.05.2014, 23:58 
Аватара пользователя
Предположим, что у меня есть уравнение $F[x,y]==0$, пусть $S$ — множество его решений. То есть $(a,b) \in S \leftrightarrow F[a,b]=0$. Я хочу нарисовать множество $\{(a,b)+\operatorname{grad}F(a,b) : (a,b) \in S\}$ как я это могу сделать?

 
 
 
 Re: Wolfram Mathematica сдвиг графика решения
Сообщение10.05.2014, 02:35 
Аватара пользователя
Вот решение, если кому надо будет
Код:
ClearAll[x, y, F, g]
F[x_, y_] := Sin[x]/Sqrt[x] + Cos[Sqrt[y]]/ArcTan[y]
g[x_, y_] = Grad[F[x, y], {x, y}]


Manipulate[
Show[#, # /. p : {_Real, _Real} :> p + t g @@ p /. Blue -> Red] &@
ContourPlot[F[x, y] == 0, {x, 1, 20}, {y, 0, 10},
BaseStyle -> {Thickness@.01}, ContourStyle -> Blue], {t, 0, 5}]

 
 
 
 Re: Wolfram Mathematica сдвиг графика решения
Сообщение10.05.2014, 08:28 
При использовании Manipulate там гладкость кривой почему-то ухудшается. Добавление PlotPoints -> 100 помогает.

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


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