acer

32994 Reputation

29 Badges

20 years, 164 days
Ontario, Canada

Social Networks and Content at Maplesoft.com

MaplePrimes Activity


These are answers submitted by acer

I've used Maple 2024.0 here.

restart

expr1 := m^3*r*(cos(theta)^6*a^6-9*cos(theta)^4*a^4*r^2+11*cos(theta)^2*a^2*r^4-(1/3)*r^6)*(cos(theta)^2*a^2-(1/3)*r^2)/(r^2+cos(theta)^2*a^2)^9

expr2 := (a^8*(r^10-10*m*r^9+(5*(a^2+8*m^2))*r^8-80*m^3*r^7+(10*(a^4+12*a^2*m^2+8*m^4))*r^6+(4*(-15*a^4*m-40*a^2*m^3-8*m^5))*r^5+(10*(a^6+12*a^4*m^2+8*a^2*m^4))*r^4+(40*(-a^6*m-2*a^4*m^3))*r^3+(5*(a^8+8*a^6*m^2))*r^2-10*a^8*m*r+a^10)*cos(theta)^8-(1/3)*(28*(-30*sin(theta)^2*a^4*m*r^5*(1/7)+r^10-10*m*r^9+(5*(a^2+8*m^2))*r^8+(40*(-a^2*m-2*m^3))*r^7+(10*(a^4+12*a^2*m^2+8*m^4))*r^6+(32*(-5*a^2*m^3-m^5))*r^5+(10*(a^6+12*a^4*m^2+8*a^2*m^4))*r^4+(40*(-a^6*m-2*a^4*m^3))*r^3+(5*(a^8+8*a^6*m^2))*r^2-10*a^8*m*r+a^10))*a^6*r^2*cos(theta)^6+(14*(-260*sin(theta)^2*a^6*m*r^3*(1/7)+r^10-10*m*r^9+(5*(a^2+8*m^2))*r^8+(40*(-a^2*m-2*m^3))*r^7+(10*(a^4+12*a^2*m^2+8*m^4))*r^6+(4*(-15*a^4*m-40*a^2*m^3-8*m^5))*r^5+(10*(a^6+12*a^4*m^2+8*a^2*m^4))*r^4-80*a^4*m^3*r^3+(5*(a^8+8*a^6*m^2))*r^2-10*a^8*m*r+a^10))*a^4*r^4*cos(theta)^4-4*a^2*(-10*a^8*m*r*sin(theta)^2+r^10-10*m*r^9+(5*(a^2+8*m^2))*r^8+(40*(-a^2*m-2*m^3))*r^7+(10*(a^4+12*a^2*m^2+8*m^4))*r^6+(4*(-15*a^4*m-40*a^2*m^3-8*m^5))*r^5+(10*(a^6+12*a^4*m^2+8*a^2*m^4))*r^4+(40*(-a^6*m-2*a^4*m^3))*r^3+(5*(a^8+8*a^6*m^2))*r^2+a^10)*r^6*cos(theta)^2+(1/9)*r^8*(a^2-2*m*r+r^2)^5)*m^3*r/((r^2+a^2*cos(theta)^2)^9*(a^2-2*m*r+r^2)^5)

factor(expand(combine(expr2), trig))

(1/9)*r*m^3*(3*cos(theta)^2*a^2-r^2)*(3*cos(theta)^6*a^6-27*cos(theta)^4*a^4*r^2+33*cos(theta)^2*a^2*r^4-r^6)/(r^2+cos(theta)^2*a^2)^9

NULL

Download QuestionSimplifyMultivariateRationalFunction_ac.mw

Since simplify is not by itself (well, no longer, since M2023) finding the trig simplification then the key to my approach above is to force the trig combine of the sin and cos terms in the second expression. The subsequent trig expand gets the simpler thing with just cos.

I shall submit bug reports against the regression & weaknesses in simplify.

