I think [EMAIL PROTECTED] wrote: > > NORMAL WEIGHT = HEIGHT - 100 - (HEIGHT - 100) /a ...
> > (deffunction pottons-formula > (?height ?a) > (-(- ?height 100)(/ ?a(- ?height 100)))) > ...but the result is incorrect (program returns: 59.666..., and should > return: 72.0). > I don't get where is my mistake (in formula??)? You've got the arguments to "/" in reverse order; they should appear in the same order they appear in the original infix expression. Also, although your use of two "-" operators isn't incorrect, you can combine the expressions into one for a more natural effect, like (deffunction pottons-formula (?height ?a) (- ?height 100 (/ (- ?height 100) ?a))) > And how to take inputs (using <read> command) from user (?YOUR-WEIGHT > ?YOUR-HEIGHT > ?ARE YOU WOMEN OR MEN)? (printout t "Your height? ") (bind ?height (read)) --------------------------------------------------------- Ernest Friedman-Hill Science and Engineering PSEs Phone: (925) 294-2154 Sandia National Labs FAX: (925) 294-2234 PO Box 969, MS 9012 [EMAIL PROTECTED] Livermore, CA 94550 http://herzberg.ca.sandia.gov -------------------------------------------------------------------- To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]' in the BODY of a message to [EMAIL PROTECTED], NOT to the list (use your own address!) List problems? Notify [EMAIL PROTECTED] --------------------------------------------------------------------
