Блог

Я определил три переменные a,b,c перед циклом while, а затем вычислил новую переменную d .

Я хочу избавиться от самого большого значения в трех переменных a,b,c , а затем заменить его d значением; Поэтому я могу сохранить наименьшие значения в трех исходных переменных.

 a = 1;
b = 2;
c = 10;
While[ condition,

      compute d using  values of a b and c
      d = 4;      
      a = 1;
      b = 2;
      c = 4;  (*c = d *)


]
  

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

 a = 1;
b = 2;
c = 10;
d = 4;
temp  = Max[a, b];
maxim = Max[c, temp];
a = a; (*did not change*)
b = b; (*did not change*)
c = d = 4 (*changed!!*)
  

Итак, после этого произойдет новая итерация и обновит три переменные…

Другой вариант заключается в следующем:

 Clear@updateList
SetAttributes[updateList, HoldFirst]    
updateList[list_, value_] := 
     Module[{listMax = Max@list}, 
      list = (list /. listMax -> value);]
  

Теперь, если я определяю переменные, как в вашем случае, и использую функцию:

 a = 1; b = 10; c = 0;
updateList[{a,b,c},5];
{a,b,c}

Out[1]= {1, 5, 0}
  

Вы можете видеть, что переменная b , которая была самой большой, была заменена новым значением.

Если вы можете принимать значения в списке (массиве), а не отдельные именованные символы, и если вы действительно имеете в виду «наиболее близкие», а не наибольшие, то вы можете сделать что-то вроде этого:

 vars = {1, 10, 0};

vars = ReplacePart[vars, Position[vars, Nearest[vars, 5][[1]]] -> 5];

vars
  

(* Out= {5, 10, 0} *)

Это также предполагает, что значения уникальны или что вы хотите заменить все совпадающие значения (например, если в 1 этом примере в списке больше одного).

Если вы всегда хотите заменить наибольшее значение, то вы могли Max[vars] бы, а не Nearest .

В свете обновленного описания проблемы я предлагаю:

 vars = {1, 10, 0};
d = 5;

vars = With[{m = Max[vars]}, If[d < m, vars /. m -> d, vars]]
  

Если вы хотите автоматизировать это, вы можете использовать:

 SetAttributes[repmax, HoldFirst]
repmax[s_Symbol, n_?NumericQ] := If[n < #, s = s /. # -> n]amp; @ Max@s
  

Теперь:

 vals = {1, 10, 0};
repmax[vals, 5];

vals
  

{1, 5, 0}

 vals = {1, 10, 0};
repmax[vals, 12];

vals
  

{1, 10, 0}

Вероятно, это не лучший способ решения этой проблемы,

 a = 1; b = 10; c = 0;
Position[#, Max@#] amp;@{a, b, c}
{a, b, c} = ReplacePart[{a, b, c}, % -> 5]
  

Вам было бы лучше определить свои исходные значения в виде списка abc = {1, 10, 0} , а затем заменить элемент max списка. Как я заметил, мистер Мастер только что сделал в своем ответе.

Вы также можете сделать что-то вроде

 SetAttributes[ReplaceMax, HoldFirst]
ReplaceMax[list : {__Symbol}, val_] := Module[{pos},
  pos = Flatten@Position[#, Max@Select[#, N[#] [Element] Reals amp;]]amp;@list;
  Do[Evaluate[(HoldPattern /@ Unevaluated@list)[[p]]] = val, 
     {p, pos}]]
  

Затем

 In[15]:= {a, b, c, d, e} = {1, 15, 6, 17   I, x}; 
In[16]:= ReplaceMax[{a, b, c, d, e}, 5]
          {a, b, c, d, e}

Out[17]= {1, 5, 6, 17   I, x}