Question

我是Maple的新手并且听说过，这个数学软件在符号计算方面很有用。 S假设我们有一组像

这样的元素

A：= {a，aab，b，aba，abbb，abab ...}

使得＃A = 20并且此外，我们知道这些元素中的一些满足等式，例如对于一些正整数k，^ k =（ab）^ 2。我已经写了一些循环，包括for和if和假设A是一组数字，但我已经筋疲力尽了。我明白了，我无法妥善安排和联系这些功能。我可以请某人暗示我，枫如何帮助我找到k的值，例如在满足上述关系的有限范围内[1..10]？

Answer 1

我可以这样做：

restart:
A:={a,b,1000*a+111*b,101*b+1010*a,110*a+b};
        A := {a, b, 110 a + b, 1000 a + 111 b, 101 b + 1010 a}

 for i from 1 to 9 do
    for j from 1 to 9 do
       As:=subs(a=i,b=j,A);
       for e in As do
           for ee in As do
              if((ee<>e) and (e<=ee^2)) then
                 for k from 1 to 10 while (e^k<ee^2) do
                 od;
                 if(e^k=ee^2) then 
                    print(e,"^",k,"=",ee,"^2");
                 fi;
              fi;
           od;
       od;
    od;
 od;

只需填写您的集合中的元素并让它计算。如果首先对您的组进行排序（因此您有A = [1,6,16,61]）并计算所有平方数，您可以稍快一些。然后遍历条目，但只查看那些更大的（但可能不是你想要的）

需要Maple程序，

1 个答案: