Помогите мне разобраться в некоторых формулах,
Цитата:
stereo[p_List] :=
{
inter[t_, p_List] :=
{
InterpolatingPolynomial[Map[First, p], t],
InterpolatingPolynomial[Map[Last, p], t]
};
2 p[[1]]/(p[[1]]^2 + p[[2]]^2 + 1),
2 p[[2]]/(p[[1]]^2 + p[[2]]^2 + 1),
(p[[1]]^2 + p[[2]]^2 - 1)/(p[[1]]^2 + p[[2]]^2 + 1)
};
эта часть кода строит пространственную кривую, на сфере таким образом:
Цитата:
\[Kappa] := 1;
b[t_, p_List] :=
Cross[stereo[inter[t, p]],
D[stereo[inter[tmp, p]], tmp] /. tmp -> t];
curve[t_, p_List] :=
1/\[Kappa]*N[Integrate[FullSimplify[b[t, p]], {u, 0, t}]]
подскажите откуда взялись эти формулы? искала в учебнике Мищенко, Фоменко, там нет(
