MaplePrimes Questions

Please help me to solve the system of 1st order singular O.D.E  (see uploaded file)....New_Microsoft_Office_Word_Document.docx
 

Hi Maple Primes,

Can this code be improved?

I know that the Goldbach Conjecture has been checked with computer tools above 10^10.

Request for comments.

check_g_conjecture_26_b.mw

check_g_conjecture_26_b.pdf

Regards

Matt

 

Hello,

I am working on a Dirichlet breakdown of primes. I need a way to check if a number is part of anothers number factorization.

Example: 30 = 2*3*5.

2 is therefore part of the ifactor of 30. 4 and 7 are not.
How do I check if, for instance, 7 is part of de factorization of 390?

Thanks in advance.

Hello,

I tried to define the Poisson bracket in this way

restart:
Ps:=proc(f,g)
local P;
P:=simplify(diff(f,P[1])*diff(g,X)-diff(f,X)*diff(g,P[1])+
diff(f,P[2])*diff(g,Y)-diff(f,Y)*diff(g,P[2]));
end;

The problem is that, if I ask Ps(P[1],X) I got 0 which is clearly wrong.

Where is the error?

https://dl.dropboxusercontent.com/u/51122291/Scrreshot.jpeg

Thanks Nicola 

sol_L := dsolve({de_L, ic});

    {x(t) = (-y0 - x0) exp(-2 t) + (y0 + 2 x0) exp(-t),
      y(t) = -2 (-y0 - x0) exp(-2 t) - (y0 + 2 x0) exp(-t)}
How i can plot this?thanks

Hi everybody;

I have a problem with Physics[diff] command. When I run the following code, error messages appear where the Physics[diff] command exist. What is the source of error? How can I fix it?

Thanks in advance

Q1.mw

In response to Markiyan Hirnyks reference to Mathematica's FindDistribution command http://www.mapleprimes.com/questions/219668-Determine-The-Distribution-Function.  It would be nice to have something similar coded in Maple. 

Hello.

I am taking an intermediate mathematics course. Now we are heading towards the finals and I have started to review all the topics we have been visiting during this semester.

Now I came across an excercise I cannot solve, taking into consideration what our lectures looks like and topics on the list my best bet is using lagrange multiplie method to optimize a multivariable function with constraints.

The task gives a shape that is drawn within the circle given by the equation: x^2+y^2=2.

The shape is a hexagon with 2 vertecies on the y-axsis +- the radius 2, the other 4 vertecies are the following [+-x,+-y].

I´m told that this hexagon is spinned around the y-axis to form a solid sylinder with 2 cones. The problem is to choose both radius and hight of the cylinder in order to maximize the volume.

The first problem that I dont know how i can plot this in maple, I would like to plot both the 2d hexagon and the solid spinned around the y-axsis

Also I´m not to confident what the constraint should look like.

I know how to use the lagrange multiplier by hand and can apply that inside maple, however I would like to use this opportunity to get to know the power of maple functionality more in detail.

https://i.gyazo.com/9d9585ddb8eb719d2a5bd24a1ba1671b.png

The link provoided is an image of the hexagon, i didnt find out how to use image tags.

how to configure maple to show every steps it run when solve a equation or system?

if so,

can i run the steps again and return the same result as a solve function do?

solve Derivative in maple

see in photo

 

Hello! 

I want to generate a table in maple, but with generic content. For example, in Mathematica you can do this using 

table=Table[0,{n=10},{m=2}];
 

and this generates a table with 2 columns and 10 rows with zeros in all its elements. I want to do this exactly but in maple. 

Thanks for your time! 

O(t) = 9.2-[(8.93*35.3)/(11.17-8.93)]*(exp(-8.93*t)-exp(-11.17*t))-8.3*exp(-11.17*t)

t betwen 0 and 1

I'd like to bring up all the Maple 2016 applications from the application center.

How do I do that?

Dear all,

I would like to ask you to help me with the following problem that I got error.

Thanks in advance

 

restart; Shootlib := "C:/Shoot9"; libname := Shootlib, libname; with(Shoot);
with(plots);
N1 := 1; N3 := .5; N2 := 5; Bt := 6; AA := N1*Bt; gamma1 := .2; blt1 := 1;
FNS := {f(eta), fp(eta), fpp(eta), g(eta), gp(eta), h(eta), hp(eta), i(eta), ip(eta), fppp(eta)};
ODE := {diff(f(eta), eta) = fp(eta), diff(fp(eta), eta) = fpp(eta), diff(fpp(eta), eta) = fppp(eta), diff(g(eta), eta) = gp(eta), diff(gp(eta), eta) = N1*(2*g(eta)+eta*gp(eta)+2*g(eta)*fp(eta)-2*f(eta)*gp(eta)+2*N2*N3*(h(eta)*ip(eta)-i(eta)*hp(eta))), diff(h(eta), eta) = hp(eta), diff(hp(eta), eta) = AA*(h(eta)+eta*hp(eta)-2*f(eta)*hp(eta)+2*h(eta)*fp(eta)), diff(i(eta), eta) = ip(eta), diff(ip(eta), eta) = AA*(2*i(eta)+eta*ip(eta)-2*f(eta)*ip(eta)+2*N2*h(eta)*gp(eta)/N3), diff(fppp(eta), eta) = N1*(3*fpp(eta)+(eta-2*f(eta))*fppp(eta)-(2*N2*N2)*(diff(hp(eta), eta)))};
IC := {f(0) = 0, fp(0) = gamma1*fpp(0), g(0) = 1+gamma1*gp(0), gp(0) = beta, h(0) = 0, hp(0) = beta1, i(0) = 0, ip(0) = beta2, fppp(0) = alpha};
BC1 := {f(blt1) = .5, fp(blt1) = gamma1*fpp(blt1), g(blt1) = gamma1*gp(blt1), h(blt1) = 1, i(blt1) = 1};
infolevel[shoot] := 1;
S := shoot(ODE, IC, BC1, FNS, [alpha = .1, beta = .2, beta1 = .3, beta2 = .4], maxfun = 50000);
 

Hello people in mapleprimes,
I want to collect
aa:=sigma*omega*alpha = mu(H, H)*s*omega*gamma*L+omega^(-sigma+1)*tau*mu(F, F)*s*L-omega^(-sigma+1)*tau*mu(F, F)*s*L*gamma;
with omega^(-sigma+1);

I know that the above expression could be collected with tau, which
produces the same expression as the one collected with omega^(-sigma).
And, in collecting with omega^(-sigma+1), I know that freeze-thaw could be used.

But, I want to know another way to do the same thing, using frontend or 
subsindets. Is this possible?

Thanks in advance.

taro
 

First 933 934 935 936 937 938 939 Last Page 935 of 2308