Сумма

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

Модератор: Admin

tsetse
Сообщения: 38
Зарегистрирован: Пн дек 05, 2011 3:16 am

Сумма

Сообщение tsetse » Ср апр 10, 2013 12:01 am

Подскажите, как произвести суммирование только по нечетным членам ряда sum(f,n=1,3..5) выдает ошибку.

Kitonum
Сообщения: 2078
Зарегистрирован: Ср дек 31, 2008 1:55 pm
Откуда: г. Пенза

Re: Сумма

Сообщение Kitonum » Ср апр 10, 2013 12:37 am

tsetse писал(а):Подскажите, как произвести суммирование только по нечетным членам ряда sum(f,n=1,3..5) выдает ошибку.

Примеры:

sum((1/2)^(2*k-1), k=1..5);
sum((1/2)^(2*k-1), k=1..n);
sum((1/2)^(2*k-1), k=1..infinity);

Изображение

tsetse
Сообщения: 38
Зарегистрирован: Пн дек 05, 2011 3:16 am

Re: Сумма

Сообщение tsetse » Ср апр 10, 2013 12:41 am

Kitonum писал(а):
tsetse писал(а):Подскажите, как произвести суммирование только по нечетным членам ряда sum(f,n=1,3..5) выдает ошибку.

Примеры:

sum((1/2)^(2*k-1), k=1..5);
sum((1/2)^(2*k-1), k=1..n);
sum((1/2)^(2*k-1), k=1..infinity);

Изображение
А не существует ли более простых методов?

Kitonum
Сообщения: 2078
Зарегистрирован: Ср дек 31, 2008 1:55 pm
Откуда: г. Пенза

Re: Сумма

Сообщение Kitonum » Ср апр 10, 2013 1:34 am

tsetse писал(а):А не существует ли более простых методов?

Не понял! А что Вы считаете сложным в этих трёх строчках?

tsetse
Сообщения: 38
Зарегистрирован: Пн дек 05, 2011 3:16 am

Re: Сумма

Сообщение tsetse » Ср апр 10, 2013 1:47 am

Kitonum писал(а):
tsetse писал(а):А не существует ли более простых методов?

Не понял! А что Вы считаете сложным в этих трёх строчках?
Мне не верится, что maple не способен создавать интервалы вида m=1,3..7. Даже mathcad с этим прекрасно справлялся. Сложности в выражениях никакой, просто выражения становятся несколько более громоздкими, чего я стараюсь избежать.

Markiyan Hirnyk
Сообщения: 1340
Зарегистрирован: Вс дек 04, 2011 11:07 pm

Re: Сумма

Сообщение Markiyan Hirnyk » Ср апр 10, 2013 9:04 am

tsetse писал(а):Мне не не верится, что maple не способен создавать интервалы вида m=1,3..7. Даже mathcad с этим прекрасно справлялся. Сложности в выражениях никакой, просто выражения становятся несколько более громоздкими, чего я стараюсь избежать.

Как Вам это?
add(k, k = seq(2*n+1, n = 1 .. 7))
63
add(k, k = [1, 3, 5])
9

Selin
Сообщения: 43
Зарегистрирован: Чт апр 14, 2011 11:14 am

Сообщение Selin » Ср апр 10, 2013 11:06 am

> f := (n::integer) -> `+`(seq(`if`(type(p, odd), p, 0), p = 1..n)): f(100);
2500

berg
Сообщения: 37
Зарегистрирован: Чт янв 19, 2012 8:33 pm

Сообщение berg » Пн апр 15, 2013 12:12 pm

Задача о сложении членов последовательности с четными (или нечетными) порядковыми НОМЕРАМИ трудностей не вызывает. А вот как выполнить сложение четных (или нечетных) ЧЛЕНОВ последовательности?
Например, ((n^2+n))/2=>1, 3, 6, 10, 15, 21, 28, ...

Selin
Сообщения: 43
Зарегистрирован: Чт апр 14, 2011 11:14 am

Сообщение Selin » Пн апр 15, 2013 12:43 pm

> F := proc(n::posint, t) local a, k; a := [seq((p^2 + p)/2, p = 1..n)]; `+`(seq(`if`(type(k, t), a[k], 0), k=1..nops(a))) end:

> F(5, odd);
22
> F(5, even);
13

> F1 := proc(n::posint,t) local a,k; a:=[seq((p^2+p)/2, p = 1..n)]; `+`(seq(`if`(type(a[k],t),a[k],0),k=1..nops(a))) end:>
> F1(5,odd);
19
> F1(5,even);
16

berg
Сообщения: 37
Зарегистрирован: Чт янв 19, 2012 8:33 pm

Сообщение berg » Пн апр 15, 2013 7:28 pm

Selin, спасибо.
Вторая процедура делает всё правильно.
А вот что считает первая, я так и не понял.

Izten
Сообщения: 1
Зарегистрирован: Пн апр 29, 2013 3:14 pm
Откуда: отсюда
Контактная информация:

Сообщение Izten » Пн апр 29, 2013 3:18 pm

Вроде бы все нормально описано.