Mathematicaの4番目の変数に応じて3つの変数を更新する方法

Question

whileループの前にa,b,cという3つの変数を定義してから、新しい変数dを計算します。

私は3つのヴァースa,b,cの中で最大の値を取り除き、dの値に置き換えたいと思っています。だから私は元のvars threの最小値を保つことができます。

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 *) 


] 

ので、私は3 VARSの最大を取得すると思うし、その後ウィッヒだから後に新しいiteraionが発生し、更新することを最大の価値..

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!!*) 

を持っているdepenedingそれを更新して実行します3つのヴァース...

Answer 1

別のオプションは次のとおりです。

今

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が新しい値で置き換えられていることがわかります。

Answer 2

個々の名前付きシンボルではなくリスト（配列）の値を受け入れることができ、最大値ではなく、最も近い値を意味する場合は、

vars = {1, 10, 0}; 

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

vars 

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

これも値は、あなたが（この例では、リストに複数の1がある場合など）に一致するすべての値を置き換えたいまたは一意であることを前提としています。

いつも最大の値を置き換えるものがあればNearestではなくMax[vars]になります。更新され、問題の説明に照らして

---

、私が提案している：あなたがこれを自動化したい場合

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]& @ Max@s 

：

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

vals 

{1, 5, 0}

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

vals 

{1, 10, 0}

Answer 3

これはおそらく、この問題に取り掛かるための最良の方法ではありません、

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

あなたがリストabc = {1, 10, 0}ようにあなたの元の値を定義してから最大の要素を交換したほうが良いと思いますリストの私が気付いたように、ウィザード氏は彼の答えでちょうどやりました。

あなたはまた、

SetAttributes[ReplaceMax, HoldFirst] 
ReplaceMax[list : {__Symbol}, val_] := Module[{pos}, 
    pos = Flatten@Position[#, Max@Select[#, N[#] \[Element] Reals &]]&@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}