83653_ja-JP

liliconcom

ゴーストグラフ

さて、私はこれを戸惑いましたが、論理的な結論を見つけることはできませんでした。

dt = Open ();

col_list = dt << get column names(string);

remove from(col_list, 1); // Remove time[sec] from list
cols_to_plot = {};
offset_list  = {};
offset_cols  = {};
// Define the graph builder commands in an expression for use by the OK button
graph_expr = expr(
 for (i = 1, i <= nitems(cols_to_plot), i++,
  new_name = cols_to_plot[i] || "-Chemical Cal";
  insertinto(offset_cols, new_name);
  dt << new column(new_name, Numeric, "Continuous", Format( "Best", 12 ),
   Formula( as column(dt, cols_to_plot[i]) * offset_list[i] ) );
   
 );
// Now for the graph - build a text string and then execute it
 gb_text = "\[gb = graph builder(
 show control panel(0),
 variables(
  X( :Name( "Time[sec]" ) ),]\";
 elements_txt = " ),
 Elements( Line( X, ";
 
 For( i = 1, i <= N Items( cols_to_plot ), i++,
  If( i == 1, 
  // then
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ) ), ]\" )
  , 
  // else
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ), Position( 1 ) ),]\" )
  );

  elements_txt = elements_txt || Eval Insert( "Y ( ^i^ ), " );
 );

 elements_txt = elements_txt ||
 "Legend( 7 ) ), 
 Points( X, ";
 
 For( i = 1, i <= N Items( cols_to_plot ), i++,
  If( i == 1, 
  // then
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ) ), ]\" )
  , 
  // else
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ), Position( 1 ) ),]\" )
  );

  elements_txt = elements_txt || Eval Insert( "Y ( ^i^ ), " );
 );

 elements_txt = elements_txt || 
 "Legend(8)))";
 gb_text = gb_text || elements_txt || "); ";
 Eval( Parse( gb_text ) );
 
);


 

nw = new window("Graph Chemicals",
 panel box("Select channels to graph",
  lineup box(ncol(2), 
   text box("Column"), text box("Chemical Cal"),
   cb1 = checkbox("Ch1"), ch1_neb = number edit box(),
   cb2 = checkbox("Ch2"), ch2_neb = number edit box(),
   cb3 = checkbox("Ch3"), ch3_neb = number edit box(),
   cb4 = checkbox("Ch4"), ch4_neb = number edit box(),
   cb5 = checkbox("Ch5"), ch5_neb = number edit box(),
   cb6 = checkbox("Ch6"), ch6_neb = number edit box(),
   cb7 = checkbox("Ch7"), ch7_neb = number edit box(),
   cb8 = checkbox("Ch8"), ch8_neb = number edit box(),
   cb9 = checkbox("Ch9"), ch9_neb = number edit box(),
  ),
 ),
 panelbox("Actions",
  hlistbox(
   okb  = button box("OK",
    if (cb1 << get(1), 
     insertinto(cols_to_plot, col_list[8]);
     offset_value = ch1_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb2 << get(1), 
     insertinto(cols_to_plot, col_list[9]);
     offset_value = ch2_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb3 << get(1), 
     insertinto(cols_to_plot, col_list[10]);
     offset_value = ch3_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb4 << get(1), 
     insertinto(cols_to_plot, col_list[11]);
     offset_value = ch4_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb5 << get(1), 
     insertinto(cols_to_plot, col_list[12]);
     offset_value = ch5_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb6 << get(1), 
     insertinto(cols_to_plot, col_list[13]);
     offset_value = ch6_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb7 << get(1), 
     insertinto(cols_to_plot, col_list[14]);
     offset_value = ch7_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb8 << get(1), 
     insertinto(cols_to_plot, col_list[15]);
     offset_value = ch8_neb << get;
     insertinto(offset_list, offset_value);
    );
    graph_expr;
    nw << close window;
   ),
   canb = button box("Cancel", nw << close window;
   ),
  )
 ),
);

