[求助]Help me ,帮注释一下这段代码的意思

ngeqt521

帮注释一下这段代码的意思每行意思:
                (setq q1 (expt (/ (expt d3 ky) (expt d1 ky)) (/ 1.0 (- ny 1.0))))
                (setq q2 (expt (/ (expt d4 ky) (expt d2 ky)) (/ 1.0 (- ny 1.0))))
                (setq n 1)
                (setq pta pt1)
        (while (<= n ny)
           (setq ddd (+ b (* d (- n 1.0))))
          (setq dddd (+ bb (* dd (- n 1.0))))
           (setq nx (+ 1 (fix (/ (/ x 2.0) ddd))))
           (setq da (expt (* (expt d1 ky) (expt q1 (- n 1.0))) (/ 1.0 ky)))
           (setq db (expt (* (expt d2 ky) (expt q2 (- n 1.0))) (/ 1.0 ky)))
           (setq q3 (expt (/ (expt db kx) (expt da kx)) (/ 1.0 (- nx 1.0))))
           (setq pta (polar pta (dtr 270.) dddd))
            (setq ptaa (list (+ (car pta) (/ ddd 2.0)) (- (cadr pta) (/ dddd 2.0))))
           (command "donut" "0" da pta ptaa "")
           (setq t 1)
                (while (<= t nx)
                (setq daa (expt (* (expt da kx) (expt q3 (- t 1.0))) (/ 1.0 kx)))
                (setq ptb (polar pta (dtr 360.) (* t ddd)))
                (setq ptbb (polar ptaa (dtr 360.) (* t ddd)))
                (command "donut" "0" daa ptb ptbb  "")
                (setq t (+ t 1))
                )
           (setq n (+ n 1))