以下は私のコードです。
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" は out ループの最初のループを意味し、"j=2" は iner ループの 2 番目のループを意味します。そして今、エラー情報でポイントを見つけたいと思っています。たとえば、この図では、i=1、j=5 の場合のみ、エラー情報はありません。そして、{1,2,3,4} のように、エラーのある j ポイントのリストを取得したいと考えています。プログラムは何度もループするため、これをコードで実行したいと考えています。誰かが私を助けてくれますように！ありがとう！