The error message is because you are assigning to kt_poly, which is not allowed, because it is passed into the procedure (and already has a value). The easiest fix is just to have the procedure return the value of Quotient as the last line of the procedure. Now you get an error about Quotient not allowing multivariate polynomials, which is because the X passed into the procedure in cyclo_poly[i] is diiferent from the local X. The simplest fix is to pass the variable you want (X) as a third argument to the procedure.

Download Programm_zur_Brechnung_der_Kreisteilungspolynome_2022-04-05_Ki.mw

Download dots.mw

A plot of the indefinite integral shows discontinuities at 0, Pi, 2*Pi. If you take the limits from the left or right as appropriate, and avoid the discontinuities, you can get the right answer.

Download ArcLength_of_Ellipse.mw

I used eval to substitute C1 and C2 into psi, which had square brackets around that I removed. Then the limit works. You should be usung LinearAlgebra rather than linalg.

limit.mw

I usually force the hardware type I want, here integer[8]. Then you get an explicit error about the overflow.

Note that tail recursion gives a massive speedup - as the documentation says: "During compilation, tail-recursive calls are detected and transformed into iteration. This means that tail-recursive procedures compile to very fast code."

Download fibonacci.mw

Eigenvalues are efficiently calculated for floating point matrices, and if you specify shape=symmetric then it will use an algorithm for symmetric matrices that returns real eigenvalues. (Calculating through eigenvalues is better than through the characteristic polynomial).
 

Download evals.mw

Not sure about types of matrices, normal, diagonalizable, large or small etc, but this might be useful. For general M,N there is unlikely to be a solution.

Download evs.mw

I'm guessing there are further rules to appear?

(I'm a liitle surprised my earlier code https://www.mapleprimes.com/questions/233777-Pythagorean-Puzzle#answer285102 works for these edge cases, since I didn't think about them at the time.)

Download OneOhm.mw

Not sure exactly what you want - here is a start.

Download Group.mw

Edit: here some of it in the older group package, if you have Maple earlier than version 17

oldgroup.mw

Download sum.mw

If you export as .rtf, you should be able to open it in Word, in a form that allows it to be modified.

Select all the font files (ctrl-A), and then the right-click menu has install or install for all users. (Double-clicking a single font file will install it.)

Not sure exactly what shape and size you want, but easiest to just declare b as an upper triangular matrix before generating the b[i,j] which go into it.You then get an error because you assigned a non zero entry for the lower triangular part. (Edit: I removed b[j,i]:=b[i,j] to fix that.) Probably you can fix this up to do what you want. (You should avoid using b for more than one purpose.)

bmatrix.mw

Yes, if typesetting is standard then you get the 2D output close to the version you see.

`Methods for first order ODEs:``--- Trying classification methods ---``trying a quadrature``<- quadrature successful`                         sol := y(x) = -cos(x) + _C1

Note that for the lprinted lines, each line is delimited with backquotes, so you could use this to insert linebreaks.

Well, I would just use view not to see the others, since you end up making another list otherwise. But I fixed your `if`; you want NULL to remove the list element (and there was something strange about the first "abs")

Download plotting.mw