[求助]：各位仁兄帮忙看一下这个程序哪有错误？

[make12358]

<< Statistics`ContinuousDistributions`
f[x1] := Which[9000 ≤ x1 < 10000, (-9000 +
x1)/200000, 10000 ≤ x1 < 13000, (-13000 + x1)/6000000]
F[x1] := Integrate[f[t], {t, 9000, x1}]
x2 = NormalDistribution[5000, 300];
x3 = NormalDistribution[2000, 100];
G[x_, P_] := F[x] - p;
Nex[x_, y_, z_] := N[x - y/z];
m[p_] := (x = 11000;
While[Abs[G[x_, p_] > 1*10^(-10),
x = Nex[x, G[x_, p_], f[x]]]]; x);
X1 = Map[m, Table[Random[], {20}]]
在运行后出现不了结果，请各位大哥帮忙看一下，哪些地方输入有误？谢谢了！

[lifereader]

错误太多了，没耐心去改，

函数f[x1]，F[x1]的定义有误，
G[x_, P_] := F[x] - p;两个p不一样，Mathematica是大小写敏感的；
模块概念不熟