Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

hi   is there any method to tell maple do a paticular auto substitution  ,see picture  below.

i hope  this substitution can be done automatically , instead of using algsubs(signum()^2=1,eq(2)) 

i have tried simplify()  , but did not work.



Recognizing Handwritten Digits with Machine Learning



Using the DeepLearning  package, this application trains a neural network to recognize the numbers in images of handwritten digits. The trained neural network is then applied to a number of test images.


The training and testing images are a very small subset of the MNIST database of handwritten digits; these consist of 28 x 28 pixel images of a handwritten digit, ranging from 0 to 9. A sample image for the digit zero is .


Ultimately, this application generates an vector of weights for each digit; think of weights as a marking grid for a multiple choice exam. When reshaped into a matrix, a weight vector for the digit 0 might look like this.

When attempting to recognize the number in an image



If a pixel with a high intensity lands in the red area, the evidence is high that the handwritten digit is zero


Conversely, if a pixel with a high intensity lands in the blue area, the evidence is low that the handwritten digit is zero


The DeepLearning package is a partial interface to Tensorflow, an open-source machine learning framework. To learn about the machine learning techniques used in this application, please consult these references (the next section, however, features a brief overview)








We first build a computational (or dataflow) graph. Then, we create a Tensorflow session to run the graph.


Tensorflow computations involve tensors; think of tensors as multidimensional arrays.



Each 28 x 28 image is flattened into a list with 784 elements.


Once flattened, the training images are stored in a tensor x, with shape of [none, 784]. The first index is the number of training images ("none" means that we can use an arbitrary number of training images).



Each training image is associated with a label.



Labels are a 10-element list, where each element is either 0 or 1


All elements apart from one are zero


The location of the non-zero element is the "value" of the image


So for an image that displays the digit 5, the label is [ 0,0,0,0,0,1,0,0,0,0]. This is known as a one-hot encoding.


All the labels are stored in a tensor y_ with a shape of [none, 10].



The neural network is trained via multinomial logistic regression (also known as softmax).


Step 1

Calculate the evidence that each image is in a selected class. Do this by performing a weighted sum of the pixel intensity for the flattened image.


e__i = sum(`W__i,j`*x__j, j = 1 .. 784)+b__i





Wi,j and bi are the weight and the bias for digit i and pixel j. Think of W as a matrix with 784 rows (one for each pixel) and 10 columns (one for each digit), and b is a vector with 10 columns (one for each digit)


xj is the intensity of pixel j


Step 2

Normalize the evidence into a vector of probabilities with softmax.


y__i = softmax*e__i and softmax*e__i = e^x__i/(sum(e^x__j, j = 1 .. 784))


Step 3

For each image, calculate the cross-entropy of the vector of predicted probabilities and the actual probabilities (i.e the labels)


H__y_(y) = -(sum(y_[i]*log(y__i), i = 1 .. 10))



y_ is the true distribution of probabilities (i.e. the one-hot encoded label)


y is the predicted distribution of probabilities


The smaller the cross entropy, the better the prediction.


Step 4

The mean cross-entropy across all training images is then minimized to find the optimum values of W and b



For each test image, we will generate 10 ordered probabilities that sum to 1. The location of the highest probability is the predicted value of the digit.



This application consists of



this worksheet


and a very small subset of images from the MNIST handwritten digit database


in a single zip file. The images are stored in folders; the folders should be extracted to the location as this worksheet.

Load Packages and Define Parameters



TRAIN_STEPS   := 40:


Number of training images to load for each digit (maximum of 100)

N := 22:

Number of labels (there are 10 digits, so this is always 10)

L := 10:


Number of test images

T := 50:

Import Training Images and Generate Labels


Import the training images, where images[n] is a list containing the images for digit n.

path := "C:/Users/Wilfried/Documents/Maple/Examples/ML/":
for j from 0 to L - 1 do
    images[j] := [seq(Import(cat(path, j, "/", j, " (", i, ").PNG")), i = 1 .. N)];
