@Hypnos Yes, (H+H*)/2 is always a Hermitian matrix.

@taro yamada While it is true that numbers (or anything else) can be made into a symbol with ``, that is not what Preben's code is doing. He is using `` as a function. ``(2) is like saying f(2), but without the f being visible in the prettyprint. Making 2 into a symbol would be `2`.

@nicoviaux Why do you have try...end try? With that there you can't see whatever error message is telling you why your data is not going to the file. A likely cause is that you don't have permission for the file.

Simply sending the output to the screen works fine:

for i to 4 do
     printf("%g %g\n",i/10.0,i):
end do;

0.1 1
0.2 2
0.3 3
0.4 4

@Preben Alsholm Do the given values of h and k seem ridiculously large to you? The relative errors are so large that a comparison between k=0.1 and k=0.05 seems meaningless. I wonder if the numbers given in the problem statement are off by a decimal place.

@mriedel Pehaps reading my extensively commented final version of the algorithm at the end of the thread will substitute for the mathematical notation. Note that this algorithm actually produces the factorings rather than counting them. Also, they are produced in a natural order without needing a final sort.

@acer wrote:

On my machine your original `mp` handled 9! in about 35sec, and the edited `mp3` above took 1.2sec, while Joe's Factorings took 0.14sec.

Kitonum, Joe, and I contributed equally to the program Factorings.

@ecterrab Yes, I understand all the caveats.

To do this, I assume that I would need to modify not the regular `print/diff` but rather the `print/diff` that is installed by PDEtools:-declare.

@ecterrab Thanks. I should've checked whether `print/` procedures were traceable.

My goal is to investigate the feasibility of satisfying a recent request on MaplePrimes that subscripted derivatives (as produced by PDEtools:-declare) be printed in an abbreviated form. The Asker wants, for example, that f[x,x,x,x,x,x] print as f[`6x`] and that f[x,x,x,y,y,y,y] print as f[`3x`,`4y`] or perhaps f[`3x4y`].

@Muhammad Usman Your file still did not attach.

I guess it was the same file as your other question, which did attach, so don't bother responding here. You should delete this question.

@Muhammad Usman Your file did not attach. Please try again.

I don't understand what you want. Could you give an example of the final form of the matrix that you want? If we restrict the rows and columns of L and F to just those that contain M and r, the result will not be square.

@Markiyan Hirnyk The original function omega_i appears (from the graph) to have a singularity at R_i_t = 1. If we avoid this point, then the minimax approximation is much better. I used minimax(omega_i, R_i_t= 0.25..0.95, 3).

@taro yamada The help page for `` is ?emptysymbol .

@Markiyan Hirnyk I was supposing that n would be defined at the time that the OP used the code. If n has a numeric value, then add and mul will not give an error.

@raveen Your book is right. The correctness of that answer is easily verified. But how it is different from the answer that you got with Maple?