|
From: | Simon Huskier |
Subject: | Re: [MIT-Scheme-users] ERROR: Wrong number of arguments to #<procedure ...... |
Date: | Thu, 12 Jul 2012 09:22:37 +0800 |
(define (eps-func p)
(let* ((lattice->cartesian p)
(x (vector3-x p))
(y (vector3-y p))
(z (vector3-z p)))
(if (> (+ (* (sin (* 2 pi x)) (cos (* 2 pi y)))
(* (sin (* 2 pi y)) (cos (* 2 pi z)))
(* (sin (* 2 pi z)) (cos (* 2 pi x))))
isoval)
(make dielectric
(epsilon epsc))
(make dielectric
(epsilon 1)))))
Date: Thu, 12 Jul 2012 08:27:11 +0800
From: Simon Huskier <address@hidden>
I don't know what argument you intended to pass to LATTICE->CARTESIAN,
Campbell, Could you say it more directly? How should I correct my code?
but perhaps you should change
(lattice->cartesian)
to
(lattice->cartesian p)
Also, it looks like you mistakenly used the `f(x)' notation, rather
than `(f x)', to compute a sine below:
That should probably be
(> sin(* 2 pi x y z) 0)
(> (sin (* 2 pi x y z)) 0)
This isn't the Guile list either. It's the MIT Scheme list:
Maybe it is Guile mail list, but they are all Scheme.
<http://www.mit-scheme.org/>. You would probably be better served --
by reaching a wider audience -- somewhere such as comp.lang.scheme.
[Prev in Thread] | Current Thread | [Next in Thread] |