mathmaticaについて詳しい方に助けを借りたいです。

質問

以下の問題の精密解答が欲しいです…。
自分でやっても、エラーばかりで、どこが間違っているのかがよくわからないので、誰か助けてください！
1問だけでも解答が頂けると助かります。

１．0≦x≦n,0≦y≦nの範囲の格子点(x,y)でxが奇数でy<x^2をみたすもの全体のリストg(n)を求める関数gをMathmaticaによって定義せよ。

２．x[0]=0.1,x[n+1]=2.5(1-x[n])x[n]によって数列x[n]を定義する。初期値a(=x[k])からはじめて、｜x[n+1]-x[n]｜が許容誤差eps未満になるまで繰り返しx[k],x[k+1],...を求め、｜x[n+1]-x[n]｜<epsを満たす最初のx[n]を求める関数ff(関数適用はff(a,eps))をMathmaticaによって定義せよ。

３．与えられた整数のリストxsに対して、はじめに、負の要素が並び、つぎに３で割った余りが１のxsの要素が並び、最後にそれ以外のxsの要素が並んだリストを返す関数hをMathmaticaによって定義せよ。

回答No.2

rabbit_cat

訂正
１．
g[n_] := Flatten[Table[{x, y}, {x, 1, n, 2}, {y, 0, Min[n, x^2 - 1]}], 1]

回答No.1

rabbit_cat

1.
g[n_] := Table[{x, y}, {x, 1, n, 2}, {y, 0, x^2-1}]

2.
問題の意味がよくわからない。
最初にx[0]=0.1 て書いてあるけどこれは無視して、初期値x[0]=a からはじめるというでいいですかね？ そうだとすれば、
ff[a_, eps_] := NestWhile[25/10(1 - #1)#1&, a, ! (Abs[#1 - (25/10(1 - #1)#1)] < eps)&]

3. これはもっときれいな方法がある気がしますが。
h[list_] :=
Module[{list0 = list, ret, match0},
match0 = Map[#1 < 0 &, list0];
ret = Pick[list0, match0];
list0 = Pick[list0, match0, False];
match0 = Map[Mod[#1, 3] == 1 &, list0];
ret = Join[ret, Pick[list0, match0]];
list0 = Pick[list0, match0, False];
ret = Join[ret, list0]]