639718_ja-JP

liliconcom

Re:デュレ

おそらく次のようなものでしょう:

For(k=1, k<=6, k++,
 StartValue = Column(k+2)[1];
 For(i=1, i<=6, i++,
  If(num(Column(i+8)[1])>StartValue,break())
 );
 If(i<7, Write(Column("Date début "||(Column(i+8)<<GET name=""></GET>

Re: 期間

お返事ありがとうございます @ポールディーンただし、これはテスト データベースであるため、このスクリプトは 700 列を超える列に対して機能するはずです。

Re:デュレ

少し怠惰な解決策ですが、うまくいくかもしれません

Names Default To Here(1);

dt = Open("$DOWNLOADS/AAAA.jmp");

// would get only numeric columns, but the provided example table is broken...
all_cols = dt << Get Column Names(/*Numeric, */"String"); 
// so first we have to fix the datatable
Remove From(all_cols, 1, 2);
For Each({col_name}, all_cols,
 Column(dt, col_name) << Set Data Type("Numeric");
 Column(dt, col_name) << Set Modeling Type("Continuous");
);

// create list of duration columns
// same amount of columns AND in same order for "number" and duration
date_cols = {};
some_cols = {};

For Each({col_name}, all_cols,
 If(Starts With(lowercase(col_name), "date d"),
  Insert Into(date_cols, col_name);
 , !IsMissing(Regex(col_name, "^\d+$")),
  Insert Into(some_cols, col_name);
 ,
  show(col_name);
 );
);

If(N Items(date_cols) != N Items(some_cols),
 Throw("Column mismatch");
);

// create new columns
dur_cols = {};
For Each({some_col}, some_cols,
 new_col = dt << New Column("duration " || some_col, Numeric, Continuous);
 Insert Into(dur_cols, new_col << get name);
);

// calculation
For Each Row(
 For Each({date_col, idx}, date_cols,
  datesomething = dt[Row(), some_cols[idx]];
  datesomethingvals = dt[Row(), some_cols];
  // to make comparison easier
  datesomethingvals[idx] = .; 
  datesomethingvals[Loc(datesomethingvals < datesomething)] = .; // lazy handling
    
  idx_of_interest = Loc Min(Abs(datesomethingvals - datesomething));
  If(idx_of_interest == 0,
   continue();
  );
  val_of_interest = dt[Row(), date_cols[idx_of_interest]];

  dt[Row(), dur_cols[idx]] = Abs(val_of_interest - dt[Row(), date_col]); // not sure if Abs is correct here
 );
);

// durations for 900 and 4500 for some reason missing from demo data

Re: 期間

お返事ありがとうございます @jthi ！

間隔

 

こんにちは、みんな、

 

以下のようなデータベースがありますが、

 

 

コミックでは、緑色のセルが取得したい結果です。

 

期間を計算するスクリプトを作成したいと思います。

「開始日」列があり、次に実行順序を示す「番号」列があります。

目標は、数値に基づいて「開始日 y - 開始日 x」を計算することです。

 

例を漫画で説明します。

 

1行目: セル内の列「720」の数値が 12 であることがわかります。そのため、すべての「数値」列の中から 12 より大きい最初の列を探します (ここでは、値が 21 の列「740」)。

したがって、期間 720 は、期間 720 = 開始日 740 - 開始日 720 となります。

 

次に、期間 740 については、同じ原則で期間 740 = 開始日 9801 - 開始日 740 となります。

 

私が書き始めたスクリプトは次のとおりです。

 

dt = Current Data Table();

dur_cols = Filter Each( {col_name}, dt << Get Column Names( "String", Continuous ),
 Starts With( col_name, "Date début" )  
);


num_colnr = Transform Each( {col_name}, dur_cols, Word( -1, col_name ) );

char_cols = dt << Get Column Names ("string", Character); 



wait(1);
N_taches = N Items(dur_cols);
for (i = 1, i <= N_taches, i++, 
 Eval(
  Eval Expr(
   col = dt << New Column ( "durée" || num_colnr[i], Numeric, "Continuous", Format(":jou:hh:m",8));
   col << Formula(
    colidx = Loc(dt[row(), char_cols] > Eval(num_colnr[i]))[1];
    If ( N Items(colidx) > 0,
     val = dur_cols[colidx] - Eval(dur_cols[i]);
     If(IsMissing(val),
      0
     ,
      val
   );
  ,
   0
  );
 );
)));

ご協力いただきありがとうございます ！

 

 

消費者および市場調査品質およびプロセスエンジニアリングRe:デュレ

それで？ For ループのカウント数を少し増やします。 または、上限として Ncols() を含めて動的にします。

すでに解決済みの場合は、このトピックを解決済みとしてマークしていただけますか?