suzanne.soy/scribble-math
1
0
Fork 0
Code Issues 8 Pull Requests 3 Actions Packages Projects Releases Wiki Activity

Small improvements

Browse Source
This commit is contained in:
Jens Axel Søgaard 2012-06-20 20:07:09 +02:00
parent d648153156
commit 776ec811aa
9 changed files with 250 additions and 304 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
docs/matrix.scrbl
View File

@ -321,4 +321,3 @@ Multiply a matrix on a column-vector.
@section[#:tag "matrix comprehensions"]{Comprehensions} @section[#:tag "matrix comprehensions"]{Comprehensions}
@section{Binary Operators} @section{Binary Operators}

123
graphics/graphics.rkt
View File

@ -1,7 +1,7 @@
#reader(lib"read.ss""wxme")WXME0108 ## #reader(lib"read.ss""wxme")WXME0108 ##
#| #|
This file uses the GRacket editor format. This file uses the GRacket editor format.
Open this file in DrRacket version 5.3.0.6 or later to read it. Open this file in DrRacket version 5.3.0.11 or later to read it.
Most likely, it was created by saving a program in DrRacket, Most likely, it was created by saving a program in DrRacket,
and it probably contains a program with non-text elements and it probably contains a program with non-text elements
@ -28,19 +28,19 @@
( (
#"((lib \"image-core.ss\" \"mrlib\") (lib \"image-core-wxme.rkt\" \"mr" #"((lib \"image-core.ss\" \"mrlib\") (lib \"image-core-wxme.rkt\" \"mr"
#"lib\"))\0" #"lib\"))\0"
) 1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0" ) 1 0 29 #"drscheme:bindings-snipclass%\0"
0 0 88 1 0 88
( (
#"((lib \"pict-snip.rkt\" \"drracket\" \"private\") (lib \"pict-snip.r" #"((lib \"pict-snip.rkt\" \"drracket\" \"private\") (lib \"pict-snip.r"
#"kt\" \"drracket\" \"private\"))\0" #"kt\" \"drracket\" \"private\"))\0"
) 0 0 29 #"drscheme:bindings-snipclass%\0" ) 0 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0" 0 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
1 0 22 #"drscheme:lambda-snip%\0" 1 0 22 #"drscheme:lambda-snip%\0"
1 0 57 1 0 57
#"(lib \"hrule-snip.rkt\" \"macro-debugger\" \"syntax-browser\")\0" #"(lib \"hrule-snip.rkt\" \"macro-debugger\" \"syntax-browser\")\0"
1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
1 0 26 #"drscheme:pict-value-snip%\0" 1 0 26 #"drscheme:pict-value-snip%\0"
0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0" 0 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
1 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0" 2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
1 0 18 #"drscheme:xml-snip\0" 1 0 18 #"drscheme:xml-snip\0"
1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0" 1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
@ -50,7 +50,7 @@
1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0" 1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
1 0 15 #"test-case-box%\0" 1 0 15 #"test-case-box%\0"
2 0 1 6 #"wxloc\0" 2 0 1 6 #"wxloc\0"
0 0 61 0 1 #"\0" 0 0 63 0 1 #"\0"
0 75 1 #"\0" 0 75 1 #"\0"
0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 9 0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 9
#"Standard\0" #"Standard\0"
@ -196,41 +196,47 @@
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 2 38 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 2 38
#"plt:module-language:test-coverage-off\0" #"plt:module-language:test-coverage-off\0"
0 -1 1 #"\0" 0 -1 1 #"\0"
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 0 1 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 4 1
#"\0" #"\0"
0 75 12 #"Courier New\0"
0.0 16 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
255 255 1 -1 4 1 #"\0"
0 71 1 #"\0" 0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 4 1 #"\0" -1 -1 4 1 #"\0"
0 -1 1 #"\0" 0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 255 0 0 1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
0 -1 -1 4 1 #"\0" -1 4 1 #"\0"
0 71 1 #"\0" 0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 255 0 0 1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
0 -1 -1 4 1 #"\0" -1 4 1 #"\0"
0 71 1 #"\0" 0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 100 0 0 0 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1
0 -1 -1 2 1 #"\0" -1 4 1 #"\0"
0 -1 1 #"\0" 0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 200 0 0 0 0 1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 255 255 0 -1 -1 0
0 -1 -1 4 1 #"\0" 1 #"\0"
0 -1 1 #"\0" 0 -1 1 #"\0"
1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255 0 13 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
255 0 -1 -1 0 1 #"\0"
0 -1 1 #"\0"
0.0 13 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 2 1 #"\0" -1 -1 2 1 #"\0"
0 -1 1 #"\0" 0 -1 1 #"\0"
0.0 13 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0 0 13 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 47 1 #"\0" -1 -1 2 1 #"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 200 0 0 0 0 0 -1 -1 0 1
#"\0"
0 75 12 #"Courier New\0"
0.0 16 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
255 255 1 -1 47 1 #"\0"
0 -1 1 #"\0" 0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
255 255 -1 -1 49 1 #"\0" 255 255 -1 -1 49 1 #"\0"
0 -1 1 #"\0" 0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
255 255 -1 -1 0 4369 0 26 3 12 #"#lang racket" 255 255 -1 -1 2 1 #"\0"
0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 2 1 #"\0"
0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1
-1 0 4352 0 26 3 12 #"#lang racket"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 1 #"(" 0 0 22 3 1 #"("
0 0 14 3 7 #"require" 0 0 14 3 7 #"require"
@ -267,6 +273,9 @@
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 9 #" " 0 0 22 3 9 #" "
0 0 14 3 13 #"current-frame" 0 0 14 3 13 #"current-frame"
0 0 22 29 1 #"\n"
0 0 22 3 9 #" "
0 0 14 3 10 #"find-color"
0 0 22 3 1 #")" 0 0 22 3 1 #")"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -2353,8 +2362,7 @@
0 0 14 3 1 #"r" 0 0 14 3 1 #"r"
0 0 22 3 3 #")) " 0 0 22 3 3 #")) "
0 0 17 3 10 #"; relative" 0 0 17 3 10 #"; relative"
0 0 17 3 1 #" " 0 0 17 3 24 #" to hor. range "
0 0 17 3 23 #"to hor. range "
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 13 #" (" 0 0 22 3 13 #" ("
0 0 15 3 12 #"parameterize" 0 0 15 3 12 #"parameterize"
@ -2387,8 +2395,7 @@
0 0 14 3 1 #"r" 0 0 14 3 1 #"r"
0 0 22 3 3 #")) " 0 0 22 3 3 #")) "
0 0 17 3 10 #"; relative" 0 0 17 3 10 #"; relative"
0 0 17 3 1 #" " 0 0 17 3 24 #" to hor. range "
0 0 17 3 23 #"to hor. range "
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 15 #" (" 0 0 22 3 15 #" ("
0 0 15 3 12 #"parameterize" 0 0 15 3 12 #"parameterize"
@ -3212,8 +3219,7 @@
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 19 3 1 #"\"" 0 0 19 3 1 #"\""
0 0 19 3 7 #"Unknown" 0 0 19 3 7 #"Unknown"
0 0 19 3 1 #" " 0 0 19 3 9 #" spec ~a\""
0 0 19 3 8 #"spec ~a\""
0 0 22 3 2 #" (" 0 0 22 3 2 #" ("
0 0 14 3 5 #"first" 0 0 14 3 5 #"first"
0 0 22 3 1 #" " 0 0 22 3 1 #" "
@ -3237,8 +3243,7 @@
0 0 19 3 1 #"\"" 0 0 19 3 1 #"\""
0 0 19 3 8 #"Internal" 0 0 19 3 8 #"Internal"
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 6 #"error:" 0 0 19 3 11 #"error: ~a \""
0 0 19 3 5 #" ~a \""
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 14 3 1 #"p" 0 0 14 3 1 #"p"
0 0 22 3 7 #")])])))" 0 0 22 3 7 #")])])))"
@ -3387,8 +3392,7 @@
0 0 22 3 2 #"))" 0 0 22 3 2 #"))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 5 #" " 0 0 22 3 5 #" "
0 0 17 3 16 #"; (Style (Text \"" 0 0 17 3 29 #"; (Style (Text \"Hello\") 'Red)"
0 0 17 3 13 #"Hello\") 'Red)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 5 #" " 0 0 22 3 5 #" "
0 0 14 3 4 #"Blue" 0 0 14 3 4 #"Blue"
@ -3419,8 +3423,7 @@
0 0 22 3 2 #" (" 0 0 22 3 2 #" ("
0 0 14 3 4 #"Text" 0 0 14 3 4 #"Text"
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 19 3 1 #"\"" 0 0 19 3 7 #"\"World\""
0 0 19 3 6 #"World\""
0 0 22 3 2 #" (" 0 0 22 3 2 #" ("
0 0 20 3 3 #"300" 0 0 20 3 3 #"300"
0 0 22 3 1 #" " 0 0 22 3 1 #" "
@ -4017,8 +4020,7 @@
0 0 17 3 1 #"," 0 0 17 3 1 #","
0 0 17 3 1 #"(" 0 0 17 3 1 #"("
0 0 17 3 1 #"/" 0 0 17 3 1 #"/"
0 0 17 3 1 #" " 0 0 17 3 13 #" x (* 2 pi)))"
0 0 17 3 12 #"x (* 2 pi)))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 17 3 1 #";" 0 0 17 3 1 #";"
@ -4032,12 +4034,10 @@
0 0 17 3 1 #"1" 0 0 17 3 1 #"1"
0 0 17 3 2 #" (" 0 0 17 3 2 #" ("
0 0 17 3 1 #"/" 0 0 17 3 1 #"/"
0 0 17 3 1 #" " 0 0 17 3 14 #" x (* 2 pi))))"
0 0 17 3 13 #"x (* 2 pi))))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 17 3 1 #";" 0 0 17 3 50 #"; (Rotate (Rectangle) ,x)))"
0 0 17 3 49 #" (Rotate (Rectangle) ,x)))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 17 3 1 #";" 0 0 17 3 1 #";"
@ -4048,8 +4048,7 @@
0 0 17 3 2 #" (" 0 0 17 3 2 #" ("
0 0 17 3 1 #"*" 0 0 17 3 1 #"*"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"4" 0 0 17 3 19 #"4 pi) (* 2/24 pi)))"
0 0 17 3 18 #" pi) (* 2/24 pi)))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 17 3 1 #";" 0 0 17 3 1 #";"
@ -4057,8 +4056,7 @@
0 0 17 3 1 #"'" 0 0 17 3 1 #"'"
0 0 17 3 2 #"((" 0 0 17 3 2 #"(("
0 0 17 3 5 #"Range" 0 0 17 3 5 #"Range"
0 0 17 3 3 #" ((" 0 0 17 3 19 #" ((-2 2) (-2 2)))))"
0 0 17 3 16 #"-2 2) (-2 2)))))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 17 3 1 #";" 0 0 17 3 1 #";"
@ -4268,8 +4266,7 @@
0 0 17 3 1 #"," 0 0 17 3 1 #","
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 3 #"1.0" 0 0 17 3 3 #"1.0"
0 0 17 3 2 #"]>" 0 0 17 3 30 #"]>; given: -0.0416666666666663"
0 0 17 3 28 #"; given: -0.0416666666666663"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -4390,8 +4387,7 @@
0 0 17 3 2 #" {" 0 0 17 3 2 #" {"
0 0 17 3 1 #"x" 0 0 17 3 1 #"x"
0 0 17 3 2 #", " 0 0 17 3 2 #", "
0 0 17 3 1 #"0" 0 0 17 3 8 #"0, 10}]]"
0 0 17 3 7 #", 10}]]"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 17 3 2 #"; " 0 0 17 3 2 #"; "
@ -5091,8 +5087,7 @@
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 17 3 1 #";" 0 0 17 3 1 #";"
0 0 17 3 8 #"Graphics" 0 0 17 3 15 #"Graphics[Table["
0 0 17 3 7 #"[Table["
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 17 3 1 #";" 0 0 17 3 1 #";"
@ -5105,8 +5100,7 @@
0 0 17 3 1 #"," 0 0 17 3 1 #","
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 3 #"0.5" 0 0 17 3 3 #"0.5"
0 0 17 3 3 #"]}]" 0 0 17 3 25 #"]}], ; black, opacity 50%"
0 0 17 3 22 #", ; black, opacity 50%"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 17 3 1 #";" 0 0 17 3 1 #";"
@ -5124,8 +5118,7 @@
0 0 17 3 1 #"1" 0 0 17 3 1 #"1"
0 0 17 3 1 #"," 0 0 17 3 1 #","
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 3 #"0.6" 0 0 17 3 6 #"0.6], "
0 0 17 3 3 #"], "
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 17 3 1 #";" 0 0 17 3 1 #";"
@ -5151,8 +5144,7 @@
0 0 17 3 2 #" (" 0 0 17 3 2 #" ("
0 0 17 3 3 #"8-r" 0 0 17 3 3 #"8-r"
0 0 17 3 1 #")" 0 0 17 3 1 #")"
0 0 17 3 2 #"/3" 0 0 17 3 6 #"/3]}, "
0 0 17 3 4 #"]}, "
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 17 3 1 #";" 0 0 17 3 1 #";"
@ -5163,8 +5155,7 @@
) 0 0 17 3 1 #"r" ) 0 0 17 3 1 #"r"
0 0 17 3 1 #"," 0 0 17 3 1 #","
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"6" 0 0 17 3 4 #"6}, "
0 0 17 3 3 #"}, "
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 17 3 1 #";" 0 0 17 3 1 #";"
@ -5173,8 +5164,7 @@
#" " #" "
#" {" #" {"
) 0 0 17 3 1 #"q" ) 0 0 17 3 1 #"q"
0 0 17 3 1 #"," 0 0 17 3 7 #", 12}]]"
0 0 17 3 6 #" 12}]]"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 2 #" " 0 0 22 3 2 #" "
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -5454,7 +5444,6 @@
0 0 17 3 1 #"0" 0 0 17 3 1 #"0"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"0" 0 0 17 3 1 #"0"
0 0 17 3 2 #") " 0 0 17 3 6 #") 5)))"
0 0 17 3 4 #"5)))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 0 0

2
gui/racket-cas.rkt
View File

@ -63,6 +63,8 @@
;; Behaviour when dragging parabolas and lines. ;; Behaviour when dragging parabolas and lines.
;; http://www.geogebra.org/forum/viewtopic.php?f=22&t=27113 ;; http://www.geogebra.org/forum/viewtopic.php?f=22&t=27113
;; Write API for MathType.
;; Support copy-paste with MathML ?
(require racket/gui framework (require racket/gui framework
(except-in plot plot points) (except-in plot plot points)

1
infix/main.rkt
View File

@ -1,4 +1,5 @@
#lang at-exp scheme #lang at-exp scheme
;; This is not in the use for the moment.
(provide $ $quote $quote-syntax #%infix) (provide $ $quote $quote-syntax #%infix)
(require "parameter.ss" (require "parameter.ss"

4
math-scribble/math-scribble.rkt
View File

@ -1,4 +1,8 @@
#lang racket #lang racket
;;;
;;; Support for MathJax and Asymptote.
;;;
(require scribble/manual (require scribble/manual
scribble/core scribble/core
scribble/decode scribble/decode

301
matrix/matrix.rkt
View File

@ -1,7 +1,7 @@
#reader(lib"read.ss""wxme")WXME0108 ## #reader(lib"read.ss""wxme")WXME0108 ##
#| #|
This file uses the GRacket editor format. This file uses the GRacket editor format.
Open this file in DrRacket version 5.3.0.6 or later to read it. Open this file in DrRacket version 5.3.0.11 or later to read it.
Most likely, it was created by saving a program in DrRacket, Most likely, it was created by saving a program in DrRacket,
and it probably contains a program with non-text elements and it probably contains a program with non-text elements
@ -28,19 +28,19 @@
( (
#"((lib \"image-core.ss\" \"mrlib\") (lib \"image-core-wxme.rkt\" \"mr" #"((lib \"image-core.ss\" \"mrlib\") (lib \"image-core-wxme.rkt\" \"mr"
#"lib\"))\0" #"lib\"))\0"
) 1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0" ) 1 0 29 #"drscheme:bindings-snipclass%\0"
0 0 88 1 0 88
( (
#"((lib \"pict-snip.rkt\" \"drracket\" \"private\") (lib \"pict-snip.r" #"((lib \"pict-snip.rkt\" \"drracket\" \"private\") (lib \"pict-snip.r"
#"kt\" \"drracket\" \"private\"))\0" #"kt\" \"drracket\" \"private\"))\0"
) 0 0 29 #"drscheme:bindings-snipclass%\0" ) 0 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0" 0 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
1 0 22 #"drscheme:lambda-snip%\0" 1 0 22 #"drscheme:lambda-snip%\0"
1 0 57 1 0 57
#"(lib \"hrule-snip.rkt\" \"macro-debugger\" \"syntax-browser\")\0" #"(lib \"hrule-snip.rkt\" \"macro-debugger\" \"syntax-browser\")\0"
1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
1 0 26 #"drscheme:pict-value-snip%\0" 1 0 26 #"drscheme:pict-value-snip%\0"
0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0" 0 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
1 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0" 2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
1 0 18 #"drscheme:xml-snip\0" 1 0 18 #"drscheme:xml-snip\0"
1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0" 1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
@ -50,7 +50,7 @@
1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0" 1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
1 0 15 #"test-case-box%\0" 1 0 15 #"test-case-box%\0"
2 0 1 6 #"wxloc\0" 2 0 1 6 #"wxloc\0"
0 0 63 0 1 #"\0" 0 0 65 0 1 #"\0"
0 75 1 #"\0" 0 75 1 #"\0"
0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 9 0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 9
#"Standard\0" #"Standard\0"
@ -196,52 +196,59 @@
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 2 38 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 2 38
#"plt:module-language:test-coverage-off\0" #"plt:module-language:test-coverage-off\0"
0 -1 1 #"\0" 0 -1 1 #"\0"
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 0 1 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 4 1
#"\0"
0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 4 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
-1 4 1 #"\0"
0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
-1 4 1 #"\0"
0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1
-1 4 1 #"\0"
0 -1 1 #"\0"
1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 255 255 0 -1 -1 0
1 #"\0"
0 -1 1 #"\0"
0 13 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 2 1 #"\0"
0 -1 1 #"\0"
0 13 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 2 1 #"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 200 0 0 0 0 0 -1 -1 0 1
#"\0" #"\0"
0 75 12 #"Courier New\0" 0 75 12 #"Courier New\0"
0.0 16 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255 0.0 16 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
255 255 1 -1 4 1 #"\0" 255 255 1 -1 47 1 #"\0"
0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 4 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 255 0 0
0 -1 -1 4 1 #"\0"
0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 255 0 0
0 -1 -1 4 1 #"\0"
0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 100 0 0 0
0 -1 -1 2 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 200 0 0 0 0
0 -1 -1 4 1 #"\0"
0 -1 1 #"\0"
1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
255 0 -1 -1 0 1 #"\0"
0 -1 1 #"\0"
0.0 13 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 2 1 #"\0"
0 -1 1 #"\0"
0.0 13 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 4 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 45 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 47 1 #"\0"
0 -1 1 #"\0" 0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
255 255 -1 -1 49 1 #"\0" 255 255 -1 -1 49 1 #"\0"
0 -1 1 #"\0" 0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
255 255 -1 -1 0 14783 0 26 3 12 #"#lang racket" 255 255 -1 -1 2 1 #"\0"
0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 2 1 #"\0"
0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1
-1 4 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 45 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 0 14714 0 26 3 12 #"#lang racket"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 1 #"(" 0 0 22 3 1 #"("
0 0 14 3 7 #"require" 0 0 14 3 7 #"require"
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 19 3 13 #"\"for-max.rkt\"" 0 0 19 3 10 #"\"../utils/"
0 0 19 3 12 #"for-max.rkt\""
0 0 22 3 1 #")" 0 0 22 3 1 #")"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -331,8 +338,7 @@
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 30 #"; 7. More matrix constructors:" 0 0 17 3 30 #"; 7. More matrix constructors:"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 10 #"; - \"" 0 0 17 3 22 #"; - \"famous\" ones"
0 0 17 3 12 #"famous\" ones"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 22 #"; - band matrices" 0 0 17 3 22 #"; - band matrices"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -389,8 +395,7 @@
0 0 17 3 6 #"; (" 0 0 17 3 6 #"; ("
0 0 17 3 7 #"require" 0 0 17 3 7 #"require"
0 0 17 3 10 #" (submod \"" 0 0 17 3 10 #" (submod \""
0 0 17 3 1 #"." 0 0 17 3 9 #".\" test))"
0 0 17 3 8 #"\" test))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 45 #"; in the interaction window to run the tests." 0 0 17 3 45 #"; in the interaction window to run the tests."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -402,8 +407,7 @@
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 4 #"list" 0 0 17 3 4 #"list"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 2 #"of" 0 0 17 3 21 #"of submodules to run."
0 0 17 3 19 #" submodules to run."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 1 #"(" 0 0 22 3 1 #"("
@ -1166,8 +1170,7 @@
0 0 19 3 2 #"do" 0 0 19 3 2 #"do"
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"not" 0 0 19 3 3 #"not"
0 0 19 3 7 #" match." 0 0 19 3 8 #" match.\""
0 0 19 3 1 #"\""
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 16 #" (" 0 0 22 3 16 #" ("
0 0 14 3 1 #"=" 0 0 14 3 1 #"="
@ -1646,8 +1649,7 @@
0 0 17 3 17 #"(for/matrix m n (" 0 0 17 3 17 #"(for/matrix m n ("
0 0 17 3 6 #"clause" 0 0 17 3 6 #"clause"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 3 #"..." 0 0 17 3 18 #"...) . defs+exprs)"
0 0 17 3 15 #") . defs+exprs)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 63 0 0 17 3 63
#"; Return an m x n matrix with elements from the last expr." #"; Return an m x n matrix with elements from the last expr."
@ -1811,8 +1813,7 @@
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 20 #"; (for*/matrix m n (" 0 0 17 3 20 #"; (for*/matrix m n ("
0 0 17 3 6 #"clause" 0 0 17 3 6 #"clause"
0 0 17 3 1 #" " 0 0 17 3 19 #" ...) . defs+exprs)"
0 0 17 3 18 #"...) . defs+exprs)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 63 0 0 17 3 63
#"; Return an m x n matrix with elements from the last expr." #"; Return an m x n matrix with elements from the last expr."
@ -1824,8 +1825,7 @@
0 0 17 3 40 #"; The bindings in clauses run nested." 0 0 17 3 40 #"; The bindings in clauses run nested."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 29 #"; (for*/matrix m n #:column (" 0 0 17 3 29 #"; (for*/matrix m n #:column ("
0 0 17 3 6 #"clause" 0 0 17 3 25 #"clause ...) . defs+exprs)"
0 0 17 3 19 #" ...) . defs+exprs)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 63 0 0 17 3 63
#"; Return an m x n matrix with elements from the last expr." #"; Return an m x n matrix with elements from the last expr."
@ -2168,8 +2168,7 @@
0 0 17 3 1 #"(" 0 0 17 3 1 #"("
0 0 17 3 6 #"clause" 0 0 17 3 6 #"clause"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 3 #"..." 0 0 17 3 18 #"...) . defs+exprs)"
0 0 17 3 15 #") . defs+exprs)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 69 0 0 17 3 69
( (
@ -2342,8 +2341,7 @@
0 0 17 3 19 #"; (for*/matrix-sum " 0 0 17 3 19 #"; (for*/matrix-sum "
0 0 17 3 1 #"(" 0 0 17 3 1 #"("
0 0 17 3 6 #"clause" 0 0 17 3 6 #"clause"
0 0 17 3 1 #" " 0 0 17 3 19 #" ...) . defs+exprs)"
0 0 17 3 18 #"...) . defs+exprs)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 69 0 0 17 3 69
( (
@ -2470,8 +2468,7 @@
0 0 17 3 13 #";;; SEQUENCES" 0 0 17 3 13 #";;; SEQUENCES"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 2 #"; " 0 0 17 3 15 #"; (in-matrix M)"
0 0 17 3 13 #"(in-matrix M)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 50 #"; Returns a sequence that of all elements of M." 0 0 17 3 50 #"; Returns a sequence that of all elements of M."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -2641,8 +2638,7 @@
0 0 19 3 1 #"," 0 0 19 3 1 #","
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"got" 0 0 19 3 3 #"got"
0 0 19 3 3 #" ~a" 0 0 19 3 4 #" ~a\""
0 0 19 3 1 #"\""
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 14 3 1 #"M" 0 0 14 3 1 #"M"
0 0 22 3 2 #"))" 0 0 22 3 2 #"))"
@ -2670,8 +2666,7 @@
0 0 19 3 1 #"," 0 0 19 3 1 #","
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"got" 0 0 19 3 3 #"got"
0 0 19 3 3 #" ~a" 0 0 19 3 4 #" ~a\""
0 0 19 3 1 #"\""
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 14 3 1 #"r" 0 0 14 3 1 #"r"
0 0 22 3 3 #")))" 0 0 22 3 3 #")))"
@ -2804,8 +2799,7 @@
0 0 19 3 1 #"," 0 0 19 3 1 #","
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"got" 0 0 19 3 3 #"got"
0 0 19 3 3 #" ~a" 0 0 19 3 4 #" ~a\""
0 0 19 3 1 #"\""
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 14 3 1 #"M" 0 0 14 3 1 #"M"
0 0 22 3 2 #"))" 0 0 22 3 2 #"))"
@ -2833,8 +2827,7 @@
0 0 19 3 1 #"," 0 0 19 3 1 #","
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"got" 0 0 19 3 3 #"got"
0 0 19 3 3 #" ~a" 0 0 19 3 4 #" ~a\""
0 0 19 3 1 #"\""
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 14 3 1 #"r" 0 0 14 3 1 #"r"
0 0 22 3 3 #")))" 0 0 22 3 3 #")))"
@ -3043,8 +3036,7 @@
0 0 19 3 1 #"," 0 0 19 3 1 #","
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"got" 0 0 19 3 3 #"got"
0 0 19 3 3 #" ~a" 0 0 19 3 4 #" ~a\""
0 0 19 3 1 #"\""
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 14 3 1 #"M" 0 0 14 3 1 #"M"
0 0 22 3 2 #"))" 0 0 22 3 2 #"))"
@ -3072,8 +3064,7 @@
0 0 19 3 1 #"," 0 0 19 3 1 #","
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"got" 0 0 19 3 3 #"got"
0 0 19 3 3 #" ~a" 0 0 19 3 4 #" ~a\""
0 0 19 3 1 #"\""
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 14 3 1 #"s" 0 0 14 3 1 #"s"
0 0 22 3 3 #")))" 0 0 22 3 3 #")))"
@ -3210,8 +3201,7 @@
0 0 19 3 1 #"," 0 0 19 3 1 #","
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"got" 0 0 19 3 3 #"got"
0 0 19 3 3 #" ~a" 0 0 19 3 4 #" ~a\""
0 0 19 3 1 #"\""
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 14 3 1 #"M" 0 0 14 3 1 #"M"
0 0 22 3 2 #"))" 0 0 22 3 2 #"))"
@ -3239,8 +3229,7 @@
0 0 19 3 1 #"," 0 0 19 3 1 #","
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"got" 0 0 19 3 3 #"got"
0 0 19 3 3 #" ~a" 0 0 19 3 4 #" ~a\""
0 0 19 3 1 #"\""
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 14 3 1 #"s" 0 0 14 3 1 #"s"
0 0 22 3 3 #")))" 0 0 22 3 3 #")))"
@ -3363,8 +3352,7 @@
0 0 17 3 1 #"M" 0 0 17 3 1 #"M"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"i" 0 0 17 3 1 #"i"
0 0 17 3 2 #" j" 0 0 17 3 7 #" j m n)"
0 0 17 3 5 #" m n)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 62 0 0 17 3 62
#"; Return the submatrix of M with upper left corner in (i,j)" #"; Return the submatrix of M with upper left corner in (i,j)"
@ -3598,8 +3586,7 @@
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 4 #"ones" 0 0 17 3 4 #"ones"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 2 #"on" 0 0 17 3 36 #"on the diagonal and zeros elsewhere."
0 0 17 3 34 #" the diagonal and zeros elsewhere."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 1 #"(" 0 0 22 3 1 #"("
0 0 15 3 6 #"define" 0 0 15 3 6 #"define"
@ -3721,8 +3708,7 @@
0 0 22 3 3 #")])" 0 0 22 3 3 #")])"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 3 #"; (" 0 0 17 3 3 #"; ("
0 0 17 3 14 #"matrix-augment" 0 0 17 3 19 #"matrix-augment M N)"
0 0 17 3 5 #" M N)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 18 #"; Return [M N]." 0 0 17 3 18 #"; Return [M N]."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -4776,8 +4762,7 @@
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 2 #"; " 0 0 17 3 2 #"; "
0 0 17 3 1 #"(" 0 0 17 3 1 #"("
0 0 17 3 10 #"matrix-add" 0 0 17 3 15 #"matrix-add M N)"
0 0 17 3 5 #" M N)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 16 #"; Return M+N." 0 0 17 3 16 #"; Return M+N."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -4900,8 +4885,7 @@
0 0 14 3 7 #"matrix?" 0 0 14 3 7 #"matrix?"
0 0 22 3 3 #")])" 0 0 22 3 3 #")])"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 2 #"; " 0 0 17 3 18 #"; (matrix-sub M N)"
0 0 17 3 16 #"(matrix-sub M N)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 16 #"; Return M-N." 0 0 17 3 16 #"; Return M-N."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -5391,8 +5375,7 @@
0 0 17 3 1 #"(" 0 0 17 3 1 #"("
0 0 17 3 17 #"matrix-swap-rows!" 0 0 17 3 17 #"matrix-swap-rows!"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"M" 0 0 17 3 6 #"M r s)"
0 0 17 3 5 #" r s)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 32 #"; Swap the rows r and s in M." 0 0 17 3 32 #"; Swap the rows r and s in M."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -5552,8 +5535,7 @@
0 0 17 3 1 #"(" 0 0 17 3 1 #"("
0 0 17 3 17 #"matrix-scale-row!" 0 0 17 3 17 #"matrix-scale-row!"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"M" 0 0 17 3 6 #"M r a)"
0 0 17 3 5 #" r a)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 43 #"; Multiply all elements in row r with a." 0 0 17 3 43 #"; Multiply all elements in row r with a."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -5702,8 +5684,7 @@
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"M" 0 0 17 3 1 #"M"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"r" 0 0 17 3 6 #"r a s)"
0 0 17 3 5 #" a s)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 34 #"; row t becomes row_r + a*row_s" 0 0 17 3 34 #"; row t becomes row_r + a*row_s"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -5939,8 +5920,7 @@
0 0 22 3 3 #")])" 0 0 22 3 3 #")])"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 2 #"; " 0 0 17 3 2 #"; "
0 0 17 3 1 #"(" 0 0 17 3 17 #"(row-vector . xs)"
0 0 17 3 16 #"row-vector . xs)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 59 0 0 17 3 59
#"; Return row vector (1xn matrix) with elements from xs." #"; Return row vector (1xn matrix) with elements from xs."
@ -6321,8 +6301,7 @@
0 0 17 3 3 #"; (" 0 0 17 3 3 #"; ("
0 0 17 3 23 #"matrix-gauss-eliminate!" 0 0 17 3 23 #"matrix-gauss-eliminate!"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"M" 0 0 17 3 26 #"M [unitize-pivot-row? #f])"
0 0 17 3 25 #" [unitize-pivot-row? #f])"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 38 #"; Transform M to row echelon form." 0 0 17 3 38 #"; Transform M to row echelon form."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -7185,8 +7164,7 @@
0 0 14 3 7 #"matrix?" 0 0 14 3 7 #"matrix?"
0 0 22 3 3 #")])" 0 0 22 3 3 #")])"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 20 #"; (row-echelon-form " 0 0 17 3 46 #"; (row-echelon-form M [unitize-pivot-row? #f])"
0 0 17 3 26 #"M [unitize-pivot-row? #f])"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 39 #"; Return the row-echelon form of M." 0 0 17 3 39 #"; Return the row-echelon form of M."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -8678,8 +8656,7 @@
0 0 19 3 6 #"matrix" 0 0 19 3 6 #"matrix"
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"not" 0 0 19 3 3 #"not"
0 0 19 3 7 #" square" 0 0 19 3 8 #" square\""
0 0 19 3 1 #"\""
0 0 22 3 2 #"))" 0 0 22 3 2 #"))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 3 #" (" 0 0 22 3 3 #" ("
@ -8792,8 +8769,7 @@
0 0 22 3 2 #"))" 0 0 22 3 2 #"))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 2 #"; " 0 0 17 3 20 #"; (matrix-solve M b)"
0 0 17 3 18 #"(matrix-solve M b)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 47 #"; Return a column-vector x such that Mx = b." 0 0 17 3 47 #"; Return a column-vector x such that Mx = b."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -8870,8 +8846,7 @@
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 4 #"got:" 0 0 19 3 4 #"got:"
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"~a " 0 0 19 3 4 #"~a \""
0 0 19 3 1 #"\""
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 14 3 1 #"b" 0 0 14 3 1 #"b"
0 0 22 3 2 #"))" 0 0 22 3 2 #"))"
@ -8910,8 +8885,7 @@
0 0 19 3 2 #"as" 0 0 19 3 2 #"as"
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"the" 0 0 19 3 3 #"the"
0 0 19 3 7 #" matrix" 0 0 19 3 8 #" matrix\""
0 0 19 3 1 #"\""
0 0 22 3 2 #"))" 0 0 22 3 2 #"))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 3 #" (" 0 0 22 3 3 #" ("
@ -9078,8 +9052,7 @@
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 4 #"got:" 0 0 19 3 4 #"got:"
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"~a " 0 0 19 3 4 #"~a \""
0 0 19 3 1 #"\""
0 0 22 3 2 #" (" 0 0 22 3 2 #" ("
0 0 14 3 5 #"first" 0 0 14 3 5 #"first"
0 0 22 3 1 #" " 0 0 22 3 1 #" "
@ -9120,8 +9093,7 @@
0 0 19 3 2 #"as" 0 0 19 3 2 #"as"
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 3 #"the" 0 0 19 3 3 #"the"
0 0 19 3 7 #" matrix" 0 0 19 3 8 #" matrix\""
0 0 19 3 1 #"\""
0 0 22 3 2 #"))" 0 0 22 3 2 #"))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 3 #" (" 0 0 22 3 3 #" ("
@ -9757,8 +9729,7 @@
0 0 22 3 1 #")" 0 0 22 3 1 #")"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 3 3 #" (" 0 0 22 3 3 #" ("
0 0 15 3 2 #"de" 0 0 15 3 3 #"def"
0 0 15 3 1 #"f"
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 14 3 1 #"v" 0 0 14 3 1 #"v"
0 0 22 3 2 #" (" 0 0 22 3 2 #" ("
@ -10439,8 +10410,7 @@
0 0 19 3 1 #"," 0 0 19 3 1 #","
0 0 19 3 1 #" " 0 0 19 3 1 #" "
0 0 19 3 4 #"got:" 0 0 19 3 4 #"got:"
0 0 19 3 1 #" " 0 0 19 3 4 #" ~a\""
0 0 19 3 3 #"~a\""
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 14 3 2 #"gv" 0 0 14 3 2 #"gv"
0 0 22 3 4 #")]))" 0 0 22 3 4 #")]))"
@ -10949,8 +10919,7 @@
0 0 14 3 7 #"number?" 0 0 14 3 7 #"number?"
0 0 22 3 3 #")])" 0 0 22 3 3 #")])"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 2 #"; " 0 0 17 3 17 #"; (vector-norm v)"
0 0 17 3 15 #"(vector-norm v)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 46 #"; Return the norm of the genereal vector v." 0 0 17 3 46 #"; Return the norm of the genereal vector v."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -11030,8 +10999,7 @@
0 0 22 3 3 #")])" 0 0 22 3 3 #")])"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 3 #"; (" 0 0 17 3 3 #"; ("
0 0 17 3 12 #"vector-angle" 0 0 17 3 17 #"vector-angle v w)"
0 0 17 3 5 #" v w)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 47 #"; Return the unsigned angle between v and w." 0 0 17 3 47 #"; Return the unsigned angle between v and w."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -11158,8 +11126,7 @@
0 0 14 3 16 #"general-vector/c" 0 0 14 3 16 #"general-vector/c"
0 0 22 3 3 #")])" 0 0 22 3 3 #")])"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 15 #"; (vector-scale" 0 0 17 3 20 #"; (vector-scale s v)"
0 0 17 3 5 #" s v)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 38 #"; Multiply s on all elements of v." 0 0 17 3 38 #"; Multiply s on all elements of v."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -11609,8 +11576,7 @@
0 0 22 3 3 #")])" 0 0 22 3 3 #")])"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 3 #"; (" 0 0 17 3 3 #"; ("
0 0 17 3 30 #"projection-on-orthogonal-basis" 0 0 17 3 36 #"projection-on-orthogonal-basis v bs)"
0 0 17 3 6 #" v bs)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 64 0 0 17 3 64
#"; Project the basis v on the orthogonal basis vectors in bs." #"; Project the basis v on the orthogonal basis vectors in bs."
@ -11835,8 +11801,7 @@
0 0 14 3 15 #"column-vector/c" 0 0 14 3 15 #"column-vector/c"
0 0 22 3 3 #")])" 0 0 22 3 3 #")])"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 3 #"; (" 0 0 17 3 40 #"; (projection-on-orthonormal-basis v bs)"
0 0 17 3 37 #"projection-on-orthonormal-basis v bs)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 65 0 0 17 3 65
#"; Project the basis v on the orthonormal basis vectors in bs." #"; Project the basis v on the orthonormal basis vectors in bs."
@ -12150,8 +12115,7 @@
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 8 #"; an" 0 0 17 3 8 #"; an"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 10 #"orthogonal" 0 0 17 3 36 #"orthogonal basis for the span of the"
0 0 17 3 26 #" basis for the span of the"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 20 #"; vectors in ws." 0 0 17 3 20 #"; vectors in ws."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -12420,8 +12384,7 @@
0 0 22 3 3 #")])" 0 0 22 3 3 #")])"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 3 #"; (" 0 0 17 3 3 #"; ("
0 0 17 3 22 #"projection-on-subspace" 0 0 17 3 28 #"projection-on-subspace v ws)"
0 0 17 3 6 #" v ws)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 57 #"; Returns the projection of v on span{w_i}, w_i in ws." 0 0 17 3 57 #"; Returns the projection of v on span{w_i}, w_i in ws."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -14370,8 +14333,7 @@
0 0 22 3 16 #" (" 0 0 22 3 16 #" ("
0 0 14 3 6 #"format" 0 0 14 3 6 #"format"
0 0 22 3 1 #" " 0 0 22 3 1 #" "
0 0 19 3 3 #"\"~a" 0 0 19 3 4 #"\"~a\""
0 0 19 3 1 #"\""
0 0 22 3 2 #" (" 0 0 22 3 2 #" ("
0 0 14 3 1 #"f" 0 0 14 3 1 #"f"
0 0 22 3 1 #" " 0 0 22 3 1 #" "
@ -14462,8 +14424,7 @@
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 3 #"; (" 0 0 17 3 3 #"; ("
0 0 17 3 6 #"define" 0 0 17 3 43 #"define b (column-vector 6.5 8.5 11.0 12.5))"
0 0 17 3 37 #" b (column-vector 6.5 8.5 11.0 12.5))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 3 #"; (" 0 0 17 3 3 #"; ("
0 0 17 3 6 #"define" 0 0 17 3 6 #"define"
@ -14478,8 +14439,7 @@
0 0 17 3 1 #"1" 0 0 17 3 1 #"1"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"1" 0 0 17 3 1 #"1"
0 0 17 3 1 #" " 0 0 17 3 29 #" 1) (column-vector 2 4 5 6)))"
0 0 17 3 28 #"1) (column-vector 2 4 5 6)))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 30 #"; (projection-on-subspace b A)" 0 0 17 3 30 #"; (projection-on-subspace b A)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -14618,11 +14578,9 @@
#"; At that moment, the non-existance of a solution is known." #"; At that moment, the non-existance of a solution is known."
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 1 #";" 0 0 17 3 1 #";"
0 0 17 3 1 #">" 0 0 17 3 40 #"> (vector-in-span? (column-vector 7 6 1)"
0 0 17 3 39 #" (vector-in-span? (column-vector 7 6 1)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 1 #";" 0 0 17 3 47 #"; (list (column-vector 1 2 3)"
0 0 17 3 46 #" (list (column-vector 1 2 3)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 49 #"; (column-vector -2 -5 2)" 0 0 17 3 49 #"; (column-vector -2 -5 2)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -14656,22 +14614,19 @@
0 0 17 3 2 #" (" 0 0 17 3 2 #" ("
0 0 17 3 13 #"column-vector" 0 0 17 3 13 #"column-vector"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"1" 0 0 17 3 6 #"1 2 3)"
0 0 17 3 5 #" 2 3)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 1 #";" 0 0 17 3 1 #";"
0 0 17 3 38 #" (" 0 0 17 3 38 #" ("
0 0 17 3 13 #"column-vector" 0 0 17 3 13 #"column-vector"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 2 #"-2" 0 0 17 3 8 #"-2 -5 2)"
0 0 17 3 6 #" -5 2)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 1 #";" 0 0 17 3 1 #";"
0 0 17 3 38 #" (" 0 0 17 3 38 #" ("
0 0 17 3 13 #"column-vector" 0 0 17 3 13 #"column-vector"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"1" 0 0 17 3 9 #"1 2 -2)))"
0 0 17 3 8 #" 2 -2)))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 1 #";" 0 0 17 3 1 #";"
0 0 17 3 15 #" (" 0 0 17 3 15 #" ("
@ -14700,14 +14655,12 @@
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"'" 0 0 17 3 1 #"'"
0 0 17 3 2 #"#(" 0 0 17 3 2 #"#("
0 0 17 3 1 #"7" 0 0 17 3 7 #"7 6 1))"
0 0 17 3 6 #" 6 1))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 1 #";" 0 0 17 3 1 #";"
0 0 17 3 1 #"(" 0 0 17 3 1 #"("
0 0 17 3 6 #"define" 0 0 17 3 21 #"define (is-basis? vs)"
0 0 17 3 15 #" (is-basis? vs)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 6 #"; (" 0 0 17 3 6 #"; ("
0 0 17 3 5 #"check" 0 0 17 3 5 #"check"
@ -14719,14 +14672,12 @@
0 0 17 3 3 #"are" 0 0 17 3 3 #"are"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"a" 0 0 17 3 1 #"a"
0 0 17 3 1 #" " 0 0 17 3 19 #" basis)) p. 122-123"
0 0 17 3 18 #"basis)) p. 122-123"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 1 #";" 0 0 17 3 1 #";"
0 0 17 3 1 #"(" 0 0 17 3 1 #"("
0 0 17 3 6 #"define" 0 0 17 3 32 #"define (reduce-span-to-basis vs)"
0 0 17 3 26 #" (reduce-span-to-basis vs)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 18 #"; ...) ; p. 138" 0 0 17 3 18 #"; ...) ; p. 138"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
@ -14747,8 +14698,7 @@
0 0 17 3 6 #"define" 0 0 17 3 6 #"define"
0 0 17 3 2 #" (" 0 0 17 3 2 #" ("
0 0 17 3 20 #"expand-span-to-basis" 0 0 17 3 20 #"expand-span-to-basis"
0 0 17 3 1 #" " 0 0 17 3 18 #" vs) ...) ; p. 145"
0 0 17 3 17 #"vs) ...) ; p. 145"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 2 #";(" 0 0 17 3 2 #";("
0 0 17 3 6 #"define" 0 0 17 3 6 #"define"
@ -14756,8 +14706,7 @@
0 0 17 3 29 #"coordinated-relative-to-basis" 0 0 17 3 29 #"coordinated-relative-to-basis"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"v" 0 0 17 3 1 #"v"
0 0 17 3 1 #" " 0 0 17 3 18 #" bs) ...) ; p. 153"
0 0 17 3 17 #"bs) ...) ; p. 153"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 2 #";(" 0 0 17 3 2 #";("
0 0 17 3 6 #"define" 0 0 17 3 6 #"define"
@ -14765,15 +14714,13 @@
0 0 17 3 22 #"change-of-basis-matrix" 0 0 17 3 22 #"change-of-basis-matrix"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 2 #"bs" 0 0 17 3 2 #"bs"
0 0 17 3 1 #" " 0 0 17 3 18 #" cs) ...) ; p. 157"
0 0 17 3 17 #"cs) ...) ; p. 157"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 2 #";(" 0 0 17 3 2 #";("
0 0 17 3 6 #"define" 0 0 17 3 6 #"define"
0 0 17 3 2 #" (" 0 0 17 3 2 #" ("
0 0 17 3 11 #"determinant" 0 0 17 3 11 #"determinant"
0 0 17 3 1 #" " 0 0 17 3 14 #" M) ...) ; p ?"
0 0 17 3 13 #"M) ...) ; p ?"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 13 #";;; Run tests" 0 0 17 3 13 #";;; Run tests"
@ -14782,8 +14729,7 @@
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 2 #";(" 0 0 17 3 2 #";("
0 0 17 3 7 #"require" 0 0 17 3 7 #"require"
0 0 17 3 2 #" (" 0 0 17 3 19 #" (submod \".\" test))"
0 0 17 3 17 #"submod \".\" test))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 91 0 0 17 3 91
@ -14983,13 +14929,11 @@
0 0 17 3 5 #"-100." 0 0 17 3 5 #"-100."
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 4 #"200." 0 0 17 3 4 #"200."
0 0 17 3 1 #" " 0 0 17 3 7 #" 100.))"
0 0 17 3 6 #"100.))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 3 #"; (" 0 0 17 3 3 #"; ("
0 0 17 3 16 #"row-echelon-form" 0 0 17 3 16 #"row-echelon-form"
0 0 17 3 1 #" " 0 0 17 3 3 #" M)"
0 0 17 3 2 #"M)"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 32 #"; Example from Trefethen and Bau" 0 0 17 3 32 #"; Example from Trefethen and Bau"
@ -15004,15 +14948,13 @@
0 0 17 3 5 #"-128." 0 0 17 3 5 #"-128."
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 4 #"128." 0 0 17 3 4 #"128."
0 0 17 3 1 #" " 0 0 17 3 6 #" 4.0))"
0 0 17 3 5 #"4.0))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 2 #";(" 0 0 17 3 2 #";("
0 0 17 3 6 #"define" 0 0 17 3 6 #"define"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"A" 0 0 17 3 1 #"A"
0 0 17 3 2 #" (" 0 0 17 3 18 #" (matrix-augment* "
0 0 17 3 16 #"matrix-augment* "
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 13 #"; (" 0 0 17 3 13 #"; ("
0 0 17 3 4 #"list" 0 0 17 3 4 #"list"
@ -15028,8 +14970,7 @@
0 0 17 3 1 #"x" 0 0 17 3 1 #"x"
0 0 17 3 2 #") " 0 0 17 3 2 #") "
0 0 17 3 1 #"0" 0 0 17 3 1 #"0"
0 0 17 3 2 #") " 0 0 17 3 6 #") xs))"
0 0 17 3 4 #"xs))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 19 #"; (" 0 0 17 3 19 #"; ("
0 0 17 3 5 #"apply" 0 0 17 3 5 #"apply"
@ -15043,8 +14984,7 @@
0 0 17 3 1 #"x" 0 0 17 3 1 #"x"
0 0 17 3 2 #") " 0 0 17 3 2 #") "
0 0 17 3 1 #"x" 0 0 17 3 1 #"x"
0 0 17 3 2 #") " 0 0 17 3 6 #") xs))"
0 0 17 3 4 #"xs))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 19 #"; (" 0 0 17 3 19 #"; ("
0 0 17 3 5 #"apply" 0 0 17 3 5 #"apply"
@ -15062,8 +15002,7 @@
0 0 17 3 1 #"x" 0 0 17 3 1 #"x"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"x" 0 0 17 3 1 #"x"
0 0 17 3 3 #")) " 0 0 17 3 7 #")) xs))"
0 0 17 3 4 #"xs))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 19 #"; (" 0 0 17 3 19 #"; ("
0 0 17 3 5 #"apply" 0 0 17 3 5 #"apply"
@ -15083,8 +15022,7 @@
0 0 17 3 1 #"x" 0 0 17 3 1 #"x"
0 0 17 3 1 #" " 0 0 17 3 1 #" "
0 0 17 3 1 #"x" 0 0 17 3 1 #"x"
0 0 17 3 3 #")) " 0 0 17 3 10 #")) xs)))))"
0 0 17 3 7 #"xs)))))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 17 3 3 #"; (" 0 0 17 3 3 #"; ("
0 0 17 3 13 #"define-values" 0 0 17 3 13 #"define-values"
@ -15094,8 +15032,7 @@
0 0 17 3 1 #"R" 0 0 17 3 1 #"R"
0 0 17 3 3 #") (" 0 0 17 3 3 #") ("
0 0 17 3 9 #"matrix-QR" 0 0 17 3 9 #"matrix-QR"
0 0 17 3 1 #" " 0 0 17 3 4 #" A))"
0 0 17 3 3 #"A))"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 22 29 1 #"\n" 0 0 22 29 1 #"\n"
0 0 0 0

4
maxima/maxima.rkt
View File

@ -1,4 +1,8 @@
#lang racket #lang racket
;;; This is not in use at the moment.
;;; However it would be possible to implement Maxima-boxes
;;; in the GUI and use Maxima as a backend with this.
(require racket/tcp racket/gui/base) (require racket/tcp racket/gui/base)
;;; ;;;

65
numeric/solve-quadratic.rkt
View File

@ -1,5 +1,4 @@
#lang racket #lang racket
(require (planet williams/science/unsafe-ops-utils) (require (planet williams/science/unsafe-ops-utils)
racket/flonum) racket/flonum)
@ -39,10 +38,15 @@
;;; TEST ;;; TEST
;;; ;;;
(require (planet williams/science/random-source) #;(module test racket
(planet williams/science/math)) (require (planet williams/science/random-source)
(planet williams/science/math)
(planet williams/science/unsafe-ops-utils)
racket/flonum)
(define-syntax-rule (fl~ x)
(fl- 0.0 x))
(define (test) (define (test)
(define eps 1e-9) (define eps 1e-9)
(define (random-real-between from to) (define (random-real-between from to)
(real->float (+ from (* (- to from) (random-real))))) (real->float (+ from (* (- to from) (random-real)))))
@ -61,33 +65,36 @@
(solve-quadratic a b c) (solve-quadratic a b c)
(list r1 r2)))))) (list r1 r2))))))
; a r1 r2 ((0.8002497503654915 -0.5820734661704101 4.291708989226137) ; a r1 r2 ((0.8002497503654915 -0.5820734661704101 4.291708989226137)
; a b c (0.8002497503654915 -2.968634901272305 -1.999095840595189)) ; a b c (0.8002497503654915 -2.968634901272305 -1.999095840595189))
;(test) ;(test)
; (solve-quadratic 0.8002497503654915 -2.968634901272305 -1.999095840595189) ; (solve-quadratic 0.8002497503654915 -2.968634901272305 -1.999095840595189)
; (fcmp -0.5820734661704101 -0.5820734661704101 1e-15) ; (fcmp -0.5820734661704101 -0.5820734661704101 1e-15)
;;; cases to investigate ;;; cases to investigate
;((a r1 r2) = (3.8566316203631885 -8.106416563069132 -8.032453290827172))
;((a b c) = (3.8566316203631885 62.24167579546271 251.12230179873728))
;((solve-quadratic a b c) = (-8.106416563068963 -8.03245329082734))
;((fcmp -8.106416563068963 -8.106416563069132 1e-14) = 1)
;
;((a r1 r2) = (-1.6265548994586378 -9.696396453504093 -9.60199798858156))
;((a b c) = (-1.6265548994586378 -31.38989803145976 -151.44003484077456))
;((solve-quadratic a b c) = (-9.696396453503917 -9.601997988581735))
;((fcmp -9.696396453503917 -9.696396453504093 1e-14) = 1)
;
;((a r1 r2) = (8.297284009362357 5.2152202289471905 5.247945289959347))
;((a b c) = (8.297284009362357 -86.81585594733481 227.08994615882847))
;((solve-quadratic a b c) = (5.215220228947072 5.247945289959466))
;((fcmp 5.215220228947072 5.2152202289471905 1e-14) = -1)
;
;((a r1 r2) = (8.441076002955395 -4.497852045007335 -4.494381895016747))
;((a b c) = (8.441076002955395 75.90413012409832 170.6368983607456))
;((solve-quadratic a b c) = (-4.497852045006565 -4.494381895017516))
;((fcmp -4.497852045006565 -4.497852045007335 1e-14) = 1)
)
;((a r1 r2) = (3.8566316203631885 -8.106416563069132 -8.032453290827172))
;((a b c) = (3.8566316203631885 62.24167579546271 251.12230179873728))
;((solve-quadratic a b c) = (-8.106416563068963 -8.03245329082734))
;((fcmp -8.106416563068963 -8.106416563069132 1e-14) = 1)
;
;((a r1 r2) = (-1.6265548994586378 -9.696396453504093 -9.60199798858156))
;((a b c) = (-1.6265548994586378 -31.38989803145976 -151.44003484077456))
;((solve-quadratic a b c) = (-9.696396453503917 -9.601997988581735))
;((fcmp -9.696396453503917 -9.696396453504093 1e-14) = 1)
;
;((a r1 r2) = (8.297284009362357 5.2152202289471905 5.247945289959347))
;((a b c) = (8.297284009362357 -86.81585594733481 227.08994615882847))
;((solve-quadratic a b c) = (5.215220228947072 5.247945289959466))
;((fcmp 5.215220228947072 5.2152202289471905 1e-14) = -1)
;
;((a r1 r2) = (8.441076002955395 -4.497852045007335 -4.494381895016747))
;((a b c) = (8.441076002955395 75.90413012409832 170.6368983607456))
;((solve-quadratic a b c) = (-4.497852045006565 -4.494381895017516))
;((fcmp -4.497852045006565 -4.497852045007335 1e-14) = 1)

5
plotting/adaptive-plotting.rkt
View File

@ -17,8 +17,11 @@
;;; an explanation of the algorithm: ;;; an explanation of the algorithm:
;;; http://yacas.sourceforge.net/Algochapter4.html#c4s1 ;;; http://yacas.sourceforge.net/Algochapter4.html#c4s1
(define *debug* #t) ;;; See
;;; http://scicomp.stackexchange.com/questions/2377/algorithms-for-adaptive-function-plotting
;;; for discussion on adaptive plotting.
(define *debug* #t)
; These count functions are used to measure the ; These count functions are used to measure the
; number of evaluations of the function to be drawn. ; number of evaluations of the function to be drawn.