라켓에 이미지로 매트릭스를 플롯하는 방법은 무엇입니까?

Question

나는 라켓으로 matplotlib.pyplot.matshow과 비슷한 것을하고 싶습니다. 나는 이것이 사소한 질문이라는 것을 이해하고 어쩌면 내가 어리 석다는 것을 알았지 만, 문서를 작성하는 라켓 (Racket)을 읽은 후에 나는 실패했다.

#lang typed/racket 

(require math/array) 
(require plot) 

(: sq (-> Integer Integer)) 
(define (sq [v : Integer]) 
    (* v v)) 

(: make-2d-matrix (-> Integer Integer (Array Boolean))) 
(define (make-2d-matrix [s : Integer] [r : Integer]) 
    (let ([center : Integer (exact-round (/ s 2))]) 
    (let ([a (indexes-array ((inst vector Integer) s s))]) 
     (let ([b (inline-array-map (λ ([i : (Vectorof Index)]) 
          (+ 
          (sq (- (vector-ref i 0) center)) 
          (sq (- (vector-ref i 1) center)))) 
          a)]) 
     (array<= b (array (sq r))) 
     )))) 


(array-map (λ ([i : Boolean]) (if (eq? i #f) 0 1)) (make-2d-matrix 20 6)) 

누군가가 나에게 힌트를 줄 수 : 원의 이미지로 변환 될 수

예 매트릭스?

Answer 1

완전히 바보 같은 질문이 아닙니다. 이것은 파이썬 라이브러리 프로그래머 군대와 경쟁하기 어려운 영역 중 하나입니다. 여기 내가 라켓에서 어떻게 할 수 있을까요?

#lang racket 


(require 2htdp/image 
     math/array) 

;; a 10x10 array 
(define a 
    (build-array #(10 10) 
       (λ (e) 
       (match e 
        [(vector x y) 
        (cond [(= x y) x] 
          [else 0])])))) 

;; map a value to a color 
(define (cmap v) 
    (color (floor (* 255 (/ v 10))) 
     0 
     (floor (* 255 (- 1 (/ v 10)))))) 

(apply 
above 
(for/list ([y (in-range 10)]) 
    (apply 
    beside 
    (for/list ([x (in-range 10)]) 
    (rectangle 10 10 'solid (cmap (array-ref a (vector x y)))))))) 

Answer 2

정확히 무엇을 음모를 꾸미 겠어요. plot 라이브러리는 플로팅 기능을 중심으로 설계되었지만 표현하고자하는 기능을 알지 못합니다. array->vector*의 종류가 충분히 특정하지 않기 때문에

(plot (points (cast (array->vector* m) (Vectorof (Vectorof Real)))

(plot3d (points3d (cast (array->vector* m) (Vectorof (Vectorof Real)))

cast이 필요 :

여기 매트릭스를 플롯의 두 가지 방법이 있습니다.

Answer 3

당신의 상황에 따라 flomaps에 관심이있을 수 있습니다 파이썬에서보다 사소한 사실

http://docs.racket-lang.org/images/flomap_title.html?q=flbitmap