TXT

wave

By Carmen Kennedy,2014-01-23 23:40
11 views 0
wave

(defun c:wave()

     (setq lx(getdist "请输入房间的长;"))

     (setq ly(getdist "\n请输入房间的长;"))

     (setq lz(getdist "\n请输入房间的长;"))

     (setq x 0.0)

     (setq y 0.0)

     (setq z 0.0)

     (while (<= x 10)

     (progn (while (<= y 10)

     (progn(while (<= z 10)

     (progn

     (progn

     (setq f(/

     (* 340.0

     (sqrt(+

     (* (/ x lx) (/ x lx))

     (* (/ y ly) (/ y ly))

     (* (/ z lz) (/ z lz))

     )

     )

     )

     2.0)

     )

     (if

     (and (< f 105.0) (> f 0))

     (progn

     (princ "\nx=")(princ x)

     (princ " ny=")(princ y)

     (princ " nz=")(princ z)

     (princ " nf=")(princ f)

     )

     )

     )

     (setq z(+ z 1.0))))

     (setq z 0.0)(setq y(+ 1.0 y))))

     (setq y 0.0)(setq x(+ 1.0 x)) )

     )

     (princ)

     )

Report this document

For any questions or suggestions please email
cust-service@docsford.com