〓Mathematica〓 - 暇つぶし2ch

〓Mathematica〓 at MATH

568:１３２人目の素数さん
03/07/27 15:15
>>567
それなら
UpperInd[n_Integer] := Module[
　　 {ConvertFunc = Sin[#[[1]] + #[[2]]] &, CondFunc = EvenQ[#[[2]]] &},
　　 ConvertFunc /@ Flatten[Table[
　　　　　 Select[Table[{i, j}, {j, i + 1, n}], CondFunc], {i, n - 1}], 1]]
あるいは、
Table[If[..., ..., Gomi],...]としてあとでGomiを除くとか。

綺麗なのは、

ConvertFunc /@ Select[Flatten[Table[{i,j},{i,n},{j,n}],1], CondFunc]

(CondFuncのなかで#[[1]] < #[[2]]も判定)
みたいなやつかな。

次ページ

続きを表示

1を表示