View of /lisp/test/limitbug.l

Parent Directory

Revision Log

Initial revision

(setq p0 '((+0.2143817^+03 +0.2289081^+03) (-0.7618263^+01 -0.1359186^+02)))
(setq p1 '((+0.3295149^+03 +0.1967455^+03) (+0.8825238^+02 -0.4037349^+02)))
(setq p2 '((+0.3430000^+03 +0.1200000^+02) (0 0)))
(setq p3 '((+0.3430000^+03 +0.1150000^+03) (0 0)))
(setq res0 nil)
(setq res1 nil)
(setq res2 +0.1151260^+02)
(setq res3 nil)
(setq res (append res0 res1 res2 res3))
(setq sec (res2section res (car p2)(car p3)p0 p1))
(setq p0 '((+0.5400000^+02 +0.9500000^+02) (0 0)))
(setq p1 '((+0.3900000^+03 +0.9500000^+02) (0 0)))
(setq p2 '((+0.2224456^+03 +0.2428172^+03) (+0.4456233^+00 +0.3171538^+00)))
(setq p3 '((+0.2224456^+03 +0.3895889^+03) (+0.4456233^+00 +0.1470889^+03)))
;
(setq p0 '((+0.3430000^+03 +0.3200000^+02) (0 0)))
(setq p1 '((+0.3430000^+03 +0.9500000^+02) (0 0)))
(setq p2 '((+0.9521542^+02 +0.2483857^+03) (-0.1267846^+03 +0.5885688^+01)))
(setq p3 '((+0.2143817^+03 +0.2289081^+03) (-0.7618263^+01 -0.1359186^+02)))
(setq p4 '((+0.3102524^+03 +0.2021265^+03) (+0.8825238^+02 -0.4037349^+02)))

;
(setq p0 '((+0.2143817^+03 +0.2289081^+03) (-0.7618263^+01 -0.1359186^+02)))
(setq p1 '((+0.3295149^+03 +0.1967455^+03) (+0.8825238^+02 -0.4037349^+02)))
(setq p2 '((54 311) (0 0)))
(setq p3 '((-0.5838107^+01 +0.3734398^+03) (0 0)))

;
((+0.2143817^+03 +0.2289081^+03) (-0.7618263^+01 -0.1359186^+02))
((+0.3295149^+03 +0.1967455^+03) (+0.8825238^+02 -0.4037349^+02))
((+0.3430000^+03 +0.1200000^+02) (0 0))
((+0.3430000^+03 +0.1150000^+03) (0 0))

a1
+0.9587065^+02
@ b1
-0.7618263^+01
@ c1
+0.1151332^+03
@ d1
-0.1286183^+03
@ a2
-0.2678163^+02
@ b2
-0.1359186^+02
@ c2
-0.3216265^+02
@ d2
+0.1139081^+03