## 1082 Reputation

12 years, 81 days

## That is Powerful...

@acer  That is powerful.
I made your procedure also return the Qs for numerical evaluation.I could not get changing Q to another symbol to work because of this.

I see what you mean about codegen:-optimize(eqn)

I managed to reduce the length of some of the Q expressions by factoring them.

This will be great for displaying these expressions in the table layout and term elision you helped me with a couple of week ago.

Subs_Recur_ac.mw

## I am not sure what you mean...

@C_R So you mean change this

```indets(eqn) minus indets(eqn,name);
subexpr:=map(op,%) minus indets(%,fraction):# remove of root terms - instead of filtering for `^````

indets(eqn,`^`) gives, which has  the a^2 ...e^2

`{a^2, b^2, c^2, d^2, e^2, 1/(a*c - b^2/4), 1/(4*a*c - b^2)^2, (4*a*c*f - a*e^2 - b^2*f + b*d*e - c*d^2)^2, sqrt((a^2 - 2*a*c + b^2 + c^2)*(4*a*c*f - a*e^2 - b^2*f + b*d*e - c*d^2)^2), sqrt(2*sqrt((a^2 - 2*a*c + b^2 + c^2)*(4*a*c*f - a*e^2 - b^2*f + b*d*e - c*d^2)^2) + (-8*a*f + 2*d^2)*c^2 + (8*a^2*f - 2*a*d^2 + 2*a*e^2 + 2*b^2*f - 2*b*d*e)*c - 2*a^2*e^2 - 2*a*b^2*f + 2*a*b*d*e), sqrt(2*sqrt((a^2 - 2*a*c + b^2 + c^2)*(4*a*c*f - a*e^2 - b^2*f + b*d*e - c*d^2)^2) + (8*a*f - 2*d^2)*c^2 + (-8*a^2*f + 2*a*d^2 - 2*a*e^2 - 2*b^2*f + 2*b*d*e)*c + 2*a^2*e^2 + 2*a*b^2*f - 2*a*b*d*e)}`

## I'll experiment with your approach...

@C_R That is a good step forward. I'll apply this to some "beautiful" other expressions I have.

I have been half thinking about setting up a procedure if I get a good all round handling.

Will let you know.

## Prompt?...

@acer How do you change the prompt. I presume you mean the >. Could you give a short exampple of commenting out the code with this method? I have used the (*.........*) in the VS coce editor.

## See About Help Databases in Maple help...

If you are asking about Maple's default help database it not allowed.

From System, Help, About Help Databases

It states.

Types of Help Databases in Maple
The shipped Maple .help files, which are located in the \lib directory of your Maple installation, are read-only files. This means that you cannot add to, remove from, or edit this collection of help pages.

## Yes in a way....

@acer I realised afterwards the output was not elidied. But by changing the the value of L to 1800 the last equation displayed nicely. The last entry in the table was irritatingly spacing out. Maple often does that. Here is another screen shot that shows that effect. I wish Maple would handle this.

@segfault The question was asked last year sometime and apparently the setting of 10 files is coded into Maple and users can't change that. Sorry the backup suggestion was of no use to you. The MAS.bak files open ok. I sometimes use is when I am searching for something I did a few week ago and have no idea which folder I put it in etc.

## Working in the package now...

@acer Ok, I have it working inside my package. It really makes the information readable. A couple of screen shots.

## Wonderful...

@acer That is wonderful. Works much nicer than I had hoped for

## I opt for a simple work around....

@acer Well, I decided to opt for a simple sollution. If the length exceeds 1200 characters just print "Long output".

I changed "values" in the proc to.

```values:=<`if`(length(qqf)<=1200,qqf,cat("Long Output ",length(qqf)," characters")),`if`(length(q13)<=1200,q13,cat("Long Output ",length(q13)," characters")),`if`(length(q24)<=1200,q24,cat("Long Output ",length(q24)," characters"))>;
```

which displays as

## A couple of suggestions....

Was there a windows update and could you restore to prior to that.

Have you installed any new software?

Can wipe and reinstall Maple?

Any other programs acting up?

Try running sfc /scannow   now in the command prompt as an administrator

Some procress on my problem. I found a proc somebody here wrote for me.  I searched but can't find the question now to credit the author.
I have manually applied the concept to pairs of elements list wise as a test I haven't figured out how to get frontend working with multiple gcd's.

