home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 2002 July 1 / VMAG130101.iso / ONLINE / monthly / calc / CLPCA511.LZH / ClipCalc / EXTFUNC / iinv.cef < prev    next >
Encoding:
Text File  |  2002-08-20  |  1.6 KB  |  49 lines
  1. #!/usr/local/bin/clip
  2. #ïtâCâôâ{âèâàü[âgè╓Éö inverse involute
  3. #\!- <angle>
  4. :rad 1        # é▒é╠è╓Éöé═üAèpôxé≡ò╘é╡é▄é╖üB
  5. :angle 0    # é▒é╠è╓Éöé═üAæµêΩâpâëâüü[â^(@0)é╔èpôxé≡é╞éΦé▄é╖üB
  6.  
  7. if @0 < 0 || @0 > 8.1
  8.     :warn ["èOòöè╓Éö-é╠ê°Éöé¬0ü`8.1(rad)é╠ö═ê═èOé┼é╖]
  9.     return \-1
  10. endif
  11.  
  12. if   @0 <  0.00038; @S =  0  ; @E =  6
  13. elif @0 <  0.00179; @S =  5.9; @E = 10
  14. elif @0 <  0.00311; @S =  9.9; @E = 12
  15. elif @0 <  0.00498; @S = 11.9; @E = 14
  16. elif @0 <  0.0074 ; @S = 13.9; @E = 16
  17. elif @0 <  0.0107 ; @S = 15.9; @E = 18
  18. elif @0 <  0.0149 ; @S = 17.9; @E = 20
  19. elif @0 <  0.02   ; @S = 19.9; @E = 22
  20. elif @0 <  0.0263 ; @S = 21.9; @E = 24
  21. elif @0 <  0.0339 ; @S = 23.9; @E = 26
  22. elif @0 <  0.043  ; @S = 25.9; @E = 28
  23. elif @0 <  0.0537 ; @S = 27.9; @E = 30
  24. elif @0 <  0.0663 ; @S = 29.9; @E = 32
  25. elif @0 <  0.081  ; @S = 31.9; @E = 34
  26. elif @0 <  0.098  ; @S = 33.9; @E = 36
  27. elif @0 <  0.118  ; @S = 35.9; @E = 38
  28. elif @0 <  0.1409 ; @S = 37.9; @E = 40
  29. elif @0 <  0.167  ; @S = 39.9; @E = 42
  30. elif @0 <  0.197  ; @S = 41.9; @E = 44
  31. elif @0 <  0.232  ; @S = 43.9; @E = 46
  32. elif @0 <  0.272  ; @S = 45.9; @E = 48
  33. elif @0 <  0.344  ; @S = 47.9; @E = 51
  34. elif @0 <  0.433  ; @S = 50.9; @E = 54
  35. elif @0 <  0.545  ; @S = 53.9; @E = 57
  36. elif @0 <  0.739  ; @S = 56.9; @E = 61
  37. elif @0 <  1.09   ; @S = 60.9; @E = 66
  38. elif @0 <  1.66   ; @S = 65.9; @E = 71
  39. elif @0 <  2.68   ; @S = 70.9; @E = 76
  40. elif @0 <  4.9    ; @S = 75.9; @E = 81
  41. elif @0 >= 4.9    ; @S = 80.9; @E = 84
  42. endif
  43.  
  44. for @t = @S; @t <= @E; @t += 0.0002
  45.     if @0 <= tan (d2r @t) - (d2r @t); break; endif
  46. next
  47.  
  48. return d2r @t
  49.