MaplePrimes Questions

Tonight I came across something that OEIS had referenced as the maximum fermi dirac divisor of a number, so i decided it might be a good idea to study this concept by first figuring out how to enumerate the subset of these divisors.

But rather than specifically about this subject, i wanted to ask if my way of "enumeration of numbers meeting specific criteria" is inferior to other methods i have seen. For example this guy named Alois Heinz uses select in the following manner to obtain  the least divisor of a number that is greater than it's square root:

 

Where as I have always been constructing piecewise expressions as seen in the example of what i have been doing tonight:


 

with(numtheory):

`&Fscr;` := proc (n) options operator, arrow; {seq(seq(piecewise(frac(ln(ln(divisors(n)[k])/ln(ithprime(j)))/ln(2)) = 0 and divisors(n)[k] <> 1 and divisors(n)[k] <> 2, divisors(n)[k], NULL), j = 1 .. pi(divisors(n)[k])), k = 1 .. nops(divisors(n)))} end proc

`&Fscr;`(200000)

{4, 5, 16, 25, 625}

(1)

``


 

Download 21052018.mw

 

So basically, because it is very hard for me to break habits once i have formed them, my question is, is it going to be beneficial for me to switch to this persons method of enumeration, or am i ok just to continue my way?

 

 

Sorry I am just having difficulties understanding what this error means exactly, normally maple returns an error message stating the procedure that was being executed when the error was encountered, but in this situation it says (in unknown) which doesnt really make sense, i mean how can a procedure unknown to maple be being executed in the first place, or is this a procedure name itself?

hi,i used ifsolve  comand in my sheat and i have aloop over it  but some times my equations   can't be  solved .My question is how i give an order to maple to stop the loop if the equations can't solve 
 


 

Hi.

I am attempting to obtain a solution to, what appears to be a simple PDE system (3 equations) and have encountered an error with the initial / boundary conditions. Can anyone provide and guidance / help with this?

The worksheet follows. 

PDE_System.mw

Thanks in advance.

I'm  trying to converting an infinite series from several terms to sigma form.

The series in question is:

x-x^2/(t*Log[t])+(2/3)*x^3/(t^2*Log[t]^2)+(-1/(2*t^3*Log[t]^3)-1/(4*t^3*Log[t]^2)-1/(6*t^3*Log[t]))*x^4+(2/(5*t^4*Log[t]^4)+2/(5*t^4*Log[t]^3)+4/(15*t^4*Log[t]^2))*x^5+(-1/(3*t^5*Log[t]^5)-1/(2*t^5*Log[t]^4)-5/(12*t^5*Log[t]^3)-5/(36*t^5*Log[t]^2)-1/(15*t^5*Log[t]))*x^6+(2/(7*t^6*Log[t]^6)+4/(7*t^6*Log[t]^5)+25/(42*t^6*Log[t]^4)+1/(3*t^6*Log[t]^3)+46/(315*t^6*Log[t]^2))*x^7+(-1/(4*t^7*Log[t]^7)-5/(8*t^7*Log[t]^6)-19/(24*t^7*Log[t]^5)-19/(32*t^7*Log[t]^4)-19/(60*t^7*Log[t]^3)-7/(80*t^7*Log[t]^2)-1/(28*t^7*Log[t]))*x^8+(2/(9*t^8*Log[t]^8)+2/(3*t^8*Log[t]^7)+1/(t^8*Log[t]^6)+25/(27*t^8*Log[t]^5)+163/(270*t^8*Log[t]^4)+106/(405*t^8*Log[t]^3)+88/(945*t^8*Log[t]^2))*x^9+(-1/(5*t^9*Log[t]^9)-7/(10*t^9*Log[t]^8)-73/(60*t^9*Log[t]^7)-4/(3*t^9*Log[t]^6)-149/(144*t^9*Log[t]^5)-691/(1200*t^9*Log[t]^4)-18569/(75600*t^9*Log[t]^3)-761/(12600*t^9*Log[t]^2)-1/(45*t^9*Log[t]))*x^10I've attached the worksheet 1.mw.

The example below works but not for the above I just get:

Error, invalid arguments to coeffs

Not sure where I'm going wrong any idea how to do this?

