予測不可能な直交フィット表示ウィンドウのタイトルjslスクリプトを使用して一連の直交フィットプロットを作成していますが、それぞれにメッセージを送信する必要があります(デフォルトでは解析結果ボックスを閉じます)。ただし、そのボックスのタイトルには比率値が含まれているため予測できません。比率の値の形式は値の大きさの順序によって異なります。いくつかの例を以下に示します。直交フィット率= 0.000直交フィット率= 0.123直交フィット率= 1.234直交フィット率= 1234直交フィット率= 12345直交フィット率= 1e + 6これらの潜在的な事態に対処するためのコードの書き方?簡単な解決策は、直交で始まるすべての解析ボックスを閉じることができればです。予測不可能な直交フィット表示ウィンドウのタイトル最後の行を変更して、正しいhelpKeyでアウトラインボックスを検索します。
Names Default To Here( 1 );
// open data table
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
// create container for platform references
platform = List();
dt << New Column( "agenum", formula( Num( :age ) ) );
// launch platform
p = dt << Fit Group(
Bivariate( Y( :weight ), X( :height ), Fit Orthogonal( Univariate Variances, {Line Color( {213, 72, 87} )} ) ),
Bivariate( Y( :weight ), X( :agenum ), Fit Orthogonal( Univariate Variances, {Line Color( {213, 72, 87} )} ) ),
<<{Arrange in Rows( 2 )}
);
// save reference in the list
Insert Into( platform, p );
Wait( 1 );
// send message to all platforms
( platform << XPath("//OutlineBox[@helpKey='Bivar Ortho']") ) << Close( 1 );予測不可能な直交フィット表示ウィンドウのタイトルありがとう。私が実際にやりたいことは以下の通りです。最後の行は機能しませんが、考えは実際のプロットではなく分析ボックスを閉じることです。私は通常ほとんどの解析ボックス(フィットラインなど)に対してこれを行うことができますが、解析の結果が実際にはボックスの名前に組み込まれているため、直交フィットには特別な問題があります。
パット
名前のデフォルトはここにあります(1)。
//データテーブルを開く
dt = Open( "$ SAMPLE_DATA / Big Class.jmp");
//プラットフォーム参照用のコンテナを作成する
platform = List();
dt <<新しい列( "agenum"、式(Num(:age)));
//起動プラットフォーム
p = dt << Fit Group(
二変量(
Y(:重量)
X(:高さ)
直交フィット(単変量分散、{線の色({213、72、87})})
)
二変量(
Y(:重量)
X(:agenum)、
直交フィット(単変量分散、{線の色({213、72、87})})
)
<< {行に配置する(2)}
;
//参照をリストに保存する
に挿入する(作業台、p)。
待ちます(1)。
//すべてのプラットフォームにメッセージを送信
platform << Dispatch({}、"直交フィット率=?"、OutlineBox、{Close(1)});
予測不可能な直交フィット表示ウィンドウのタイトル起動時にウィンドウへの参照を保存してからメッセージを送信することもできます。参照をリストに格納すると、リストはメッセージをすべての項目に配布します。この例を参照してください。
Names Default to Here( 1 );
// open data table
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
// create container for platform references
platform = List();
// launch first platform
p = dt << Distribution( Y( :weight, :height ) );
// save reference in the list
Insert Into( platform, p );
Wait( 1 );
// launch second platform
p = dt << Bivariate( Y( :weight ), X( :height ), Fit Line );
// save reference in the list
Insert Into( platform, p );
Wait( 1 );
// send message to all platforms
platform << Close Window;
予測不可能な直交フィット表示ウィンドウのタイトル私はXPathを使うでしょう、多分これはあなたが始められるようになるでしょう:
Names default to here( 1);
dt = Open( "$Sample_data/iris.jmp" );
win = New Window( "Bivariate Fits",
dt << Bivariate(
Y( :Sepal length ),
X( :Sepal width ),
Fit Orthogonal( Univariate Variances, {Line Color( {213, 72, 87} )} )
),
dt << Bivariate(
Y( :Petal length ),
X( :Petal width ),
Fit Orthogonal( Univariate Variances, {Line Color( {213, 72, 87} )} )
)
);
( win << XPath("//OutlineBox[@helpKey='Bivar Ortho']") ) << Close( 1 );
( win << XPath("//OutlineBox[@helpKey='Bivar Ortho']") )[1] << Close( 0 );
//Here is how I found the helpKey:
win << Show tree structure