// Pre-check checkboxes if column exists
for (i = 1, i <= nitems(col_list), i++,
 if (col_list[i] == "Ch1", cb1 << set(1, 1),
  col_list[i] == "Ch2", cb2 << set(1, 1),
  col_list[i] == "Ch3", cb3 << set(1, 1),
  col_list[i] == "Ch4", cb4 << set(1, 1),
  col_list[i] == "Ch5", cb5 << set(1, 1),
  col_list[i] == "Ch6", cb6 << set(1, 1),
  col_list[i] == "Ch7", cb7 << set(1, 1),
  col_list[i] == "Ch8", cb8 << set(1, 1),
  col_list[i] == "Ch9", cb9 << set(1, 1),
 );
);

スクリプトはこれです。目的は線と点の両方を表示する単一のグラフを作成することです。これはウィンドウで選択した列の数（化学較正係数によって変更されます）を評価できます。誤った滑らかなグラフを得ているが、それについては説明できない。変数スクリプトが重複していることが原因だと思いますが、それを排除または調整して必要な結果を得る方法はわかりません。

 

 

これは望ましくないグラフがどのように見えるかであり、そして私がスクリプトを実行した後にスクリプトが示すものがここにあるものです

その滑らかなスクリプトがどのように生成されているかを説明するスクリプトのどこにも見つけることはできませんが、それはあります。スムーズなグラフに3行目を追加して不要なグラフを削除したり上書きしたりすることに成功したかどうかを確認し、次の凡例の定義をスクリプトに含まれていないため、これも失敗しました。スクリプトはそれを認識しません。

とにかく、うまくいけば誰かがアイデアを持っているでしょう、あなたの助けを事前に感謝します！

再：ゴーストグラフ

dt = Open ();

col_list = dt << get column names(string);

remove from(col_list, 1); // Remove time[sec] from list
cols_to_plot = {};
offset_list  = {};
offset_cols  = {};
// Define the graph builder commands in an expression for use by the OK button
graph_expr = expr(
 for (i = 1, i <= nitems(cols_to_plot), i++,
  new_name = cols_to_plot[i] || "-Chemical Cal";
  insertinto(offset_cols, new_name);
  dt << new column(new_name, Numeric, "Continuous", Format( "Best", 12 ),
   Formula( as column(dt, cols_to_plot[i]) * offset_list[i] ) );
   
 );
// Now for the graph - build a text string and then execute it
 gb_text = "\[gb = graph builder(
 show control panel(0),
 variables(
  X( :Name( "Time[sec]" ) ),]\";
 elements_txt = " ),
 Elements( Line( X, ";
 
 For( i = 1, i <= N Items( cols_to_plot ), i++,
  If( i == 1, 
  // then
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ) ), ]\" )
  , 
  // else
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ), Position( 1 ) ),]\" )
  );

  elements_txt = elements_txt || Eval Insert( "Y ( ^i^ ), " );
 );

 elements_txt = elements_txt ||
 "Legend( 7 ) ), 
 Points( X, ";
 
 For( i = 1, i <= N Items( cols_to_plot ), i++,
  
  elements_txt = elements_txt || Eval Insert( "Y ( ^i^ ), " );
 );

 elements_txt = elements_txt || 
 "Legend(8)))";
 
 gb_text = gb_text || elements_txt || "); ";
 Eval( Parse( gb_text ) );
 
);


 

