Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

Hello!

I am working in a simulation, which requires me to create a checkerboard of values which I paint afterwards according to its value. The idea is to create a sequence of images (which I could export for every iteration and create into a gif/timelapse afterwards). The problem I am encountering is that when I try to plot it, I only obtain a difuse coloring scheme, without having a specific color for every pixel.

if you search for the color command in plots (http://www.maplesoft.com/support/help/Maple/view.aspx?path=plot/color) one of the examples is more or less the result I want, but I would like to have it without the gridlines and being able to control the color according to the value of the matrix in said position.

 

My current attempt, and the one closest to the solution is:

 

R:=Matrix(1..N,1..N, datatype=integer); for x from 1 to N do for y from 1 to N do R[x,y]:=P[x,y,2]*18+P[x,y,3]: od: od:R;
#P is the matrix where I do the calculations and R is the matrix I want to plot after every step of the calculation.

surfdata(Matrix(R), 1..N, 1..N, style=surface,
         dimension=2, labels=["x", "y"],
         gridsize=[100,100],
         colorscheme=["zgradient",
                      ["Indigo","Blue","Cyan","Green","Yellow","Orange","Red"]]);
#the surfdata I resqued from another proyect I had. I know it is not thought for this tipe of grafs, but it was the closest I could come by.

 

I do not know if it is a better idea to use an Array or a Matrix to plot this. While the P array isn''t touched, I do not mind modifying in any way the R matrix

Thank you,

Enrique
 

after solve a set of equations, i got a set of solutions, [A,B,C], if i remove one of solution [C]

is it possible to find this removed solution from solutions set [A,B]

how to check the dependency of groebner basis or a set of polynomials?

emal := proc(zipeq,abc1param,abc2param,abc3param,abc4param,abc5param)
source1 := Prefix(zipeq);
print(source1);
source2 := subs(s=abc5param,subs(v=abc4param,subs(u=abc3param,subs(t=abc2param,subs(a=abc1param,source1))))):
print(source2);
zipplus := proc(mm, pp)
 return zip((x,y) -> x+y, mm, pp)
end proc:
zipstar := proc(mm, pp)
 return zip((x,y) -> x*y, mm, pp)
end proc:
return eval(source2);
end proc:
 

would like to do the Prefix first and then eval the prefix later but do not expect do define zipstar and zippplus in global

just want to eval this Prefix which is formula of zipstar and zipplus function

 

above result same as print(source2), but eval in return , it have not evaluate, why?

A family of curves has polar equation r=cos^n (theta/n), 0<=theta,n*pi, where n is a positive even integer.

Previously Using t = theta as the parameter and finding  a parametric form of the equation of the family of curves it was shown that 

dy/dx = (sin(t)sin(t/n)-cos(t)cos(t/n)) /( sin(t)cos(t/n)+cos(t)sin(t/n)).

Is it possible to show on Maple with a program that there are n+1 points where the tangent to the curve is paralell to the y axis?

eqn := (A/(1+a*exp(-b*(((atan(h/R))*(180/Pi))-a)))) +10*log10(h^2+R^2)+20*log10(f)+20*log10(4*Pi/c)+nNLOS = 110;

R and h are my unknown variables in the equation

The rest of variables, A,c,f,a,b,NLOS are known.

I need to find solution such that derivate of R w.r.t h = 0, I want to maximize R.
But this equation is implicit, R cannot be separated on one side of the equation. I tried:


> implicitdiff(eq, R, h);


But I get the error:

Warning, solutions may have been lost
 

A family of curves has polar equation r=cos^n (theta/n), 0<=theta,n*pi, where n is a positive even integer.

Using t = theta as the parameter, find a parametric form of the equation of the family of curves and show that 

dy/dx = (sin(t)sin(t/n)-cos(t)cos(t/n)) /( sin(t)cos(t/n)+cos(t)sin(t/n))

on maple i tried

x:=((cos(t/n))^n)*cos(t):

y:=((cos(t/n))^n)*sin(t):

w:=diff(x,t)

z:=diff(y,t)

z/w

and i never got the above answer so i did

simplify(z/w)

and still never got the answer instead i got 

(cos(t/n)*sin(t/n)-sin(t)*cos(t))/(cos(t/n)^2-cos(t)^2)

 

 

 

 

Hello,

I am exporting Maple 3d graphics to eps file with Maple 17 and Maple 2015 under Mac OS. For instance, the result of plot3d(x*y,x=0..1,y=0..1); I cannot open the resulting eps file neither with Adobe software or Apple's First View. On the contrary, I can open the eps files with Maple 18. I hope you can help me.

Best wishes

Leonardo

Suppose that a finite set of polynomials in C[x,y,z] has a finite number of solutions (i.e. the generated ideal is 0-dimensional).

Suppose also that the Groebner basis wrt plex(x,y,z) is

[f(z), g(y,z), h(y,z), k(x,y,z)]

As well known, the system can be now easily solved: choose a root z0 of f, plug it into g and h and look for a common root (y0) etc.

The question is the following:
Is it true that for EVERY root z0 of f there exist y0, z0 such that (x0,y0,z0) satisfy the system?

In all the examples I have seen this is true, but I don't know whether this is true in general or there is a counterexample.

[This is not a pure Maple question but I know that some members here work in this area].

Thank you.

This is what I did:

It seems like it's working. But is there a way to make the time spit out time smaller than seconds? And to automatically generate how much time it took rather than me looking at it and saying "well 43 seconds minus 41 seconds is 2 seconds"? I suspect there might be.

The rest of the sheet is pretty long. NN is a uniform distribution, which worked fine.

I suspect the issue is the Pi. How can I make it give me a histogram with a numerical solution instead?

My code

checkInSet := proc(L, x)
    local i;
    if nops(L) = 0 then
        return 0;
    else    
        for i from 1 to nops(L) do
            if x = L[i] then
                return i;
            fi;
        end;
    end;
end proc:

 

Let

M := {(a-2*b-2*c)^2*(2*a-b+2*c)^2, (a-2*b-c)^2*(a-b+2*c)^2, (a-2*b+c)^2*(a+b-2*c)^2, (a-2*b+2*c)^2*(2*a+b-2*c)^2, (a-b-2*c)^2*(2*a-b+c)^2, (a-b-c)^2*(a-b+c)^2, (a-b+c)^2*(a+b-c)^2, (a-b+2*c)^2*(2*a+b-c)^2, (a+b-2*c)^2*(2*a-b-c)^2};

 

But checkInSet(M, (a-2*b-2*c)^2*(2*a-b+2*c)^2) not work? Someone please help me.

Thanks you very much.

when i use the command evalf(Int(f(y),y=-b..b)), i expect that the output of this command to be an integer. but the output is to form of below:

i think that the problem is because of the form of the function f(y) that is the form of below:

f(y) = a*10^354*(b*10^-356*g(sin(y) , cos(y) and exp(y)))

but i dont know how i solve this problem:(

please help me. thank you

if just expect to find whether equation is like

(a-b)*(c-d) + (e-f)*(g-h) = i

if use equal , it will care the variable name, is it possible treat the variable name as a wildcard to match the equation structure only 

the structure i mean is *, +, -, =, ()

I followed the steps given in the example of Maple help "Example 5: Adding a MathMLViewer Region" but I get the next error window.

Do you know what is my mistake?

thank you.

First 985 986 987 988 989 990 991 Last Page 987 of 2215