macros - 画像への ImageJ スタック & 画像の名前変更

Question

imagej には小さな問題があります。フォルダに .ti​​f ファイルがあり、3 つの異なるファイル (青チャンネル、緑チャンネル、赤チャンネル) で構成されています。それらを別々の写真に変換したいのですが、緑色のものだけを保持するには、マクロでこれを行いたいのですが、うまくいきません。.tif を開いて、別の画像 (Image-0001、Image-0002、Image-0003) に変換できます。しかし、それらの名前を blueImage、greenImage、redImage に変更したいと思います。

グーグルでこれにたどり着きましたが、これは画像を別のファイルとして保存し、エラーが発生します。

macro split_color{ 
    dir1 = getDirectory("InputDir"); 
    list = getFileList(dir1); 
    dir2 = getDirectory("OutpurDir"); 
    for (i=0; i<list.length; i++) { 
        open(dir1+list[i]); 
        title1=File.nameWithoutExtension; 
        for (j=1; j<=3; j++){ 
            run("Stack to Images")
            "  slices="+j); 
            run("8-bit"); 
            if (j==1) c = "blue"; 
            else if(j==2) c = "green"; 
            else c = "red"; 
            saveAs("tif", dir2+title1+"-"+c+".tif"); 
            wait(100); 
            close(); 
        } 
        close(); 
    } 
    showMessage("Macro is finished"); 
} 

私はこれを機能させることができません、誰が私を助けることができますか?

ありがとう