I want to know the exponent of one particular factor of an integer. For example:

k:=24;

ifactor(k) = (2)^3(3)

and I want to write a module to extract the exponent of (3) for any arbitrary k.

I can't select for the presence of 3 because it will pick up the factor (2)^3 and then it gets complicated to decide that I don't want this factor anyway.

If I somehow manage to select the factor (3) using "op" and scanning through each factor in turn, then substitute 3=x, it turns out that degree(%,x) doesn't work because the factor x is enclosed in brackets; similarly trying

log(%,3) fails for the same reason.

There has to be a simple way, but I just don't see it.

Any suggestions are appreciated.

In GraphTheory ,how do you make more than one edge between two points.

Could you help me to solve this problem for the parameter beta?

Download Rootsfind.mw

I put this command and It keep saying  plot(f(x), x = -0.667 .. 1.71, y = -5 .. 20, gridlines); Error, (in plot) unexpected options: [1.71 = -.667 .. 1.71, y = -5 .. 20] . How can I fix this

How can I show all the parameters in title ?

Download animate_plots.mw

Hi all,

I am quite a rookie in using Maple.

A project is going on while I need to use previous formulas and variables defined in A.mw, while I don't want to redefine everything again in my worksheet, is there any approach to inherit everything in A.mw to my current worksheet?

How would I go about creating a tetrad of a specific signature in the Differential Geometry package. The GrahmSchmidt and NullTetrad give me orthonormal and complex null tetrads. But I was wondering if there was a way to generate a tetrad of specific signature.

The union is simple

with(plottools):
with(plots):
display([torus([1,1,1], 1, 2),torus([1,6,1], 1, 2)], scaling=constrained, lightmodel=light1, shading=zgrayscale,color=[red,red]);

but how to plot the intersection?

I have been try to code the 

mdl:-Fit(x, y, opts)
command in Deep learning package

But i feel new to that command I am making errors 

Can I get a small toy code how to call it and its output on train and test

so that i could learn

kind help please

Hello,
 i want to increase my value monotonically  . but i don't want to do it like sequence. how can i write code.

for example my value ..starts at 0...to some values i just want to increase.
help me plz

I'm having a symmetric bivariate polynomial P(x,y) with a high degree (larger than 8). I want to know if there exists a root of P(x,y) or not. I may not need a specific root but rather to know if P(x,y) has a root or not. I've been doing some research but I only find the command that helps solve univariate functions or solve systems of bivariate functions. 

In conclusion, my question is: How can I know that a symmetric bivariate polynomial has a root or not using Maple?

Here is the polynomial I want to check

P(x,y)=x^12*y^3 + 10*x^11*y^4 + 43*x^10*y^5 + 105*x^9*y^6 + 161*x^8*y^7 + 161*x^7*y^8 + 105*x^6*y^9 + 43*x^5*y^10 + 10*x^4*y^11 + x^3*y^12 - x^12*y^2 - 8*x^11*y^3 - 17*x^10*y^4 + 8*x^9*y^5 + 82*x^8*y^6 + 128*x^7*y^7 + 82*x^6*y^8 + 8*x^5*y^9 - 17*x^4*y^10 - 8*x^3*y^11 - x^2*y^12 - x^12*y - 4*x^11*y^2 - 62*x^10*y^3 - 341*x^9*y^4 - 902*x^8*y^5 - 1410*x^7*y^6 - 1410*x^6*y^7 - 902*x^5*y^8 - 341*x^4*y^9 - 62*x^3*y^10 - 4*x^2*y^11 - x*y^12 + x^12 - 8*x^11*y - 62*x^10*y^2 - 680*x^9*y^3 - 3169*x^8*y^4 - 7312*x^7*y^5 - 9540*x^6*y^6 - 7312*x^5*y^7 - 3169*x^4*y^8 - 680*x^3*y^9 - 62*x^2*y^10 - 8*x*y^11 + y^12 + 10*x^11 - 17*x^10*y - 341*x^9*y^2 - 3169*x^8*y^3 - 11838*x^7*y^4 - 21793*x^6*y^5 - 21793*x^5*y^6 - 11838*x^4*y^7 - 3169*x^3*y^8 - 341*x^2*y^9 - 17*x*y^10 + 10*y^11 + 43*x^10 + 8*x^9*y - 902*x^8*y^2 - 7312*x^7*y^3 - 21793*x^6*y^4 - 30696*x^5*y^5 - 21793*x^4*y^6 - 7312*x^3*y^7 - 902*x^2*y^8 + 8*x*y^9 + 43*y^10 + 105*x^9 + 82*x^8*y - 1410*x^7*y^2 - 9540*x^6*y^3 - 21793*x^5*y^4 - 21793*x^4*y^5 - 9540*x^3*y^6 - 1410*x^2*y^7 + 82*x*y^8 + 105*y^9 + 161*x^8 + 128*x^7*y - 1410*x^6*y^2 - 7312*x^5*y^3 - 11838*x^4*y^4 - 7312*x^3*y^5 - 1410*x^2*y^6 + 128*x*y^7 + 161*y^8 + 161*x^7 + 82*x^6*y - 902*x^5*y^2 - 3169*x^4*y^3 - 3169*x^3*y^4 - 902*x^2*y^5 + 82*x*y^6 + 161*y^7 + 105*x^6 + 8*x^5*y - 341*x^4*y^2 - 680*x^3*y^3 - 341*x^2*y^4 + 8*x*y^5 + 105*y^6 + 43*x^5 - 17*x^4*y - 62*x^3*y^2 - 62*x^2*y^3 - 17*x*y^4 + 43*y^5 + 10*x^4 - 8*x^3*y - 4*x^2*y^2 - 8*x*y^3 + 10*y^4 + x^3 - x^2*y - x*y^2 + y^3

`debugger/no_output`;

From the Maple 2023 user manual for AudioTools, when I attempt to input:

with(AudioTools):
Tone := f -> Play(Create(x -> evalhf(sin(1/22050*x*Pi*f)), duration = 1)):
Tone(440);

I get the following error message:

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

Clicking the error message in Maple then goes to this page:

https://www.maplesoft.com/support/help/errors/view.aspx?path=Error,%20(in%20DocumentTools:-GetProperty)%20Attempted%20to%20retrieve%20property%20of%20unknown%20component%20Speaker0.

How do I get a function to play as an audio file in Maple 2023?

Is there a way to enclose in parentheses or brackets a highlighted selection of Maple Input?  This is a nice feature on WXMaxima to quickly and accurately enclose any selection of input syntax in parentheses or brackets.  Otherwise it can become tricky to add the opening and closing parentheses/brackets separately.