Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

I want to produce a user defined function in Maple and use it in my program like Matlab. My function in Matlab is as below:

function R=ff(i,m)
K=1;
Q= zeros( i );
for j=1:2:i
 Q(j)=2*i-K;
 K=4+K;
end
R=Q(m);

How to produce this function in Maple and use it in my program?

Hello,

Maple 18. I just got a 4K monitor and the filenames and bottom toolbar are far too small. Is there any way to resize them? Does the same problem exist on later versions?

Thank you.

I was posting some code on a forum tonight. I specificially added # comments to the code. I used Ctrl_c ,Crtl_v. All the # comments were removed including the 2016 grey boxes which appeared as NULL.

Is there away around this. The comments were very important to help in understanding. The pasted code did look readable though.

I also experimented with exporting the code as .txt and opening it in Word. Required loads of editing to make it look presentable, which really opend the door to introuucing errors, also all # coments were removed too.

The forum just has the normal type comments box. Nothing fancy. Actually it is a WordPress Blog. It does accept latex but that is ok for one or two lines. Could be a real mess if 30--40 lines of code go wrong and latex as far as I know can't be copy/pasted back in to Maple.

 

Hi.  I've spent the last 5 hours or so working on a worksheet on Maple, without saving but with autosaving every 15 min. 

Maple worksheet crashed. When I opened it again, that all changes were losted! But I find autosave .bak  file. How may I open it?

Is there any way I can recover my work?

In maple we have type/symmfunc check for a symmetric function. I want to write cycfunc function.

Example: cycfunc(a^2*b + b^2*c + c^2a, [a,b,c]) return true.

Thanks you very much.

In Maple18.02:

Hso := Matrix(8, {(1, 4) = -x, (1, 6) = I*x, (2, 3) = x, (2, 5) = I*x, (3, 2) = x, (3, 5) = -I*z, (3, 8) = y, (4, 1) = -x, (4, 6) = I*z, (4, 7) = -y, (5, 2) = -I*x, (5, 3) = I*z, (5, 8) = -I*y, (6, 1) = -I*x, (6, 4) = -I*z, (6, 7) = -I*y, (7, 4) = -y, (7, 6) = I*y, (8, 3) = y, (8, 5) = I*y})

av, AV := LinearAlgebra[Eigenvectors](Hso)

Error, (in Polynomial:-Quadratic) type `truefalseFAIL` does not exist


This does not happen in Maple17.

Hi there,

I'm new here. My first question:

Is there a way to make Maple output display explicit multiplcations signs in 2D-math?

Example:
When you enter 5*2^x Maple will output 5*2^x. Is there a way to make Maple display the multiplications signs in output in stead just implicit multiplication signs (i.e. whitepaces)? (I would settle for Maple display all multiplication signs in output - not just the ones which are made explicit in the input.)

I searched this site. No luck. I looked into "Typesetting Rule Assistant", but I couldn't find a way to alter the output of multiplication sign (*).

Can you guys help me?

Kind Regards,

Jens

 

P.S.: I'm a teacher from Denmark. We use Maple before college/university for a lot of pupils. Some less competent pupils have a tendency to overlook the whitespace.

Respected member!
Please help me to find the solution of attached problem.

 


> subject to boundary conditions


``

 

 

NULL

restart

alpha := evalf(2*Pi*(1/180)); EP := .2; lambda := .1; HA := 5; RE := 20

ODEforNum := (1+EP)*(((D@@3)(F))(r)+4*alpha^2*(D(F))(r))+2*alpha*RE*F(r)*(D(F))(r)-HA*alpha^2*(D(F))(r)-3*EP*lambda*((1/2)*(D(F))(r)^2*((D@@3)(F))(r)+(D(F))(r)*((D@@2)(F))(r)^2)/alpha^2-EP*lambda*(72*F(r)^2*(D(F))(r)+2*(D(F))(r)^3+32*F(r)*(D(F))(r)*((D@@2)(F))(r)+2*F(r)^2*((D@@3)(F))(r)) = 0

1.2*((D@@3)(F))(r)-0.243693936e-3*(D(F))(r)+1.396263402*F(r)*(D(F))(r)-24.62104762*(D(F))(r)^2*((D@@3)(F))(r)-49.24209525*(D(F))(r)*((D@@2)(F))(r)^2-1.44*F(r)^2*(D(F))(r)-0.4e-1*(D(F))(r)^3-.64*F(r)*(D(F))(r)*((D@@2)(F))(r)-0.4e-1*F(r)^2*((D@@3)(F))(r) = 0

 
 

 

BCSforNum := F(0) = 1, (D(F))(0) = 0, F(1) = 0

Digits := 15

15

(2)

numsol := dsolve({BCSforNum, ODEforNum}, numeric, output = listprocedure)

Error, (in dsolve/numeric/bvp) initial Newton iteration is not converging

 
 

 

 

 

 

 

 

 

Download MapleN.mw

Hi guys,

I'm trying to solve this system I have but the solution doesn't display:

-I have two second degree differential equations with two functions.

-I have a set of two boundary conditions per function.

 

Thank you!
 

``

restart;

eq2:=2*diff(y(x), x$2)+diff(z(x), x$2)=0;

2*(diff(diff(y(x), x), x))+diff(diff(z(x), x), x) = 0

(1)

eq3:=2*diff(z(x), x$2)+diff(y(x), x$2)=0;

2*(diff(diff(z(x), x), x))+diff(diff(y(x), x), x) = 0

(2)

SOL:=dsolve({eq2, eq3, D(y)(0)=0, D(y)(1)=1, D(z)(0)=0, D(z)(1)=1}, {y(x), z(x)});

"SOL := "

(3)

``


 

Download trial.mwtrial.mw

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.

Meanwhile, thank you so much for everything.
I know I'm asking a lot but if you have time, you can help me do this?

Building a system of interactive components that, taken a function, two points 'a' and 'b' values ​​and an integer n, the calculations point between a and b in which the function assumes the minimum value by using the following procedure:

• It divides the values ​​between a and b into n equal parts (these will distance the one with the other (b-n)/2);
• calculates the function in each of these points;
• located between these values,  what is the minimum (in case of a tie, take the one closest to a)

I think i have to create a vector for each  part and  prehaps with a fcycle for, calculate the function, finelly i'll use minimize with all function.
Do you think is the correct procedure? If yes, how can I do it?

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.

First 982 983 984 985 986 987 988 Last Page 984 of 2215