pt2 (polar pt1 ang (- di (* r 2))); pt3 (polar ptb (+ ang (/ pi -2)) r); pt4 (polar pt3 ang (- di (* r 2))); ptt(mapcar '(lambda(x)(/ x 2))(mapcar '+ pt pta))
確定！ 回上一頁
