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
|
Rev | Line | |
---|
[1] | 1 | Starts dribbling to chemistry.output (1996/6/4, 14:58:11).
|
---|
| 2 | NIL
|
---|
| 3 |
|
---|
| 4 | >
|
---|
| 5 | (load "chemistry")Loading chemistry.lisp
|
---|
| 6 | ------------------- CASE 1 -------------------
|
---|
| 7 | Condition:
|
---|
| 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 -------------------
|
---|
| 12 | Condition:
|
---|
| 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 -------------------
|
---|
| 17 | Condition:
|
---|
| 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) ]
|
---|
| 21 | Finished loading chemistry.lisp
|
---|
| 22 | T
|
---|
| 23 |
|
---|
| 24 | >
|
---|
| 25 | (dribble)
|
---|
Note:
See
TracBrowser
for help on using the repository browser.