karl_karlsson
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
terminat0r
Цитата:| Кто говорит? Вы вольфрамовцам выслали уже? |
Не знаю.
Иначе, к сожалению, Владимир Бондаренко почему то не обновляет maple.bug-list.org.
r_green
Вот еще если написать
Код: Unprotect[Sum];
Sum[Plus[a_,b_],i_]:=Sum[a,i]+Sum[b,i]
Protect[Sum];
Sum[Sum[p*(-1)^(i + j + k), {i, 1, k}] + 2*r, {k, 1, j}]
|
то получается что надо
Код:| (1/4)*(-1)^j*(-1 - (-1)^j + 2*(-1)^(2*j) + 2*(-1)^(2*j)*j)*p + 2*j*r |
Но если написать
Код: Unprotect[Sum];
Sum[Plus[a_, b_], i_] := Sum[a, i] + Sum[b, i]
Protect[Sum];
Sum[p + (-1)^(k + 1)*(1 + (-1)^k), {k, 1, j}] |
то получается что то еще другое и значит еще что то не так
Код:
Иначе FullSimplify
Код:| Sum[FullSimplify[p + (-1)^(k + 1)*(1 + (-1)^k)], {k, 1, j}] |
работает как надо
Код:| (1/2)*(1 - (-1)^j - 2*j) + j*p |
Еще, если в первое выражение поменять r на е, например
Код:| Sum[Sum[p*(-1)^(i + j + k), {i, 1, k}] + 2*e, {k, 1, j}] |
то е вообще исчезает
Код:| (1/4)*(1 + 4*(-1)^(2*j) + 4*j^2 + 4*p^2) |
Что то на новейшего Free-Form Linguistic Input напоминает... 
А у Maple вот такая красота, хотя на 90% думаю оно верно, только практически использовать его затруднительно
Подробнее...
Добавлено:
popkov
А у меня вот так
Ну такой вопросик - там 5.0, 5.1, 5.2, 5.3. Разница какая то имеется?
У меня только 5.1 - до этого пользовался 4. |
