C_R

3042 Reputation

20 Badges

5 years, 184 days

MaplePrimes Activity


These are answers submitted by C_R

I do not think that this is an OS issue: I have it on Windows 10 as well.

I assume that this is more an issue of the new Java platform. Here the older platform

 

There is a global solution (on Windows) you probably don't like:

Reduce the display resolution of the system. When I change form 4K to 2K the tiny rendering is gone.

I am looking forward to Maple 2024, provided Maplesoft can do something about it and its not Oracle.

To your second question (clippings from the Maple Flow user manual): You have to browse Maple commands that you can find on this website.

You can use most of Maple commands

If you set the plot option adaptive to false the effect disappers.

 

For this one no simplified result is returned (Maple has no answer for that)

For that one the calculator returns

If you want the later one make sure (with the arrow up button) that the cursor is still in the exponent before you type -1.

I am using here Maple but have tested it also with the calculator.

to avoid complex explanations with branched solutions.

In the real domain with

plots:-inequal(a < cos(x), x = -6 .. 6, a = -3 .. 3)

solutions are located here:

Applying now arccos to both sides of the relation and flipping < to > because of the negative slope of arccos (and inverting the axes):

plots:-inequal(arccos(cos(x)) < arccos(a), a = -3 .. 3, x = -6 .. 6)

gives a better view on all solutions for a given a. The simple solution you have derived by hand looks probably something like this

map(arccos, cos(x) < a);
simplify(%, symbolic);

plots:-inequal(x < arccos(a), a = -3 .. 3, x = -6 .. 6)

This depicts the problem with your apparently simple relation to solve: You have to restrict this not only to a but also to x.

plots:-inequal(abs(x) < arccos(a), a = -3 .. 3, x = -6 .. 6)

 

The plotted solutions above do not reflect the periodicy of all solutions. I think that's the reason why you got the message about potentially lost solutions. Why Maple does not provide at least one of these two solutions

solve(abs(x) < arccos(a), x)

is up to someone else to explain

before fsolve you do

W := unapply(W(Y), Y)

With 2023 I get

Maple can formally differentiate W but not evaluate the result at 0

Do you really want to "make functions" with unapply that way?

 

Unfortunately, the 3d workspace is not working well with newer features and functionalities (like the CAD toolbox in your case).

A workaround, that hopefully will not become good practice, is to copy the content of the subsystem and paste it to the main subsystem canvas. The subsystem from the CAD toolbox can be binned or later, after finished assembly, replace the pasted components.

Ein Bild, das Diagramm, Screenshot, Text enthält.

Automatisch generierte Beschreibung

@ Maplesoft developers: Shouldn’t the subsystem ports not be outboard frames (i.e. in white and not in grey)

@Maplesoft management: Please provide resources to update the 3D workspace. In its current state it really makes a bad impression on MapleSim. If it works the way as intended, it is very useful for easy model assembly and inspection.

mine1-5.msim

I do not know if this is programmatically possible (in a reasonable way):

You could use the kernel option cpulimit to terminate an instance of Mapleserver.exe that was started by a batch job. The batch job is processing a batch of mws files (like the attached) each containing a different expression to integrate and a call to kernelopts. keneropts,cpulimit is predictable to what I have seen but kills everything.

That would be a brute Roundup method not taking care “to abort safely” as stated on the timelimit help page.

If this would be possible with a proc statement you could even do the batch processing with Maple.

You clould use alias this way

indets(f__4, 'specfunc(RootOf)');
alias(seq(r || i = %[i], i = 1 .. nops(%)));
f__4;

to compact further [edit:] for better readabilty

It's always good to post an example. Maybe this could work for you

expr := sin(x) + ln(x);
series(expr, x = 0);
convert(%, polynom);

Update:

I think what you want to achieve is not exactly possible.

Here it is stated that a logaritmic function is a transcendental function and further:

a transcendental function is an analytic function that does not satisfy a polynomial equation

degree(fin, Psi)

 in the for loop does not evaluate to a number.

I converted your post to a question which increases the likelyhood that you get an answer. Here is mine

B := Matrix([[AA, BB, CC], [EE, DD, 0], [GG, 0, II]]);
Evalues := LinearAlgebra:-Eigenvalues(B);
zip((x, y) -> x = y, B, A);
convert(%, set);
subs(%, Evalues);

I have also added the TAG Eigenvalue. Consider deleting unspecific TAGs like Maplecloud.


Update: If you inspect the intermediate martix B you will see why the output becomes so large. The ouput from Eigenvectors is even larger (it contains eigenvalues and eigenvectors) and also with my suggestion the output limit is exceeded. You can still use Eigenvectors with a colon at the end and assign the command to a name and manipulate the single elements which are still large.

Eigen_Values_with_intermediate_Matrix.mw

to get the output you want.

Note that strictly speaking f(x,y) becomes f(x) and y a constant y0 of f (i.e. y is not an independend variable of f any more). 

A

f(x, y)

f(x, y)

(1)

diff(f(x, y), x)+diff(f(x, y), y)

diff(f(x, y), x)+diff(f(x, y), y)

(2)

subs(f(x, y) = f(x, y0), diff(f(x, y), x)+diff(f(x, y), y))

diff(f(x, y0), x)+diff(f(x, y0), y)

(3)

simplify(diff(f(x, y0), x)+diff(f(x, y0), y))

diff(f(x, y0), x)

(4)

 

 

B

expand(Eval(diff(f(x, y), x)+diff(f(x, y), y), y = y0))

Eval(diff(f(x, y), x), {y = y0})+Eval(diff(f(x, y), y), {y = y0})

(5)

Eval(diff(f(x, y), y), {y = y0}) = 0

Eval(diff(f(x, y), y), {y = y0}) = 0

(6)

subs(Eval(diff(f(x, y), y), {y = y0}) = 0, Eval(diff(f(x, y), x), {y = y0})+Eval(diff(f(x, y), y), {y = y0}))

Eval(diff(f(x, y), x), {y = y0})

(7)

value(%)

diff(f(x, y0), x)

(8)

 

NULL

Download Ellimiate_derivative.mw

Find attached a fix with

Don't ask me what's wrong with R.

Update: I have just seen that you found it.

Download MY_Code_fix.mwMY_Code_fix.mw

For a solution including C add this to the end of your worksheet

restart;
C = ((np/Kp + nw/Kw + ng/Kg)/(`&rho;g`*ng + `&rho;p`*np + `&rho;w`*nw))^(1/2);
isolate(%, ng);

The restart removes the assignement to C which is the reason for the output 0=0, which is a strange way of saying that the left hand side and the rigth hand side of the equation are identical.

The solution of your first isolate statement is correct

((np/Kp + nw/Kw + ng/Kg)/(`&rho;g`*ng + `&rho;p`*np + `&rho;w`*nw))^(1/2);
isolate(%, ng);
simplify(subs(%, `%%`));

 

First 9 10 11 12 13 14 15 Page 11 of 16