nw = new window("Graph Chemicals",
 panel box("Select channels to graph",
  lineup box(ncol(2), 
   text box("Column"), text box("Chemical Cal"),
   cb1 = checkbox("Ch1"), ch1_neb = number edit box(),
   cb2 = checkbox("Ch2"), ch2_neb = number edit box(),
   cb3 = checkbox("Ch3"), ch3_neb = number edit box(),
   cb4 = checkbox("Ch4"), ch4_neb = number edit box(),
   cb5 = checkbox("Ch5"), ch5_neb = number edit box(),
   cb6 = checkbox("Ch6"), ch6_neb = number edit box(),
   cb7 = checkbox("Ch7"), ch7_neb = number edit box(),
   cb8 = checkbox("Ch8"), ch8_neb = number edit box(),
   cb9 = checkbox("Ch9"), ch9_neb = number edit box(),
  ),
 ),
 panelbox("Actions",
  hlistbox(
   okb  = button box("OK",
    if (cb1 << get(1), 
     insertinto(cols_to_plot, col_list[8]);
     offset_value = ch1_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb2 << get(1), 
     insertinto(cols_to_plot, col_list[9]);
     offset_value = ch2_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb3 << get(1), 
     insertinto(cols_to_plot, col_list[10]);
     offset_value = ch3_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb4 << get(1), 
     insertinto(cols_to_plot, col_list[11]);
     offset_value = ch4_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb5 << get(1), 
     insertinto(cols_to_plot, col_list[12]);
     offset_value = ch5_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb6 << get(1), 
     insertinto(cols_to_plot, col_list[13]);
     offset_value = ch6_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb7 << get(1), 
     insertinto(cols_to_plot, col_list[14]);
     offset_value = ch7_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb8 << get(1), 
     insertinto(cols_to_plot, col_list[15]);
     offset_value = ch8_neb << get;
     insertinto(offset_list, offset_value);
    );
    graph_expr;
    nw << close window;
   ),
   canb = button box("Cancel", nw << close window;
   ),
  )
 ),
);

// Pre-check checkboxes if column exists
for (i = 1, i <= nitems(col_list), i++,
 if (col_list[i] == "Ch1", cb1 << set(1, 1),
  col_list[i] == "Ch2", cb2 << set(1, 1),
  col_list[i] == "Ch3", cb3 << set(1, 1),
  col_list[i] == "Ch4", cb4 << set(1, 1),
  col_list[i] == "Ch5", cb5 << set(1, 1),
  col_list[i] == "Ch6", cb6 << set(1, 1),
  col_list[i] == "Ch7", cb7 << set(1, 1),
  col_list[i] == "Ch8", cb8 << set(1, 1),
  col_list[i] == "Ch9", cb9 << set(1, 1),
 );
);

これは奇跡ですが、冗長性と関係があることはわかっていましたが、セグメントを分割せずに削除する方法を見つけ出すことができなかったため、最終的に把握できました。ドットサイズを調整することができるのであれば、ラインXDになります。

 

再：ゴーストグラフ

Graph Builder(
 Show Control Panel( 0 ),
 Variables(
  X( :Name( "Time[sec]" ) ),
  Y( :Name( "CH2-Chemical Cal" ) ),
  Y( :Name( "CH5-Chemical Cal" ), Position( 1 ) ),
  Y( :Name( "CH6-Chemical Cal" ), Position( 1 ) ),
  Y( :Name( "CH5-Chemical Cal" ), Position( 1 ) ),
  Y( :Name( "CH6-Chemical Cal" ), Position( 1 ) )
 ),
 Elements(
  Line( X, Y( 1 ), Y( 2 ), Y( 3 ), Legend( 7 ) ),
  Points( X, Y( 1 ), Y( 2 ), Y( 3 ), Legend( 8 ) )
 ),
 SendToReport( Dispatch( {}, "Graph Builder", FrameBox, {Marker Size( 0 )} ) )
);

 

興味深いことに、誤ったグラフを削除した後、最初のチャンネル（重複している）にはY変数が1つしかなく、他の2つにはまだありますが、誤ったグラフは作成されません。グラフの目的は、ピーク値を識別しやすくするためにグラフのピークセグメントを選択することができますが、必要なものを表示するのが一番簡単なので、必要な線をたくさん作成できるようにすることです。外観。lineでは線上の点を選択できないため、その機能には点が必要ですが、視覚的には不要です。

 

