1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
%mathpiper,title=""
/*
I renamed your program JasAccess so that it can be used as the
primary class which MathPiper will use to access JAS (for now,
at least.).
*/
jas := JavaNew("org.mathpiper.builtin.library.jas.JasAccess");
//Note: debug output is sent to the Activity Log.
JavaCall(jas,"setDebug",True);
resultSet := JavaCall(jas,"factorPolyInt","x**2-9", "x");
iterator := JavaCall(resultSet,"iterator");
While(JavaValue(JavaCall(iterator,"hasNext")) = True)
[
entrySet := JavaCall(iterator,"next");
factor := JavaValue(JavaCall(entrySet,"getKey"));
multiplicity := JavaValue(JavaCall(entrySet,"getValue"));
Echo(factor, multiplicity);
];
%/mathpiper
%output,preserve="false"
Result: True
Side Effects:
x - 3 1
x + 3 1
. %/output
|
