Q1 은 처음 사용자에게 마우스클릭으로 입력받습니다.
D값과 r값도 사용자에게 키보드로 입력받습니다.
(setq x1 (car q1) y1 (cadr q1))
(setq d (getreal “D값 입력하세요: “))
(setq r (getreal “r값 입력하세요: “))
(setq x2(+ x1 r) y2(+ y1 r))
(setq q2(list x1 y2) q3(list x2 y2) q4(list x2 y1))
(setq x3(+ x1 d) x4(- x1 d) y3(- y2 d) y4(+ y2 d))
(setq q5(list x3 y1) q6(list x4 y1) q7(list x2 y3) q8(list x2 y4))
(setq q9(polar q4 (* pi (/ 135 180.0)) r))
(setq q10(polar q4 (* pi (/ 135 180.0)) (- r d)))
(setq q11(polar q4 (* pi (/ 135 180.0)) (+ r d)))
나름대로 공부하면서
Q11 까지 다 나름대로 좌표값을 찾아봤습니다.
그런데 혹시 저기 ?? 된 부분의 좌표값을 구할 수 있는 방법이 있나요.