Exponenta.ru

Процедуру Substitution, решающую этот вопрос, обнаружил по адресу

http://bbian.webs.com/Files/Mathematica_Maple.pdf

на стр. 4. Проверка показала, что процедура носит достаточно общий характер.

Проще, но для частного случая. Вам же дано решение для общего случая.

Ниже приведен исходник функции для вычисления элементов списка l, больших k, с примером. In[2066]:= Elements[l_List, k_] := Select[l, # >= k &] In[2067]:= {p, a} = {1, {}}; While[p < 30, AppendTo[a, RandomInteger[{5, 100}]]; p++]; a Out[2067]= {72, 22, 67, 14, 100, 63, 97, 10, 21, 15, 12, 36, 69...

Для желающих действительно освоить Мапл рекомендую

http://www.aladjev-maple.narod.ru
http://www.aladjev-maple-book.narod.ru

Скачивается бесплатно. Прекрасное и детальное изложение системы программирования в Мапл. Лучших для русскоязычных я не знаю.

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

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

> [Beta, beta, Kappa, kappa, Nu, nu, Theta, theta, Zeta, zeta];

[Beta, beta, Kappa, kappa, Nu, nu, Theta, theta, Zeta, zeta]

end so on. Unfortunately, possibilities of this site are very limited, therefore you can check the approach on own PC.

Уважаемая, в строке

ListPlot[inipool[[All, cellAuxinIndex]], Joined -> True];

ошибка, о чем и говорит ";". Будьте внимательнее при копировании чужих кодов. Извините, но нет времени заниматься этим.

Уважаемая, прежде всего отмечу, что ваш jpg-текст, практически, нечитаем. При попытке увеличения размывается. Посему рекомендую впредь давать в txt-формате – и читабельнее, и просто копировать помогающему на свой комп, а не набирать вручную с ваших рисунков. Неужели вы думаете, что форумчанам больше...

Уважаемый! Можно подыскать здесь

http://www.exponenta.ru/educat/links/b_mpl.asp

а можно и здесь как на английском, так и на русском

http://www.maplesoft.com/books/index.aspx

тогда как бесплатно можно скачать здесь

http://www.aladjev-maple.narod.ru
http://www.aladjev-maple-book.narod.ru

Как видим, диагностика более конкретна. Попробуйте результат писать в файл, скажем, по writeto.

ледует изначально все определять массивами, а не конвертировать.

См., например, среди книг списка http://www.exponenta.ru/educat/links/b_mat.asp. Много можно найти в инете. Очень много на английском в свободном доступе. См. сайт разработчиков www.wolfram.com. Дерзайте, вопрос весьма прост.

Есть, если вместо векторов использовать массивы (array), векторы имеют ограничения по длине.

> L:=[67, 19, 4, 90, 1, 5, 32, 90, 5, 5, 321];
L := [67, 19, 4, 90, 1, 5, 32, 90, 5, 5, 321]
> H:=[op({op(ListTools[FindRepetitions](L))})]: seq([H[t],ListTools[Occurrences](H[t],L)],t=1..nops(H));
[5, 3], [90, 2]