Сумма

[tsetse]

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

[Kitonum]

Подскажите, как произвести суммирование только по нечетным членам ряда 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]

Подскажите, как произвести суммирование только по нечетным членам ряда 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]

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

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

[tsetse]

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

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

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

[Markiyan Hirnyk]

Мне не не верится, что 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]

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

[berg]

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

[Selin]

> 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]

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

[Izten]

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