347595_zh-TW

liliconcom

如何直接從內存中的數組計算中獲取使用多列計算的公式的結果？

使用“ Big Class.jmp”和公式數據進行計算的要求如下：

添加“ row6”列，並找到從第10行到最多6行的最小高度；
添加“ row7”列，並找到從第10行到最多7行的height列的最小值；
...
如何使用內存數組方法直接找到“ row6”-“ row9”的結果？

謝謝！

dt=Open("$SAMPLE_DATA/Big Class.jmp");
dt<<NEW column="">9,min(height[Index(Row()-6,Row())])));dt<<RUN formulas="">9,min(height[Index(Row()-7,Row())])));dt<<RUN formulas="">9,min(height[Index(Row()-8,Row())])));dt<<RUN formulas="">9,min(height[Index(Row()-9,Row())])));dt<<RUN formulas=""></RUN></RUN></RUN></RUN></NEW>

 

 

腳本編寫回复：如何直接從內存中的數組計算中獲得由多列計算的公式的結果？

如果我正確理解，您想不使用公式就直接將row6到row9的結果獲取到數組？

 

下面是row6的示例，該示例使用帶有列表的“每行”，並且計算方式與row6列的公式相同。

Names Default To Here(1);

dt=Open("$SAMPLE_DATA/Big Class.jmp");
dt<<NEW column="">9,
   min(height[Index(Row()-6,Row())])
  )
 );
);
dt<<RUN formulas="">9,
   min(:height[Index(Row()-6,Row())])
  )
 )
);
show(row6_list);
dt << new column("row6_l", << set values(row6_list));</RUN></NEW>

 

 

 

回复：如何直接從內存中的數組計算中獲得由多列計算的公式的結果？

Names Default To Here( 1 );
dt = current data table();

theHeight = dt:height << get values;

row6=shape([.],40);
row7=shape([.],40);
row8=shape([.],40);
row9=shape([.],40);
row10=shape([.],40);

For(i=11,i<=N Rows(theHeight),i++,
 row6[i]=Min(theHeight[i-6::i]);
 row7[i]=Min(theHeight[i-7::i]);
 row8[i]=Min(theHeight[i-8::i]);
 row9[i]=Min(theHeight[i-9::i]);
 row10[i]=Min(theHeight[i-10::i]);
);

您必須閱讀《腳本指南》，以便自己開始解決這些問題。

回复：如何直接從內存中的數組計算中獲得由多列計算的公式的結果？

謝謝吉姆！

 

看來此方法不是完整的內存陣列操作。

回复：如何直接從內存中的數組計算中獲得由多列計算的公式的結果？

我的實際計算是：
1。 根據上述要求計算最小值。
2。 根據相同的原理計算最大值。
3。 分別輸入類別6、7、8和9的最大值/最小值。
4。 選擇四個比率的最小值
這會將每行的最小比率輸出到表中，而不會輸出其他中間數據。

我在Excel的VBA中編寫了代碼。

Sub vba()
ar = Range("d2:d" & Cells(Rows.Count, "d").End(3).Row)
ReDim br(1 To UBound(ar), 1 To 8): ReDim cr(1 To UBound(ar), 1 To 1)
For r = 10 To UBound(ar)
    n = 99: m = 0
    For c = 0 To 8
        If ar(r - c, 1) < n Then n = ar(r - c, 1)
        If ar(r - c, 1) > m Then m = ar(r - c, 1)
        If c > 4 Then br(r, c - 4) = n: br(r, c) = m

    Next

Next
Cells(2, "G").Resize(UBound(br), UBound(br, 2)) = br

For r = 10 To UBound(ar)
    For c = 1 To 4
        If c = 1 Then
            cr(r, 1) = br(r, c + 4) / br(r, c)
        Else
            If br(r, c + 4) / br(r, c) < cr(r, 1) Then cr(r, 1) = br(r, c + 4) / br(r, c)
        End If

    Next
Next
Cells(2, "f").Resize(UBound(br), 1) = cr
End Sub

如何將此VBA更改為JSL？

 

謝謝！

回复：如何直接從內存中的數組計算中獲取使用多列計算的公式的結果？

由於我的英語閱讀能力有限，所以只能使用現成的示例作為參考。

在此示例中找到答案。替換矩陣值

 

謝謝專家！