end do:

Generate the labels for digit j, where label[n] is the label for image[n].

for j from 0 to L - 1 do
   labels[j] := ListTools:-Rotate~([[1,0,0,0,0,0,0,0,0,0]$N],-j)[]:
end do:


Display training images

Embed([seq(images[i-1], i = 1 .. L)]);



Flatten and collect images

x_train := convert~([seq(images[i - 1][], i = 1 .. L)], list):


Collect labels

y_train := [seq(labels[i - 1], i = 1 .. L)]:


Define placeholders x  and y to feed the training images and labels into

x  := Placeholder(float[4], [none, 784]):
y_ := Placeholder(float[4], [none, L]):

Define weights and bias

W := Variable(Array(1 .. 784, 1 .. L), datatype = float[4]):
b := Variable(Array(1 .. L), datatype = float[4]):


Define the classifier using multinomial logistic regression

y := SoftMax(x.W + b):


Define the cross-entropy (i.e. the cost function)

cross_entropy := ReduceMean(-ReduceSum(y_ * log(y), reduction_indicies = [1])):


Get a Tensorflow session

sess := GetDefaultSession():


Initialize the variables

init := VariablesInitializer():


Define the optimizer to minimize the cross entropy

optimizer := Optimizer(GradientDescent(LEARNING_RATE)):
training  := optimizer:-Minimize(cross_entropy):


Repeat the optimizer many times

for i from 1 to TRAIN_STEPS do

   sess:-Run(training, {x in x_train, y_ in y_train}):

   if i mod 200 = 0 then
      print(cat("loss = ", sess:-Run(cross_entropy, {x in x_train, y_ in y_train})));    
   end if:

end do:

Import Test Images and Predict Numbers


Randomize the order of the test images.

i_rand := combinat:-randperm([seq(i, i = 1 .. 100)]);

[13, 71, 67, 52, 81, 37, 46, 6, 39, 77, 36, 21, 49, 95, 62, 26, 44, 65, 90, 72, 70, 5, 4, 54, 31, 23, 63, 18, 22, 38, 27, 53, 50, 17, 47, 51, 78, 79, 92, 20, 28, 34, 60, 80, 58, 87, 86, 93, 84, 12, 59, 98, 97, 56, 75, 10, 29, 61, 7, 66, 100, 42, 91, 43, 89, 76, 11, 74, 8, 96, 64, 94, 68, 48, 33, 24, 40, 30, 57, 73, 99, 15, 19, 1, 3, 41, 85, 83, 35, 14, 45, 2, 88, 9, 16, 32, 69, 25, 55, 82]


Load and flatten test images.

path:= "C:/Users/Wilfried/Documents/Maple/Examples/ML/test_images":
x_test_images := [seq(Import(cat(path,"/","test (", i, ").png")), i in i_rand[1 .. T])]:
x_train:= convert~(x_test_images, list):


For each test image, generate 10 probabilities that the digit is a number from 1 to 10

pred := sess:-Run(y, {x in x_train})



For each test image, find the predicted digit associated with the greatest probability

predList := seq( max[index]( pred[i, ..] ) - 1, i = 1 .. T )

9, 1, 0, 5, 3, 4, 5, 2, 8, 3, 8, 2, 5, 2, 4, 6, 8, 4, 1, 1, 1, 6, 7, 5, 7, 7, 4, 7, 7, 8, 7, 5, 5, 7, 5, 5, 3, 3, 0, 6, 7, 7, 4, 3, 4, 0, 3, 2, 3, 7


L := []; for i to 50 do L := [op(L), max(pred[i])] end do
for k from 1 to 10 do:
 for i from 1 to 50 do:
  if predList[i]=k-1 then L1:=[op(L1),L[i]] end if:
 end do:
end do:



Vector[column](%id = 36893490552619428548), Vector[column](%id = 36893490552619428668)


