Your attempt used x^k, so I will too.

restart;

H := x^k+x^(2*k):

degree(expand(H),x^k);

             2

There,

expand(H);

                          2
                  k   / k\ 
                 x  + \x / 

That kind of interactive layout of DrawGraph is using functionality provided by the DocumentTools:-InsertContent command to embed an interactive Plot Component into a Task Region of the worksheet.

There can only be a single Task Region for each Execution Group or Document Block. In consequence those repeated calls to InsertContent (from the same input statement) successively overwrite the same Task Region, clobbering its prior content.

This functionality restriction is shared by other commands which use InsertContent, eg,
  DocumentTools:-Tabulate
  Explore
  ImageTools:-Embed

Some such commands allow you (optionally) to force the XML content to be returned rather than embedded, in which case with a little extra effort the multiple instances of that can be stitched together and embedded together. But the DrawGraph and GraphTheory:-InteractiveLayout commands don't seem to offer that.

In the attachment below is code that modifies GraphTheory:-InteractiveLayout so that it (and DrawGraph) can optionally return (early) just the XML of the generated individual Plot Component for a single graph. That doesn't happen unless _EnvDGIReturnXML is set to true., and otherwise DrawGraph should behave as usual.

The AltDGI procedure takes a list of graphs and assembles the corresponding Plot Components into a GUI Table, which it embeds.

I used Maple 2021.2, and it's possible that matters because I'm altering some part of a stock procedure body (by position/inert-form-operand).

If this behaves like you want then let me know if you'd like a revision that handles a Matrix of graphs instead of just a list of graphs.

graph_interactive_table_ac.mw

It sounds as if you might be looking for the functionality provided by subsindets (or evalindets). Those allow you to act on all subexpressions of a particular type.

Notice the similarity between commands indets and subsindets. You could see their respective help-pages.

Here are two made-up examples, since you didn't provide one explicitly. I may have guessed wrong as you your specific goals. It'd be better if you provided actual examples.

There are often several ways to target a flavour of subexpression. (I might have used divide instead of all that member action, in the latter example. The choice between them could depend on whether you want to match exactly `a`  as a multiplicand in the exponent, or `a` as a factor.)

The first example involves exp calls, and the second involves calls to `^`.

Download subsindets_example2.mw

Download subsindets_example.mw

The evalb command is suitable for testing that two equations have the same structure (somewhat akin to being literally the same), but it is not intended for an check of mathematical/algebraic equivalence.

Many examples that arise in practice can be checked by this more suitable test,

   is( eqn1-eqn2 = 0 );

which is slightly more robust than,

   is( eqn1 = eqn2 );

Note also that you can put assumptions on that call, eg,

   is( eqn1-eqn2 = 0 ) assumming x>0, a::real, t::real;

or what have you.

There are a few very rare instance where the extra kick from,

   is( simplify(eqn1-eqn2) = 0 );

is necessary.

Is it the case that you only want assertion-checking on some of your own procedures? If so then you might temporarily turn it off during the key Library calls in your try..catch. For example,

Download AL1.mw

Or perhaps it is the case that you want assertion-checking only for enforcing the local or return types of certain procedures (ie, not the ASSERT calls)? In that case perhaps you could temporarily disable just those. For example (and, you don't need to put it all inside the try..catch).

Download AL2.mw

If you have some more complicated scenerio or usage then you really ought to adequately describe it. Your brief statement, "But I need to use kernelopts('assertlevel'=2): in my program" doesn't explain how you need to use it.

As to why that behaviour happened, consider where the assertion-check fails in your example. It happens in line 82 of Maple 2021.2's routine, SolveTools:-Transformers:-Identity:-Apply. And if coeff(dz1,sol) is +-infinity then line 83 gets that raised exception. You write as if the former assertion-failure prevents the ensuing numeric exception is some very special way. But it only prevents it because it fails first.

showstat(((SolveTools::Transformers)::Identity)::Apply,82..83);

Apply := proc(syst::SubSystem)
local SS, news, af, repeat, sys, eqns, ineqs, vars, z, ind, inds, inds1, inds2, z1,
ineqs2, ip, z3, w, i, v, sol, nopush, r2, dz1, newsystem, savesystem, pts, 
  aeqns, beqns, t, onlylin, x, r3, di, e, subsys, recsols;
       ...
  82                   ASSERT(degree(dz1,sol) = 1);
  83                   dz1 := normal(-coeff(dz1,sol,0)/coeff(dz1,sol));
       ...
end proc

There are a few fancier variations on the following idea of temporarily substituting the target term with a dummy (using algsubs, or subs, etc, as appropriate).

Download isolate_alg.mw

The approaches in other Answers (shown so far) involve more ad hoc manipulations involving key subexpressions and their location, ie. more specific to the particular form of the given example. This makes them less general-purpose -- without problem-specific (manual) assistance.

The OP has alluded to a longer, as yet unseen, example. It would be much better to provide that up front, to alleviate hit-and-miss guessing as to technique.

I cannot tell whether you want the exact results better simplified (but still in terms of exact radicals) or as floating-point approximations.

restart;

f := 9*x^3 - 7*x^2*y + 8*x*y^2 - 6*y^3 + 3*x^2 - 3*x*y + 4*y^2 - 3*x + 9*y - 7:
fx:=diff(f,x):
fy:= diff(f,y):

ctpts:= simplify(evala([solve({fx=0,fy=0},{x,y},explicit)])):

length~(ctpts);
                    [3946, 3946, 3916, 3916]

sort(evalf(ctpts));
          [{x = -0.2777746987, y = -0.6265224303}, 

            {x = -0.1196978963, y = -0.5678259685}, {

            x = 0.04295586208 - 0.2689937611 I, 

            y = 0.9924517216 - 0.1221355627 I}, {

            x = 0.04295586208 + 0.2689937611 I, 

            y = 0.9924517216 + 0.1221355627 I}]

There is a Units:-Simple package, which rebinds several commands and allows this kind of comparison to resolve. (Most of Maple doesn't otherwise know much about units.)

Download Problem_IF_ac.mw

By the way, there is no command Restart with a capital "R". The command is restart, all lowercase.

Inside main's catch clause the callstack is no longer what it was when the original exception was thrown.

You can access the procedure name, using lastexception[1]. For example,

Download try_loc.mw

If your procedures/modules are being accessed from a Library archive into which they were saved (and if the source exists so that line-number information can be used) then you may be able to access that source via lasterrorlocus and showsource. (See the Description of the Help page for topic error.)

For example, I have a file "foo.mpl" with the following plaintext Maple code in it:

A := module()  
  local B:=module()
     export foo:=proc(n)
         1/n;
     end proc;
  end module;
  export main:=proc()
    try
       B:-foo(0);
    catch:
      if lasterrorlocus<>'lasterrorlocus' then
         print(lasterrorlocus);
         showsource();
      end if; 
      print(sprintf("error happened in %a: %s",
            lastexception[1],
            StringTools:-FormatMessage(lastexception[2..-1])));
    end try;
  end proc;
end module:

I can then load that into a .mla Library archive file, and access the relevent souce upon catching an error. For example:

Download try_locb.mw

I'll note that the lastexception[1] shows as A:-main in that last example, while more usefully it shows foo in the first example. But the point of the second example is mostly about printing the source snippet with error location indicated.

If you want the result from calling komb to include indexed names then you could form then as such.

Your approach of concatenating produces names that pretty-print with subscripts but are not indexed names.

There are two kinds of name that pretty-print with subscripts:
1) indexed names like a[2,2] for which the subscripts pretty-print in upright Roman characters.
2) special names with double-underscore like say `a__2,2` for which the subscript pretty-prints in italic characters.
These two kinds of name might appear similar, except for the italic aspect and that is easy to overlook. But they are quite distinct from each other (ie. will not cancel upon subtraction).

