MaplePrimes Questions

I'm getting a strange error today when trying to save a file on the network. Rebootet machine, no change.

Any hints?

Hello!

I am trying to integrate this function numerically from x=0... 1, by using int and evalf(Int) but maple cannot handle it. Is there another kind of numerical integration?

(2*x-1)^2*(2*n+(5*(2*x-1))*(x-1))*(2*n-5+5*x)*ln(1-(5*(1-x))*x/n)/((1-x)^2*(-2*n-(15*(1-x))*x))

Are there another kind of procedures to do numerical integration?

 

 

Hello,

I wonder if it is possible to define my own relationships so they can be used later with simplify.

 

Actually, I would like Maple to simplify the following expression

int(JacobiP(n, a, b, x)*JacobiP(m, a, b, x)*(1 - x)^a*(1 + x)^b, x = -1 .. 1)

 

but I haven't been able to do so. Therefore, I was wondering if it is possible to define

int(JacobiP(n, a, b, x)*JacobiP(m, a, b, x)*(1 - x)^a*(1 + x)^b, x = -1 .. 1) = piecewise(n <> m, 0, n = m, 2^(a + b + 1)*GAMMA(n + a + 1)*GAMMA(n + b + 1)/((2*n + a + b + 1)*GAMMA(n + a + b + 1)*n!))

 

and use this relation in further simplification operations.

 

Thank you in advance,

Hi,

I try to build a random plot like this

but i have errors in my code

ideas ?

Thanks

QTrigo.mw

In the paper of Nail H. Ibragimov there is operator Euler-Lagrange operator. How I can use this operator in Maple to derive adjoint equations? I can your help. I need maple worksheet for this.

Hello,

I want to create a plot of a gradient field of a function with singularities I want to draw arrows only where the function has values below 3,   or written: where f(x,y) < 3.

MY CODE:

potfeld := f(x, y) -> 1/sqrt(y^2+x^2);
   for i to 5 do
           for j to 3 do
                    if sqrt(i^2+j^2) <> 0 and sqrt((i-2)^2+j^2) <> 0 and potfeld(i, j) < 3
                       then P[i, j] := arrow(`<,>`(i, j), `<,>`((D[1](potfeld))(i, j), (D[2](potfeld))(i, j)))
                       else P[i, j] := arrow(`<,>`(i, j), `<,>`(.1, .1))
                   end if
           end do
    end do;
Pseq := seq(seq([P[k, l]], k = 1 .. 5), l = 1 .. 3);
display(Pseq, view = [1 .. 5, 1 .. 3], scaling = constrained);

 

RESULTS IN:
Error, cannot determine if this expression is true or false:  (1/2)*2^(1/2) < 3.0

The "(1/2)*2^(1/2)" are the value of the function potfeld(x,y) evaluated at (1,1).

I ask for your help, as with many changes and variations I have not managed to solve this issue.
+Thx and regards+

I wanted to define a set of all positive integer powers of 2, and I could determine whether a number is contained in the set.

When a set is a finite set and there are not many elements, it's not hard to do. We can form the set first and then determine whether the elements are included or not.

S:={seq(2^i,i=1..100)}:
is(64,S);
is(-3,S);

true

false

Because the set of all positive integer powers of 2 is an infinite set, or rather a countable set. I thought of using the positive type to define it.

map(type, [0, 4, -2], 'And'('positive', 'satisfies'(s -> type(log2(s), 'positive'))))

[false, true, false]

Interestingly, we find that the type of judgment condition is a function, whereas positive(or integer) are symbols.

whattype('And'('positive', 'satisfies'(s -> type(log2(s), 'positive'))));
whattype(positive);
whattype(integer);

function

symbol

symbol

So my question is how does Maple define integer types or positive integers or even real numbers? In other words if I don't use the positive integer type for the above question, can I define the set of all positive integer powers of 2.

Hi!

I have created a procedure for the so-called "Chaos Game" for the generation of Fractals. The file is the following:

Fractals_ChaosGame.mw

