suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Documentation on mediant

Browse Source
This commit is contained in:
Jens Axel Søgaard 2012-10-16 17:08:05 +02:00 committed by Neil Toronto
parent 00a886ea0c
commit 63b5f47989
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/math/scribblings/math-number-theory.scrbl
View File

@ -464,6 +464,17 @@ Note: The function @racket[divisor-sum] is multiplicative.
(map (λ (n) (fibonacci/mod n 5)) (range 10))]
}
@defproc[(farey [n Natural]) (listof rational?)]{
Returns a list of the numbers in the @racket[n]th Farey sequence.
The @racket[n]th Farey sequence is the sequence of all
completely reduced rational numbers from 0 to 1 which denominators
are less than or equal to @racket[n].
@interaction[(require math racket)
(farey 1)
(farey 2)
(farey 3)]
}
@; ----------------------------------------
@section[#:tag "quadratic-residues"]{Quadratic Residues}
@ -551,4 +562,15 @@ return the @racket[n]th polygonal number of the corresponding
type of polygonal number.
}
@(close-eval untyped-eval)
@section[#:tag "fractions"]{Fractions}
@defproc[(mediant [x Rational] [y Rational]) rational?]{
Computes the @racket[mediant] of the numbers @racket[x] and @racket[y].
The mediant of two fractions @math-style{p/q} and @math-style{r/s} in their
lowest term is the number @math-style{(p+r)/(q+s)}.
@interaction[(require math)
(mediant 1/2 5/6)]
}
@(close-eval untyped-eval)