steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/math/numerical-integration/numerical-integration.factor
View File

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