4dsphere.calc (calc-2.12.7.2.tar.bz2) | : | 4dsphere.calc (calc-2.12.7.6.tar.bz2) | ||
---|---|---|---|---|

skipping to change at line 13 | skipping to change at line 13 | |||

* 4dsphere - determine if 6 points lie on the surface of a sphere in R^4 | * 4dsphere - determine if 6 points lie on the surface of a sphere in R^4 | |||

* | * | |||

* usage: | * usage: | |||

* 4dsphere x0 y0 z0 w0 x1 y1 z1 w1 ... x5 y5 z5 w5 | * 4dsphere x0 y0 z0 w0 x1 y1 z1 w1 ... x5 y5 z5 w5 | |||

* | * | |||

* x0 y0 z0 w0 point 0 in R^4 | * x0 y0 z0 w0 point 0 in R^4 | |||

* x1 y1 z1 w1 point 1 in R^4 | * x1 y1 z1 w1 point 1 in R^4 | |||

* ... ... | * ... ... | |||

* x5 y5 z5 w5 point 5 in R^4 | * x5 y5 z5 w5 point 5 in R^4 | |||

* | * | |||

* Copyright (C) 2001,2014 Landon Curt Noll | * Copyright (C) 2001,2014,2019 Landon Curt Noll | |||

* | * | |||

* Calc is open software; you can redistribute it and/or modify it under | * Calc is open software; you can redistribute it and/or modify it under | |||

* the terms of the version 2.1 of the GNU Lesser General Public License | * the terms of the version 2.1 of the GNU Lesser General Public License | |||

* as published by the Free Software Foundation. | * as published by the Free Software Foundation. | |||

* | * | |||

* Calc is distributed in the hope that it will be useful, but WITHOUT | * Calc is distributed in the hope that it will be useful, but WITHOUT | |||

* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY | * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY | |||

* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General | * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General | |||

* Public License for more details. | * Public License for more details. | |||

* | * | |||

skipping to change at line 40 | skipping to change at line 40 | |||

* File existed as early as: 2001 | * File existed as early as: 2001 | |||

* | * | |||

* chongo <was here> /\oo/\ http://www.isthe.com/chongo/ | * chongo <was here> /\oo/\ http://www.isthe.com/chongo/ | |||

* Share and enjoy! :-) http://www.isthe.com/chongo/tech/comp/calc/ | * Share and enjoy! :-) http://www.isthe.com/chongo/tech/comp/calc/ | |||

*/ | */ | |||

/* | /* | |||

* parse args | * parse args | |||

*/ | */ | |||

argc = argv(); | argc = argv(); | |||

if (argc != 25) { | stderr = files(2); | |||

fprintf(files(2), "usage: %s x0 y0 z0 w0 x1 y1 z1 w1 ... x5 y5 z5 w5\n", | program = argv(0); | |||

argv(0)); | if (argc != 24) { | |||

fprintf(stderr, "usage: %s x0 y0 z0 w0 x1 y1 z1 w1 ... x5 y5 z5 w5\n", | ||||

program); | ||||

exit; | exit; | |||

} | } | |||

x0 = eval(argv(1)); | x0 = eval(argv(1)); | |||

y0 = eval(argv(2)); | y0 = eval(argv(2)); | |||

z0 = eval(argv(3)); | z0 = eval(argv(3)); | |||

w0 = eval(argv(4)); | w0 = eval(argv(4)); | |||

x1 = eval(argv(5)); | x1 = eval(argv(5)); | |||

y1 = eval(argv(6)); | y1 = eval(argv(6)); | |||

z1 = eval(argv(7)); | z1 = eval(argv(7)); | |||

w1 = eval(argv(8)); | w1 = eval(argv(8)); | |||

End of changes. 2 change blocks. | ||||

4 lines changed or deleted | | 6 lines changed or added |