If you're going to use plot3d to construct 3d lines then you might as well pass the option grid=[2,2] and cut down the wasted memory. The default is [49,49], but you only need the end-points, so without that option your plot3d construction is unnecessarily about 25 times too big.

Similarly, if you're using spacecurve for mere lines and want solid colors then you could pass numpoints=2 to that command, again to avoid unnecessarily wasting time and space. (It's hard to measure the time gain, since the example is already very quick.)

That might all seem pedantic, but those kind of considerations can really come into play when one starts animating/exploring plots, etc.

But why not just use plottools:-line, with the two Vectors you already have? I mean, instantiating them both at the end-points for lambda. That get's that memory efficiency directly.

restart

with(plottools): with(plots,display):

l:=([2,-3,1],<3,7/9,6>):   # 3d line point + vector

P:=[7,-8,9]:

pl:=`+`~(lambda*l[2],l[1]): #3d line as vector eqn

vnl:=`-`~(pl,P) : #vector from Point P to 3D line

vnl.l[2] assuming `real` ; #dot product of vectors= 0 when perpendicular

(3694/81)*lambda-532/9

sol:=solve( {  }, [lambda] )[];

[lambda = 2394/1847]

intP:=eval(pl,sol):  #intersection point

l2:=P,eval(vnl,sol) :  #perpendicular 3D line through P

pl2:=`+`~(lambda*l2[2],l2[1]): #3D line as vector eqn

display(
      line(eval(pl,lambda=-.5),eval(pl,lambda=1.8),thickness=0,colour=orange),
      line(eval(pl2,lambda=-.5),eval(pl2,lambda=1.8),thickness=0,colour=purple),
      point(P,colour=blue ,symbolsize=15,symbol=solidsphere),
      point(l[1],colour=green ,symbolsize=15,symbol=solidsphere),
      point(eval(pl,sol),colour=red ,symbolsize=15,symbol=solidsphere),
      arrow(l,0.2, 0.4, 0.1,colour=green),
      arrow(l2,0.2, 0.4, 0.1,colour=blue),
      axes=normal,scaling=constrained);

Download Perpendicular_3D_lines_ac.mw

You might be able to get by with,

     is(simplify(tmp - r) = 0)

quite often.

I'm not sure what you want, as "simpler".

I haven't included anything like alias or LargeExpression:-Veil.

But maybe there are some ideas here for you (including a variety of "expression size" metrics),
expression_to_simplify_ideas.mw

You also asked about this behavior in August, 2021.

Your call to the parse command constructs the global name `a`, which is not your procedure's assigned local a.

restart;

p := proc()
  local a;
  return addressof(parse("a")),
         addressof(:-a),
         addressof(a);
end proc:

p();

36893628368009992380, 36893628368009992380, 36893628368009992636

Download parse_ex.mw

restart;

a := 17:

p := proc()
  local a;
  a := 25;
  return parse("a",statement);
end proc:

p();

17

Download parse_ex2.mw

That post had several comments removed, on different dates. (Spammers seem to latch on to Posts more than Questions.)

Sometimes this confuses the counter.

If the values of b is NULL then the call test(a,b) makes test receive just a as passed argument, since the expression sequence a,NULL collapses here. So then the second positional parameter of test (its own b parameter) can take on its default value.

The spelling is NULL, not Null as you had it.

Also, you had a colon (statement terminator) immediately after the closing bracket of the parameter spec of the definition of the procedure assigned to test2. For 2D Input mode that forms an out of place statement (albeit empty) if you want to have the local declarations following that.

nb. This site doesn't render the 3,2 that gets printed as a side-effect of the r() call. But it does all show in Maple's GUI.

test := proc (a := 1, b := 2) print(a, b); return a+b end proc

NULL

test2 := proc (a) local inner; inner := proc (b := NULL) return test(a, b) end proc; return inner end proc

NULL

r := test2(3)

inner

r(4)

7

r()

5

NULL