This could be applied to longer lists/vectors or even matrices.
I have just tested on one vector and it produced about a 30% reduction. I  would like to get this into an efficient procedure.

 > restart
 > #Fact written be a MaplePrimes member around 2017/18
 > fact := (expr::equation) -> frontend(gcd, [numer(lhs(expr)), numer(rhs(expr))])/frontend(gcd, [denom(lhs(expr)), denom(rhs(expr))])
 (1)
 > eq := (F + G)*R*sinh(x)/sqrt(W - 1) = 1/2*M*R^2*tan(x)*a/(R*sqrt(W - 1))
 (2)
 > fact(eq)
 (3)
 > eq/fact(eq)
 (4)
 > #Concept applied to a list of 2 elements
 > fact1 := (expr::list) -> frontend(gcd, [numer((expr[1])), numer((expr[2]))])/frontend(gcd, [denom((expr[1])), denom((expr[2]))])
 (5)
 >
 >
 >
 > l3:=Vector[column](3, [2*(((a^3 + a*b^2)*sqrt(b^2 + c^2) + 1/2*b^4 + 1/2*b^2*c^2 + 1/2*c^2*f^2 + 1/2*f^4)*sqrt(a^2 + b^2) + (-1/2*a^2*b^2 - 1/2*a^2*f^2 - 1/2*b^4 - 1/2*f^4)*sqrt(b^2 + c^2) - c*(b^2 + c^2)*(a^2 + b^2))/(sqrt(b^2 + c^2)*((-b^2 + f^2)*sqrt(a^2 + b^2) + (b^2 - f^2)*sqrt(b^2 + c^2) + (2*a^2 + 2*b^2)*(a - c))) - (-sqrt(a^2 + b^2)*sqrt(b^2 + c^2) + f^2)/sqrt(b^2 + c^2), -(2*sqrt(b^2 + c^2)*(-1/2*b^2*c + f^2*(a - 1/2*c))*sqrt(a^2 + b^2) + (b - f)*(b + f)*(a*f^2 + b^2*c + c^3 - c*f^2))/(sqrt(b^2 + c^2)*((-b^2 + f^2)*sqrt(a^2 + b^2) + (b^2 - f^2)*sqrt(b^2 + c^2) + (2*a^2 + 2*b^2)*(a - c))) + b^2/sqrt(a^2 + b^2), (2*sqrt(b^2 + c^2)*(-1/2*b^2*c + f^2*(a - 1/2*c))*sqrt(a^2 + b^2) + (b - f)*(b + f)*(a*f^2 + b^2*c + c^3 - c*f^2))*(-sqrt(a^2 + b^2)*sqrt(b^2 + c^2) + f^2)/((b^2 + c^2)*((-b^2 + f^2)*sqrt(a^2 + b^2) + (b^2 - f^2)*sqrt(b^2 + c^2) + (2*a^2 + 2*b^2)*(a - c))) - (2*((a^3 + a*b^2)*sqrt(b^2 + c^2) + 1/2*b^4 + 1/2*b^2*c^2 + 1/2*c^2*f^2 + 1/2*f^4)*sqrt(a^2 + b^2) + 2*(-1/2*a^2*b^2 - 1/2*a^2*f^2 - 1/2*b^4 - 1/2*f^4)*sqrt(b^2 + c^2) - 2*c*(b^2 + c^2)*(a^2 + b^2))*b^2/(sqrt(b^2 + c^2)*((-b^2 + f^2)*sqrt(a^2 + b^2) + (b^2 - f^2)*sqrt(b^2 + c^2) + (2*a^2 + 2*b^2)*(a - c))*sqrt(a^2 + b^2))])
 (6)
 > f12:=fact1([l3[1],l3[2]])
 (7)
 > f23:=fact1([f12,l3[3]])
 (8)
 >
 > simplify(l3/f23)
 (9)
 > length(%)
 (10)
 > length(l3)
 (11)
 > length(simplify(l3))
 (12)
 >

## Works Very Well...

@acer Yes. I shali experiment more on this

## Very Interesting...

@Carl Love I never knew that the ab=ba could be done

`(ab, bc, cd, da):= ((ba, cb, dc, ad):= (17, 17, 29, 18))`

also `&D;` I guess because D is the derivative operator.

## That is basically what I want....

@acer Thank you. I will test that tonight.

 1 2 3 4 5 6 7 Last Page 1 of 25
﻿