678221_zh-TW

liliconcom

向報告發送命令

我想獲得一些有關如何向平台報告中的元素發送命令的幫助，我之前在 Xan Gregg 的建議的幫助下已經完成了。 我自己在另一種情況下做過這件事，當時我碰巧得到了正確的代碼，但我找不到任何東西可以真正解釋每次如何做。 我有一份來自時間序列平台的報告，我想向該報告發送第一個模型出現的大綱框中的“保存列”命令。 該大綱框有一個下拉窗口。 我嘗試過 Update Element() 以及 Save Columns(1) 和 Save columns。 我的猜測是，我沒有正確識別大綱框，並且找不到有關如何執行此操作的信息，因此我非常感謝有關如何每次識別正確元素的討論。 附件是報告窗口的屏幕截圖，下面是我的 JSL 嘗試。 任何幫助是極大的讚賞。

dt = Current Data Table();
 
ts = dt << Time Series(
 Y( :"Forming Line-Forming Line Speed"n ),
 Input List( :Mat Length ),
 Variogram( 1 ),
 Transfer Function(
  Order( 0, 1, 6 ),
  Seasonal( 0, 0, 0, 1 ),
  :Mat Length( Order( 0, 1, 0 ), Seasonal( 0, 0, 0, 1 ), Lag( 0 ) ),
  Prediction Interval( 0.85 ),
  Number of Forecast Periods( 6 )
 ),
 Model Comparison Report( Select Reports( [1] ), Select Graphs( Empty() ) ),
 Input Series( :Mat Length, Variogram( 0 ) ),
 SendToReport(
  Dispatch(
   {"Time Series Forming Line-Forming Line Speed", "Model Comparison"},
   "",
   ScrollBox,
   {Background Color( {246, 250, 254} )}
  ),
  Dispatch(
   {"Time Series Forming Line-Forming Line Speed", "Transfer Function Model (1)",
   "Interactive Forecasting"},
   "Time Series",
   FrameBox,
   {DispatchSeg( CustomStreamSeg( 2 ), {Line Color( "Red" )} ),
   DispatchSeg( CustomStreamSeg( 3 ), {Line Color( "Blue" )} ),
   DispatchSeg( CustomStreamSeg( 4 ), {Line Color( "Blue" )} ),
   DispatchSeg( CustomStreamSeg( 5 ), {Line Color( "Blue" )} )}
  )
 )
);
tsr = Report( ts );
tsb = tsr( Outline Box( "Transfer Function Model (1)" ) );
tsb << Save Columns;

 

// tsr << Update Element(1, 1, 1, 1, 8, 1, {Save Columns}));

// tsr << Update Element(1, 1, 3, {Save Columns}));
;

自動化和腳本編寫回复：向報告發送命令

以下是一些可能對您有用的選項（或者至少可以告訴您該怎麼做）

Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Time Series/SeriesJ.jmp");
obj = dt << Time Series(Y(:Output CO2), Input List(:Input Gas Rate));
obj << Transfer Function(
 Order(2, 0, 0),
 Seasonal(0, 0, 0, 0),
 :Input Gas Rate(Order(2, 0, 2), Seasonal(0, 0, 0, 0), Lag(3))
);
obj2 = obj << Transfer Function(
 Order(2, 0, 0),
 Seasonal(0, 0, 0, 0),
 :Input Gas Rate(Order(2, 0, 2), Seasonal(0, 0, 0, 0), Lag(3)),
 No Intercept(1),
 Alternative Parameterization(1),
 Confidence Intervals(0.99),
 Number of Forecast Periods(10)
);

dt1 = obj2 << Save Columns; // using second reference

// using timeseries reference
dt2 = (Report(obj)[OutlineBox("Transfer Function Model (1)")] << get scriptable object) << Save Columns;

show(dt1, dt2);

 

回复：向報告發送命令

感謝您的幫助！ 這樣可行！ 對此，我真的非常感激！

擔