Download Curry_ac.mw

restart;

with(NumberTheory):

 

q := RepeatingDecimal(1/12);

_m140603429136128

nrp := NonRepeatingPart(q, output=float);

0.80e-1

rp := RepeatingPart(q, output=float);

0.3e-2

 

q := RepeatingDecimal(1/112);

_m140603325618240

NonRepeatingPart(q, output=float);

0.8900e-2

RepeatingPart(q, output=float);

0.285714e-4


Download rep_dec.mw

There are quite a few alternatives. For example, (using textplot rather than as a title, since you did),

   plots:-textplot( [ 3 ,3, Typesetting:-Typeset(A^``(1))(x) ] )

I didn't check for very high efficiency, though I made a few tweaks (putting the digits in sets, using ormap for quicker bailout instead of nops, etc).

What size of sets, and how many, do you need to handle?

A := {12, 17, 24, 28}:
B := {358, 568}:

TA:=table([map(a->a={StringTools:-Explode(convert(a,string))[]},A)[]]):
TB:=table([map(b->b={StringTools:-Explode(convert(b,string))[]},B)[]]):

{seq(seq(`if`(ormap(member,TA[a],TB[b]),
              NULL,parse(cat(a,b))),b=B),a=A)};

           {12358, 12568, 17358, 17568, 24358, 24568}

I didn't test whether parse(cat(a,b)) is a near-optimally efficient way do the blend. (I don't know whether all the second set's values will be of the same length, and that knowledge may bring improvements.)

For some kinds of problem like this the best approaches depend on the example class. One approach might be better for doing very many smaller examples, and another approach might be better for doing even a few very large examples. We haven't (yet) been informed of such details. Without knowing, there's less point in comparing the ormap'd member versus set intersection.

[edit] The above code rejects the unwanted results during the formation of the cartesian product. That's in contrast to, say, forming the whole cartesian product and only afterwards removing the unwanted values. Sometimes (but not for this small example) the whole cartesian product can be prohibitively large.

You could fill out the form for a Software Change Request (a euphemism for "bug report").

