3楼: Originally posted by xzczd at 2015-04-14 10:12:50
单就你这个不完整的代码来看，我能给出的建议是别用这种先构造空表再用Do的方法来生成新阵，至少应该直接用Table。替换（ReplaceAll）应该也是不必要的（目测时间大部分浪费在这里了），至少可以利用Table的第五种语 ...

3楼: Originally posted by xzczd at 2015-04-14 10:12:50
单就你这个不完整的代码来看，我能给出的建议是别用这种先构造空表再用Do的方法来生成新阵，至少应该直接用Table。替换（ReplaceAll）应该也是不必要的（目测时间大部分浪费在这里了），至少可以利用Table的第五种语 ...

3楼: Originally posted by xzczd at 2015-04-14 10:12:50
单就你这个不完整的代码来看，我能给出的建议是别用这种先构造空表再用Do的方法来生成新阵，至少应该直接用Table。替换（ReplaceAll）应该也是不必要的（目测时间大部分浪费在这里了），至少可以利用Table的第五种语 ...

2楼: Originally posted by JIAZZU at 2015-04-13 21:32:45
我也不清楚

5楼: Originally posted by zdzqy at 2015-04-14 15:37:22
程序里的数据矩阵cn,nxx,nyy是用Abaqus生成的，然后引用的。t1,t2,t3,t4是一个含有x,y,x1,x2,x3,y1,y2,y3的函数，比较复杂就没贴上去，如果有需要，再贴。...

n = 10^5;

lst = RandomReal[1, n];


ans1 = (Do[a[i] = Sin[lst[[i]]], {i, n}]; Array[a, n]); //
  AbsoluteTiming
ans2 = Table[Sin[j] /. j -> lst[[i]], {i, n}]; // AbsoluteTiming
ans3 = Table[Sin[lst[[i]]], {i, n}]; // AbsoluteTiming
ans4 = Table[Sin[i], {i, lst}]; // AbsoluteTiming
ans5 = Sin /@ lst; // AbsoluteTiming
ans6 = Sin@lst; // AbsoluteTiming

ans1 == ans2 == ans3 == ans4 == ans5 == ans6

9楼: Originally posted by wufengseu at 2015-04-15 15:06:15
除了楼上的建议，如果你的机器是多核的，可以使用并行命令，例如ParallelTable， ParallelDo进行并行计算。