projects
/
rlc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
a55a2dd
)
r8526: fix bug in C circuit
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 14 Jan 2004 11:15:01 +0000
(11:15 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 14 Jan 2004 11:15:01 +0000
(11:15 +0000)
main.lisp
patch
|
blob
|
history
diff --git
a/main.lisp
b/main.lisp
index 87fec0580b5888a1e5a78600bdda04bb00bd3e20..0b7210759eed80d1db20bcbcf89a3f6a1e7da6cc 100644
(file)
--- a/
main.lisp
+++ b/
main.lisp
@@
-83,12
+83,12
@@
"Returns formula for currrent through a series RLC circuit with a step-voltage applied at time 0."
(ecase (circuit-type r l c)
(:null
- `(lambda (tm) ,v))
+ `(lambda (tm)
(declare (ignore tm))
,v))
(:r
- `(lambda (tm) ,(/ v r)))
+ `(lambda (tm)
(declare (ignore tm))
,(/ v r)))
(:c
`(lambda (tm)
- (if (zerop
r
m)
+ (if (zerop
t
m)
,(* v c)
0)))
(:l