Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

This is reduced from another forum.

restart;
e1 := 12*g^2+12*h^2+4*i^2+3*j^2=684;
e2 :=  12*l^2+12*m^2+4*n^2+3*o^2=684;
e3 := 12*q^2+12*r^2+4*s^2+3*t^2=172;
e4 := 12*v^2+12*w^2+4*x^2+3*y^2=108;
e5 := 12*g*l+12*h*m+4*n*i+3*j*o=-84;
e6 := 12*g*q+12*h*r+4*s*i+3*j*t=-84;
e7 := 12*g*v+12*h*w+4*x*i+3*j*y=-84;
e8 := 12*l*q+12*m*r+4*n*s+3*o*t=-84;
e9 := 12*l*v+12*m*w+4*n*x+3*o*y=-84;
e10 := 12*q*v+12*r*w+4*s*x+3*y*t=-84;
e11 := g+h+i+j=-1;
e12 := l+m+n+o=-1;
e13 := q+r+s+t=-1;
e14 := v+w+x+y=-1;
e15 := h*i+m*n+3*s*r+4*x*w=-21;
e16 := g*i+l*n+3*s*q+4*x*v=-21;
e17 := i+n+3*s+4*x=-3;
e18 := g*h+m*l+3*q*r+4*w*v=-7;
e19 := h+m+3*r+4*w=-1;
e20 := g+l+3*q+4*v=-1;
e21 := i*j+o*n+3*s*t+4*x*y=-84;
e22 := j*h+o*m+3*r*t+4*y*w=-28;
e23 := j*g+o*l+3*q*t+4*y*v=-28;
e24 := j+o+3*t+4*y=-4;
e25 := j^2+o^2+3*t^2+4*y^2=144;
e26 := i^2+n^2+3*s^2+4*x^2=129;
e27 := h^2+m^2+3*r^2+4*w^2=57;
e28 := g^2+l^2+3*q^2+4*r^2=57;

eqset := {e1, e2, e3, e4, e5, e6, e7, e8, e9, e10, e11, e12, e13, e14, e15,
          e16, e17, e18, e19, e20, e21, e22, e23, e24, e25, e26, e27, e28};
for s in eqset do print(s) end do;

Error, too many levels of recursion

If I then do

S := {1,2,3,6,3,6,8,2,3,6};

for s in S do print(s) end do;

Then,

for s in eqset do print(s) end do;

has the correct output.

What am I doing wrong?

Tom Dean

Dear All

I have a trignometric function and I plotted it in 2D. It is visible from the graph that the function has Maxima and Minima. My question is, can I located all values
 

0.12981e-1+0.80285e-1*cos(.9519256799*x)+0.41370e-1*cos(1.903851360*x)+0.35690e-1*cos(2.855777040*x)+0.147e-3*cos(3.807702720*x)

0.12981e-1+0.80285e-1*cos(.9519256799*x)+0.41370e-1*cos(1.903851360*x)+0.35690e-1*cos(2.855777040*x)+0.147e-3*cos(3.807702720*x)

(1)

plot(diff(0.12981e-1+0.80285e-1*cos(.9519256799*x)+0.41370e-1*cos(1.903851360*x)+0.35690e-1*cos(2.855777040*x)+0.147e-3*cos(3.807702720*x), x), x = -6.2 .. 6.2)

 

``


 

Download Max_Min_from_Graph.mw

of "x" corresponding to these Max. and Min. ?

dy/dx=sqrt(1+(a*x)+(2*y))

for the case a=1, y=1 and x=0 construct a program for the runge-kutta method of order 2 with formulae as follows where f(x,y)=dy/dx.

k_1=h*f(x_n,y_n)

k_2=h*f(x_n+h,y_n+k_1)

y_(n+1)=y_n+1/2(k_1+k_2).

 

After creating a program obtain value of y correct to 4 decimal places when x=1 for h=0.1 and h =0.05.

yVal := 0.01

xVal := 0.01

p8 := plot([fdiff(('rhs')((pds:-value(f(x, y)))(x, yVal)[3]), [y, y], x = z)], z = 0 .. 20, color = [red])

I cant seem to plot the graph for yVal, but if I were to switch it around to (xVal,y), the graph works perfectly. How should I input the code such that I can obtain the f''(x,0) graph. 

Any help will be greatly appreciated :) thanks

