Решение системы уравнений

Форум пользователей пакета Mathematica

Модератор: Admin

Didi
Сообщения: 6
Зарегистрирован: Чт сен 11, 2008 8:57 am

Решение системы уравнений

Сообщение Didi » Вс июн 24, 2012 10:01 am

У меня часто встречаются системы когда одни переменные выражаются через другие (т.е. достаточно вычислить сначала а0, из следующего уравнения можно найти а1 и т.д.) Математика решает такие системы только когда они небольшие, примерно до 7 неизвестных. Если система имеет больше неизвестных, никаких ошибок не возникает, возвращается пустое решение (очевидно, что решение есть всегда). Скрипт для генерации системы приведен ниже, возможно нужно для решения использовать не Solve, а др. функцию. Хотелось бы понять как решать такие системы в Mathematica (как решать их в ручном варианте понятно)
Заранее спасибо.

Код: Выделить всё

VV=Table[Part[
    Collect[Sum[Subscript[a, i] x^i, {i, 0, 10}] Sum[
       Subscript[a, i] x^i, {i, 0, 10}], x], i] ==
   Sum[Subscript[b, i] x^i, {i, 0, 10}][[i]], {i, 1, 10}] /. x -> 1
Solve[VV, {Subscript[a, 0], Subscript[a, 1], Subscript[a, 2],
  Subscript[a, 3], Subscript[a, 4], Subscript[a, 5], Subscript[a, 6], Subscript[a, 7], Subscript[a, 8], Subscript[a, 9]}]

lolops
Сообщения: 1
Зарегистрирован: Ср июл 18, 2012 7:17 pm

Сообщение lolops » Ср июл 18, 2012 7:50 pm

подскажите пожалуйста с чего начатьделать открытки своими руками вот как эти например http://flavia-cards.com/ ??