複合對象不適用

我正在爲MIT-Scheme編寫一個小型繪圖工具。 來源：[plotlib]。複合對象不適用

頂層是(make-plot output mode args)函數，該函數接受輸出設備對象，繪圖模式以及包含模式中指定繪圖類型參數的列表。我將使用函數(range start stop increment)來爲每個增量生成從包含開始到獨佔停止的列表。 (range -1 1 .1)創建清單(-1 -.9 -.8 ... .9)。

make-plot適用於它的其他模式，但與'vector-field-plot模式make-plot

(define window (make-graphics-device 'win32)) 

(define (vector-field-plot device color xrange yrange func) 
    (let* ((cords (append-all (map (lambda (i) 
            (map (lambda (j) 
              (cond ((eq? j '()) '()) 
               (else (cons i j)))) 
             xrange)) 
            yrange))) 
     (input (map (lambda (point) 
         (list (car point) (cdr point) 
          (car (func (car point) (cdr point))) 
          (cdr (func (car point) (cdr point))))) 
        cords))) 
    (draw-vector-list device color input))) 

;This is the part of make-plot that is called for 
;(make-plot window 'vector-field-plot '(args)) 

((eq? mode 'vector-field-plot) 
     ;does not work yet 
     (let* ((bg-color (car args)) 
       (grid-color (cadr args)) 
       (line-color (caddr args)) 
       (xrange (car (cadddr args))) 
       (yrange (cadr (cadddr args))) 
       (func (cddr (cadddr args)))) 
     (clear output bg-color);sets background to white 
     (coord-grid-cart output grid-color);prints Cartesian coordinate grid 
     (vector-field-plot output line-color xrange yrange func))))) 
     ;calls vector-field-plot with parameters given to make-plot 
;I have left out some function definitions here, they are in the source file 
;but you can assume all of those work correctly for this section

一個打印矢量場被稱爲是不行的，它調用函數(vector-field-plot output line-color xrange yrange func)有了這樣'(-1 -.9 ... 1)和數字組成的xrange和yrange是名單一個形式爲(lambda (x y) (cons x y))的函數。如果我使用：

(make-plot window 'vector-field-plot (list "white" "black" "red" 
              (list (range -1 1 .1) (range -1 1 .1) 
              (lambda (x y) (cons (* -.1 y) (* -.1 x))))))

它返回The object (#[compound procedure ]) is not applicable.

但是，如果使用：

(vector-field-plot window "red" (range -1 1 .1) (range -1 1 .1) 
           (lambda (x y) (cons (* -.1 y) (* .1 x))))

它顯示在圖形窗口中正確的陰謀（圓形矢量場）。

來源

2015-11-12 Anandamide

錯誤是因爲表達式獲取參數列表之外的函數返回一個包含函數的列表，而不是函數本身。

你應該改變：

(func (cddr (cadddr args))))

有：

(func (caddr (cadddr args))))

來源

2015-11-12 05:36:04 Renzo

@jordan考慮使用'third'（或'fourth'）而不是'cadddr'。 – soegaard

即時將要重寫這個使用'list-ref'。我實際上有一些想法可以將它縮小約50％SLOC。 – Anandamide

它將使輸入變得更簡單，因爲您可以使用平坦的參數列表調用make plot，而不是包含另一個列表的列表。或者我將使用可選參數。這是一個快速實現，以查看mit/gnu-scheme實現中圖形操作的功能。 – Anandamide

約旦，

我試圖解決在Windows 10的LNK1168錯誤，對於與你所描述的幾個月前的一個問題。我沒有別的辦法聯繫你，因爲你從那以後明顯編碼，我認爲你已經解決了這個問題。

你做了什麼來解決它？

謝謝

來源

2015-11-22 23:33:11

發生了什麼是您正在調試模式下運行程序，然後不正確退出程序。調試器將自己附加到程序運行的進程中，如果過早退出程序（在窗口中敲擊x），調試器將變得不穩定。過早地終止程序需要做的是在調試器工具欄中點擊紅色按鈕，以便調試器可以正確關閉它。否則，您需要等待程序正常終止。 – Anandamide

否則在沒有調試的情況下運行程序。 – Anandamide

複合對象不適用

回答

相關問題