(Don't worry that it appears Maple-specific. Some person should read it and assign it appropriately.)

You have sys_ode and ics both as sets. You need to merge those into a single set when passing to dsolve, instead of forming a new set of (those two) sets.

There are various ways to do that. eg,

   dsolve( sys_ode union ics, type=numeric)

rather than your,

  dsolve({sys_ode,ics}, type=numeric)

SWB_ac.mw

Alternatively you could have created both sys_ode and ics as just comma-separated sequences rather than as sets (ie. without wrapping their definitions in squiggly braces), and then used your original  {sys_ode,ics}.

In your problematic example the first argument to algsubs is not as it seems.

Yes, the LHS looks like an atomic identifier (MathML-like blob of a single name, marked up as 2D Input) that renders in black like sigma' . But it has a difference.

But it seems that atomic identifier in that input actually has the attribute mathcolor="blue" interspersed within that marked-up name. We don't see the difference in what's rendered, because as 2D Input it gets rendered in black. So it merely looks like the sigma' that you're trying to replace.

Here's a version where I re-entered that whole first argument to algsubs.

(1+3*G*`&Delta;p`/`&sigma;e`)*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+3*G*`&delta;&Delta;p`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`/`&sigma;e`-3*G*`&Delta;p`*`&delta;&sigma;e`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`/`&sigma;e`^2 = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`

(1+3*G*`&Delta;p`/`&sigma;e`)*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+3*G*`&delta;&Delta;p`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`/`&sigma;e`-3*G*`&Delta;p`*`&delta;&sigma;e`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`/`&sigma;e`^2 = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`

(1)

algsubs(`&delta;&sigma;e` = `#msup(mi("&delta;&sigma;e"),mi("tr"))`*(1-3*G/(h+3*G)), (1+3*G*`&Delta;p`/`&sigma;e`)*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+3*G*`&delta;&Delta;p`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`/`&sigma;e`-3*G*`&Delta;p`*`&delta;&sigma;e`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`/`&sigma;e`^2 = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`)

(9*G^2*`&Delta;p`*`&sigma;e`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+9*G^2*`&delta;&Delta;p`*`&sigma;e`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`+3*G*h*`&Delta;p`*`&sigma;e`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`-3*G*h*`&Delta;p`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`+3*G*h*`&delta;&Delta;p`*`&sigma;e`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`+3*G*`&sigma;e`^2*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+h*`&sigma;e`^2*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`)/(`&sigma;e`^2*(h+3*G)) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`

(2)

algsubs(`&delta;&Delta;p` = `#msup(mi("&delta;&sigma;e"),mi("tr"))`/(h+3*G), (9*G^2*`&Delta;p`*`&sigma;e`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+9*G^2*`&delta;&Delta;p`*`&sigma;e`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`+3*G*h*`&Delta;p`*`&sigma;e`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`-3*G*h*`&Delta;p`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`+3*G*h*`&delta;&Delta;p`*`&sigma;e`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`+3*G*`&sigma;e`^2*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+h*`&sigma;e`^2*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`)/(`&sigma;e`^2*(h+3*G)) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`)

(9*G^2*`&Delta;p`*`&sigma;e`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+3*G*h*`&Delta;p`*`&sigma;e`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`-3*G*h*`&Delta;p`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`+3*G*`&sigma;e`^2*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+3*G*`&sigma;e`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`+h*`&sigma;e`^2*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`)/(`&sigma;e`^2*(h+3*G)) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`

(3)

algsubs(`&Delta;p` = (`#msup(mi("&sigma;e"),mi("tr"))`-`&sigma;e`)/(3*G), (9*G^2*`&Delta;p`*`&sigma;e`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+3*G*h*`&Delta;p`*`&sigma;e`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`-3*G*h*`&Delta;p`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`+3*G*`&sigma;e`^2*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+3*G*`&sigma;e`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`+h*`&sigma;e`^2*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`)/(`&sigma;e`^2*(h+3*G)) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`)

(3*G*`&sigma;e`*`#msup(mi("&sigma;e"),mi("tr"))`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+3*G*`&sigma;e`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`+h*`&sigma;e`*`#msup(mi("&sigma;e"),mi("tr"))`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+h*`&sigma;e`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`-h*`#msup(mi("&sigma;e"),mi("tr"))`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`)/(`&sigma;e`^2*(h+3*G)) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`

(4)

"(=)"

(3*(`#msup(mi("&sigma;e"),mi("tr"))`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`)*((1/3)*h+G)*`&sigma;e`-h*`#msup(mi("&sigma;e"),mi("tr"))`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`)/(`&sigma;e`^2*(h+3*G)) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`

(5)

algsubs(3*((1/3)*h+G) = a, (3*(`#msup(mi("&sigma;e"),mi("tr"))`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`)*((1/3)*h+G)*`&sigma;e`-h*`#msup(mi("&sigma;e"),mi("tr"))`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`)/(`&sigma;e`^2*(h+3*G)) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`)

((`#msup(mi("&sigma;e"),mi("tr"))`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`)*`&sigma;e`*a-h*`#msup(mi("&sigma;e"),mi("tr"))`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`)/(`&sigma;e`^2*a) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`

(6)

expand(lhs(((`#msup(mi("&sigma;e"),mi("tr"))`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`)*`&sigma;e`*a-h*`#msup(mi("&sigma;e"),mi("tr"))`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`)/(`&sigma;e`^2*a) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`)) = rhs(((`#msup(mi("&sigma;e"),mi("tr"))`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`)*`&sigma;e`*a-h*`#msup(mi("&sigma;e"),mi("tr"))`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`)/(`&sigma;e`^2*a) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`)

`#msup(mi("&sigma;e"),mi("tr"))`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`/`&sigma;e`+`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`/`&sigma;e`-h*`#msup(mi("&sigma;e"),mi("tr"))`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`/(`&sigma;e`^2*a) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`

(7)

algsubs(`#msup(mi("&delta;&sigma;e"),mi("tr"))` = (3/2)*b/`#msup(mi("&sigma;e"),mi("tr"))`, `#msup(mi("&sigma;e"),mi("tr"))`*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`/`&sigma;e`+`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`/`&sigma;e`-h*`#msup(mi("&sigma;e"),mi("tr"))`*`#msup(mi("&delta;&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`/(`&sigma;e`^2*a) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`)

(1/2)*(2*a*`&sigma;e`*`#msup(mi("&sigma;e"),mi("tr"))`^2*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+3*a*b*`&sigma;e`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`-3*b*h*`#msup(mi("&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`)/(`&sigma;e`^2*`#msup(mi("&sigma;e"),mi("tr"))`*a) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`

(8)

algsubs(`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))` = `#mrow(msup(mi("&sigma;",fontstyle = "normal"),mi("tr")),mo("&prime;"))`/(1+3*G*`&Delta;p`/`&sigma;e`), (1/2)*(2*a*`&sigma;e`*`#msup(mi("&sigma;e"),mi("tr"))`^2*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+3*a*b*`&sigma;e`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`-3*b*h*`#msup(mi("&sigma;e"),mi("tr"))`*`#mrow(mi("&sigma;",fontstyle = "normal"),mo("&prime;"))`)/(`&sigma;e`^2*`#msup(mi("&sigma;e"),mi("tr"))`*a) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`)

(1/2)*(6*G*a*`&Delta;p`*`#msup(mi("&sigma;e"),mi("tr"))`^2*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+2*a*`&sigma;e`*`#msup(mi("&sigma;e"),mi("tr"))`^2*`#mrow(mi("&delta;&sigma;"),mo("&prime;"))`+3*a*b*`&sigma;e`*`#mrow(msup(mi("&sigma;",fontstyle = "normal"),mi("tr")),mo("&prime;"))`-3*b*h*`#msup(mi("&sigma;e"),mi("tr"))`*`#mrow(msup(mi("&sigma;",fontstyle = "normal"),mi("tr")),mo("&prime;"))`)/(`&sigma;e`*`#msup(mi("&sigma;e"),mi("tr"))`*a*(3*G*`&Delta;p`+`&sigma;e`)) = `#mrow(msup(mi("&delta;&sigma;"),mi("tr")),mo("&prime;"))`

(9)

NULL

Download p151_ac.mw

I don't know how you fell into the problem (cut&paste, some bug, something to do with your custom coloring of input or character Style, I don't know...) so it's hard for me to suggest how to avoid it -- except possibly to avoid the custom coloring/style or copying from the output.

I suppose that you might also fix such an inadventant problem example by converting it in-situ to 1D Input (right-click menu), carefully amending the atomic identifiers, and converting it back to 2D Input. That seems tedious. Bt in this example it is a way to see the underlying difference.

Personally I prefer not to use 2D Input, in part because I don't like that what you see is not always what you get.

You can issue the command,

  [exports(GroupTheory)];

to get a list of the exports of that package.

You could also call sort on that list.

There are lots of variants on displaying that list. It's not clear to me whether you merely want it displayed nicely/usefully (and, for a general package, to sieve out anything not a documented/callable command) or whether you want to further manipulate/use the names programmatically.

It seems to be a consequence of the new (Maple 2022) default for the adaptive option. That behaves like adaptive=geometric here.

If you force (the old default of) adaptive=true then that artefact doesn't appear.


ps. In Maple 2021.2 you can reproduce the artefact for this example, by suppling a (now defunct) variant of that option (then-undocumented), adaptive=plotthing
pps. For this example I am not seeing that artefact when using a Beta version under development.

First 34 35 36 37 38 39 40 Last Page 36 of 343