so many thank??

I thought about Parallelize. However, I use ------

Partition[time, UpTo[Round[Length[time]/$KernelCount]]];

to separate the "time" table(Sorry, I can't find all script). What's the simpler but more efficient way is to use ParalleTable.

I already set use 7-8 kernels. I used ---

Needs["Benchmarking`"];

to test speed. The CUP workload reached 100%. It did have some improvement. But form what I observed, efficiency may not only decide by the number of cup-core. I also found form Internet that we can use compile into C to gain a faster script. But I current use Manipulate, maybe I can can only rely on Exorp gif or avi. Thank you patient writing and reading. Also it really cheering to see someone have the small thought but do it in a more efficient way.