Mathematicaで関数をn回繰り返す

Question

テーブル上で関数をn回繰り返す場合、n = 2の場合次のコードがあります。毎回fcが異なるので関数が2回実行されたことを確認するにはどうすればよいですか？ ？

smat = Table[{9, 8, 10}, {3}] 

f[x_?Table] := ReplacePart[ 
x, {{2, 1} -> x[[2]][[1]] - #, {2, 2} -> x[[2]][[2]] + #}] &@ fc[x[[2]][[1]]]; 

fc[k_?NumericQ] := Count[RandomReal[{0, 1}, k], x_ /; x < .1] 

Nest[f, smat, 2] 

Answer 1

Aclはかなりよく、コードの問題をカバーしたので、私はしません。しかし、私が最初にあなたの機能fとfcを分離したい、あなたの質問に答えるために別の細胞、fcがfの前に宣言され、各セルの先頭にClear[<function name>]が付いています。さて、fかどうかをテストするために一時的に

fc[_]:= a 

でfcを交換したり、以外の別の「ダミー」値を使用し、2回適用されているが、読みやすさを高めるために象徴的でなければなりません。注記のポイントとして、{1,2,3} + a == {1 + a, 2 + a, 3 + a}のように、を2度適用すると、x[[2]][[1]]とx[[2]][[2]]の各用語には2 aが追加されます。

fcが正しく動作しているかどうかわからない場合は、まずfを付けないで別のケースに適用します。

Answer 2

これは、あなたが望むものはおそらくです：

smat = Table[{9, 8, 10}, {3}] 
ClearAll[f, fc]; 

f[x_List] := 
ReplacePart[ 
x, {{2, 1} -> x[[2]][[1]] - #, {2, 2} -> x[[2]][[2]] + #}] &@ 
fc[x[[2]][[1]]]; 

fc[k_?NumericQ] := Count[RandomReal[{0, 1}, k], x_ /; x < .1] 

Nest[f, smat, 2] 

ClearAllは（念のため）これらのシンボルのための任意の以前の定義をクリアします。 f[x_?Table]は機能しません。 f[x_List]が必要です。つまり、引数にListの頭（TableはHeadではありません。?はここで必要なものではありません）。私は、私は本当にかかわらず、あなたの質問に答えていることを確認していない

...

EDITは：明確にするため、f[x_?something]は「xにsomethingを適用すると、それがTrueを返した場合、:=の右辺を評価する意味しますそれは次の通りである。多くのためのMathematicaのドキュメントでPatternTestを検索します。