## macro vs. subs

Maple

macros can be made to work like subs, you just need to know a few tricks to get it to work the same way.  macros just works in a slightly different manner and we can make it useful.

The difference is with subs, one has to keep specifying the substitution with each equation you want subbed, whereas macro will already have it defined.  As an example:

a := v^2*z^3 - 34/(5*x^2*sin(y*v^2)) + 36*v^2 - b*v^2 + 3^(v^2 - cos(v^2 + g))

If we want to substitute h for v^2, then we would normally do this using subs

subs(v^2=h,a)

however, we can also use macro

macro(v^2=h)

now it doesn't just automatically substitute those values so we need to coax maple a little bit.  We can do that by converting the equation to a string and parsing it.

parse(convert(a,string))

so as you see we arrive at the same result.  Now there is a caveat using macro, if you've already defined a variable in a macro, subs will not work using the same variable sustitution - you first need to reset the variable in the macro back to itself.

subs(v^2=h,a)
#doesn't work since the variable is defined in a macro

macro(v^2=v^2) #reset the variable in the macro

subs(v^2=h,a)
# now it works

we could also define a little procedure to simplify our typing, to have the macro variable work on our equation.

mvs:=proc(a) #macro variable substitution
parse(convert(a,string));
end proc:

macro(v^2=h)
mvs(a)

now if we had some other existing equation before defining the macro
aa:=exp(v^2-sin(theta))+v^2*cos(theta)-1/x^sin(v^2-g)

we just have to simply apply our proc on the equation to apply the variable substitution
mvs(aa)

## Maple Conference - Call for Papers and Extended...

by: Maple

Submit your paper or extended abstract to the Maple Conference!

The papers and extended abstracts presented at the 2019 Maple Conference will be published in the Communications in Computer and Information Science Series from Springer.

The deadline to submit is May 27, 2019.

This conference is an amazing opportunity to contribute to the development of technology in academics. I hope that you, or your colleagues and associates, will consider making a contribution.

We welcome topics that fall into the following broad categories:

• Maple in Education
• Algorithms and Software
• Applications of Maple

https://www.maplesoft.com/mapleconference/Papers-and-Presentations.aspx

## Introducing the Maple Quantum Chemistry Toolbox

Quantum Chemistry Toolbox from RDMChem

Maple 2019 has a new add-on package Maple Quantum Chemistry Toolbox from RDMChem for computing the energies and properties of molecules.  As a member of the team at RDMChem that developed the package, I would like to tell the story of its origins and provide a brief demonstration of the package.

Thinking about Quantum Chemistry at Harvard

The story of the Maple Quantum Chemistry Toolbox begins with my graduate studies in Chemical Physics at Harvard University in the late 1990s.  Even in 1998 programs for computing the energies and properties of molecules were extremely complicated and nonintuitive.  Many of the existing programs had begun in the 1970s on computers whose programs would be recorded on punchcards.

Fig. 1: Used Punchcard by Pete Birkinshaw from Manchester, UK CC BY 2.0

Even today some of these programs have remnants of their early versions such as input files that must start on the second column to account for the margin of the now non-existent punchcards.  As a student, I made a bound copy of one of these manuals at a local Kinkos photocopy shop and later found myself in Harvard Yard, thinking that there must be a better way to present quantum chemistry computations.  The idea for a Maple-like package for quantum chemistry was born in that moment.

At the same time I was learning about something called the two-electron reduced density matrix (2-RDM).  The basic variable in quantum chemistry is the wave function which is the probability amplitude for finding each of the electrons in a molecule.  Because electrons are indistinguishable with pairwise interactions, the wave function contains much more information than is needed for computing the energies and electronic properties of molecules.  The energies and properties of any molecule with any number of electrons can be expressed as a function of a 2 electron matrix, the 2-RDM [1-3].  A quantum chemistry based on the 2-RDM, it was known, would have potentially significant advantages over wave function calculations in terms of accuracy and computational cost, especially for molecules far from the mean-field limit.  A 2-RDM approach to quantum chemistry became the focus of my Ph.D. thesis.

Representing Many Electrons with Only Two Electrons

The idea of using the 2-RDM in quantum chemistry can be attributed to four scientists: two physicists Kodi Husimi and Joseph Mayer, a chemist Per-Olov Lowdin, and a mathematician John Coleman [1-3].  In the early 1940s Husimi first published the idea in a Japanese physics journal, but in the midst of World War II the paper was not widely disseminated in the West.  In the summer of 1951 John Coleman, which attending a physics conference at Chalk River, realized that the ground-state energy of any atom or molecule could be expressed as functional of the 2-RDM, and similar ideas later occurred to Per-Olov Lowdin and Joseph Mayer who published their ideas in Physical Review in 1955.  It was soon recognized that computing the ground-state energy of an atom or molecule with the 2-RDM was potentially difficult because not every two-electron density matrix corresponds to an N-electron density matrix or wave function.  The search for the appropriate constraints on the 2-RDM, known as N-representability conditions, became known as the N-representability problem [1-3].

Beginning in the late 1990s and early 2000s, Carmela Valdemoro and Diego Alcoba at the Consejo Superior de Investigaciones Científicas (Madrid, Spain), Hiroshi Nakatsuji, Koji Yasuda, and Maho Nakata at Kyoto University (Kyoto, Japan), Jerome Percus and Bastiaan Braams at the Courant Institute (New York, USA), John Coleman and Robert Erdahl at Queens University (Kingston, Canada), and my research group and I at The University of Chicago (Chicago, USA) began to make significant progress in the computation of the 2-RDM without computing the many-electron wave function [1-3].  Further contributions were made by Eric Cances and Claude Le Bris at CERMICS, Ecole Nationale des Ponts et Chaussées (Marne-la-Vallée, France), Paul Ayers at McMaster University (Hamilton, Canada), and Dimitri Van Neck at the University of Ghent (Ghent, Belgium) and their research groups.  By 2014 several powerful 2-RDM methods had emerged for the computation of molecules.  The Army Research Office (ARO) issued a proposal call for a company to develop a modern, built-from-scratch package for quantum chemistry that would contain two newly developed 2-RDM-based methods from our group: the parametric 2-RDM method [1] and the variational 2-RDM method with a fast algorithm for solving the semidefinite program [4,5,6].   The company RDMChem LLC was founded to work with the ARO to develop such a package built around RDMs, and hence, the name of the company RDMChem was selected as a hybrid of the RDM abbreviation for Reduced Density Matrices and the Chem colloquialism for Chemistry.  To achieve a really new design for an electronic structure package with access to numeric and symbolic computations as well as advanced visualizations, the team at RDMChem and I developed a partnership with Maplesoft to build something new that became the Maple Quantum Chemistry Package (or Toolbox), which was released with Maple 2019 on Pi Day.

