1%
2% test exponential equations
3%  (implemented via solvetab)
4
5solve(13^(x+1)-2*13^x=(1/5)*5^x,x);
6
7
8    2*arbint(1)*i*pi + log(55)
9{x=----------------------------}
10                 5
11            log(----)
12                 13
13
14
15solve(7^(2x-5)* 5^x = 9^(x+1),x);
16
17
18    2*arbint(2)*i*pi + log(151263)
19{x=--------------------------------}
20                   245
21              log(-----)
22                    9
23
24
25end;
26
27Tested on x86_64-pc-windows CSL
28Time (counter 1): 0 ms  plus GC time: 16 ms
29
30End of Lisp run after 0.00+0.06 seconds
31real 0.22
32user 0.04
33sys 0.04
34