※ 引述《suinegoast (想不到暱称)》之铭言：
: 小弟在研究遇到了一些技术性的瓶颈
: 指令FindRoot求解1200条方程式耗时25秒
: 使用Do循环执行60000次上述事情
: 估计费时17天8小时40分钟
: 请问版上高手是否知道更省时的办法呢？感激不尽！
Exp[x - a] == y, y^2 == x+b
data = Flatten[Table[{a, b}, {a, 1, 2, 0.1}, {b, 0, 1, 0.1}], 1];
(* 平行运算 *)
ParallelMap[
FindRoot[{Exp[x - #[[1]]] == y,
y^2 == x + #[[2]]}, {{x, 1}, {y, 1}}] &, data]
如果有Lightweight Grid，记得安装打开，整个实验室的电脑一起算。