이승중
가입: 2010년 6월 22일
올린 글: 561
|
 올려짐: 2011년10월13일 10:46 주제: 실습 3 테스트셋 |
 |
|
이거만 되면 제출하시면 되겠습니다...
뒷자리 반올림은 +- 0.01 까지 차이나는것은 상관없습니다.
혹시 잘못된거 있으면 답글 달아주세요
| 코드: | (define f1 (fixed-make 3 4)) ; 3.04
(define f2 (fixed-make -1 89)) ; -0.11
(define f3 (fixed-make -2 0)) ; -2.0
(define f4 (fixed-add f1 f2)) ; 2.93
(define vp1 (make-vect2-pair f1 f2)) ; (3.04, -0.11)
(define vp2 (make-vect2-pair f2 f3)) ; (-0.11, -2.0)
(define vp3 (add-vect2-pair vp1 vp2)) ; (2.93, -2.11)
(define vl1 (make-vect (list f1 f2))) ; (3.04, -0.11)
(define vl2 (make-vect (list f2 f3))) ; (-0.11, -2.0)
(define v1 (add-vect2 vp1 vl2)) ; (2.93, -2.11)
(define v2 (scale-vect2 vp1 f4)) ; (8.91, -0.32)
(define f5 (dot-product-vect2 vp1 vl2)) ; -0.11 근처..
(fixed-display f1) ; 3.04
(newline)
(fixed-display f2) ; -0.11
(newline)
(fixed-display f3) ; -2.00
(newline)
(fixed-display f4) ; 2.93
(newline)
(fixed-display f5) ; -0.11
(newline)
(fixed-equal (nth-vect2-pair vp1 0) f1) ; #t
(fixed-equal (nth-vect vl1 1) f2) ; #t
(is-vect2-pair? vp1) ; #t
(is-vect? vp1) ; #f
(is-vect2-pair? vl1) ; #f
(is-vect? vl1) ; #t
(equal-vect2 vp1 vl1) ; #t
(fixed-display (nth-vect2 v1 0)) ; 2.93
(newline)
(fixed-display (nth-vect2 v1 1)) ; -2.11
(newline)
(fixed-display (nth-vect2 v2 0)) ; 8.91
(newline)
(fixed-display (nth-vect2 v2 1)) ; -0.32
|
|
|
FAQ
검색
멤버리스트
사용자 그룹
사용자 등록하기
개인 정보
비공개 메시지를 확인하려면 로그인하십시오
로그인
