Найдено 452 результата

Andrey
Вт окт 21, 2003 2:31 pm
Форум: Mathematica
Тема: сшивка решений ОДУ
Ответы: 4
Просмотры: 8334

Разбить y на y1(x,k1) и y2(x,k2):
DSolve[{y1""[x]-k1^2*y1[x]==0,y2""[x]-k2^2*y2[x]==0,y1[0]==y2[1],y1[1/2]==y2[1/2]},{y1[x],y2[x]},x]
Andrey
Вс окт 12, 2003 4:40 pm
Форум: Mathematica
Тема: Аппроксимация
Ответы: 1
Просмотры: 6082

Не понял, зачем что то вручную преобразовывать.

list = Table[A[[i + j - 1]], {i, 1, m - n}, {j, n + 1}]
x = Array[X, n];
res = Fit[list, x, x]
Coefficient[res, x]

Только они сейчас в обратную сторону записаны