遅れてすみません、感謝祭の休日は長かった、私はあなたのものが快適だったことを願っています^。^

再：ゴーストグラフ

ダミオン、

欲しいグラフのグラフビルダーコードで投稿を更新してください。列を作成したので、ポイントアンドクリックで実行します（GUI）。

 

あなたのEメールから、私はあなたがこのようなものを望んでいるという印象を受けています

Graph Builder(
 Show Control Panel( 0 ),
 Variables(
  X( :Name( "Time[sec]" ) ),
  Y( :Name( "CH2" ) ),
  Y( :Name( "CH2-Chemical Cal" ), Position(1) )
 ),
 Elements(
  Position( 1, 1 ),
  Line( X, Y(1), Y(2) Legend( 7 ) ),
  Points( X, Y(1), Y(2) Legend( 8 ) ) //maybe remove Y(2) from points?
 ),
);

これは2つの曲線を重ね合わせるでしょう。私はただ推測していますか？

再：ゴーストグラフ

これは問題の一部ではないかと思いますが、1つのグラフだけでまったく同じスクリプトを実行した場合（点または線が関係ないかどうかは関係ありません）、追加のグラフは作成されません。

dt = Open ();

col_list = dt << get column names(string);

remove from(col_list, 1); // Remove time[sec] from list
cols_to_plot = {};
offset_list  = {};
offset_cols  = {};
// Define the graph builder commands in an expression for use by the OK button
graph_expr = expr(
 for (i = 1, i <= nitems(cols_to_plot), i++,
  new_name = cols_to_plot[i] || "-Chemical Cal";
  insertinto(offset_cols, new_name);
  dt << new column(new_name, Numeric, "Continuous", Format( "Best", 12 ),
   Formula( as column(dt, cols_to_plot[i]) * offset_list[i] ) );
   
 );
// Now for the graph - build a text string and then execute it
 gb_text = "\[gb = graph builder(
 show control panel(0),
 variables(
  X( :Name( "Time[sec]" ) ),]\";
 elements_txt = " ),
 Elements( Line( X, ";
 
 For( i = 1, i <= N Items( cols_to_plot ), i++,
  If( i == 1, 
  // then
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ) ), ]\" )
  , 
  // else
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ), Position( 1 ) ),]\" )
  );

  elements_txt = elements_txt || Eval Insert( "Y ( ^i^ ), " );
 );

// add in the marker and transparency code
 elements_txt = elements_txt ||
 "Legend( 7 ) ), Points( X, Y, Legend(8))),
SendToReport(
  Dispatch(
   {},
   \!"400\!",
   ScaleBox,
   {Legend Model(
    8,
    Properties( 0, {Marker Size( 0 ), Transparency( 0 )}, Item ID( \!""
  || offset_cols[1] || "\!", 1 ) )
   )}
  )
 )";
 gb_text = gb_text || elements_txt || "); ";
 Eval( Parse( gb_text ) );
 
);


 

nw = new window("Graph Chemicals",
 panel box("Select channels to graph",
  lineup box(ncol(2), 
   text box("Column"), text box("Chemical Cal"),
   cb1 = checkbox("Ch1"), ch1_neb = number edit box(),
   cb2 = checkbox("Ch2"), ch2_neb = number edit box(),
   cb3 = checkbox("Ch3"), ch3_neb = number edit box(),
   cb4 = checkbox("Ch4"), ch4_neb = number edit box(),
   cb5 = checkbox("Ch5"), ch5_neb = number edit box(),
   cb6 = checkbox("Ch6"), ch6_neb = number edit box(),
   cb7 = checkbox("Ch7"), ch7_neb = number edit box(),
   cb8 = checkbox("Ch8"), ch8_neb = number edit box(),
   cb9 = checkbox("Ch9"), ch9_neb = number edit box(),
  ),
 ),
 panelbox("Actions",
  hlistbox(
   okb  = button box("OK",
    if (cb1 << get(1), 
     insertinto(cols_to_plot, col_list[8]);
     offset_value = ch1_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb2 << get(1), 
     insertinto(cols_to_plot, col_list[9]);
     offset_value = ch2_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb3 << get(1), 
     insertinto(cols_to_plot, col_list[10]);
     offset_value = ch3_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb4 << get(1), 
     insertinto(cols_to_plot, col_list[11]);
     offset_value = ch4_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb5 << get(1), 
     insertinto(cols_to_plot, col_list[12]);
     offset_value = ch5_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb6 << get(1), 
     insertinto(cols_to_plot, col_list[13]);
     offset_value = ch6_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb7 << get(1), 
     insertinto(cols_to_plot, col_list[14]);
     offset_value = ch7_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb8 << get(1), 
     insertinto(cols_to_plot, col_list[15]);
     offset_value = ch8_neb << get;
     insertinto(offset_list, offset_value);
    );
    graph_expr;
    nw << close window;
   ),
   canb = button box("Cancel", nw << close window;
   ),
  )
 ),
);

