Greetings All

I have a module written in mathematica that works but would prefer to use it as a maple 12 procedure.  I tired the MMA in maple but it doesn't convert programs.  Can someone please help out.

 

 I want to use the Graph theory Draw a graph(networks) with 70 vertex, but the arrow of edges is always near  the beging point of arc, which lead to the arrow can't  be seen clearly, I want to change the sytle of edges by changing the arrow position , but I don't find a correct method.

I submit this question a weeks ago ? But no one answer me?  Is there anyone can help me ?Thank you very much!  

Hi

I'm currently doing some proof of concept implementation of what comes closest to be described as "network flow" problem inside Maple. The current applicability is limited to one source and one sink, flows are not interesting, meaning the edge-costs are all equally set to 1. The chosen vector-based representation for a simple network (adjacency matrix)

 

  S 1 2 E
S 0 1 1 0
1 0 0 0 1
2 0 0 0 1
E 0 0 0 0

is as follows:

MM := [[2], S, [[1, 2], [[], 1], [[], 2]], E]

 

Lets say I have a simple animation such as the code below.

 

restart;
with(plots): 

p := [seq([x, 30*x-x^2], x = 0 .. 30)]: 

An := proc (x)

pointplot(p[round(x)], axes = box, color = red, symbol = solidcircle, symbolsize = 30)

end proc:

animate(An, [x], x = 1 .. nops(p), frames = nops(p), trace = nops(p)) ;

 

 

Now I want a Button (Embedded Component) to start this animation. How can this be done ?

 

I want to be able to assign an external jpg image to a variable in Maple and then assign that varaible to the background command

in animate. In other words I want to display an animation on top of an external jpg image.

 

I know how to view an external image in a maplet

restart; with(ImageTools); A := Read("..........jpg"); View(A)

 

I also know how to preview an external JPG image

plots[display](ImageTools:-Preview(ImageTools:-Read("...........jpg")), axes = none)

 

Download 4171_BioBased.zip
View file details

I've got an XML file from someone, which contains some data from a network. First a list of all the nodes and then a list of all edges.

I would like to read this data in Maple to define a Graph, but I don't know how to do that. Could you please help me?

I added the file as a zip (because XML is not allowed). I hope that that is clear.

Hello

I'd like to perform following operation as gracefully and computationally inexpensive as possible:

b := [[2, 3], 1, 2, 3, 4, 5]
c := b[2 .. nops(b)]
c[b[1, 1]] := c[b[1, 2]]
c := ListTools:-MakeUnique(c)
c[b[1, 1]] := max(c) + 1;

b[1] always contains a list of two consecutive indices which should be combined into one element of the list and having assigned the largest integer in the list. In the about example:

I got a rumor, something about Maple showing the steps that does when solving something. Anyone knows what do I have to do so Maple would show me the steps? It would be great if someone knows how to do it.

Hello, I want to create a list to store the points in C^n with norm 1. The motivation is to use this set of points as a domain to view the image of functions like <x, Ax> (so, x has norm 1).

If it's not possible to store an infinite list, is there anyway to store an albeit large finite list so as to have a good number points in C^n norm 1 spread about evenly?

 

Thanks

Hello :)

I'm trying to write an Ackermann function on Maple, here is the source:

> B := (n, a, x) -> if n=0 then a+x elif n=1 then a*x elif n=2 then a^x elif x=1 then a else B(n-1,a,B(n,a,x-1)) end if:
> A := (n, x) -> B(n,2,x):

With small cases it works perfectly, for example:
A(3,3);
    16
but... when i'm trying to calc A(5,5), i get an "Error, (in B) too many levels of recursion". Any ideas?

Hello,

I have this loop:

> for j from 1 to T do
if pointsd[2][j+1]<pointsd[2][j] then print(j-1) fi;od;
                                 

The print gives me (correctly) 2 numbers: 59 and 124

and i need to use these numbers further but i dont know how to call them..

It would be great if i could made an array with these two numbers,like

Hi! I have the following equation to solve: J1*K11-k*K1*J11=0 where: Jx=BesselJ(v,c*sqrt(a-x^2)) K11=BesselK(v+1,c*sqrt(x^2-b)) K1=BesselK(v,c*sqrt(x^2-b)) J11=BesselJ(v+1,c*sqrt(a-x^2)) k=sqrt(a-x^2)/sqrt(x^2-b) Any suggestion to find x???? I tried with "solve", but it says "Warning solutions may have been lost" Also tried with RootFinding --> Analytic, but after processing a while there is no output.. Any suggestion is very welcome!! thanks!

There is a set of non-linear equations solved at each time step for a differential equation..how to implement this in maple.

A typical scenario would be tyre models for vehicle dynamics applications.

help in this regard would be appreciated.

Raja Amer Azim

Hello,

I have what may or may not be a nasty equation for the structure constants of a particular algebra I would like to classify.  Said equation looks like:

 

f^{0ij}_{\rho}*f^{\sigma\alpha\rho}_{\beta}=f^{\sigma\alpha0}_{\rho}*f^{\rhoij}_{\beta}+f^{\sigma\alphai}_{\rho}*f^{0\rhok}_{\beta}+f^{\sigma\alphaj}_{\rho}*f^{0i\rho}_{\beta}

 

hi

I'm dealing with an expression involving terms like:

( a * x ^ l * y ^ m * z ^ n ) + ( b * x ^ p * y ^ q * z ^ r ) + more of the same. The powers can add up to order <=8 [ for example  l + m + n can add up to 8 or less ]

How do I "ignore" terms in my expression where the powers add up to more than 4 ?  [ I know that these orders of magnitude can be ignored ]

I'm trying to use "collect" but can't see how to do this yet.

many thanks

Peter