acer

32490 Reputation

29 Badges

20 years, 7 days
Ontario, Canada

Social Networks and Content at Maplesoft.com

MaplePrimes Activity


These are replies submitted by acer

@Johan159 This call is crazy:

assign(sol1);

@lcz Nice challenge. I've got the initial frame's rendering to respect the stylesheet option (passed through). Getting the updates (upon dragging) to respect that is a bit more challenging. Hopefully I'll find a little time on the weekend.

I could believe that having larger (padded) vertex labels might make it easier to "grab" them for dragging.

Maple 2021 --  March 10
Maple 2020 --  March 12
Maple 2019 --  March 14  (Pi day)
Maple 2018 --  March 21

@AHSAN Please put your close follow-up queries and details here, instead of spawning a separate Question thread.

Please put followup details for this query here, in Comments/Replies, instead of submitting a separate Question thread.

@John2020 Is this the kind of thing you're after? (If so then please test with nontrivial examples of your own. It's easy to overlook cases when coding.)

restart;

DGP:=proc(ff,var) local ee;
  ee:=combine(frontend(expand,[ff]),':-power');
  max(map(proc(u,v)
      if u::`*` then
        op(2,combine(select(type,u,
                            identical(v)^anything),
                     ':-power'));
      else
        if type(u,identical(v)^anything) then
          op(2,u);
        else return FAIL end if;
      end if;
    end proc,
    [`if`(ee::`+`,op(ee),ee)],var));
end proc:

 

H := a*x^k+b*c*x^(2*k):

DGP(H, x);

max(k, 2*k)

DGP(H, x) assuming k>0;

2*k

DGP(H, x) assuming k<0;

k

DGP(s^w-p*s^(-w/2)-z*s^(-w), s);

max(w, -w, -(1/2)*w)

DGP(s^w-p*s^(-w/2)-z*s^(-w), s) assuming w>0;

w

DGP(s^w-p*s^(-w/2), s) assuming w<0;

-(1/2)*w

DGP(s^w-p*s^(-w/2), s);

max(w, -(1/2)*w)

P := (s^w-r*s^(-w/2))*s^w;
combine(expand(P),power);

(s^w-r*s^(-(1/2)*w))*s^w

s^(2*w)-r*s^((1/2)*w)

DGP(P, s);

max(2*w, (1/2)*w)

DGP(P, s) assuming w>0;

2*w

DGP(P, s) assuming w<0;

(1/2)*w

Download para_deg.mw

Here is a simple revision of that AltDGI procedure, which handles Matrices as well as lists (of Graphs).

graph_interactive_table_acM.mw

@nm Ok, so you only need assertion-checking for the local-variable and return-value type checks of your own procedures. That's more detail.

In that case either of the ways I showed of temporarily disabling certain kinds of assertion-checking in your calls to Library code might help with the kind of example you've shown.

@nm You've written a little more about how you set it, but I was talking about how you need to use it. Without an adequate description of your usage requirements most answers will be guesses.

Do you have an example showing how it might be done standalone with UMFPACK, without use of Maple? That would be a useful first step, showing how (and whether) it could be done. If possible and provided, then a Maple custom external-calliing wrapper might be based upon it.

@Tokoro In future please put your more general query (along with specialized cases) in a single Question thread, instead of unhelpfully splitting the details and responses amongst several distinct Question threads.

Please stop submitting your queries as Posts, instead of Questions.

@Tamour_Zubair It's not really clear what you're trying to accomplish.

Could it be something like this?

evalf[15](Int(p*cos((1/2)*p+(1/2)*q)/(p^2+q^2)^(1/2),
              [p=0..1, q=0..1]));

                       0.553945861053642

Do you know a numeric value for the unknown t?

@Carl Love The stock EscapeTime command constructs an Image (or an Array of values) with a B&W layer of values based on the number of iterations required to escape (or possibly another layer, of abs value).

It does not classify & colour the values according to the root to which it converges -- as requested by the OP.

Somewhere I have a modified and reasonably fast version that does that... but I'm quite pressed right now.

First 114 115 116 117 118 119 120 Last Page 116 of 594