Maple Quantum Chemistry Toolbox

The Maple Quantum Chemistry Toolbox provides a powerful, parallel platform for quantum chemistry calculations that is directly integrated into the Maple 2019 environment.  It is optimized for both cutting-edge research as well as chemistry education.  The Toolbox can be used from the worksheet, document, or command-line interfaces.  Plus there is a Maplet interface for rapid exploration of molecules and their properties.  Figure 2 shows the Maplet interface being applied to compute the ground-state energy of 1,3-dibromobenzene by density functional theory (DFT) in a 6-31g basis set.

Fig. 2: Maplet interface to the Quantum Chemistry Toolbox 2019, showing a density functional theory (DFT) calculation

After entering a name into the text box labeled Name, the user can click on: (1) the button Web to import the geometry from an online database containing more than 96 million molecules,  (2) the button File to read the geometry from a standard XYZ file, or (3) the button Input to enter the geometry.  As soon the geometry is entered, the Maplet displays a 3D picture of the molecule in the window on the right of the options.  Dropdown menus allow the user to select the basis set, the electronic structure method, and a boolean for geometry optimization.  The user can click on the Compute button to perform the computation.  When the quantum computation completes, the total energy appears in the box labeled Total Energy.  The dropdown menu Analyze contains a list of data tables, plots, and animations that can be selected and then displayed by clicking the Analyze button.  The Maplet interface contains nearly all of the options available in the worksheet interface.   The Help Pages of the Toolbox include extensive curricula and lessons that can be used in undergraduate, graduate, and even high school chemistry courses.  Next we look at some sample calculations in the worksheet interface.

Reproducing an Early 2-RDM Calculation

One of the earliest variational calculations of the 2-RDM was performed in 1975 by Garrod, Mihailović,  and  Rosina [1-3].  They minimized the electronic ground state of the 4-electron atom beryllium as a functional of only two electrons, the 2-RDM.  They imposed semidefinite constraints on the particle-particle (D), hole-hole (Q), and particle-hole (G) metric matrices.  They solved the resulting optimization problem of minimizing the energy as a linear function of the 2-RDM subject to the semidefinite constraints, known as a semidefinite program, by a cutting-plane algorithm.  Due to limitations of the cutting-plane algorithm and computers circa 1975, the calculation was a difficult one, likely taking a significant amount of computer time and memory.

With the Quantum Chemistry Toolbox we can use the command Variational2RDM to reproduce the calculation on a Windows laptop.  First, in a Maple 2019 worksheet we load the commands of the Add-on Quantum Chemistry Toolbox:

 > with(QuantumChemistry);
 (1.1)

Then we define the atom (or molecule) using a Maple list of lists that we assign to the variable atom:

 > atom := [["Be",0,0,0]];
 (1.2)

We can then perform the variational 2-RDM method with the Variational2RDM command to compute the ground-state energy and properties of beryllium in a minimal basis set like the one used by Rosina and his collaborators.  By default the method uses the D, Q, and G N-representability conditions and the minimal "sto-3g" basis set.  The calculation, which completes in seconds, contains a wealth of information in the form of a convenient Maple table that we assign to the variable data.

 > data := Variational2RDM(atom);
 (1.3)

The table contains the total ground-state energy of the beryllium atom in the atomic unit of energy (hartrees)

 > data[e_tot];
 (1.4)

We also have the atomic orbitals (AOs) employed in the calculation

 > data[aolabels];
 (1.5)

as well as the Mulliken populations of these orbitals

 > data[populations];
 (1.6)

We see that 2 electrons are located in the 1s orbital, 1.8 electrons in the 2s orbital, and about 0.2 electrons in the 2p orbitals.  By default the calculation also returns the 1-RDM

 > data[rdm1];
 (1.7)

The eigenvalues of the 1-RDM are the natural orbital occupations

 > LinearAlgebra:-Eigenvalues(data[rdm1]);
 (1.8)

We can display the density of the 2s-like 2nd natural orbital using the DensityPlot3D command providing the atom, the data, and the orbitalindex keyword

 > DensityPlot3D(atom,data,orbitalindex=2);

Similarly,  using the DensityPlot3D command, we can readily display the 2p-like 3rd natural orbital

 > DensityPlot3D(atom,data,orbitalindex=3);

By using Maple keyword arguments in the Variational2RDM command, we can readily change the basis set, use point-group symmetry, add active orbitals with or without self-consistent-field, change the N-representability conditions, as well as explore many other options.  Having reenacted one of the first variational 2-RDM calculations ever, let's examine a more complicated molecule.

Explosive TNT

We consider the molecule TNT that is used as an explosive. Using the command MolecularGeometry, we can import the experimental geometry of TNT from the online PubChem database.

 > mol := MolecularGeometry("TNT");
 (1.9)

The command PlotMolecule generates a 3D ball-and-stick plot of the molecule

 > PlotMolecule(mol);

We perform a variational calculation of the 2-RDM of TNT in an active space of 10 electrons and 10 orbitals by setting the keyword active to the list [10,10].  The keyword casscf is set to true to optimize the active orbitals during the calculation.  The keyword basis is used to set the basis set to a minimal basis set sto-3g for illustration.

 > data := Variational2RDM(mol, active=[10,10], casscf=true, basis="sto-3g");
 (1.10)

The ground-state energy of TNT in hartrees is

 > data[e_tot];
 (1.11)

Unlike beryllium, the electric dipole moment of TNT in debyes is nonzero

 > data[dipole];
 (1.12)

We can easily visualize the dipole moment relative to the molecule's ball-and-stick model with the DipolePlot command

 > DipolePlot(mol,method=Variational2RDM, active=[10,10], casscf=true, basis="sto-3g");

The 1-RDM is returned by default

 > data[rdm1];
 (1.13)

The natural molecular-orbital (MO) occupations are the eigenvalues of the 1-RDM

 > data[mo_occ];
 (1.14)

All of the occupations can be viewed at once by converting the Vector to a list

 > convert(data[mo_occ], list);
 (1.15)

We can visualize these occupations with the MOOccupationsPlot command

 > MOOccupationsPlot(mol,method=Variational2RDM, active=[10,10], casscf=true, basis="sto-3g");

