math.numerical-integration: make sure length is an integer.

db4
John Benediktsson 2015-07-17 16:44:44 -07:00
parent e2fc9f003a
commit 8d4d0d356f
1 changed files with 1 additions and 1 deletions

View File

@ -12,7 +12,7 @@ SYMBOL: num-steps
2dup swap - num-steps get / <range> ;
: generate-simpson-weights ( seq -- seq )
length 2 / 2 - { 2 4 } <repetition> concat
length 1 + 2/ 2 - { 2 4 } <repetition> concat
{ 1 4 } { 1 } surround ;
: integrate-simpson ( from to quot -- x )