为什么程序中有个齿数不超过50的限制？

在网上看到一个用autolisp生甩齿轮的程序，想请教一下大家，为什么有个限制，齿数要不起过50.多谢！（下面是那个程序）
(defun grinfo ()
  (setq c (getpoint "n 齿轮中心: "))
  (setq pc (getpoint "n 节距圆: "))
  (setq teeth (getint "n 齿数: "))
  (while (< teeth 14)
    (setq teeth (getint "n 必须至少14个齿: "))
  )
  (while (> teeth 50)
    (setq teeth (getint "n 必须不超过50个齿: "))
  )
  ;; (while(< teeth 14)(setq teeth(getint "n 必须至少14个齿: ")))
  ;;(while(> teeth 50)(setq teeth(getint "n 必须不超过50个齿: ")))
)
(defun calgear ()
  (setq d (* 2 (distance c pc)))
  (setq pc (polar c 0 (/ d 2)))
  (setq ang3 2.79248)
  (setq ang5 (/ 360.000000 teeth))
  (setq wang -0.785385)
  (setq wang 20.785385)
  (setq dp (/ teeth d))
  (setq ht (/ 0.32 dp))
  (setq adm (/ 1.0 dp))
  (setq y (* (/ 2.257 dp) 1.0642))
)
(defun drawgear ()
  (command &quotLINE"
    (setq p (polar pc 0 adm))
    "a"
    "ce"
    c
    "l"
    ht
    "l"
    (setq p (polar (getvar "lastpoint") ang3 y))
    "a"
    "ce"
    c
    "l"
    ht
    ""
  )
  (SETQ TOP (GETvar "LASTPOINT"))
  (command "MIRROR"
    "L"
    ""
    (setq p (polar pc 0 adm))
    c
    "n"
  )
  (command "ARRAY"
    "w"
    (POLAR TOP 4.712389 (* Y 1.5))
    (polar TOP 0 Y)
    ""
    "c"
    c
    ang5
    "-360"
    "Y"
  )
)
(defun C:GEAR ()
  (grinfo)
  (setq stdots (getvar "blipmode"))
  (setq stech (getvar "cmdecho"))
  (setvar "blipmode" 0)
  (setvar "cmdecho" 0)
  (calgear)
  (drawgear)
  (setvar "blipmode" stdots)
  (setvar "cmdecho" stech)
)
(prompt "n键入Gear换起命令: ")
[p:1]

怎么没有个人给解释一下啊。各位兄弟姐妹们。