我的程序计算的结果只有第一次是准确的，所以我每次都得重开程序再计算。百度说是在循环中加Quit[]来终止内核，但是它会连循环也一起终止了，请问应该怎么修改呢？
result = Table[Null, {i, 1000}, {j, 2}];
result2 = Table[Null, {i, 1000}, {j, 100}];
result3 = Table[Null, {i, 1000}, {j, 100}];
a = 3;
For[lp = 6 a, lp <= 20 a, lp = lp + 2 a,
For[ds = 3, ds <= 3, ds = ds + 0.00001,
开头
];
result[[lp/2/a, 1]] = lp;
result[[lp/2/a, 2]] = NIntegrate[fpz[z] (wx2[z]), {z, L0, L2}]/
NIntegrate[\[Mu]kz[z] (wx2[z])^2, {z, L0, L2}];
result2[[1, lp/2/a]] = lp;
result3[[1, lp/2/a]] = lp;
For[kk = 0, kk <= lp, kk = kk + 0.5,
result2[[kk*10 + 1, lp/2/a]] = Re[Hz[kk]];
result3[[kk*10 + 1, lp/2/a]] = Re[Mz[kk]];
];
Export["哈哈嗨.xlsx", result];
Export["哈哈嗨2.xlsx", result2];
Export["哈哈嗨3.xlsx", result3];
Quit[];
]
结尾

1. 你代码根本不完整，贴了跟没贴一样。
2. 你每循环一次就把那三个XLSX文件覆盖一遍是想干嘛？
3. 别用For了行吗：https://tieba.baidu.com/p/5104865347