Consider the first test image


The ten probabilities associated with this image are

pred[1, ..]

Vector[row](10, {(1) = 0.1176837849925505e-4, (2) = .3597199022769928, (3) = 0.8788742707110941e-3, (4) = 0.14628235250711441e-1, (5) = .16885940730571747, (6) = 0.10462711565196514e-1, (7) = 0.16997022554278374e-1, (8) = 0.5874206870794296e-1, (9) = 0.20698020234704018e-2, (10) = .3676302134990692})



Confirm that the probabilities add up to 1

add(i, i in pred[1, ..])




The maximum probability occurs at this index

maxProbInd := max[index](pred[1, ..])



Hence the predicted number is

maxProbInd - 1



Embed(x_test_images[1 .. 25])

Embed(x_test_images[26 .. 50])

We now display all the predictions

T1 := Table(Row(seq(predList[k],k = 1.. 25)),Row( seq(predList[k],k = 26 .. 50 ))

Visualize Weights

I have problmes running the file with Maple 2024. It runs fine with Maple 2020.2 (execpt the very last part, which is not essential). The problem occurs at the SoftMax command, even if I use Softmax. It seems to be a Python conersion problem in Maple 2024. Please let me know what the remidy is. You need to modify the data path because it is set to my computer.



Can I draw such figures using Maple?

If possible please guide how I can do it.

How to evaluate the right eigenvector of a given matrix in maple?

This is just cosmotics, but it looks ugly for me. For some reason Maple converts exp(2*a) to (exp(a))^2 under certain operations such as expand



This happens in worksheet under typesetting level extends or standard.

Any specific reason why Maple likes to rewrite exp(2*a) as (exp(a))^2  and is there a way to tell it not to do that?

ps. it is little more than cosmotic actually, it affects the Latex generated


{\mathrm e}^{2 a}

\left({\mathrm e}^{a}\right)^{2}


Maple 2024 on windows 10

I made a dsolve for a system of differential equations, and I get a set of solutions. How to transform them into  functions that can be displayed?

Simple question (I'm sure) here.  I have one worksheet where the variable does not show up in the ouput of an assignment like this:

whereas I was expecting the output to include the variable being assigned like this in most other worksheets:

I am having some difficulting locating the cause (and therefore the setting) to have the behavior set back to including the variable name in the ouput.  Thanks in advance for your help.


I successfully animated my trigonometric problem on the wheel. Just a few details: 1) The 'gridlines' option deactivates when using the 'tickmarks' option. 2) The animation takes time to compile. Any suggestions? Thank you for your advice on optimizing this animation

I want to construct equation  equation LT−TL=0, where L and T represent partial differential operators as

L = u^2 * ∂^2/∂x^2 + ∂/∂y

T = 4u^3 * ∂^3/∂x^3 + (6u^2u_x - 6u^2 * ∂^(-1)/∂x(u_y/u^2)) * ∂/∂x - ∂/∂t.

Could you please provide Maple code to accomplish this task??

Hi everyone,

I am trying to solve a coupled ODE with variables c(T) and p__c(T) and these equations have a quantum parameter in them called beta__c which is a constant. The solutions to both p__c and c should naturally have beta__c in them, but in Maple they don't (in p__c particularly), while in Mathematica they do (beta2 in Mathematica is the same as beta__c in Maple). This is extremely important since we don't have the boundary conditions to fix the constants of integration of the solutions to p__c and c from ODEs, but we can use the the classical limit, beta__c -->0, of the ODE solutions we obtained, to match the classical solutions and ODE solutions, to fix the integration constants c1 and c2.

Below I am attaching the solutions of Maple and Mathematica. Can you advise how can I get solutions similar to Mathematica that have beta__c in them (particularly in p__c) such that one can actually take the  limit beta__c -->0 ?
In the Mathematica file beta2 is the same as beta__c in Maple.

Here is the Maple solution: