MaplePrimes Questions

Executing the entire worksheet several times I obtain random results for Threads:-Seq

restart;

N:=10^3;
f:= (a,b) -> add(evalf(j), j=a..b);

1000

 

proc (a, b) options operator, arrow; add(evalf(j), j = a .. b) end proc

(1)

seq(f(k*N/4+1,(k+1)*N/4), k=0..3);

31375., 93875., 156375., 218875.

(2)

Threads:-Seq(f(k*N/4+1,(k+1)*N/4), k=0..3);

31218.+j, 93875., 156375., 218875.

(3)

Threads:-Seq(f(k*N/4+1,(k+1)*N/4), k=0..3);

31375., 93875., 156375., 218875.

(4)

Threads:-Seq(f(k*N/4+1,(k+1)*N/4), k=0..3);

31900., 94170., 156375., 218875.

(5)

 


Download threads!.mw

Hello,

I have the follownig set of inequality:

{0 < p[1, 2], p[1, 1] < 2*p[2, 2]+(3/2)*p[1, 2], p[1, 2]^2/p[2, 2] < p[1, 1], (2/3)*p[1, 2] < p[2, 2]}

Now I need to find value of p11,p12,p22 that satisfy the above inequality. Is there any easy way to find

parameters p11, p12, p22 in maple?

Best

I have a system with the following config:

But when I run my worksheet, only 10% of CPU and 8% of the RAM are working, and it takes one hour my wrksheet to be computed, I am wondering why Maple do not use enough CPU and RAM to do the computation fast.

What is the justification behind this? Is there a way to coerce the Maple to use more capacities of the CPU and RAM to speed up the computations?

In a for loop how is it possible to see online value of the specific parameter during the loop running?

For example I want to see the online value of the parameter t only not j and k, but it seems maple gives out all parameters.

``

restart

t := 0:

for i to 11 do j := i^2+i; k := j+t; t := j/k end do;

2

 

2

 

1

 

6

 

7

 

6/7

 

12

 

90/7

 

14/15

 

20

 

314/15

 

150/157

 

30

 

4860/157

 

157/162

 

42

 

6961/162

 

6804/6961

 

56

 

396620/6961

 

13922/14165

 

72

 

1033802/14165

 

509940/516901

 

90

 

47031030/516901

 

516901/522567

 

110

 

57999271/522567

 

5225670/5272661

 

132

 

701216922/5272661

 

115998542/116869487

(1)

``

``

``


In Matlab it is easily done by ignoring the end ; at the specified pararmeter computation as

for i=1:11
j= i^2+i;
k = j+t;
t = j/k
end

                             

Download porsesh.mw

How is it possible?

So I'm new to maple, more used to working in matlab. Anyway, I'm trying to solve the pendulum equation with a friction term, but the "dsolve" command spits out something I have no clue how to handle. What do I do with the "theta = _a & where [loads of bullshit]"? It's supposed to give me an integral of some sort that I can work with, not a strange substitution. Halp! 

 

I got bit by Maple when I tried to combine a number of 2-d plots into one 3-d plot, using plottools:-transform to space the plots out in the third dimentsion. I have done such things before. This time, the first time I executed the final plot statement the GUI got clobbered and somehow also the whole worksheet (I may have saved it). Now, when I load it nothing shows up and worse, I cannot enter anything in the worksheet, it is completely screwy. I looked at the XML code in Emacs and it validates and I cannot find anything obviously wrong with it, i.e. no dangling tags or similar.

I used Maple 2017. In Maple 2015 the same worksheet overprints itself & makes a big mess on the screen. It is similarly unuseable.

Can one of the experts have a look at this? Although rare I have experienced similar issues on occasion before & would like to know how to get this into a sane state.

TIA,

Mac Dude

triangle_analysis.mw

 

I need to find all integer solutions of these multivariable equations (and many more similar equations)

I have the boundary conditions that b-1 ≥ a1 > a2 ≥ 0

How can I do this in Maple?

For context, b is a base and a1 and a2 are digits in a b-adic number where a1 is bigger than a2. Solutions to these equations correspond to numbers that have a particular property.

 

I have posted this question on math.stackexchange, but saught an algebraic approach rather than a computational one. Here it is shown that a1 and a2 are linear functions of b. This is where the families of solutions come in. Mathloves answer is detailed and potentially useful in regards to formatting the answer.

https://math.stackexchange.com/questions/3001095/integer-solutions-of-a-variable-coefficient-polynomial

 

Thank you for any help / advice. Ben

I simply used solve to solve an equation but it doesn't work properly , Here is my code :

I want to solve system of nonlinear ODEs using RKF with shooting technique. If some body have a idea please help me coding I am new In Maple. If somebody have a relevant code please share with me. I try to understand and then apply on my problem. 

I want to solve attached link paper and image.Thanks

Hi,

I am trying to compute the following integral:

int(a*b*c/sqrt((x-a)^2 + (y-b)^2 + (z-c)^2), [a=-1..1, b=-1..1, c=-1..1])

where x, y, z are Real parameters.

The integral looks so simple but Maple can't compute it as is.

Thanks

Hi

I would like to solve the integrodifferential equation and then look to the  stability of the origin.

Is it  stable, uniformly stable, asymptotically stable and uniformly asumptotically stable.

Please see the following code.

Code.mw

Thanks

 

 

I have to use the Chinese Remainder Theorem but once I have found m^e I cant seem to figure out a way that works to get just the message without the exponent. I assumed that the exponent is 3 since the message was encrypted 3 different times. How can I do this with Maple?

CRA_project.mw

Hi all. how can i detect and remove the lists with same members? for example in the code below, i want to remove duplicate of the lists with the same members, for example [1,1,5],[1,5,1],[5,1,1]. i want just one of these sets to remain and the others to be removed. it doesn't matter which. i want just one set with members 1,5,1 which their summation is 7. and the same thing for other lists. thanks in advance.
 

restart:with(combinat):with(Iterator):

MM:=composition(7, 3)

{[1, 1, 5], [1, 2, 4], [1, 3, 3], [1, 4, 2], [1, 5, 1], [2, 1, 4], [2, 2, 3], [2, 3, 2], [2, 4, 1], [3, 1, 3], [3, 2, 2], [3, 3, 1], [4, 1, 2], [4, 2, 1], [5, 1, 1]}

(1)

 


 

Download code.mw

I know this is a trivial worksheet (in document mode) but why does the second subs fail? Thanks  Gravity.mw
 

``

Justification for using mg as the force exerted by mass m in gravity field g

Using Newton's Law of Gravity, find ``

work := `assuming`([int(G*M*m/r^2, r = R .. R+h)], [0 < R, 0 < h])

G*M*m*h/(R*(R+h))

(1)

``

R is >> h, so let R + h = R

work := subs(R+h = R, work)

G*M*m*h/R^2

(2)

``

G, M and R are all constants, so let GM/R² = g

work := subs(G*M/R^2 = g, work)

G*M*m*h/R^2

(3)

``

``


 

Download Gravity.mw

 

I am having problems when trying to sue de colorscheme opiton. I always get an error message. The example below is from the Maple homepage:

plot3d(sin(x)*cos(y), x = 0 .. 4*Pi, y = 0 .. 4*Pi, view = [default, default, -3 .. 3], colorscheme = ["xgradient", ["Green", "Purple", "Blue"]]);
Error, (in plot3d) unexpected option: colorscheme = ["xgradient", ["Green", "Purple", "Blue"]]


Any hint?

First 747 748 749 750 751 752 753 Last Page 749 of 2428