EXAMPLE that works from https://math.stackexchange.com/questions/2786296/strategy-or-software-for-representing-infinite-series-in-sigma-form

I've also attached the worksheet for this 2.mw

=>

S:= 1-x+4/3*(x^2)-2*x^3+16/5*(x^4)-16/3*(x^5)+64/7*(x^6)-16*x^7+256/9*(x^8)-256/5*(x^9)+1024/11*(x^10);

Coeffs:= [seq(coeff(S, x, j), j=0..10)];

g:= gfun:-guessgf(Coeffs,x);

convert(g[1], FPS, x);

results in:

Sum((-1)^k*2^k*x^k/(k+1), k = 0 .. infinity)

or 

rec:= gfun:-listtorec(Coeffs, a(n));

aa:= rsolve(rec[1],a(n));

Sum(aa*x^n, n=0..infinity);

results in the same desired result.

 

Hellow , Any body can help me to write the codes for the differential equation to solve by Galerkin finite element method by four elements by taking step size h=pi/2 and compare with homotropy method by plotting the graph of Galerkin method, homotropy method and exact, here is my codes

ode := diff(y(x), x, x) + y(x)-1=0:
ics := y(0) = 0, y(2*pi) = 0:
dsolve({ics, ode}):
 

How to do a full reinstall so that no settings are kept?

I tried deleting the maple 2017 folder in program files after I uninstalled but that did not help.

Hello everybody! 

I just wrote my first Maple Worksheet for a Uni course and was trying to export it to LaTeX for the report that I have to hand in, but sadly it isn't working properly. I managed to get it to produce an output PDF in LaTeX, but the formatting is horrible and for some reason all text appears twice. 

I already searched for other threads on this topic, but all of them appear to be pretty old and I wanted to aks if anyone has andy advice/experiences on how to make the LaTeX export work with more current Maple versions. 

I'd be grateful for any advice! 

- Chris 

Hi everyone 

I need help, I have downloaded Maple, and I have read about the student package, which can show the step by step solution, I would like to see the step by step solution than just a final solution to the equation problem. 

I have the maple 2017, but does anyone know, how to download this package, and use it in maple?

https://www.maplesoft.com/support/help/maple/view.aspx?path=Student%2FBasics%2FLinearSolveSteps 

There is several links to this, but I cant find it where to download the package, I hope that someone is able to help me 

 

Helo, guys, i am a beginner here I want solve a system of first order differential equation using RK4. Please I need help please.

I need my results are nice and neat in final presentation so how can I change the way it present matrix in maple, its so messy in hear like picture . It happend resulted in Maple can reduce the same ratio such as As^2+Bs^2=(A+B)s^2, I tried all my best to find way to simply it but its so hard due to my noob in maple. Please help me make it nice and neat in array of matrix [    ]. 

I am wondering how to plot a function and a histogram together on the same set of axis. 

1-Write a Maple ProcInserer procedure (x, pos, L) that inserts the element x into L at position pos.
 2- Write an inverse procedure (L) taking as argument a list L and returning the list obtained by inverting L in the decreasing direction of the indices.

The function given is f(x)= x3/4-sin x +1/2, interval=[0,2*pi]

a) plot the function over the interval to see its general behaviour.

f := x -> x^(3/4)-sin(x)+1/2;
plot(f(x), x=0..2*Pi);

 

b)FInd the interior points where f'=0.You may want to plot the f' as well.

d1:=D(f)(x);

plot (d1, x=0..2*Pi);

fsolve(d1=0, x);

       5.231279862

 

c) Find the interior points where f' does not exist.I don't know how to show question c) in Maple. Please help?plot(x^(3/4)-sin(x)+1/2, x=0..2*Pi)    plot(3/4*x^(-1/4)-cos(x) , x=0..2*Pi)

When i do this,

d2:=solve(d1=infinity,x);
         

Is this the correct way to shoe f' does not exist? How to I get the numerical value of the RootOf....?

Write a procedure that says whether or not an item a is in a  list L, and at which place (if there are several times the same item, you can return the place of the first, or the list of places of all the occurrences of a).

First 821 822 823 824 825 826 827 Last Page 823 of 2427