# [Maxima] Maxima: compiling with cmucl, sbcl and gcl.

C. Frangos cfrangos at telkomsa.net
Tue Jul 10 11:51:12 CDT 2007

```
The first time the program calls mysimprec(), the argument is dAconndt given
below. The output of mysimprec() is the simplified dAconndt, also given below.

(The program later calls mysimprec() with more complicated arguments)

Regards,

C. Frangos.

dAconndt = matrix([0,a*dphi*kon*cos(phi)/2],[0,a*dphi*kon*sin(phi)/2],
[0,
a*sin(delta3)*kon
*(ddelta3*cos(delta3)*Lo1-ddelta3*sin(delta3)*Lc)
/(2*(sin(delta3)*Lo1+cos(delta3)*Lc)^2)
-a*ddelta3*cos(delta3)*kon
/(2*(sin(delta3)*Lo1+cos(delta3)*Lc))],
[0,
-ddelta3*sin(delta3)*kon*Lc
/(2*(sin(delta3)*Lo1+cos(delta3)*Lc))
-cos(delta3)*kon*Lc
*(ddelta3*cos(delta3)*Lo1
-ddelta3*sin(delta3)*Lc)
/(2*(sin(delta3)*Lo1+cos(delta3)*Lc)^2)],
[0,
kon*(2*ddelta3*cos(delta3)*Lo1-ddelta3*sin(delta3)*Lc)
/(2*(sin(delta3)*Lo1+cos(delta3)*Lc))
-kon*(ddelta3*cos(delta3)*Lo1-ddelta3*sin(delta3)*Lc)
*(2*sin(delta3)*Lo1+cos(delta3)*Lc)
/(2*(sin(delta3)*Lo1+cos(delta3)*Lc)^2)],
[0,
kon*(8*ddelta3*cos(delta3)*sin(delta3)*Lo1^2
-4*ddelta3*sin(delta3)^2*Lc*Lo1
+4*ddelta3*cos(delta3)^2*Lc*Lo1)
/(4*(sin(delta3)*Lo1+cos(delta3)*Lc)
*sqrt(4*sin(delta3)^2*Lo1^2
+4*cos(delta3)*sin(delta3)*Lc*Lo1+Lc^2))
-kon*(ddelta3*cos(delta3)*Lo1-ddelta3*sin(delta3)*Lc)
*sqrt(4*sin(delta3)^2*Lo1^2
+4*cos(delta3)*sin(delta3)*Lc*Lo1+Lc^2)
/(2*(sin(delta3)*Lo1+cos(delta3)*Lc)^2)],
[0,
-kon*Lc*(ddelta3*cos(delta3)*Lo1-ddelta3*sin(delta3)*Lc)
/(2*(sin(delta3)*Lo1+cos(delta3)*Lc)^2)],[0,0],[0,0])

indexlist = [fullratsimp,trigsimp,factor]

dAconndt = matrix([0,a*dphi*kon*cos(phi)/2],[0,a*dphi*kon*sin(phi)/2],
[0,
-a*ddelta3*kon*Lc/(2*(sin(delta3)^2*Lo1^2
+2*cos(delta3)*sin(delta3)*Lc*Lo1
-sin(delta3)^2*Lc^2+Lc^2))],
[0,
-ddelta3*kon*Lc*Lo1/(2
*(sin(delta3)^2*Lo1^2
+2*cos(delta3)*sin(delta3)*Lc*Lo1
-sin(delta3)^2*Lc^2+Lc^2))],
[0,
ddelta3*kon*Lc*Lo1/(2
*(sin(delta3)^2*Lo1^2
+2*cos(delta3)*sin(delta3)*Lc*Lo1
-sin(delta3)^2*Lc^2+Lc^2))],
[0,
ddelta3*kon*Lc
*(2*sin(delta3)*Lo1^2+cos(delta3)*Lc*Lo1
+sin(delta3)*Lc^2)
/(2*(sin(delta3)^2*Lo1^2+2*cos(delta3)*sin(delta3)*Lc*Lo1
-sin(delta3)^2*Lc^2+Lc^2)
*sqrt(4*sin(delta3)^2*Lo1^2
+4*cos(delta3)*sin(delta3)*Lc*Lo1+Lc^2))],
[0,
-ddelta3*kon*Lc*(cos(delta3)*Lo1-sin(delta3)*Lc)
/(2*(sin(delta3)^2*Lo1^2+2*cos(delta3)*sin(delta3)*Lc*Lo1
-sin(delta3)^2*Lc^2+Lc^2))],[0,0],
[0,0])

On Monday 09 July 2007 04:19, you wrote:
> On 7/8/07, C. Frangos <cfrangos at telkomsa.net> wrote:
> > However, what I wanted to tell you is that in the second half of the
> > program the function mysimprec() (see below) is called about 5 times.
> >
> > From the running times given below, it appears that Maxima 5.10 is much
> > faster than Maxima 5.12 in running this function.
>
> What is a typical argument of mysimprec ?
>
> I see mysimprec calls factor, fullratsimp, etc.
> It seems possible that the default behavior of one or more of those
> functions has changed between 5.10 and 5.12.
>
> best
> Robert Dodier
```