On the other hand, for a given day set D:={(x0,y0,(x1,y1),...., (xN,yN)}, for simplicity we assume D is contained in [0,1]x[0,1], one can to construct an "Iterated Functions System" such that its attractor set contains the set D. A detailed exposition of this topic can be found in the famous Barnsley's book "Fractals Everywhere". Also, in the following paper (sections 2.5 and 4-A):

https://arxiv.org/pdf/2102.09855.pdf

I have tried to implement in Maple 17 a procedure to create such Iterated Function System:

IFF_v2.mw

But, I feel that there is something wrong...After plot (with the Chaos Game procedure) a lot of points of the Iterated Functions System (i.e., an approximation of its attractor set), I have a "set of points", instead of a figure similar to a curve (which I feel that must be the correct).

Please, Somebody can have a look to the attached files?

Many thanks in advance for your comments.

Dear Sirs, 
I was with my students today, and attempting to do a Math Maple exercise. The assignment contained the requirement to plot three graphs in one plot f,g,h. Those with windows pc and maple were able use the proper command. 

plot({f(x),g(x),h(x)}) or plot([f(x),g(x),h(x)])  however some of those with MacOS would inside Maple 2021 get an error which said "GNU compiler not found", when using the same command. For those there was no other way (that I knew off) than to do a 

p1:=plot(f(x)): 

p2:=plot(g(x)): 

p3:=plot(h(x)):

and then plots:-display([f(x),g(x),h(x)]):  which work.

But why the MacOS error ? Any idea?

I have a printed book copy of Derek Richards' book, Advanced Mathematical Methods With Maple and would like to get the solutions to the problems in the book. Unfortunately the web download is no longer available. I have not been able to locate a copy or to contact Derek Richards directly. 

Can anyone please help?

Thanks

Joe Ladish

Hi! Do you know how can we make more transparent code for this animation plot? I want something similar to this but only for one spot:

Top 30 Lissajous GIFs | Find the best GIF on Gfycat

my code:

restart;
with(plots);
with(plottools);
display(plot([cos(x), sin(2*x), x = 0 .. 2*Pi]), animate(pointplot, [[[cos(a), 0], [0, sin(2*a)], [cos(a), sin(2*a)]], color = [red, green, green], symbolsize = 23, symbol = solidcircle], a = 0 .. 2*Pi, frames = 100), animate(plot, [[[cos(a), 0], [cos(a), sin(2*a)]], color = red, thickness = 3], a = 0 .. 2*Pi, frames = 100), animate(plot, [[[0, sin(2*a)], [cos(a), sin(2*a)]], color = green, thickness = 3], a = 0 .. 2*Pi, frames = 100), implicitplot(x = cos(t), x = -1 .. 1, t = 0 .. 2*Pi), animate(plot, [[[0, a], [cos(a), a]], color = green, thickness = 3], a = 0 .. 2*Pi, frames = 100), animate(pointplot, [[[0, a], [cos(a), a]], color = green, symbolsize = 23, symbol = solidcircle], a = 0 .. 2*Pi, frames = 100), implicitplot(y = sin(2*t), t = 0 .. 2*Pi, y = -1 .. 1), animate(plot, [[[a, 0], [a, sin(2*a)]], color = red, thickness = 3], a = 0 .. 2*Pi, frames = 100), animate(pointplot, [[[a, 0], [a, sin(2*a)]], color = red, symbolsize = 23, symbol = solidcircle], a = 0 .. 2*Pi, frames = 100), animate(plot, [[[cos(a), sin(2*a)], [a, sin(2*a)]], linestyle = dash, color = red, thickness = 3], a = 0 .. 2*Pi, frames = 100), animate(plot, [[[cos(a), sin(2*a)], [cos(a), a]], linestyle = dash, color = green, thickness = 3], a = 0 .. 2*Pi, frames = 100));
 

 

Maybe some expert can help me with this.

I am trying to improve oeis.org/A156104. It is pairs of prime numbers p and p+36.
According to the k-tuple conjecture, this should be potentially an infinite list. I want to make the database .b file larger - from 1,000 to 10,000.

The virtual clipboard was too large to copy to notepad.  I could not figure out how to write this to a file.  I tried fopen() and fclose().

See my efforts

pairs_p_and_p+36_2.mw

pairs_p_and_p+36_2.pdf

Let me know.

Matt

restart;
with(Physics);
with(Physics[Vectors]);
with(geom3d);
with(LinearAlgebra);
with(ColorTools);
with(plots);

When I define a vector with Physics[Vectors] as:

a1 := a/2*(0*_i + _j + _k)

Maple returns:

a1:= a/2*(_j + _k)

Which is fine but if you try to take the cross product it won't work because the command expects a vector in R3 but interprets a1 as a vector in R2.

How do I ensure Physics[Vectors] understands a1 is a vector in R3

zero_component_problem.mw

First 380 381 382 383 384 385 386 Last Page 382 of 2427