That approach of concatenation will produce global names. If you want the result from komb to not have escaped local (indexed) names then you can pass in the base-symbol as an additional argument (instead of declaring that base-symbol as local). Below, I do this by having var be an additional parameter of the procedure komb, so that the base-symbol (eg. a) can be passed in. The effect is that the results from komb have the same kind of global name a as are in the Matrix A.

Download indexed_ac.mw

The colored portions shown by sparsematrixplot are filled polygons, not symbols, ie. it's not a point-plot, which is why passing the symbol option doesn't work for you.

Here's another approach:

Download sparse_mat_plot3.mw

Another example:

A := Matrix(100,(i,j)->sin(Pi*(i+j)/20)) *~
     LinearAlgebra:-RandomMatrix(100, generator=1..1,
                                 density=0.1):

H(A, symbolsize=6, symbol=soliddiamond,
  background="#777777", size=[500,500]);

If you do decide that you want just filled polygons rather than symbols -- but colored according to value -- then another approach would be to use the Statistics:-HeatMap command, optionally with a colorscheme option.

It wasn't clear whether you were going to deal with other, larger, Matrices. Once the size gets moderately large (more than 200, say) then switching to a density-style plot using surfdata might be better in terms of GUI performance. And if the size got large (more than 400, say) then switching from a plot to an image might be better.

Here's a way, that has reasonably decent speed to get 500x500 resolution.

It also uses the iteration count to adjust the intensity of the color, retaining a little more information. I like the extra pop it provides. Some alternates approaches are commented out.

The timing is not bad: in total about 4.2 sec for the whole computation on my machine.

But the classifier that matches points to closest root of the polynomial is not optimized, and that step alone takes a 2.2 sec portion of that total! (I couldn't find my old code that did that step better, sorry...)

newtbasin2.mw

The above shows an image, in the ImageTools sense. You could turn that into a kind of density-style plot with axes as follows. And you could optionally display this along with a pointplot of the roots, etc. (But note that rendering such high-resolution density-style plots uses a great deal of GUI resources. Embedding images is much gentler on the GUI.)

PLOT(GRID(-2..2,-2..2,Matrix(N,N,datatype=float[8]),
     COLOR(RGB,Rotate(final,-90,degrees))),
     STYLE(PATCHNOGRID),AXESSTYLE(BOX));

Of course one could optionally scale the intensity (brightness) in reverse, so that points which took longer to converge were darker. (That might jibe better with the non-converged points showing as black.)

And here is the same thing, with the option of using the escape-count to adjust the color saturation as well as its intensity.

And here is the other option, using a simpler "scheme 1" for the coloring.

It looks as if you might be trying to compute the following kind of thing.

(But you might be unclear on the differences between definite and indefinite integration).

Download question11_ac.mw

If you can figure out what kind of integration you really intend then perhaps it's worth investigating why you were raising Digits so high.

Perhaps you're after this kind of functionality,

solve( Or(And(x + y = 2,y = 1,x > 0),And(x^2 = 4, x < 0, y = 0)) );
 
         {x = 1, y = 1}, {x = -2, y = 0}

Download solve_ex2.mw