The occupations, we observe, show significant deviations from 0 and 2, indicating that the electrons have substantial correlation beyond the mean-field (Hartree-Fock) limit.  The blue lines indicate the first N/2 spatial orbitals where N is the total number of electrons while the red lines indicate the remaining spatial orbitals.  We can visualize the highest "occupied" molecular orbital (58) with the DensityPlot3D command

 > DensityPlot3D(mol,data, orbitalindex=58);

Similarly, we can visualize the lowest "unoccupied" molecular orbital (59) with the DensityPlot3D command

 > DensityPlot3D(mol,data, orbitalindex=59);
 >

Comparison of orbitals 58 and 59 reveals an increase in the number of nodes (changes in the phase of the orbitals denoted by green and purple), which reflects an increase in the energy of the orbital.

The Maple Quantum Chemistry Toolbox 2019, an new Add-on for Maple 2019 from RDMChem, provides a easy-to-use, research-grade environment for the computation of the energies and properties of atoms and molecules.  In this blog we discussed its origins in graduate research at Harvard, its reproduction of an early 2-RDM calculation of beryllium, and its application to the explosive molecule TNT.  We have illustrated only some of the many features and electronic structure methods of the Maple Quantum Chemistry package.  There is much more chemistry and physics to explore.  Enjoy!

Selected References

[1] D. A. Mazziotti, Chem. Rev. 112, 244 (2012). "Two-electron Reduced Density Matrix as the Basic Variable in Many-Electron Quantum Chemistry and Physics"

[2]  Reduced-Density-Matrix Mechanics: With Application to Many-Electron Atoms and Molecules (Adv. Chem. Phys.) ; D. A. Mazziotti, Ed.; Wiley: New York, 2007; Vol. 134.

[3] A. J. Coleman and V. I. Yukalov, Reduced Density Matrices: Coulson’s Challenge (Springer-Verlag,  New York, 2000).

[4] D. A. Mazziotti, Phys. Rev. Lett. 106, 083001 (2011). "Large-scale Semidefinite Programming for Many-electron Quantum Mechanics"

[5] A. W. Schlimgen, C. W. Heaps, and D. A. Mazziotti, J. Phys. Chem. Lett. 7, 627-631 (2016). "Entangled Electrons Foil Synthesis of Elusive Low-Valent Vanadium Oxo Complex"

[6] J. M. Montgomery and D. A. Mazziotti, J. Phys. Chem. A 122, 4988-4996 (2018). "Strong Electron Correlation in Nitrogenase Cofactor, FeMoco"

## Rolling an ellipse in a vertical plane

Maple

In this Post I derive the differential equations of motion of a homogeneous elliptic lamina of mass m and the major and minor axes of lengths of a and b which rolls without slipping along the horizontal x axis within the vertical xy plane.

If the initial angular velocity is large enough, the ellipse will roll forever and go to ±∞ in the x direction, otherwise it will just rock.

I have attached two files:

rolling-ellipse.mw
Worksheet to solve the differential equations and animate the motion

rolling-ellipse.pdf
Documentation containing the derivation of the differential equations

And here are two animations extracted from the worksheet.

## Experiences introducing Maple in a high school class ...

by:

I am a highschool teacher and we just started using Maple. It is a great program, but the students  had a few problems with the worksheet-mode in the editor. Here is a list of small problems that are hopefully easy to fix.

In text editors such as Word you can highlight a piece of text and select "insert->equation" to turn the text into an equation. Maple doesn't supprt this, so if the students have written an equation in textmode, then they have trouble turning it into math-mode. (the answer is: highlight, ctrl-X, F5, ctrl-v but that is difficult to guess for beginners)

Once in a while the students place two equations next to eachother with no space in between. When this happens they cannot place the cursor between the two eqations, and therefore they cannot place a newline between the equations. In other words the two equations are glued together. (I think that you can solve this by pressing f5 in the right place, but it would be better to mirror the behavior of word)

It would be great to allow the user to delete the pink error messages by pressing delete. Sometimes the students use math mode to write text inside a large paragraph and the result is an error message a few lines below. This error message cannot be deleted unless you trace down the math field and delete it. In one situation a student had deleted all the letters in the math field, but the error message could not be deleted until the empty mathfield had been found and deleted. (One solution is to highlight all math fields on the page whenever the user is editing text in math mode. That would make them easier to find and understand)

If a student pressed enter or alt-enter inside an equation in worksheet mode, then the student stays in worksheet mode after executing the equation. I would prefer to switch to text-mode after pressing enter. This would mirror the behavior of word. Sometimes the students end up writing a long paragraph because they expect Maple to mirror the behavior of word. Once the text has been written in math mode then it is difficult to convert it into textmode again (This requires highlight, ctrl-X, F5, ctrl-v)

It would be great to write an equation that isn't meant to be executed by the kernel.  In other words the equation should only be for display. You can solve this by writing ":"  at theb end of the equation, but that makes the math look weird. It would be nice to have a way to do this.

If mac users havent installed a printer then they cannot export to pdf. It would be great to solve this problem (or at least write a helpful error message)

All of these problems are beginner problems, but if I you want to sell Maple in highschools then I think that you can gain from focusing on making Maple approachable so that the students have an early succes-story with the program. In my class we switched to Maple from another math program, and it was a hard sell because the other math program had an easier editor.

## Game of Thrones and Graph Theory

by: Maple 2019

While googling around for Season 8 spoilers, I found data sets that can be used to create a character interaction network for the books in the A Song of Ice and Fire series, and the TV show they inspired, Game of Thrones.

The data sets are the work of Dr Andrew Beveridge, an associate professor at Macalaster College (check out his Network of Thrones blog).

You can create an undirected, weighted graph using this data and Maple's GraphTheory package.

Then, you can ask yourself really pressing questions like

• Who is the most influential person in Westeros? How has their influence changed over each season (or indeed, book)?
• How are Eddard Stark and Randyll Tarly connected?
• What do eigenvectors have to do with the battle for the Iron Throne, anyway?

These two applications (one for the TV show, and another for the novels) have the answers, and more.

The graphs for the books tend to be more interesting than those for the TV show, simply because of the far broader range of characters and the intricacy of the interweaving plot lines.

Let’s look at some of the results.

