転置を避けるスクリプトは動作しますが、そのためには転置を適用する必要があります。目的を達成するためのより洗練された方法はないかと考えています。3 つの列があり、1 つは二次係数 (a)、2 つは一次係数 (b)、3 つは定数 (c) を含んでいます。入力変数 x を掛けると、円弧が得られます。転置せずにその円弧を作成する方法はありますか? 現在、転置されたテーブルで x の増分変化を持つ列を作成していますが、データは非常にデジタルなので、より良いアプローチがあるかもしれません。
ax² + bx + c = 0
自動化とスクリプト作成Re: 転置を避けるための試みY関数を見てみましょう
Re: 転置を避けるための試みジム
ありがとうございます。これに関する分かりやすい例が見つからなかったんです。もっと良い方法があるんじゃないかとは思っていました。ちなみに、Xの上限値も列に格納されています。
Re: 転置を避けるための試みテーブルから値を取得し、スクリプトインデックスにある例に当てはめます。取得した値を、例えば Eval(EvalExpr()) を使用して Y 関数に評価します。
Names Default To Here(1);
New Window("Example",
Graph Box(
Pen Color("red");
Y Function(20 + 40 * Sin(a / 30), a);
)
);
必要に応じて、数式列を作成してプロファイラを使用することもできます。
Re: 転置を避けるための試みこれを試してみましたが、xを2乗する必要があり、そこで失敗するようです。
Names Default To Here(1);
dt = Current Data Table();
nw = New Window("window", vlb = V List Box());
For Each Row(dt,
Eval(EvalExpr(
vlb << Append(Graph Box(Y Function(Expr(dt[Row(), "HL_HR1_R"]) + Expr(dt[Row(), "HL_HR2_R"]) * x + Expr(dt[Row(), "HL_HR3_R"]) * Power (x, 2) ,x)));
))
);
Re: 転置を避けるための試みどのようなエラーが発生しますか？エラーメッセージは表示されますか？4行のダミーテーブルで実行したところ、あなたのコードは正常に動作しました。軸を少し調整する必要があるかもしれません。
Re: 転置を避けるための試みエラーは私のミスでした。おっしゃる通り、プロットはできています。残りの課題は2つです。
1. すべてのプロットを1つのグラフに表示したいです。
2. 各プロットのxの値を、別のデータ列に格納されている値に制限したい。一般的に、その値は100より大きい。
Re: 転置を避けるための試みこんな感じでうまくいくはずです。「X制限」という列を追加して、そこにいくつか数値を入力してみました。
Names Default To Here( 1 );
dt = Current Data Table();
nw = New Window( "window", gb = Graph Box( X Scale( 0, 120 ), Y Scale( 0, 35000 ) ) );
For Each Row(
dt,
Eval(
Eval Expr(
gb[FrameBox( 1 )] << Add Graphics Script(
Y Function(
Expr( dt[Row(), "HL_HR1_R"] ) + Expr( dt[Row(), "HL_HR2_R"] ) * x + Expr( dt[Row(), "HL_HR3_R"] ) * Power( x, 2 ),
x,
Max( Expr( dt[Row(), "X Limit"] ) )
)
)
)
)
);
Re: 転置を避けるための試みこの方法は有効ですが、当初使用していた転置法よりもはるかに処理速度が遅いです。残念ながら、処理しなければならないデータ量が非常に多い場合があります。
