Найдено 43 результата

Selin
Сб ноя 14, 2015 11:57 am
Форум: Mathematica
Тема: Одна и та же ошибка и в Mathematica 7, и в Maple 11
Ответы: 9
Просмотры: 8194

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

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

на стр. 4. Проверка показала, что процедура носит достаточно общий характер.
Selin
Пт май 24, 2013 10:28 am
Форум: Mathematica
Тема: Возможно ли оставить в списке все элементы большие k
Ответы: 5
Просмотры: 3914

Проще, но для частного случая. Вам же дано решение для общего случая.
Selin
Вт май 21, 2013 6:13 pm
Форум: Mathematica
Тема: Возможно ли оставить в списке все элементы большие k
Ответы: 5
Просмотры: 3914

Ниже приведен исходник функции для вычисления элементов списка 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...
Selin
Пт май 03, 2013 2:58 pm
Форум: Maple
Тема: Книги
Ответы: 5
Просмотры: 2426

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

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

Скачивается бесплатно. Прекрасное и детальное изложение системы программирования в Мапл. Лучших для русскоязычных я не знаю.
Selin
Пн апр 15, 2013 12:43 pm
Форум: Maple
Тема: Сумма
Ответы: 10
Просмотры: 3317

> 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...
Selin
Ср апр 10, 2013 11:06 am
Форум: Maple
Тема: Сумма
Ответы: 10
Просмотры: 3317

> f := (n::integer) -> `+`(seq(`if`(type(p, odd), p, 0), p = 1..n)): f(100);
2500
Selin
Пн апр 08, 2013 11:11 am
Форум: Maple
Тема: Греческие буквы
Ответы: 7
Просмотры: 3864

> [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.
Selin
Пт мар 29, 2013 12:15 pm
Форум: Mathematica
Тема: возможно синтаксическая ошибка, помогите разобраться
Ответы: 4
Просмотры: 3709

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

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

ошибка, о чем и говорит ";". Будьте внимательнее при копировании чужих кодов. Извините, но нет времени заниматься этим.
Selin
Пт мар 29, 2013 11:44 am
Форум: Mathematica
Тема: возможно синтаксическая ошибка, помогите разобраться
Ответы: 4
Просмотры: 3709

Уважаемая, прежде всего отмечу, что ваш jpg-текст, практически, нечитаем. При попытке увеличения размывается. Посему рекомендую впредь давать в txt-формате – и читабельнее, и просто копировать помогающему на свой комп, а не набирать вручную с ваших рисунков. Неужели вы думаете, что форумчанам больше...
Selin
Вс янв 27, 2013 10:24 am
Форум: Maple
Тема: литература по Maple
Ответы: 6
Просмотры: 3280

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

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
Selin
Вс янв 13, 2013 10:43 am
Форум: Maple
Тема: Проблема с объемом вычислений.
Ответы: 17
Просмотры: 5449

Как видим, диагностика более конкретна. Попробуйте результат писать в файл, скажем, по writeto.
Selin
Сб янв 12, 2013 11:40 am
Форум: Maple
Тема: Проблема с объемом вычислений.
Ответы: 17
Просмотры: 5449

ледует изначально все определять массивами, а не конвертировать.
Selin
Пт янв 11, 2013 9:10 pm
Форум: Mathematica
Тема: Помогите пожалуйста найти информацию
Ответы: 6
Просмотры: 3795

См., например, среди книг списка http://www.exponenta.ru/educat/links/b_mat.asp. Много можно найти в инете. Очень много на английском в свободном доступе. См. сайт разработчиков www.wolfram.com. Дерзайте, вопрос весьма прост.
Selin
Пт янв 11, 2013 11:25 am
Форум: Maple
Тема: Проблема с объемом вычислений.
Ответы: 17
Просмотры: 5449

Есть, если вместо векторов использовать массивы (array), векторы имеют ограничения по длине.
Selin
Сб окт 13, 2012 2:54 pm
Форум: Maple
Тема: Количество повторяющихся чисел в списке
Ответы: 13
Просмотры: 3898

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