Topic: while loop issue

[AutoKAD01]

First time posting, so hello to the community!

I'm a bit stumped here and hopefully this isn't a forehead palm question, but the following code just runs in a continuous loop and I don't know why:

Code: [Select]

(setq a 12.0
      b 5.05)
(while (not (zerop (rem a b)))
       (setq b (+ b 0.05))
       )
Can someone enlighten me as to why this runs continuously?  I would think that once it hits 6.0 it should break the loop.   

Thanks!

-Kevin

[Lee Mac]

Welcome to theSwamp 

To answer your question, perhaps account for the rounding of doubles:

Code: [Select]

(setq a 12.0 b 5.05)

(while (not (equal 0.0 (rem a b) 1e-8))
  (setq b (+ b 0.05))
)

[AutoKAD01]

Welcome to theSwamp 

To answer your question, perhaps account for the rounding of doubles:

Code: [Select]

(setq a 12.0 b 5.05)

(while (not (equal 0.0 (rem a b) 1e-8))
  (setq b (+ b 0.05))
)

Thanks Lee!  That is an excellent way to handle this situation.

I checked out your website and tried out some of the lisps.  Very impressive stuff!

-Kevin

[Lee Mac]

Thanks Kevin!