Arguments

Hello to all,

Attached below are three formulas to solve for distance for ellipsodial heads of different types.

My question is can each formula be written in one argument or does it need to be written in several?

I am not completely sure how to break this down. Any help on this would be greatly appreciated.

Again Thank You in advance,

The Buzzard

Sorry,

I think I explained myself incorrectly.

What I meant was can each formula be written in one statement with the given arguments.

Sorry,

 

I think I explained myself incorrectly.

What I meant was can each formula be written in one statement with the given arguments.

Not sure about but have you tried use the COND statement?

~'J'~

I probably overlooked something, but this should be a good example (your first function)...

(defun foo (L r O D tt / _sq)
 (setq _sq (lambda (#) (* # #)))

 (- L (sqrt (- (_sq (- L r)) (_sq (/ (* O D) (apply '- (list 2 tt r)))))))
) ;_ defun

Sorry again,

Fixo,

I do not mean to combine all three or a way to pick a formula.

For each formula above can the supplied arguments be put into one continuous statement for each formula.

Thanks Alan,

I think I can figure the rest from here.

But what is apply in the statement for.

Thanks Alan,

 

I think I can figure the rest from here.

But what is apply in the statement for.

It was to subtract the 3 numbers, but I completely forgot you can add more than 2 numbers to the (- function.

(defun foo (L r O D tt / _sq)
 (setq _sq (lambda (#) (* # #)))

 (- L (sqrt (- (_sq (- L r)) (_sq (/ (* O D) (- 2 tt r))))))
) ;_ defun

You don't have to use the _sq sub function. However, it saves you a lot of typing and condenses your routine quite a bit.

(setq _sq (lambda (#) (* # #)))

Alan,

I looked up apply Function,

Passes a list of arguments to, and executes, a specified function.

Thanks

Alan,

 

I looked up apply Function,

 

Passes a list of arguments to, and executes, a specified function.

 

Thanks

Hope it helps.

And good luck keeping your head on straight while typing everything out.

Nice one Alan

This is the only improvement I can see:

(defun foo (L r O D tt / _sq n)
 (setq _sq (lambda (#) (* # #)))

 (cond (  (minusp (setq n (- (_sq (- L r)) (_sq (/ (* O D) (- 2 tt r)))))) nil)

       (  (- L (sqrt n)))))

I know,

Its like putting 30lbs of s%#t in a 5lb bag.

Now you tripped me up Lee,

Whats with the condition?

Now you tripped me up Lee,

 

Whats with the condition?

Square roots of negative numbers don't exist in the Reals

Square roots of negative numbers don't exist in the Reals

But in that case, could'nt you just use abs in there someplace.

Nice one Alan

 

This is the only improvement I can see:

 

(defun foo (L r O D tt / _sq n)
 (setq _sq (lambda (#) (* # #)))

 (cond (  (minusp (setq n (- (_sq (- L r)) (_sq (/ (* O D) (- 2 tt r)))))) nil)

       (  (- L (sqrt n)))))

HaHa

I guess we can't have i. Good catch.

But in that case, could'nt you just use abs in there someplace.

But then you are changing the formula... :wink:

But then you are changing the formula... :wink:

Ahh good point.

One minor change to #2:

(defun foo (L r O D tt / _sq n)
 (setq _sq (lambda (#) (* # #)))

 (cond (  (minusp (setq n (- (_sq (- L r)) (_sq (/ (* O D) (- 2. tt r)))))) nil)

       (  (- L (sqrt n)))))

One minor change to #2:

Excellent spot - that would have you looking for days for that bug...