2014 dxdy logo

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

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




 
 Графики в Mathematica
Сообщение22.11.2010, 13:07 
Как нарисовать касательную к кривой, если сама кривая задана параметрически (x[t],y[t],z[t]) и уже нарисована, а касательная посчитана в виде: (x - x0)/xt0 == (y - y0)/yt0 == (z - z0)/zt0?

 
 
 
 Re: Графики в Mathematica
Сообщение22.11.2010, 14:21 
Аватара пользователя
Касательную тоже в параметрическом виде задать можно:
$\dfrac{x-x_0}{x'}=t$, $x=x(t)=...$ и т. д.

(Пример)

Код:
(* исходная кривая *)
x[t_] := Cos[t]; y[t_] := Sin[t]; z[t_] := t/10;
r[t_] := {x[t], y[t], z[t]};

(* её график *)
a = ParametricPlot3D[r[t], {t, 0, 10 Pi}];

(* Касательная *)
rt[t0_, t_] := t ((D[#, t] & /@ r[t]) /. t -> t0) + r[t0]

(* Возьмём для примера касательную для t=4Pi *)
foo = rt[4 Pi, t];

(* её график *)
b = ParametricPlot3D[foo, {t, 0, 10 Pi}, PlotStyle -> Red];

(* Выводим на экран *)
Show[a, b]

 
 
 
 Re: Графики в Mathematica
Сообщение23.11.2010, 12:55 
Спасибо большое :D

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


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