fyp3.mw

   Maplesoft aims to promote innovation in science, technology, engineering and math (STEM) in high school students by partnering with various organizations, and sponsoring initiatives in education, research and innovation. Every year, Maplesoft commits time, funds and people to enhance the quality of math-based learning and discovery and to encourage high school students to strengthen their math skills.

   One such organization we partner with is The Perimeter Institute, a leading centre for scientific research, training and educational outreach in foundational theoretical physics.  Maplesoft currently serves as its Educational Outreach Champion, supporting various initiatives that promote math learning and exploration. Perhaps the most popular of its student outreach program is the annual International Summer School for Young Physicists (ISSYP), a two-week camp that brings together 40 exceptional students from high schools across the globe.  Each year students receive a complimentary copy of Maple, and use the product to practice and strengthen their math skills.  The ISSYP program also uses Möbius, the comprehensive online STEM courseware platform from Maplesoft, to offer preparatory course materials to students.  Completing lessons in Möbius aid in making the summer program a more productive and dynamic experience for the students.

  

International Summer School for Young Scientists at Perimeter Institute

 

   Who Wants to Be a Mathematician is a competition organized by the American Mathematical Society (AMS) for high school students in North America. Maplesoft has been a sponsor of the contest for many years.  Maple T.A., the testing and assessment tool by Maplesoft, is used to administer the tests online, saving significant time and money for the organizers. When Maplesoft first introduced Maple T.A. to the contest, taking the competition from pen-and-paper tests to online tests, the number of contestants doubled, with about 2000 students participating in the contest. Maplesoft also donates prizes to the games in order to promote the use and love of math by high school students.  This year will be first time the competition moves international. Six students in the UK took the Round 2 qualifying test, with the use of Maple T.A., and qualified for the live, on-stage finals of the UK edition of the competition that took place at the 2017 Maths Fest in London. Maplesoft is also supporting the spread of the WWTBAM contest to Canada in 2017.


Who Wants to be a Mathematician finals

Maplesoft also sponsors two outreach initiatives in Texas A&M University.  The Summer Educational Enrichment (SEE) Math Program is a summer workshop attended by gifted middle school students. Students spend two weeks exploring ideas such as algebra, geometry, graph theory, and topology.  The University also conducts the Integral Bee every year, a math based contest for high school students.

In addition to the above key projects, throughout the year Maplesoft also sponsors and is associated with a number of other competitions, conferences, and educational initiatives. A few of these are listed below.

  • The Connecticut Science & Engineering Fair is a yearly, statewide science and engineering fair open to all 7th through 12th grade students.  An important objective of their program is to attract young people to careers in science and engineering while developing skills essential to critical thinking.
  • FIRST Robotics Competition is a high school robotics competition. Each year, teams of high school students and mentors work during a six-week period to build game-playing robots that weigh up to 120 pounds.

 

FIRSTRobotics Competition

  • ScienceExpo Conference is a student-run event that engages students with STEM-related opportunities and workshops
  • SWATposium is an annual robotics conference that brings together nearly 40 First Robotic Competition teams from both Canada and the United States for a day of guest speakers, workshops and social activities.

        

SWATposium

  • FIRST LEGO League gives elementary and middle school students and their adult coaches the opportunity to work and create together to solve a common problem.

      

FIRST LEGO League at St. Luke's School in Waterloo

   Maplesoft’s objective of these sponsorships is to support those who inspire and channel young minds to be STEM focussed. By engaging them in exciting contests and programs the hope is that they build science, engineering, and technology skills at a young age and grow to be innovators and technology leaders of tomorrow.

Dear All, 

I work on the period doubling phenomenon by integrating the dynamical system at some particular parameter values. My main commands are as follows

restart:
with(DEtools): with(plots): with(plottools):
a:=-1: b:=-3: c:=3: d:=1: omega:=1: v1:=1: f:=-4: epsilon:=0.01: 
sys:=diff(u1(t),t)=v1*u1(t)-(omega+u2(t)^2)*u2(t)+u1(t)*(a*(u1(t)^2+u2(t)^2)+b*z(t)^2),
     diff(u2(t),t)=(omega+u1(t)^2)*u1(t)+v1*u2(t)+u2(t)*(a*(u1(t)^2+u2(t)^2)+b*z(t)^2),
     diff(z(t),t)=z(t)*(-v1+c*(u1(t)^2+u2(t)^2)+z(t)^2)+epsilon*z(t)*(v2+f*z(t)^4):

