| 1 : |
ktanaka |
1.1 |
(setq p0 '((+0.2143817^+03 +0.2289081^+03) (-0.7618263^+01 -0.1359186^+02))) |
| 2 : |
|
|
(setq p1 '((+0.3295149^+03 +0.1967455^+03) (+0.8825238^+02 -0.4037349^+02))) |
| 3 : |
|
|
(setq p2 '((+0.3430000^+03 +0.1200000^+02) (0 0))) |
| 4 : |
|
|
(setq p3 '((+0.3430000^+03 +0.1150000^+03) (0 0))) |
| 5 : |
|
|
(setq res0 nil) |
| 6 : |
|
|
(setq res1 nil) |
| 7 : |
|
|
(setq res2 +0.1151260^+02) |
| 8 : |
|
|
(setq res3 nil) |
| 9 : |
|
|
(setq res (append res0 res1 res2 res3)) |
| 10 : |
|
|
(setq sec (res2section res (car p2)(car p3)p0 p1)) |
| 11 : |
|
|
(setq p0 '((+0.5400000^+02 +0.9500000^+02) (0 0))) |
| 12 : |
|
|
(setq p1 '((+0.3900000^+03 +0.9500000^+02) (0 0))) |
| 13 : |
|
|
(setq p2 '((+0.2224456^+03 +0.2428172^+03) (+0.4456233^+00 +0.3171538^+00))) |
| 14 : |
|
|
(setq p3 '((+0.2224456^+03 +0.3895889^+03) (+0.4456233^+00 +0.1470889^+03))) |
| 15 : |
|
|
; |
| 16 : |
|
|
(setq p0 '((+0.3430000^+03 +0.3200000^+02) (0 0))) |
| 17 : |
|
|
(setq p1 '((+0.3430000^+03 +0.9500000^+02) (0 0))) |
| 18 : |
|
|
(setq p2 '((+0.9521542^+02 +0.2483857^+03) (-0.1267846^+03 +0.5885688^+01))) |
| 19 : |
|
|
(setq p3 '((+0.2143817^+03 +0.2289081^+03) (-0.7618263^+01 -0.1359186^+02))) |
| 20 : |
|
|
(setq p4 '((+0.3102524^+03 +0.2021265^+03) (+0.8825238^+02 -0.4037349^+02))) |
| 21 : |
|
|
|
| 22 : |
|
|
; |
| 23 : |
|
|
(setq p0 '((+0.2143817^+03 +0.2289081^+03) (-0.7618263^+01 -0.1359186^+02))) |
| 24 : |
|
|
(setq p1 '((+0.3295149^+03 +0.1967455^+03) (+0.8825238^+02 -0.4037349^+02))) |
| 25 : |
|
|
(setq p2 '((54 311) (0 0))) |
| 26 : |
|
|
(setq p3 '((-0.5838107^+01 +0.3734398^+03) (0 0))) |
| 27 : |
|
|
|
| 28 : |
|
|
; |
| 29 : |
|
|
((+0.2143817^+03 +0.2289081^+03) (-0.7618263^+01 -0.1359186^+02)) |
| 30 : |
|
|
((+0.3295149^+03 +0.1967455^+03) (+0.8825238^+02 -0.4037349^+02)) |
| 31 : |
|
|
((+0.3430000^+03 +0.1200000^+02) (0 0)) |
| 32 : |
|
|
((+0.3430000^+03 +0.1150000^+03) (0 0)) |
| 33 : |
|
|
|
| 34 : |
|
|
a1 |
| 35 : |
|
|
+0.9587065^+02 |
| 36 : |
|
|
@ b1 |
| 37 : |
|
|
-0.7618263^+01 |
| 38 : |
|
|
@ c1 |
| 39 : |
|
|
+0.1151332^+03 |
| 40 : |
|
|
@ d1 |
| 41 : |
|
|
-0.1286183^+03 |
| 42 : |
|
|
@ a2 |
| 43 : |
|
|
-0.2678163^+02 |
| 44 : |
|
|
@ b2 |
| 45 : |
|
|
-0.1359186^+02 |
| 46 : |
|
|
@ c2 |
| 47 : |
|
|
-0.3216265^+02 |
| 48 : |
|
|
@ d2 |
| 49 : |
|
|
+0.1139081^+03 |
Annotation of /lisp/test/limitbug.l
Parent Directory
| 
Revision Log