This is input
(and (setq p1 (getpoint "\nPick first point."))
(setq p2 (getpoint p1 "\nPick second point."))
(setq *L* (cond ((getint
(strcat "\nWhat is HIGH Point <"
(itoa (setq *L* (cond ( *L* ) ( 160 )))) ">: "))) ( *L* )))
(setq *c* (cond ((getint
(strcat "\nWhat is LOW Point <"
(itoa (setq *c* (cond ( *c* ) ( 35 )))) ">: "))) ( *c* )))
)
(setq step 1000
dist (distance p1 p2)
#pt (fix (/ (/ dist step) 2))
ang (angle p1 p2)
pang (+ ang (/ pi 2.))
idx 1
)
Equation
(setq S (* 0.8 Dist);
X (* idx step)
a1 (/ (* (* (- *L* *c*) 0.1) Dist) (/ Dist 2));
ys1 (- *L* a1);
A (/ (- *c* ys1) (- (/ (* S S) 4) (/ (* S S)2)));
B (- 1 (* A S));
y (+ (+ (* A (* X X)) (* B X)) ys1)
yr (round y 5)
)