Code Red > AutoLISP (Vanilla / Visual)

Arc-length from known radius & chord

<< < (2/2)

Jeff_M:
I didn't look at what Luis posted, but here's what I have in my toolbox:

--- Code: ---(defun arclen_rc (r c / halfdelta)
  (setq halfdelta (atan (/ (/ c 2.0) (sqrt (- (expt r 2) (expt (/ c 2.0) 2))))))
  (* (* halfdelta 2.0) r)
  )

--- End code ---

DMSS1:
Thanks Jeff_m,

Works great!

Swamp Rat...  That use to be one of my CB-Handles when the CB-Radio was so popular.


Again,
Thanks!
DMSS1

Dinosaur:
I have not found the chord length to be a very precise part of a curve definition, especially when there are only two parameters given to solve a curve.  I have tried various combinations of parameters in a curve solver program and the various methods that accept the chord as part will yield significantly different solutions.

LE:

--- Quote from: Jeff_M on July 31, 2006, 02:08:43 PM ---I didn't look at what Luis posted, but here's what I have in my toolbox:

--- Code: ---(defun arclen_rc (r c / halfdelta)
  (setq halfdelta (atan (/ (/ c 2.0) (sqrt (- (expt r 2) (expt (/ c 2.0) 2))))))
  (* (* halfdelta 2.0) r)
  )

--- End code ---

--- End quote ---

Thank you Jeff;

I am stuck into these new languages... that I simple lost my abilities on lisp  :-( - I must need to be out of this forum - start to get dangerous by posting lisp code here....  :-(

Sorry about that.
Luis

Navigation

[0] Message Index

[*] Previous page