4

numpy 配列を視覚化するために matplotlib で imshow を使用するのと同じ方法で、clojure で記述されたシミュレーションで更新されている 2D Java 配列を視覚化する方法を探しています。

これを行う最善の方法は何ですか？または、配列をディスクに保存して、matplotlib で視覚化することもできます。そのための最善の方法は何ですか？

Java コードhereに基づく私の試みは次のとおりですが、BufferedImage が非常に遅くなります。スピードアップする方法はありますか?:

(import 
 '(java.awt Color Graphics Graphics2D Dimension GradientPaint BorderLayout)
 '(java.awt.image BufferedImage)
 '(javax.swing JPanel JFrame))

(def L 1024)

(def image (BufferedImage. (* L 1) (* L 1) (. BufferedImage TYPE_INT_RGB)))
(def g2 (. image createGraphics))

(defn get-color-map []
  (let [STEPS 100
        colormap (BufferedImage. STEPS 1 (BufferedImage/TYPE_INT_RGB))
        g (.createGraphics colormap)
        paint (GradientPaint. 0 0 (Color/RED) STEPS 0 (Color/GREEN))
        ]
    (doto g
      (.setPaint paint)
      (.fillRect 0 0 STEPS 1))
    colormap))

(defn get-color [x start finish colormap]
  (let [y (/ (- x start) (- finish start))
        STEPS 100]
    (Color. (.getRGB colormap (int (* y STEPS)) 0))))

(defn fill-image [^"[[D" arr ^Graphics2D g sideX sideY ^BufferedImage colormap]
  (dotimes [i (alength arr)]
    (dotimes [j (alength ^"[D" (aget arr 0))]
       (doto g
         (.setColor (get-color (aget ^"[[D" arr (int i) (int j)) -10.0 10.0 colormap))
         (.fillRect (int (* i sideX)) (int (* j sideY)) sideX sideY)))))


(def panel
     (doto (proxy [JPanel] []
             (paintComponent [g] (.drawImage g image 0 0 nil)))))

(def frame
     (doto (JFrame. "Heat Map")
       (.add panel BorderLayout/CENTER)
       (.pack)
       (.setLocationRelativeTo nil)
       (.setVisible true)))

そして、これはインカンターからの処理を使用した試みです。また、かなり遅いです：

(let [sktch (sketch
             (setup []
                    (doto this
                      ;no-loop
                      (size 1024 1024)
                      (framerate 15)
                      smooth))

              ;; define the draw function
              (draw []
                    (def A (gaussian-matrix 1024 0 1))
                    (dotimes [i 1024]
                      (dotimes [j 1024]
                        (doto this
                          (stroke (int (abs (* (aget A i j) 255))))
                          (point i j))))))]

  (view sktch :size [1024 1024]))
4

2 に答える 2

2

Octave のjava パッケージを使用して Java オブジェクトを Octave に取り込み、Octave の imshow を呼び出します。

于 2010-09-28T19:46:44.983 に答える
0

完全に同等ではありませんが、おそらくPretty Printer Libraryを使用すると開始できます。

(pprint (for [x (範囲 10)] (範囲 x)))         
(()
 (0)
 (0 1)
 (0 1 2)
 (0 1 2 3)
 (0 1 2 3 4)
 (0 1 2 3 4 5)
 (0 1 2 3 4 5 6)
 (0 1 2 3 4 5 6 7)
 (0 1 2 3 4 5 6 7 8))
なし

これは imshow と同じ縮尺ではありません (テキストのみ) ので、もっときれいなものが見つかるまで使用することをお勧めします。

于 2010-09-28T17:41:47.530 に答える