← Back to branch summary

~ubuntu-branches/ubuntu/karmic/maxima/karmic

« back to all changes in this revision

Viewing changes to tests/rtestconjugate.mac

  • Committer: Bazaar Package Importer
  • Author(s): Christophe Sauthier
  • Date: 2009-07-13 15:38:41 UTC
  • mfrom: (3.1.3 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090713153841-gtux06oun30kuuo7
Tags: 5.17.1-1ubuntu1
https://launchpad.net/bugs/296643
https://launchpad.net/bugs/242243
* Merge from debian unstable, remaining changes (LP: #296643, LP: #242243):
   - debian/maxima-doc.doc-base.{tips, plotting}:
    + Use .shtml instead of .html to fix lintian errors.
   - debian/maxima-emacs.emacsen-install:
    + Install symlinks for source files rather than copying them.  This
      makes find-function work.
    + Install symlink for *.lisp so that we don't need to add
      /usr/share/emacs/site-lisp/maxima to load-path.
  - debian/maxima-emacs.emacsen-startup:
    + Remove use of /usr/share/emacs/site-lisp/maxima, since this
      causes load-path shadows and is not needed anymore.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/rtestconjugate.mac
244
244
conjugate (p0 + q1 + pq + qp + rr + ii);
245
245
p0 + q1 + pq + qp + rr - ii;
246
246
 
 
247
/* conjugate of  sums and products */
 
248
 
 
249
conjugate(sum(cos(k),k,1,n));
 
250
sum(cos(k),k,1,n)$
 
251
 
 
252
conjugate(prod(cos(k),k,1,n));
 
253
prod(cos(k),k,1,n)$
 
254
 
 
255
conjugate(sum(log(k + %i), k, m, n));
 
256
sum(log(k - %i), k, m, n)$
 
257
 
 
258
conjugate(prod(log(k + %i), k, m, n));
 
259
prod(log(k - %i), k, m, n)$
 
260
 
 
261
/* conjugate of asin */
 
262
 
 
263
(assume(x > -1, x < 1),0);
 
264
0$
 
265
 
 
266
conjugate(asin(x));
 
267
asin(x)$
 
268
 
 
269
conjugate(asin(-x));
 
270
asin(-x)$
 
271
 
 
272
conjugate(asin(x + %i));
 
273
asin(x - %i)$
 
274
 
 
275
conjugate(asin(x - %i));
 
276
asin(x + %i)$
 
277
 
 
278
conjugate(asin(x + %i * y));
 
279
asin(x - %i * y)$
 
280
 
 
281
conjugate(asin(x - %i * y));
 
282
asin(x + %i * y)$
 
283
 
 
284
/* Collections */
 
285
 
 
286
conjugate([]);
 
287
[]$
 
288
 
 
289
conjugate([5]);
 
290
[5]$
 
291
 
 
292
conjugate([[%i]]);
 
293
[[-%i]]$
 
294
 
 
295
conjugate(set());
 
296
set()$
 
297
 
 
298
conjugate(set(1,2));
 
299
set(1,2)$
 
300
 
 
301
conjugate(set(8, set(8, set(32 - %i))));
 
302
set(8, set(8, set(32 + %i)))$
 
303
 
 
304
conjugate(matrix());
 
305
matrix()$
 
306
 
 
307
conjugate(matrix([]));
 
308
matrix([])$
 
309
 
 
310
conjugate(matrix([1,2,%i]));
 
311
matrix([1,2,-%i])$
 
312
 
 
313
conjugate(matrix([matrix([%i])]));
 
314
matrix([matrix([-%i])])$
 
315
 
 
316
/* logs */
 
317
 
 
318
conjugate(log(x));
 
319
conjugate(log(x))$
 
320
 
 
321
conjugate(log(x + %i));
 
322
log(conjugate(x) - %i)$
 
323
 
 
324
conjugate(log(-1 + %i));
 
325
log(-1 - %i)$
 
326
 
 
327
(assume(x > 0, notequal(www,0)), 0);
 
328
0$
 
329
 
 
330
conjugate(log(-x));
 
331
log(x) - %i * %pi$
 
332
 
 
333
conjugate(log(-x + %i * www));
 
334
log(-x - %i * www)$
 
335
 
 
336
(forget(x > 0, notequal(www,0)),0);
 
337
0$
 
338
 
 
339
/* exponentials */
 
340
 
 
341
conjugate(exp(x));
 
342
exp(x)$
 
343
 
 
344
conjugate(exp(y - %i * x));
 
345
exp(y + %i * x)$
 
346
 
 
347
(declare(z,complex),0);
 
348
0$
 
349
 
 
350
conjugate(exp(z));
 
351
exp(conjugate(z))$
 
352
 
 
353
(declare(n,integer,z,complex),0);
 
354
0$
 
355
 
 
356
conjugate(z^n);
 
357
conjugate(z)^n$
 
358
 
 
359
conjugate(z^b);
 
360
conjugate(z^b)$
 
361
 
 
362
conjugate(cosh(z));
 
363
cosh(conjugate(z))$
 
364
 
 
365
conjugate(sinh(z));
 
366
sinh(conjugate(z))$
 
367
 
 
368
conjugate(sinh(cosh(z)));
 
369
sinh(cosh(conjugate(z)))$
 
370
 
247
371
/* Test for bug 1491486 */
248
372
 
249
373
conjugate((1+%i)^%i);
286
410
(forget(notequal(y,0)),0);
287
411
0$
288
412
 
 
413
 
289
414
/* Test for bug (conjugate of atan) fixed by CVS revisions 1.9 and 1.11 */
290
415
 
291
416
conjugate(atan(x));