Exponenta.ru

Для вашего случая можно даже проще; > P := proc(x, y, z, t, h, Res) local a, b, c, n, k; a := ["+", "-", "*", "^", "/"]; n := rand(1..4); for k to 10^6 do b := cat(convert(x, string), a[n()], convert(y, string), a[n()], convert(z, string), a[n()], co...

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

То Markiyan Hirnyk: А привел я лишь в порядке общей информированности. Если не интересно (будем надеяться), пропустите. То Berg: Можно и по второму элементу (несложно усмотреть принцип) > F := (x, y) -> evalb(z(x[2], y[2])): z:=`<`: sort(L, F); [[67, 1], [19, 1], [4, 1], [1, 1], [32, 1], [321, 1], [...

Уважаемый Berg , за “студента” не извиняюсь, ибо вы сами себя так обозвали. С остальным понятно. Рад, что в таком возрасте у вас такие серьезные интересы. Именно из уважения к вашкму возрасту решил еще раз ответить. Уважаемый Markiyan Hirnyk! Я привел лишь основу, на базе которой можно получать реше...

Уважаемый berg , обычно я не помогаю студентам с решением примитивных примеров. Но тут вопрос несколько сложнее и поучительнее. Г-н Selin привел довольно эффективное решение для вашего примера при условии получения лишь кратных значений списка (его совет домыслить результата не возымел); именно это ...

Конечно есть, как и у всех достаточно развитых систем. см. ниже In[1]:= x = 56; y := 78; {x, y} Out[1]= {56, 78} In[2]:= Exit[] Out[1]= {x, y} In[1]:= {x, y} Out[1]= {x, y} In[2]:= x = 56; y := 78; {x, y} Out[2]= {56, 78} In[3]:= Quit[] In[1]:= {x, y} Out[1]= {x, y} Однако все зависит от того, что в...

Если вы аккумулировали ненужные вам значения в списке, то можно воспользоваться простой функцией Аладьева . Вызов ClearValues[x] возвращает пустой список, одновременно удаляя из текущего сеанса все переменные, имеющие значения из списка x. Привожу пример из конспекта мастер-класса автора. По моей ин...

In[5]:= y = {x, z}
Out[5]= {x, z}
In[6]:= Definition[y]
Out[6]= Null
In[7]:= Clear[y]
In[8]:= Definition[y]
Out[8]= Null
In[9]:= y = {x, z}
Out[9]= {x, z}
In[10]:= Remove[y]
In[11]:= Definition[y]
Out[11]= Null
In[12]:= a = 56; b = Clear[a]; c = a =.; b === c
Out[12]= True

Вызов функции ClearSystemCache[] должен работать, проверено. Используйте Remove, предварительно отменив атрибут Protected. Средства управления памятью здесь более эффективны, чем в Maple. Проверено неоднократно.