source: CGBLisp/examples/chemistry.output@ 1

Last change on this file since 1 was 1, checked in by Marek Rychlik, 15 years ago

First import of a version circa 1997.

File size: 1.1 KB
Line 
1Starts dribbling to chemistry.output (1996/6/4, 14:58:11).
2NIL
3
4>
5(load "chemistry")Loading chemistry.lisp
6------------------- CASE 1 -------------------
7Condition:
8 Green list: [ ]
9 Red list: [ A2 - A4 ]
10 Basis: [ (1) * X4 + (A2 - A4), (A2 - A4) * X1 + (1) * X3^2 + (A1 + A3 + A4) * X3 + (A1 * A3 + A1 * A4 + A3 * A4), (A2 - A4) * X2 + ( - 1) * X3^2 + ( - A1 + A2 - A3 - 2 * A4) * X3 + (A1 * A2 - A1 * A3 - 2 * A1 * A4 - A2^2 + A2 * A3 + 3 * A2 * A4 - 2 * A3 * A4 - 2 * A4^2), (1) * X3^3 + (A1 + A3 + A4) * X3^2 + (A1 * A3 + A1 * A4 + A3 * A4) * X3 + ( - A1 * A3 * A4) ]
11------------------- CASE 2 -------------------
12Condition:
13 Green list: [ A2 - A4 ]
14 Red list: [ A1 * A2^2 - A1 * A2 * A3 - 3 * A1 * A2 * A4 + 2 * A1 * A4^2 - A2^3 + A2^2 * A3 + 4 * A2^2 * A4 - 3 * A2 * A3 * A4 - 5 * A2 * A4^2 + 2 * A3 * A4^2 + 2 * A4^3 ]
15 Basis: [ ( - A1 * A3 * A4) ]
16------------------- CASE 3 -------------------
17Condition:
18 Green list: [ A2 - A4, A1 * A3 * A4 ]
19 Red list: [ ]
20 Basis: [ (1) * X4, (1) * X1 + (1) * X2 + (1) * X3 + (A1 + A3 + A4), ( - 1) * X3^2 + ( - A1 - A3 - A4) * X3 + ( - A1 * A3 - A1 * A4 - A3 * A4) ]
21Finished loading chemistry.lisp
22T
23
24>
25(dribble)
Note: See TracBrowser for help on using the repository browser.