(defun solve-quadratic (a b c d e f g m v)
    (if (and (< m mq) (< v vq)) 
        (format t "该桥梁安全~%")
        (format t "该桥梁不安全~%")
    ))

(format t "请输入计算跨径（I，单位m）：")
(setf a (read))
(format t "请输入从支点到第一根内横隔梁之间的距离（a，单位m）：")
(setf b (read))
(format t "请输入冲击系数(0.05-0.45)（μ，单位）：")
(setf c (read))
(format t "请输入跨中荷载荷载横向分布系数（mcq，单位）：")
(setf d (read))
(format t "请输入支点载荷横向分布系数（moq，单位）：")
(setf e (read))
(format t "请输入车道载荷标准值（qk，单位kN/m）：")
(setf f (read))
(format t "请输入待验证的跨中最大弯矩值（M，单位kN·m）：")
(setf m (read))
(format t "请输入待验证的支座最大剪力（V，单位kN）：")
(setf v (read))

(cond
  ((or (< a 5) (= a 5)) (setf g 270))
  ((and (> a 5) (< a 50)) (setf g (+ 260 (* 2 a))))
  ((or (> a 50) (= a 50)) (setf g 360)))

(setf mq (* (+ 1 c) 1 d (+ (* f 0.125 (* a a)) (* g 0.25 a))))
(setf vq (* (+ 1 c) 1 (+ (* d f 0.5 a 1) (* e 1.2 g) (* 0.5 f (- e d) b 0.943))))

(if (or (< c 0.05) (> c 0.45) (< a 0) (< b 0) (< d 0) (< e 0) (< f 0) (< m 0) (< v 0))
    (print "请重新输入")
    (progn
        (solve-quadratic a b c d e f g m v)
        (format t "跨中最大弯矩设计值: ~a kN·m~%" mq)
        (format t "支座最大剪力设计值: ~a kN~%" vq)))