This a small section of the character interaction network for the first book in the A Song of Ice and Fire series (this is the entire visualization - it's big, simply because of the shear number of characters)

The graph was generated by GraphTheory:-DrawGraph (with method = spring, which models the graph as a system of protons repelling each other, connected by springs).

The highlighted vertices are the most influential characters, as determined by their Eigenvector centrality (more on this later).

The importance of a vertex can be described by its centrality, of which there are several variants.

Eigenvector centrality, for example, is the dominant eigenvector of the adjacency matrix, and uses the number and importance of neighboring vertices to quantify influence.

This plot shows the 15 most influential characters in Season 7 of the TV show Game of Thrones. Jon Snow is the clear leader.

Here’s how the Eigenvector centrality of several characters change over the books in the A Song of Ice and Fire series.

A clique is a group of vertices that are all connected to every other vertex in the group. Here’s the largest clique in Season 7 of the TV show.

Game of Thrones has certainly motivated me to learn more about graph theory (yes, seriously, it has). It's such a wide, open field with many interesting real-world applications.

Enjoy tinkering!

## Danish primary schools are using Maple to revoluti...

by: Maple

I recently had a wonderful and valuable opportunity to meet with some primary school students and teachers at Holbaek by Skole in Denmark to discuss the use of technology in the classroom. The Danish education system has long been an advocate of using technology and digital learning solutions to augment learning for its students. One of the technology solutions they are using is Maple, Maplesoft’s comprehensive mathematics software tool designed to meet the unique and complex needs of STEM courses. It is rare to find Maple being used at the primary school level, so it was fascinating to see first-hand how Maple is being incorporated at the school.

In speaking with some of the students, I asked them what their education was like before Maple was incorporated into their course. They told me that before they had access to Maple, the teacher would put an example problem on the whiteboard and they would have to take notes and work through the solution in their notebooks. They definitely prefer the way the course is taught using Maple. They love the fact that they have a tool that let them work through the solution and provide context to the answer, as opposed to just giving them the solution. It forces them to think about how to solve the problem. The students expressed to me that Maple has transformed their learning and they cannot imagine going back to taking lectures using a whiteboard and notebook.

Here, I am speaking with some students about how they have adapted Maple to meet their needs ... and about football. Their team had just won 12-1.

Mathematics courses, and on a broader level, STEM courses, deal with a lot of complex materials and can be incredibly challenging. If we are able to start laying the groundwork for competency and understanding at a younger age, students will be better positioned for not only higher education, but their careers as well. This creates the potential for stronger ideas and greater innovation, which has far-reaching benefits for society as a whole.

Jesper Estrup and Gitte Christiansen, two passionate primary school teachers, were responsible for introducing Maple at Holbaek by Skole. It was a pleasure to meet with them and discuss their vision for improving mathematics education at the school. They wanted to provide their students experience with a technology tool so they would be better equipped to handle learning in the future. With the use of Maple, the students achieved the highest grades in their school system. As a result of this success, Jesper and Gitte decided to develop primary school level content for a learning package to further enhance the way their students learn and understand mathematics, and to benefit other institutions seeking to do the same. Their efforts resulted in the development of Maple-Skole, a new educational tool, based on Maple, that supports mathematics teaching for primary schools in Denmark.

Maplesoft has a long-standing relationship with the Danish education system. Maple is already used in high schools throughout Denmark, supported by the Maple Gym package. This package is an add-on to Maple that contains a number of routines to make working with Maple more convenient within various topics. These routines are made available to students and teachers with a single command that simplifies learning. Maple-Skole is the next step in the country’s vision of utilizing technology tools to enhance learning for its students. And having the opportunity to work with one tool all the way through their schooling will provide even greater benefit to students.

(L-R) Henrik and Carolyn from Maplesoft meeting with Jesper and Gitte from Holbaek by Skole

It helps foster greater knowledge and competency in primary school students by developing a passion for mathematics early on. This is a big step and one that we hope will revolutionize mathematics education in the country. It is exciting to see both the great potential for the Maple-Skole package and the fact that young students are already embracing Maple in such a positive way.

For us at Maplesoft, this exciting new package provides a great opportunity to not only improve upon our relationships with educational institutions in Denmark, but also to be a part of something significant, enhancing the way students learn mathematics. We strongly believe in the benefits of Maple-Skole, which is why it will be offered to schools at no charge until July 2020. I truly believe this new tool has the potential to revolutionize mathematics education at a young age, which will make them better prepared as they move forward in their education.

## The Physics Updates, how to install in Maple 2019...

by: Maple 2019

Hi

The Physics Updates for Maple 2019 (current v.331 or higher) is already available for installation via MapleCloud. This version contains further improvements to the Maple 2019 capabilities for solving PDE & BC as well as to the tensor simplifier. To install these Updates,

• Open Maple,
• Click the MapleCloud icon in the upper-right corner to open the MapleCloud toolbar
• In the MapleCloud toolbar, open Packages
• Find the Physics Updates package and click the install button, it is the last one under Actions
• To check for new versions of Physics Updates, click the MapleCloud icon. If the Updates icon has a red dot, click it to install the new version

Note that the first time you install the Updates in Maple 2019 you need to install them from Packages, even if in your copy of Maple 2018 you had already installed these Updates.

Also, at this moment you cannot use the MapleCloud to install the Physics Updates for Maple 2018. So, to install the last version of the Updates for Maple 2018, open Maple 2018 and enter PackageTools:-Install("5137472255164416", version = 329, overwrite)

Edgardo S. Cheb-Terrab
Physics, Differential Equations and Mathematical Functions, Maplesoft

## System of Comptable-Determined Equations of 2x2...

Maple 2018

This application solves a set of compatible equations of two variables. It also graphs the intersection point of the variable "x" and "y". If we want to observe the intersection point closer we will use the zoom button that is activated when manipulating the graph. If we want to change the variable ("x" and "y") we enter the code of the button that solves and graphs. In spanish.

System_of_Equations_Determined_Compatible_2x2_and_3x3.mw

Lenin Araujo Castillo

## Writing Derivatives at a Point Using Leibniz Notat...

Maple

Maple users often want to write a derivative evaluated at a point using Leibniz notation, as a matter of presentation, with appropriate variables and coordinates. For instance:

Now, Maple uses the D operator for evaluating derivatives at a point, but this can be a little clunky:

```p := D[1,2,2,3](f)(a,b,c);

q := convert( p, Diff );```

```u := D[1,2,2,3](f)(5,10,15);

v := convert( u, Diff );```

How can we tell Maple, programmatically, to print this in a nicer way? We amended the print command (see below) to do this. For example:

```print( D[1,2,2,3](f)(a,b,c), [x,y,z] );

print( D[1,2,2,3](f)(5,10,15), [x,y,z] );```

`print( 'D(sin)(Pi/6)', theta );`

Here's the definition of the custom version of print:

```# Type to check if an expression is a derivative using 'D', e.g. D(f)(a) and D[1,2](f)(a,b).

'Dexpr',

proc( f )

if op( [0,0], f ) <> D and op( [0,0,0], f ) <> D then

return false;

end if;

if not type( op( [0,1], f ), 'name' ) or not type( { op( f ) }, 'set(algebraic)' ) then

return false;

end if;

if op( [0,0,0], f ) = D and not type( { op( [0,0,..], f ) }, 'set(posint)' ) then

return false;

end if;

return true;

end proc

):

# Create a local version of 'print', which will print expressions like D[1,2](f)(a,b) in a custom way,

# but otherwise print in the usual fashion.

local print := proc()

local A, B, f, g, L, X, Y, Z;

# Check that a valid expression involving 'D' is passed, along with a variable name or list of variable names.

if ( _npassed < 2 ) or ( not _passed[1] :: 'Dexpr' ) or ( not passed[2] :: 'Or'('name','list'('name')) ) then

return :-print( _passed );

end if;

# Extract important variables from the input.

g := _passed[1]; # expression

X := _passed[2]; # variable name(s)

f := op( [0,1], g ); # function name in expression

A := op( g ); # point(s) of evaluation

# Check that the number of variables is the same as the number of evaluation points.

if nops( X ) <> nops( [A] ) then

return :-print( _passed );

end if;

# The differential operator.

L := op( [0,0], g );

# Find the variable (univariate) or indices (multivariate) for the derivative(s).

B := `if`( L = D, X, [ op( L ) ] );

# Variable name(s) as expression sequence.

Y := op( X );

# Check that the point(s) of evaluation is/are distinct from the variable name(s).

if numelems( {Y} intersect {A} ) > 0 then

return :-print( _passed );

end if;

# Find the expression sequence of the variable names.

Z := `if`( L = D, X, X[B] );

return print( Eval( Diff( f(Y), Z ), (Y) = (A) ) );

end proc:

```

Do you use Leibniz Notation often? Or do you have an alternate method? We’d love to hear from you!

## Announcing Maple 2019

by: Maple 2019

Last year, I read a fascinating paper that presented evidence of an exoplanet, inferred through the “wobble” (or radial velocity) of the star it orbits, HD 3651. A periodogram of the radial velocity revealed the orbital period of the exoplanet – about 62.2 days.

I found the experimental data and attempted to reproduce the periodogram. However, the data was irregularly sampled, as is most astronomical data. This meant I couldn’t use the standard Fourier-based tools from the signal processing package.

I started hunting for the techniques used in the spectral analysis of irregularly sampled data, and found that the Lomb Scargle approach was often used for astronomical data. I threw together some simple prototype code and successfully reproduced the periodogram in the paper.

After some (not so) gentle prodding, Erik Postma’s team wrote their own, far faster and far more robust, implementation.

This new functionality makes its debut in Maple 2019 (and the final worksheet is here.)

From a simple germ of an idea, to a finished, robust, fully documented product that we can put in front of our users – that, for me, is incredibly satisfying.

That’s a minor story about a niche I’m interested in, but these stories are repeated time and time again.  Ideas spring from users and from those that work at Maplesoft. They’re filtered to a manageable set that we can work on. Some projects reach completion in under a year, while other, more ambitious, projects take longer.

The result is software developed by passionate people invested in their work, and used by passionate people in universities, industry and at home.

We always pack a lot into each release. Maple 2019 contains improvements for the most commonly used Maple functions that nearly everyone uses – such as solve, simplify and int – as well features that target specific groups (such as those that share my interest in signal processing!)

I’d like to to highlight a few new of the new features that I find particularly impressive, or have just caught my eye because they’re cool.

Of course, this is only a small selection of the shiny new stuff – everything is described in detail on the Maplesoft website.

Edgardo, research fellow at Maplesoft, recently sent me a recent independent comparison of Maple’s PDE solver versus those in Mathematica (in case you’re not aware, he’s the senior developer for that function). He was excited – this test suite demonstrated that Maple was far ahead of its closest competitor, both in the number of PDEs solved, and the time taken to return those solutions.

He’s spent another release cycle working on pdsolve – it’s now more powerful than before. Here’s a PDE that Maple now successfully solves.

Maplesoft tracks visits to our online help pages - simplify is well-inside the top-ten most visited pages. It’s one of those core functions that nearly everyone uses.

For this release, R&D has made many improvements to simplify. For example, Maple 2019 better simplifies expressions that contain powers, exponentials and trig functions.

Everyone who touches Maple uses the same programming language. You could be an engineer that’s batch processing some data, or a mathematical researcher prototyping a new algorithm – everyone codes in the same language.

Maple now supports C-style increment, decrement, and assignment operators, giving you more concise code.

We’ve made a number of improvements to the interface, including a redesigned start page. My favorite is the display of large data structures (or rtables).

You now see the header (that is, the top-left) of the data structure.

For an audio file, you see useful information about its contents.

I enjoy creating new and different types of visualizations using Maple's sandbox of flexible plots and plotting primitives.

Here’s a new feature that I’ll use regularly: given a name (and optionally a modifier), polygonbyname draws a variety of shapes.

In other breaking news, I now know what a Reuleaux hexagon looks like.

Since I can’t resist talking about another signal processing feature, FindPeakPoints locates the local peaks or valleys of a 1D data set. Several options let you filter out spurious peaks or valleys

I’ve used this new function to find the fundamental frequencies and harmonics of a violin note from its periodogram.

Speaking of passionate developers who are devoted to their work, Edgardo has written a new e-book that teaches you how to use tensor computations using Physics. You get this e-book when you install Maple 2019.

The new LeastTrimmedSquares command fits data to an equation while not being signficantly influenced by outliers.

In this example, we:

• Artifically generate a noisy data set with a few outliers, but with the underlying trend Y =5 X + 50
• Fit straight lines using CurveFitting:-LeastSquares and Statistics:-LeastTrimmedSquares

LeastTrimmedSquares function correctly predicts the underlying trend.

We try to make every release faster and more efficient. We sometimes target key changes in the core infrastructure that benefit all users (such as the parallel garbage collector in Maple 17). Other times, we focus on specific functions.

For this release, I’m particularly impressed by this improved benchmark for factor, in which we’re factoring a sparse multivariate polynomial.

On my laptop, Maple 2018 takes 4.2 seconds to compute and consumes 0.92 GiB of memory.

Maple 2019 takes a mere 0.27 seconds, and only needs 45 MiB of memory!

I’m a visualization nut, and I always get a vicarious thrill when I see a shiny new plot, or a well-presented application.

I was immediately drawn to this new Maple 2019 app – it illustrates the transition between day and night on a world map. You can even change the projection used to generate the map. Shiny!

So that’s my pick of the top new features in Maple 2019. Everyone here at Maplesoft would love to hear your comments!

## The Maple Conference is Back!

by: Maple Maple Toolboxes

It is my pleasure to announce the return of the Maple Conference! On October 15-17th, in Waterloo, Ontario, Canada, we will gather a group of Maple enthusiasts, product experts, and customers, to explore and celebrate the different aspects of Maple.

Specifically, this conference will be dedicated to exploring Maple’s impact on education, new symbolic computation algorithms and techniques, and the wide range of Maple applications. Attendees will have the opportunity to learn about the latest research, share experiences, and interact with Maple developers.

In preparation for the conference we are welcoming paper and extended abstract submissions. We are looking for presentations which fall into the broad categories of “Maple in Education”, “Algorithms and Software”, and “Applications of Maple” (a more extensive list of topics can be found here).

## 2D contour plot and legend

by: Maple

There have been several posts, over the years, related to visual cues about the values associated with particular 2D contours in a plot.

Some people ask or post about color-bars [1]. Some people ask or post about inlined labelling of the curves [1, 2, 3, 4, 5, 6, 7]. And some post about mouse popup/hover-over functionality [1]., which got added as general new 2D plot annotation functionality in Maple 2017 and is available for the plots:-contourplot command via its contourlabels option.

Another possibility consists of a legend for 2D contour plots, with distinct entries for each contour value. That is not currently available from the plots:-contourplot command as documented. This post is about obtaining such a legend.

Aside from the method used below, a similar effect may be possible (possibly with a little effort) using contour-plotting approaches based on individual plots:-implicitplot calls for each contour level. Eg. using Kitonum's procedure, or an undocumented, alternate internal driver for plots:-contourplot.

Since I like the functionality provided by the contourlabels option I thought that I'd highjack that (and the _HOVERCONTENT plotting substructure that plot-annotations now generate) and get a relatively convenient way to get a color-key via the 2D plotting legend.  This is not supposed to be super-efficient.

Here below are some examples. I hope that it illustrates some useful functionality that could be added to the contourplot command. It can also be used to get a color-key for use with densityplot.

 > restart;
 > contplot:=proc(ee, rng1, rng2)   local clabels, clegend, i, ncrvs, newP, otherdat, others, tcrvs, tempP;   (clegend,others):=selectremove(type,[_rest],identical(:-legend)=anything);   (clabels,others):= selectremove(type,others,identical(:-contourlabels)=anything);   if nops(clegend)>0 then     tempP:=:-plots:-contourplot(ee,rng1,rng2,others[],                                 ':-contourlabels'=rhs(clegend[-1]));     tempP:=subsindets(tempP,'specfunc(:-_HOVERCONTENT)',                       u->`if`(has(u,"null"),NULL,':-LEGEND'(op(u))));     if nops(clabels)>0 then       newP:=plots:-contourplot(ee,rng1,rng2,others[],                               ':-contourlabels'=rhs(clabels[-1]));       tcrvs:=select(type,[op(tempP)],'specfunc(CURVES)');       (ncrvs,otherdat):=selectremove(type,[op(newP)],'specfunc(CURVES)');       return ':-PLOT'(seq(':-CURVES'(op(ncrvs[i]),op(indets(tcrvs[i],'specfunc(:-LEGEND)'))),                           i=1..nops(ncrvs)),                       op(otherdat));     else       return tempP;     end if;   elif nops(clabels)>0 then     return plots:-contourplot(ee,rng1,rng2,others[],                               ':-contourlabels'=rhs(clabels[-1]));   else     return plots:-contourplot(ee,rng1,rng2,others[]);   end if; end proc:
 > contplot(x^2+y^2, x=-2..2, y=-2..2,       coloring=["Yellow","Blue"],       contours = 9,       size=[500,400],       legendstyle = [location = right],       legend=true,       contourlabels=true,       view=[-2.1..2.1,-2.1..2.1] );

 > contplot(x^2+y^2, x=-2..2, y=-2..2,       coloring=["Yellow","Blue"],       contours = 17,       size=[500,400],       legendstyle = [location = right],       legend=['contourvalue',\$("null",7),'contourvalue',\$("null",7),'contourvalue'],       contourlabels=true,       view=[-2.1..2.1,-2.1..2.1] );

 > # Apparently legend items must be unique, to persist on document re-open. contplot(x^2+y^2, x=-2..2, y=-2..2,       coloring=["Yellow","Blue"],       contours = 11,       size=[500,400],       legendstyle = [location = right],       legend=['contourvalue',seq(cat(\$(` `,i)),i=2..5),               'contourvalue',seq(cat(\$(` `,i)),i=6..9),               'contourvalue'],       contourlabels=true,       view=[-2.1..2.1,-2.1..2.1] );

 > contplot(x^2+y^2, x=-2..2, y=-2..2,       coloring=["Green","Red"],       contours = 8,       size=[400,450],       legend=true,       contourlabels=true );

 > contplot(x^2+y^2, x=-2..2, y=-2..2,       coloring=["Yellow","Blue"],       contours = 13,       legend=['contourvalue',\$("null",5),'contourvalue',\$("null",5),'contourvalue'],       contourlabels=true );

 > (low,high,N):=0.1,7.6,23: conts:=[seq(low..high*1.01, (high-low)/(N-1))]: contplot(x^2+y^2, x=-2..2, y=-2..2,       coloring=["Yellow","Blue"],       contours = conts,       legend=['contourvalue',\$("null",floor((N-3)/2)),'contourvalue',\$("null",ceil((N-3)/2)),'contourvalue'],       contourlabels=true );

 > plots:-display(   subsindets(contplot((x^2+y^2)^(1/2), x=-2..2, y=-2..2,                       coloring=["Yellow","Blue"],                       contours = 7,                       filledregions),              specfunc(CURVES),u->NULL),   contplot((x^2+y^2)^(1/2), x=-2..2, y=-2..2,       coloring=["Yellow","Blue"],       contours = 7, #grid=[50,50],       thickness=0,       legendstyle = [location=right],       legend=true),   size=[600,500],   view=[-2.1..2.1,-2.1..2.1] );
 >

 > plots:-display(   contplot(x^2+y^2, x=-2..2, y=-2..2,       coloring=["Yellow","Blue"],       contours = 5,       thickness=0, filledregions),   contplot(x^2+y^2, x=-2..2, y=-2..2,       coloring=["Yellow","Blue"],       contours = 5,       thickness=3,       legendstyle = [location=right],       legend=typeset("<=",contourvalue)),   size=[700,600],   view=[-2.1..2.1,-2.1..2.1] );

 > N:=11: plots:-display(   contplot(sin(x)*y, x=-2*Pi..2*Pi, y=-1..1,       coloring=["Yellow","Blue"],       contours = [seq(-1+(i-1)*(1-(-1))/(N-1),i=1..N)],       thickness=3,       legendstyle = [location=right],       legend=true),    plots:-densityplot(sin(x)*y, x=-2*Pi..2*Pi, y=-1..1,       colorscheme=["zgradient",["Yellow","Blue"],colorspace="RGB"],       grid=[100,100],       style=surface, restricttoranges),    plottools:-line([-2*Pi,-1],[-2*Pi,1],thickness=3,color=white),    plottools:-line([2*Pi,-1],[2*Pi,1],thickness=3,color=white),    plottools:-line([-2*Pi,1],[2*Pi,1],thickness=3,color=white),    plottools:-line([-2*Pi,-1],[2*Pi,-1],thickness=3,color=white),    size=[600,500] );

 > N:=13: plots:-display(   contplot(sin(x)*y, x=-2*Pi..2*Pi, y=-1..1,       coloring=["Yellow","Blue"],       contours = [seq(-1+(i-1)*(1-(-1))/(N-1),i=1..N)],       thickness=6,       legendstyle = [location=right],       legend=['contourvalue',seq(cat(\$(` `,i)),i=2..3),               'contourvalue',seq(cat(\$(` `,i)),i=5..6),               'contourvalue',seq(cat(\$(` `,i)),i=8..9),               'contourvalue',seq(cat(\$(` `,i)),i=11..12),               'contourvalue']),    plots:-densityplot(sin(x)*y, x=-2*Pi..2*Pi, y=-1..1,       colorscheme=["zgradient",["Yellow","Blue"],colorspace="RGB"],       grid=[100,100],       style=surface, restricttoranges),    plottools:-line([-2*Pi,-1],[-2*Pi,1],thickness=6,color=white),    plottools:-line([2*Pi,-1],[2*Pi,1],thickness=6,color=white),    plottools:-line([-2*Pi,1],[2*Pi,1],thickness=6,color=white),    plottools:-line([-2*Pi,-1],[2*Pi,-1],thickness=6,color=white),   size=[600,500] );

 >

## A Complete Guide for Tensor computations using...

by: Maple

A Complete Guide for performing Tensors computations using Physics

This is an old request, a complete guide for using Physics  to perform tensor computations. This guide, shown below with Sections closed, is linked at the end of this post as a pdf file with all the sections open, and also as a Maple worksheet that allows for reproducing its contents. Most of the computations shown are reproducible in Maple 2018.2.1, and a significant part also in previous releases, but to reproduce everything you need to have the Maplesoft Physics Updates version 283 or higher installed. Feedback one how to improve this presentation is welcome.

Physics  is a package developed by Maplesoft, an integral part of the Maple system. In addition to its commands for Quantum Mechanics, Classical Field Theory and General Relativity, Physics  includes 5 other subpackages, three of them also related to General Relativity: Tetrads , ThreePlusOne  and NumericalRelativity (work in progress), plus one to compute with Vectors  and another related to the Standard Model (this one too work in progress).

The presentation is organized as follows. Section I is complete regarding the functionality provided with the Physics package for computing with tensors  in Classical and Quantum Mechanics (so including Euclidean spaces), Electrodynamics and Special Relativity. The material of section I is also relevant in General Relativity, for which section II is all devoted to curved spacetimes. (The sub-section on the Newman-Penrose formalism needs to be filled with more material and a new section devoted to the EnergyMomentum tensor is appropriate. I will complete these two things as time permits.) Section III is about transformations of coordinates, relevant in general.

For an alphabetical list of the Physics commands with a brief one-line description and a link to the corresponding help page see Physics: Brief description of each command .

I. Spacetime and tensors in Physics

This section contains all what is necessary for working with tensors in Classical and Quantum Mechanics, Electrodynamics and Special Relativity. This material is also relevant for computing with tensors in General Relativity, for which there is a dedicated Section II. Curved spacetimes .

 Default metric and signature, coordinate systems

Tensors, their definition, symmetries and operations

Physics comes with a set of predefined tensors, mainly the spacetime metric  , the space metric  , and all the standard tensors of  General Relativity. In addition, one of the strengths of Physics is that you can define tensors, in natural ways, by indicating a matrix or array with its components, or indicating any generic tensorial expression involving other tensors.

In Maple, tensor indices are letters, as when computing with paper and pencil, lowercase or upper case, latin or greek, entered using indexation, as in , and are displayed as subscripts as in . Contravariant indices are entered preceding the letter with ~, as in , and are displayed as superscripts as in . You can work with two or more kinds of indices at the same time, e.g., spacetime and space indices.

To input greek letters, you can spell them, as in mu for , or simpler: use the shortcuts for entering Greek characters . Right-click your input and choose Convert To → 2-D Math input to give to your input spelled tensorial expression a textbook high quality typesetting.

Not every indexed object or function is, however, automatically a tensor. You first need to define it as such using the Define  command. You can do that in two ways:

 1 Passing the tensor being defined, say , possibly indicating symmetries and/or antisymmetries for its indices.
 2 Passing a tensorial equation where the left-hand side is the tensor being defined as in 1. and the right-hand side is a tensorial expression - or an Array or Matrix - such that the components of the tensor being defined are equal to the components of the tensorial expression.

After defining a tensor - say  or - you can perform the following operations on algebraic expressions involving them

 • Automatic formatting of repeated indices, one covariant the other contravariant
 • Automatic handling of collisions of repeated indices in products of tensors
 • Simplify  products using Einstein's sum rule for repeated indices.
 • SumOverRepeatedIndices  of the tensorial expression.
 • Use TensorArray  to compute the expression's components
 • TransformCoordinates .

If you define a tensor using a tensorial equation, in addition to the items above you can:

 • Get each tensor component by indexing, say as in  or
 • Get all the covariant and contravariant components by respectively using the shortcut notation  and .
 • Use any of the special indexing keywords valid for the pre-defined tensors of Physics; they are: definition, nonzero, and in the case of tensors of 2 indices also trace, and determinant.
 • No need to specify the tensor dependency for differentiation purposes - it is inferred automatically from its definition.
 • Redefine any particular tensor component using Library:-RedefineTensorComponent
 • Minimizing the number of independent tensor components using Library:-MinimizeTensorComponent
 • Compute the number of independent tensor components - relevant for tensors with several indices and different symmetries - using Library:-NumberOfTensorComponents .

The first two sections illustrate these two ways of defining a tensor and the features described. The next sections present the existing functionality of the Physics package to compute with tensors.

 Defining a tensor passing the tensor itself
 Defining a tensor passing a tensorial equation
 Automatic formatting of repeated tensor indices and handling of their collisions in products
 Tensor symmetries
 Substituting tensors and tensor indices
 Simplifying tensorial expressions
 SumOverRepeatedIndices
 Visualizing tensor components - Library:-TensorComponents and TensorArray
 Modifying tensor components - Library:-RedefineTensorComponent
 Enhancing the display of tensorial expressions involving tensor functions and derivatives using CompactDisplay
 The LeviCivita tensor and KroneckerDelta
 The 3D space metric and decomposing 4D tensors into their 3D space part and the rest
 Total differentials, the d_[mu] and dAlembertian operators
 Tensorial differential operators in algebraic expressions
 Inert tensors
 Functional differentiation of tensorial expressions with respect to tensor functions
 The Pauli matrices and the spacetime Psigma[mu] 4-vector
 The Dirac matrices and the spacetime Dgamma[mu] 4-vector
 Quantum not-commutative operators using tensor notation

II. Curved spacetimes

Physics comes with a set of predefined tensors, mainly the spacetime metric  , the space metric  , and all the standard tensors of general relativity, respectively entered and displayed as: Einstein[mu,nu] = ,    Ricci[mu,nu]  = , Riemann[alpha, beta, mu, nu]  = , Weyl[alpha, beta, mu, nu],  = , and the Christoffel symbols   Christoffel[alpha, mu, nu]  =  and Christoffel[~alpha, mu, nu]  =  respectively of first and second kinds. The Tetrads  and ThreePlusOne  subpackages have other predefined related tensors. This section is thus all about computing with tensors in General Relativity.

 Setting the spacetime metric indicating the line element or a Matrix
 Covariant differentiation: the D_[mu] operator and the Christoffel symbols
 The Einstein, Ricci, Riemann and Weyl tensors of General Relativity
 A conversion network for the tensors of General Relativity
 Tetrads and the local system of references - the Newman-Penrose formalism
 The ThreePlusOne package and the 3+1 splitting of Einstein's equations
 III. Transformations of coordinates

Edgardo S. Cheb-Terrab
Physics, Differential Equations and Mathematical Functions, Maplesoft

Recently, my research team at the University of Waterloo was approached by Mark Ideson, the skip for the Canadian Paralympic men’s curling team, about developing a curling end-effector, a device to give wheelchair curlers greater control over their shots. A gold medalist and multi-medal winner at the Paralympics, Mark has a passion to see wheelchair curling performance improve and entrusted us to assist him in this objective. We previously worked with Mark and his team on a research project to model the wheelchair curling shot and help optimize their performance on the ice. The end-effector project was the next step in our partnership.

The use of technology in the sports world is increasing rapidly, allowing us to better understand athletic performance. We are able to gather new types of data that, when coupled with advanced engineering tools, allow us to perform more in-depth analysis of the human body as it pertains to specific movements and tasks. As a result, we can refine motions and improve equipment to help athletes maximize their abilities and performance. As a professor of Systems Design Engineering at the University of Waterloo, I have overseen several studies on the motor function of Paralympic athletes. My team focuses on modelling the interactions between athletes and their equipment to maximize athletic performance, and we rely heavily on Maple and MapleSim in our research and project development.

The end-effector project was led by my UW students Borna Ghannadi and Conor Jansen. The objective was to design a device that attaches to the end of the curler’s stick and provides greater command over the stone by pulling it back prior to release.  Our team modeled the end effector in Maple and built an initial prototype, which has undergone several trials and adjustments since then. The device is now on its 7th iteration, which we felt appropriate to name the Mark 7, in recognition of Mark’s inspiration for the project. The device has been a challenge, but we have steadily made improvements with Mark’s input and it is close to being a finished product.

Currently, wheelchair curlers use a device that keeps the stone static before it’s thrown. Having the ability to pull back on the stone and break the friction prior to release will provide great benefit to the curlers. As a curler, if you can only push forward and the ice conditions aren’t perfect, you’re throwing at a different speed every time. If you can pull the stone back and then go forward, you’ve broken that friction and your shot is far more repeatable. This should make the game much more interesting.

For our team, the objective was to design a mechanism that not only allowed curlers to pull back on the stone, but also had a release option with no triggers on the curler’s hand. The device we developed screws on to the end of the curler’s stick, and is designed to rest firmly on the curling handle. Once the curler selects their shot, they can position the stone accordingly, slide the stone backward and then forward, and watch the device gently separate from the stone.

For our research, the increased speed and accuracy of MapleSim’s multibody dynamic simulations, made possible by the underlying symbolic modelling engine, Maple, allowed us to spend more time on system design and optimization. MapleSim combines principles of mechanics with linear graph theory to produce unified representations of the system topology and modelling coordinates. The system equations are automatically generated symbolically, which enables us to view and share the equations prior to a numerical solution of the highly-optimized simulation code.

The Mark 7 is an invention that could have significant ramifications in the curling world. Shooting accuracy across wheelchair curling is currently around 60-62%, and if new technology like the Mark 7 is adopted, that number could grow to 70 or 75%. Improved accuracy will make the game more enjoyable and competitive. Having the ability to pull back on the stone prior to release will eliminate some instability for the curlers, which can help level the playing field for everyone involved. Given the work we have been doing with Mark’s team on performance improvements, it was extremely satisfying for us to see them win the bronze medal in South Korea. We hope that our research and partnership with the team can produce gold medals in the years to come.

 First 24 25 26 27 28 29 30 Last Page 26 of 290
﻿