solC:=dsolve({eval(sys, v2=2.0500014987),
              u1(0)=0.6,u2(0)=0.6,z(0)=0.1},
              type=numeric, method=rkf45, maxfun=10^7,
              range=350..750):
p1:=odeplot(solC, [sqrt(u1(t)^2+u2(t)^2),z(t)],
               refine=2,
               color=burgundy,
               thickness=1);
 

The resulting curves are quite blurring and furry. I have tried to increase the "refine" or the "numpoints" values, but with minimal improvement. I would like to know if there a way to obtain clean and sharp integral curves?  

I would be very grateful if someone could help me! 

Thank you in advance.

With kind wishes,

Wang Zhe

How we can construct conservation laws of fractional differential equation with Maple?

Hi I try this integral:

m2 := int(exp(-(1/2)*z^2)*((exp(B*J*sqrt(q)*z))^2-1)/(sqrt(Pi)*sqrt(2)*((exp(B*J*sqrt(q)*z))^2+1)), z = -infinity .. infinity)

But not resolve.

How can i do?

Regards.

Respected member!
Please help me to find the solution of attached problem,  I am a new user so please forgive any mistakes.maple.mwmaple.mw

Hello,

I have been trying to solve a simple nonlinear equation. Im interested in the solution per say rather than the plot but when I browsed about the commands to use, this came up. I tried it in my case and it is giving me the following errors:

ode.mw
 

``

restart;

``

with(plots);

[animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, densityplot, display, dualaxisplot, fieldplot, fieldplot3d, gradplot, gradplot3d, implicitplot, implicitplot3d, inequal, interactive, interactiveparams, intersectplot, listcontplot, listcontplot3d, listdensityplot, listplot, listplot3d, loglogplot, logplot, matrixplot, multiple, odeplot, pareto, plotcompare, pointplot, pointplot3d, polarplot, polygonplot, polygonplot3d, polyhedra_supported, polyhedraplot, rootlocus, semilogplot, setcolors, setoptions, setoptions3d, shadebetween, spacecurve, sparsematrixplot, surfdata, textplot, textplot3d, tubeplot]

(1)

eq5:=C*sqrt(y(x)*((diff(y(x),x))^2+1))-y(x)=0;

C*(y(x)*((diff(y(x), x))^2+1))^(1/2)-y(x) = 0

(2)

C:=1;

1

(3)

bcs:=y(-1)=1, y(1)=1;

y(-1) = 1, y(1) = 1

(4)

dsys:={eq5,bcs};

{(y(x)*((diff(y(x), x))^2+1))^(1/2)-y(x) = 0, y(-1) = 1, y(1) = 1}

(5)

dsol:=dsolve(dsys, numeric); odeplot(dsol,[x,y(x)],0..1,color=red,axes=box);

Error, (in dsolve/numeric/bvp/convertsys) unable to convert to an explicit first-order system

 

Error, (in plots/odeplot) input is not a valid dsolve/numeric solution

 

``


 

Download ode.mw

 

The question explores the family of differential equations dy/dx = sqrt(1+(a*x)+(2*y)) for various values of the parameter a.

This figure shows the tangent field in the case a=1.

sketch a tangent field in the case a=-2.

need the following diagram on maple:

 

hello,

Given f(x)=2x^2-4x, how do I define and plot the functions f(x), 2f(x), 4f(x), -f(x) and -4f(x) in maple 15?

Thank You.

 

Can anyone solve,

eqn := diff(x(t), t, t)+omega^2*x(t)-epsilon*mu*(diff(x(t), t))+epsilon*alpha*x(t)^2*(diff(x(t), t))+epsilon*Zeta*cos(Omega*t)*x(t)=0;

This equation using MMS (Method of Multiple Scales) in maple.

Pls use Polar transformation function as (1/2)*a(t)*exp(-I*beta(t))

Please reply.

I am trying to see the solution to a PDE that I am coding with initial and boundary conditions. I know with the ODE, it shows the solution, but with the PDE I cannot seem to see it. Any suggestions?

Dear all,

I would like to evaluate a double integral numerically. The integrand is a complicated function of the variables beta and s, with complex values. The computation lasts for decades without obtaining a result.

I was wondering whether there exists subroutines / methods / tricks that could be helpful to accelerate the integration process. I have attached a Maple script of the double integral of interest. Rough precision would be fine (4 or 5 digits).

Any help would be highly appreciated.

Thanks

Federiko

Question.mw

1 2 3 4 5 6 7 Last Page 1 of 1231