SS.mw

How to rectify this error,I want a downfall curve ,Please help.

indets(I, anything^Non(integer)) = {I};

How does one return this to proper form?

download number-of-arguments.mw

Dear,

I would like to do equation of motion calculations using spin matrices.

I would like to do calculations using the  coupling.

Thanks for listening.

Given a vector-valued function z(u,v), I want to calculate the derivative of z with respect to its first argument by applying the D operator to it. I don't see how.  Any suggestions?

Download diff.mw

restart;
with(Physics[Vectors]);
Setup(mathematicalnotation = true);
with(Physics);

Setup(op = {Omega, r});

lprint(m*Omega^2*r);

which outputs this:

i want to substitute  Physics:-`*` which is an overloaded version of matrice multiplication with the default one which is `.` so I wrote the following code :

use   `*`= :-`.` in
a := m*Omega^2*r
end use

the result is the same and its not substitute the physics product with the default one. what is the mistake here?

I also tried the following code and its worked. but I want to make it work with the 'use' function for general purposes

lprint(m . (:-`.`(Omega^2, r)))

thanks in advance

How do I draw this polyhedron knowing all vertices?
https://artofproblemsolving.com/wiki/index.php/2022_AMC_10A_Problems/Problem_21?fbclid=IwAR2bdHwJEpjarZEwope1hYOcnnXqnvzae38Y8ZrfWKCKQunfAuT9s30q32o

[[-1.5, -0.5, 0.], [-1.5, 0.5, 0.], [-1., -1., -0.707107], [-1., 1., -0.707107], [-0.5, -1.5, 0.], [-0.5, -0.5, -1.41421], [-0.5, 0.5, -1.41421], [-0.5, 1.5, 0.], [0.5, -1.5, 0.], [0.5, -0.5, -1.41421], [0.5, 0.5, -1.41421], [0.5, 1.5, 0.], [1., -1., -0.707107], [1., 1., -0.707107], [1.5, -0.5, 0.], [1.5, 0.5, 0.]]

I want to write a program in differential geometry that get g as a metric matrix then calculate christoffel.

Thank you for your consideration.

I'm trying to use Maple to take the following integral for positive values of a, b, c and non-negative integers i and j.

I know that for fixed values of j and k this doable — for example, for j=k=0 Mathematica gives

I'm trying the following code in Maple:

Am I doing anything wrong?

This is probably trivial but I can't find how to display and allow user input of numeric values in a table.  There doesn't appear to be a component for this and I can't find a way to make text areas work for numeric values.  I am sure I must be overlooking something very simple but I checked the documentation and googled and still can't find the answer.

Hi dears

I have a pde system and want to get the solution of this system step by step. is there any command or bunch of commands that could help me?

(pde = partial differential equations)

My document contained an inline plot component named Plot0 and was referenced in the following code

DocumentTools:-SetProperty("Plot0", value, calculatePlot())

This worked as expected. I selected and cut the plot and pasted it into a cell in a table.  Now the same line of code generates this error

Error, (in DocumentTools:-GetProperty) Attempted to retrieve property of unknown component Plot0.

The plot has presumably changed name but I can't find its new name.  I have tried changing the code to refer to Plot1 instead of Plot0 but the error persists.  I am completely mystified.

An edge cut is a set of edges that, if removed from a connected graph, will disconnect the graph.

A minimal edge cut is an edge cut such that if any edge is put back in the graph, the graph will be reconnected.

A minimum edge cut is an edge cut such that there is no other edge cut containing fewer edges.

Note that a minimum edge cut is always minimal, but a minimal edge cut is not always minimum. 

For example: 

Fig. 1 shows the original graph.

Fig. 2 shows a minimum (and therefore minimal) edge cut.

Fig. 3 shows a minimal edge cut (which is not minimum).

I'd like to find all (not one) minimal edge cuts of the following graph G.

g:= "S~tIID@OI?{@n~V?goYEDOWd?qI?sJ?[C";
G := GraphTheory:-ConvertGraph(g);
GraphTheory:-DrawGraph(G)

How to find its all minimal edge cuts? I have searched Literature [1] for the corresponding polynomial algorithm (which you can view). But I don't see any code implementation. 

For the above graph (with 20 vertices and 72 edges), perhaps a violent search would be possible.

[1] Karzanov, A.V., Timofeev, E.A. Efficient algorithm for finding all minimal edge cuts of a nonoriented graph. Cybern Syst Anal 22, 156–162 (1986). https://doi.org/10.1007/BF01074775

Maple 2022.2 on windows 10. I found another serious problem with timelimit. When changing the timelimit value, solve hangs.

i.e. timelimit do not timeout.  But that is not all. Unable to terminate the process running the worksheet. Clicking on the little ! circle at the top does nothing.  But that is not all. Killing the server.exe from the task manager, now I am not even able to close the worksheet. Maple hangs on closing the worksheet.

This code below on  my PC produces this. I used 60 seconds to make it hang. When using 10 seconds it does not hang. You might have to change these values depending on how fast/slow your PC is. If it does not hang for you using 60, you might to try 100 and so on.

Why does it hang so bad? This really makes using Maple for development not practical if one can't even put a timeout on an operation like this. What is a user to do?  Not use solve? reduce the timelimit to avoid maple lockin? To what value? If I reduce all timelimits to 5 seconds, this will cause problems as I could lose solutions that will show up with more time.

Anyone else can produce this? Make sure to save all your work before because you might not be able to close the worksheet after this.  I use worksheet mode only.
 

Download solve_hangs_different_timing_dec_23_2022.mw

To get optimum value (maximum) of 3 variable p, q and w. Where p and q are from the function E1(p,q) and w from the function M1(p,q). The algorithm to obtain the optimum value is described below:-
step 1: Initialize w = c = 20

step2: Evaluate E1(p,q) by substituting w in it.

step3: Find optimum value of p and q from function E1(p,q) using NLPsolve or any other optimiztion method.

step 4: Substitute q optimum value into function M1(p,q) and evaluate it.

step 5: find optimum value of w from optimizing function M1(p,q).

step 6: substitute optimum value of w to E1(p,q) and evaluate it.

step 7: do step 3

step 8: do step 5 and 6

step 9: stop the loop when (w final - w previous) <0.05

I have done this through NLPsolve but it is showing error "Error, (in int) integration range or variable must be specified in the second argument, got 5000 = -3500 .. 1500*p+q-100000"

I am attaching the worksheet below. Please see the numerical analysis part below in the sheet. maple_question.mw