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

Василий1001
Чт май 23, 2013 5:04 pm
Форум: Mathematica
Тема: Возможно ли оставить в списке все элементы большие k
Ответы: 5
Просмотры: 3857

Ниже приведен исходник функции для вычисления элементов списка 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, 6...
Василий1001
Ср май 22, 2013 4:34 pm
Форум: Mathematica
Тема: Возможно ли оставить в списке все элементы большие k
Ответы: 5
Просмотры: 3857

Selin писал(а):Несложно расширить данную функцию и на более общие случаи. Дерзайте. Успехов.


Благодарю!
Буду осваивать.
Василий1001
Вт май 21, 2013 5:06 pm
Форум: Mathematica
Тема: Возможно ли оставить в списке все элементы большие k
Ответы: 5
Просмотры: 3857

Возможно ли оставить в списке все элементы большие k

Возможно ли оставить в списке все элементы большие (меньшие, большие или равные) заданного значения k?
Каким образом это реализовать?[/b]