// Pre-check checkboxes if column exists
for (i = 1, i <= nitems(col_list), i++,
 if (col_list[i] == "Ch1", cb1 << set(1, 1),
  col_list[i] == "Ch2", cb2 << set(1, 1),
  col_list[i] == "Ch3", cb3 << set(1, 1),
  col_list[i] == "Ch4", cb4 << set(1, 1),
  col_list[i] == "Ch5", cb5 << set(1, 1),
  col_list[i] == "Ch6", cb6 << set(1, 1),
  col_list[i] == "Ch7", cb7 << set(1, 1),
  col_list[i] == "Ch8", cb8 << set(1, 1),
  col_list[i] == "Ch9", cb9 << set(1, 1),
 );
);

それは実際には余分なYを生成すべきではない、それ以外の場合はそうであるので、それらのうちの1つだけが生成されるべきだが、私は2番目のグラフに入れるif ifを複製してこのゴーストを作成しているのでそのビルドから生成されたスクリプトを見ると、サポートされていると思います

 

Graph Builder(
 Show Control Panel( 0 ),
 Variables(
  X( :Name( "Time[sec]" ) ),
  Y( :Name( "CH2-Chemical Cal" ) ),
  Y( :Name( "CH2-Chemical Cal" ) )
 ),
 Elements(
  Position( 1, 1 ),
  Line( X, Y, Legend( 7 ) ),
  Points( X, Y, Legend( 8 ) )
 ),
 Elements(
  Position( 1, 2 ),
  Points( X, Y, Legend( 9 ) ),
  Smoother( X, Y, Legend( 10 ) )
 )
);

それは、なめらかな2つ目のグラフだけでなく、なめらかな2つ目の点グラフも追加するためです。

 

 

私は削除しようとしました

|| 評価挿入 （ 「Y（^ i ^）」 ）

スクリプトの要素の後ろから、それは基本的にそれを垂直線に変えました（そしてそれでもなお、より滑らかで点数のグラフを、魔法のように作り出しました）

再：ゴーストグラフ

不要な名前のコードが重複しているようです（余分なコピーを貼り付けますか？）。  2つの要素が必要ですが、Yの名前は1回です。  重複した名前が再びY（1）を描画し、デフォルトはより滑らかな要素です

 

以下はBigClassからのものです。次のJSLはあなたのスクリプトからの重複コードです。

Graph Builder(
 Size( 528, 454 ),
 Show Control Panel( 0 ),
 Variables( X( :weight ), Y( :height ) ),
 Elements( Points( X, Y, Legend( 3 ) ), Line( X, Y, Legend( 5 ) ) )
)

 

For( i = 1, i <= N Items( cols_to_plot ), i++,
  If( i == 1, 
  // then
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ) ), ]\" )
  , 
  // else
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ), Position( 1 ) ),]\" )
  );

  elements_txt = elements_txt || Eval Insert( "Y ( ^i^ ), " );
 );