以下是我的代码。
as = Flatten[Import["e:\\matlab\\piturn\\Nor_bms\\as.mat"]];
da = AccountingForm[
Flatten[Import["e:\\matlab\\piturn\\Nor_bms\\da.mat"]]];
For[i = 1, i < 2304, i++, ghdparam = Table[0, {i, 1, 909}, {j, 1, 5}];
For[j = 1, j < 910, j++,
path = "e:\\mathematica\\abs_5s\\" <>
StringTake[ToString[AccountingForm[da[[1, j]]]], 8] <> "\\" <>
as[[i]] <> ".mat";
If[FileExistsQ[path], abs = Flatten[Import[path], 1], Continue[]];
abms = abs[[All, 1]] - abs[[All, 2]];
Print["i=", i];
ghdparam[[j]] =
FindDistributionParameters[abms,
HyperbolicDistribution[\[Lambda], \[Alpha], \[Beta], \[Delta], \
\[Mu]], ParameterEstimator -> "MethodOfMoments"];Print["j="];
Print[j];
Export["e:\\mathematica\\continuous\\" <> as[[i]] <> ".mat",
ghdparam];
Clear[path, abs, abms]]]
此图像是mathematica中我的代码输出的一部分。 “i = 1”表示输出循环中的第一个循环,“j = 2”表示内循环中的第二个循环。现在我想找到包含错误信息的点。例如,在该图中,仅当i = 1且j = 5时,没有错误信息。然后我想获得有错误的j点列表,就像{1,2,3,4}一样。对于该程序将循环许多次,我想通过代码执行此操作。愿有人帮助我!谢谢!