1421 |
|
|
1422 |
(pass-if-exception "(/ +i 0.0)" |
(pass-if-exception "(/ +i 0.0)" |
1423 |
exception:numerical-overflow |
exception:numerical-overflow |
1424 |
(/ +i 0.0)))) |
(/ +i 0.0))) |
1425 |
|
|
1426 |
|
(with-test-prefix "complex division" |
1427 |
|
|
1428 |
|
(pass-if "(/ 3+4i)" |
1429 |
|
(= (/ 3+4i) 0.12-0.16i)) |
1430 |
|
|
1431 |
|
(pass-if "(/ 4+3i)" |
1432 |
|
(= (/ 4+3i) 0.16-0.12i)) |
1433 |
|
|
1434 |
|
(pass-if "(/ 25+125i 3+4i)" |
1435 |
|
(= (/ 25+125i 3+4i) 23.0+11.0i)) |
1436 |
|
|
1437 |
|
(pass-if "(/ 25+125i 4+3i)" |
1438 |
|
(= (/ 25+125i 4+3i) 19.0+17.0i)) |
1439 |
|
|
1440 |
|
(pass-if "(/ 25 3+4i)" |
1441 |
|
(= (/ 25 3+4i) 3.0-4.0i)) |
1442 |
|
|
1443 |
|
(pass-if "(/ 25 4+3i)" |
1444 |
|
(= (/ 25 4+3i) 4.0-3.0i)) |
1445 |
|
|
1446 |
|
(pass-if "(/ 1e200+1e200i)" |
1447 |
|
(= (/ 1e200+1e200i) 5.0e-201-5.0e-201i)))) |
1448 |
|
|
1449 |
;;; |
;;; |
1450 |
;;; truncate |
;;; truncate |