Topic: Euler Spirals, Clothoids, Cornu Spirals

[ymg]

Here is an adaptation to Autolisp of a program by:
       Enrico Bertolazzi and Marco Frego
       Department of Industrial Engineering
       University of Trento

Part of an article at: G1 Fitting With Clothoid on Matlab Central.

The translation has been kept intentionally very litteral. 

Notes: The subroutine "FresnelCS" is replaced by "fcs", as I could not get accurate returns
           when evaluating with values higher than 6.0 (Asymptotic Evaluation). I attach an Excel
           Sheet comparing the retrurns of "fcs" and "FresnelCS" against those returned by Maxima.

ymg

Code - Auto/Visual Lisp: [Select]

1. ; Copyright (c) 2014, Enrico Bertolazzi                                       ;
2. ; All rights reserved.                                                        ;
3. ;                                                                             ;
4. ; Adaptation to Autolisp by ymg                                               ;
5. ;                                                                             ;
6. ; Redistribution and use in source and binary forms, with or without          ;
7. ; modification, are permitted provided that the following conditions are      ;
8. ; met:                                                                        ;
9. ;                                                                             ;
10. ;    * Redistributions of source code must retain the above copyright         ;
11. ;      notice, this list of conditions and the following disclaimer.          ;
12. ;    * Redistributions in binary form must reproduce the above copyright      ;
13. ;      notice, this list of conditions and the following disclaimer in        ;
14. ;      the documentation and/or other materials provided with the distribution;
15. ;    * Neither the name of the  nor the names                                 ;
16. ;      of its contributors may be used to endorse or promote products derived ;
17. ;      from this software without specific prior written permission.          ;
18. ;                                                                             ;
19. ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" ;
20. ; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE   ;
21. ; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE  ;
22. ; ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE    ;
23. ; LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR         ;
24. ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF        ;
25. ; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS    ;
26. ; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN     ;
27. ; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)     ;
28. ; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE  ;
29. ; POSSIBILITY OF SUCH DAMAGE.                                                 ;
30. ;                                                                             ;
31.  
32. ; CODE IS IN ATTACHMENT BELOW.
33.