PasteRack.org
Paste #
429
2020-01-23 06:22:29
Fork
as a new paste.
Paste viewed 449 times.
Tweet
Embed:
<link type="text/css" rel="stylesheet" href="http://pasterack.org/scribble.css"/><link type="text/css" rel="stylesheet" href="http://pasterack.org/racket.css"/><link type="text/css" rel="stylesheet" href="http://fonts.googleapis.com/css?family=Droid+Sans+Mono"/><div style="font-family:'Droid Sans Mono',monospace;background-color:transparent"><ol start="0" style="font-size:70%;color:#A0A0A0"><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><a class="RktModLink" data-pltdoc="x" href="http://docs.racket-lang.org/guide/Module_Syntax.html#%28part._hash-lang%29"><span class="RktMod">#lang</span></a><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><a class="RktModLink" data-pltdoc="x" href="http://docs.racket-lang.org/reference/index.html"><span class="RktSym">racket</span></a><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktStxLink" data-pltdoc="x" href="http://docs.racket-lang.org/reference/require.html#%28form._%28%28lib._racket%2Fprivate%2Fbase..rkt%29._require%29%29">require</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/plot/plotting.html#%28def._%28%28lib._plot%2Fmain..rkt%29._plot%29%29">plot</a></span><span class="RktPn">)</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/plot/params.html#%28def._%28%28lib._plot%2Fmain..rkt%29._plot-new-window~3f%29%29">plot-new-window?</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">#t</span><span class="RktPn">)</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"> </span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;;;</span><span class="hspace"> </span><span class="RktCmt">3D</span><span class="hspace"> </span><span class="RktCmt">Functions</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;;;(plot3d</span><span class="hspace"> </span><span class="RktCmt">(surface3d</span><span class="hspace"> </span><span class="RktCmt">(λ</span><span class="hspace"> </span><span class="RktCmt">(x</span><span class="hspace"> </span><span class="RktCmt">y)</span><span class="hspace"> </span><span class="RktCmt">(*</span><span class="hspace"> </span><span class="RktCmt">(cos</span><span class="hspace"> </span><span class="RktCmt">x)</span><span class="hspace"> </span><span class="RktCmt">(sin</span><span class="hspace"> </span><span class="RktCmt">y)))</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;;;</span><span class="hspace"> </span><span class="RktCmt">(-</span><span class="hspace"> </span><span class="RktCmt">pi)</span><span class="hspace"> </span><span class="RktCmt">pi</span><span class="hspace"> </span><span class="RktCmt">(-</span><span class="hspace"> </span><span class="RktCmt">pi)</span><span class="hspace"> </span><span class="RktCmt">pi)</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;;;</span><span class="hspace"> </span><span class="RktCmt">#:title</span><span class="hspace"> </span><span class="RktCmt">"An</span><span class="hspace"> </span><span class="RktCmt">R</span><span class="hspace"> </span><span class="RktCmt">×</span><span class="hspace"> </span><span class="RktCmt">R</span><span class="hspace"> </span><span class="RktCmt">→</span><span class="hspace"> </span><span class="RktCmt">R</span><span class="hspace"> </span><span class="RktCmt">function"</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;;;</span><span class="hspace"> </span><span class="RktCmt">#:x-label</span><span class="hspace"> </span><span class="RktCmt">"x"</span><span class="hspace"> </span><span class="RktCmt">#:y-label</span><span class="hspace"> </span><span class="RktCmt">"y"</span><span class="hspace"> </span><span class="RktCmt">#:z-label</span><span class="hspace"> </span><span class="RktCmt">"cos(x)</span><span class="hspace"> </span><span class="RktCmt">sin(y)")</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;::(parameterize</span><span class="hspace"> </span><span class="RktCmt">([plot-title</span><span class="hspace"> </span><span class="RktCmt">"An</span><span class="hspace"> </span><span class="RktCmt">R</span><span class="hspace"> </span><span class="RktCmt">×</span><span class="hspace"> </span><span class="RktCmt">R</span><span class="hspace"> </span><span class="RktCmt">→</span><span class="hspace"> </span><span class="RktCmt">R</span><span class="hspace"> </span><span class="RktCmt">function"]</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;;;</span><span class="hspace"> </span><span class="RktCmt">[plot-x-label</span><span class="hspace"> </span><span class="RktCmt">"x"]</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;;;</span><span class="hspace"> </span><span class="RktCmt">[plot-y-label</span><span class="hspace"> </span><span class="RktCmt">"y"]</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;;;</span><span class="hspace"> </span><span class="RktCmt">[plot-z-label</span><span class="hspace"> </span><span class="RktCmt">"cos(x)</span><span class="hspace"> </span><span class="RktCmt">sin(y)"])</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;;;</span><span class="hspace"> </span><span class="RktCmt">(plot3d</span><span class="hspace"> </span><span class="RktCmt">(contour-intervals3d</span><span class="hspace"> </span><span class="RktCmt">(λ</span><span class="hspace"> </span><span class="RktCmt">(x</span><span class="hspace"> </span><span class="RktCmt">y)</span><span class="hspace"> </span><span class="RktCmt">(*</span><span class="hspace"> </span><span class="RktCmt">(cos</span><span class="hspace"> </span><span class="RktCmt">x)</span><span class="hspace"> </span><span class="RktCmt">(sin</span><span class="hspace"> </span><span class="RktCmt">y)))</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;;;</span><span class="hspace"> </span><span class="RktCmt">(-</span><span class="hspace"> </span><span class="RktCmt">pi)</span><span class="hspace"> </span><span class="RktCmt">pi</span><span class="hspace"> </span><span class="RktCmt">(-</span><span class="hspace"> </span><span class="RktCmt">pi)</span><span class="hspace"> </span><span class="RktCmt">pi)))</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"> </span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"> </span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;;;</span><span class="hspace"> </span><span class="RktCmt">Simple</span><span class="hspace"> </span><span class="RktCmt">Function</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;(plot</span><span class="hspace"> </span><span class="RktCmt">(function</span><span class="hspace"> </span><span class="RktCmt">sin</span><span class="hspace"> </span><span class="RktCmt">(-</span><span class="hspace"> </span><span class="RktCmt">pi)</span><span class="hspace"> </span><span class="RktCmt">pi</span><span class="hspace"> </span><span class="RktCmt">#:label</span><span class="hspace"> </span><span class="RktCmt">"y</span><span class="hspace"> </span><span class="RktCmt">=</span><span class="hspace"> </span><span class="RktCmt">sin(x)"))</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"> </span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;;;</span><span class="hspace"> </span><span class="RktCmt">Functions</span><span class="hspace"> </span><span class="RktCmt">with</span><span class="hspace"> </span><span class="RktCmt">color,</span><span class="hspace"> </span><span class="RktCmt">style</span><span class="hspace"> </span><span class="RktCmt">and</span><span class="hspace"> </span><span class="RktCmt">returned</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;(plot</span><span class="hspace"> </span><span class="RktCmt">(list</span><span class="hspace"> </span><span class="RktCmt">(axes)</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;</span><span class="hspace"> </span><span class="RktCmt">(function</span><span class="hspace"> </span><span class="RktCmt">sqr</span><span class="hspace"> </span><span class="RktCmt">-2</span><span class="hspace"> </span><span class="RktCmt">2)</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;</span><span class="hspace"> </span><span class="RktCmt">(function</span><span class="hspace"> </span><span class="RktCmt">(λ</span><span class="hspace"> </span><span class="RktCmt">(x)</span><span class="hspace"> </span><span class="RktCmt">x)</span><span class="hspace"> </span><span class="RktCmt">#:color</span><span class="hspace"> </span><span class="RktCmt">0</span><span class="hspace"> </span><span class="RktCmt">#:style</span><span class="hspace"> </span><span class="RktCmt">'dot)</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;</span><span class="hspace"> </span><span class="RktCmt">(inverse</span><span class="hspace"> </span><span class="RktCmt">sqr</span><span class="hspace"> </span><span class="RktCmt">-2</span><span class="hspace"> </span><span class="RktCmt">2</span><span class="hspace"> </span><span class="RktCmt">#:color</span><span class="hspace"> </span><span class="RktCmt">3)))</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"> </span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"> </span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;(plot</span><span class="hspace"> </span><span class="RktCmt">(lines</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;</span><span class="hspace"> </span><span class="RktCmt">(reverse</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;</span><span class="hspace"> </span><span class="RktCmt">(for/fold</span><span class="hspace"> </span><span class="RktCmt">([lst</span><span class="hspace"> </span><span class="RktCmt">(list</span><span class="hspace"> </span><span class="RktCmt">(vector</span><span class="hspace"> </span><span class="RktCmt">0</span><span class="hspace"> </span><span class="RktCmt">0))])</span><span class="hspace"> </span><span class="RktCmt">([i</span><span class="hspace"> </span><span class="RktCmt">(in-range</span><span class="hspace"> </span><span class="RktCmt">1</span><span class="hspace"> </span><span class="RktCmt">15)])</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;</span><span class="hspace"> </span><span class="RktCmt">(match-define</span><span class="hspace"> </span><span class="RktCmt">(vector</span><span class="hspace"> </span><span class="RktCmt">x</span><span class="hspace"> </span><span class="RktCmt">y)</span><span class="hspace"> </span><span class="RktCmt">(first</span><span class="hspace"> </span><span class="RktCmt">lst))</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;</span><span class="hspace"> </span><span class="RktCmt">(cons</span><span class="hspace"> </span><span class="RktCmt">(vector</span><span class="hspace"> </span><span class="RktCmt">i</span><span class="hspace"> </span><span class="RktCmt">(+</span><span class="hspace"> </span><span class="RktCmt">y</span><span class="hspace"> </span><span class="RktCmt">(*</span><span class="hspace"> </span><span class="RktCmt">1/100</span><span class="hspace"> </span><span class="RktCmt">(-</span><span class="hspace"> </span><span class="RktCmt">(random)</span><span class="hspace"> </span><span class="RktCmt">1/2))))</span><span class="hspace"> </span><span class="RktCmt">lst)))</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;</span><span class="hspace"> </span><span class="RktCmt">#:color</span><span class="hspace"> </span><span class="RktCmt">6</span><span class="hspace"> </span><span class="RktCmt">#:label</span><span class="hspace"> </span><span class="RktCmt">"Random</span><span class="hspace"> </span><span class="RktCmt">walk"))</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"> </span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;</span><span class="hspace"> </span><span class="RktCmt">Random</span><span class="hspace"> </span><span class="RktCmt">Points</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktStxLink" data-pltdoc="x" href="http://docs.racket-lang.org/reference/define.html#%28form._%28%28lib._racket%2Fprivate%2Fbase..rkt%29._define%29%29">define</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/plot/renderer2d.html#%28def._%28%28lib._plot%2Fmain..rkt%29._points%29%29">points</a></span><span class="RktSym"><a class="RktStxLink" data-pltdoc="x" href="http://docs.racket-lang.org/reference/quote.html#%28form._%28%28quote._~23~25kernel%29._quote%29%29">'</a></span><span class="RktPn">(</span><span class="RktPn">#(</span><span class="RktVal">0</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">7</span><span class="RktPn">)</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">#(</span><span class="RktVal">1</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">2</span><span class="RktPn">)</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">#(</span><span class="RktVal">2</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">5</span><span class="RktPn">)</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">#(</span><span class="RktVal">3</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">12</span><span class="RktPn">)</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">#(</span><span class="RktVal">4</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">1</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"> </span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;</span><span class="hspace"> </span><span class="RktCmt">Draw</span><span class="hspace"> </span><span class="RktCmt">Random</span><span class="hspace"> </span><span class="RktCmt">Points</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/plot/plotting.html#%28def._%28%28lib._plot%2Fmain..rkt%29._plot%29%29">plot</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/plot/renderer2d.html#%28def._%28%28lib._plot%2Fmain..rkt%29._lines%29%29">lines</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/plot/renderer2d.html#%28def._%28%28lib._plot%2Fmain..rkt%29._points%29%29">points</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">#:x-max</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">4</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">#:x-min</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">0</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">#:y-min</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">0</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">#:y-max</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">13</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">#:label</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">"Function</span><span class="hspace"> </span><span class="RktVal">1"</span><span class="RktPn">)</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">#:title</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">"Test</span><span class="hspace"> </span><span class="RktVal">Graphe"</span><span class="RktPn">)</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"> </span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;</span><span class="hspace"> </span><span class="RktCmt">Draw</span><span class="hspace"> </span><span class="RktCmt">Two</span><span class="hspace"> </span><span class="RktCmt">Graph</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktCmt">;</span><span class="hspace"> </span><span class="RktCmt">(plot</span><span class="hspace"> </span><span class="RktCmt">(list</span><span class="hspace"> </span><span class="RktCmt">(axes)</span><span class="hspace"> </span><span class="RktCmt">(function</span><span class="hspace"> </span><span class="RktCmt">sqr)</span><span class="hspace"> </span><span class="RktCmt">(lines</span><span class="hspace"> </span><span class="RktCmt">points)))</span><span class="hspace"> </span><span class="RktCmt">works</span><span class="hspace"> </span><span class="RktCmt">too</span><span class="hspace"> </span><span class="RktCmt">but</span><span class="hspace"> </span><span class="RktCmt">apparently</span><span class="hspace"> </span><span class="RktCmt">(axes)</span><span class="hspace"> </span><span class="RktCmt">is</span><span class="hspace"> </span><span class="RktCmt">not</span><span class="hspace"> </span><span class="RktCmt">necessary</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/plot/plotting.html#%28def._%28%28lib._plot%2Fmain..rkt%29._plot%29%29">plot</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/reference/pairs.html#%28def._%28%28quote._~23~25kernel%29._list%29%29">list</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/plot/renderer2d.html#%28def._%28%28lib._plot%2Fmain..rkt%29._function%29%29">function</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/reference/generic-numbers.html#%28def._%28%28lib._racket%2Fmath..rkt%29._sqr%29%29">sqr</a></span><span class="RktPn">)</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/plot/renderer2d.html#%28def._%28%28lib._plot%2Fmain..rkt%29._lines%29%29">lines</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/plot/renderer2d.html#%28def._%28%28lib._plot%2Fmain..rkt%29._points%29%29">points</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktMeta"></span></span></li></ol><p>=></p><div><pre></pre></div></div>
#lang
racket
(
require
plot
)
(
plot-new-window?
#t
)
;;;
3D
Functions
;;;(plot3d
(surface3d
(λ
(x
y)
(*
(cos
x)
(sin
y)))
;;;
(-
pi)
pi
(-
pi)
pi)
;;;
#:title
"An
R
×
R
→
R
function"
;;;
#:x-label
"x"
#:y-label
"y"
#:z-label
"cos(x)
sin(y)")
;::(parameterize
([plot-title
"An
R
×
R
→
R
function"]
;;;
[plot-x-label
"x"]
;;;
[plot-y-label
"y"]
;;;
[plot-z-label
"cos(x)
sin(y)"])
;;;
(plot3d
(contour-intervals3d
(λ
(x
y)
(*
(cos
x)
(sin
y)))
;;;
(-
pi)
pi
(-
pi)
pi)))
;;;
Simple
Function
;(plot
(function
sin
(-
pi)
pi
#:label
"y
=
sin(x)"))
;;;
Functions
with
color,
style
and
returned
;(plot
(list
(axes)
;
(function
sqr
-2
2)
;
(function
(λ
(x)
x)
#:color
0
#:style
'dot)
;
(inverse
sqr
-2
2
#:color
3)))
;(plot
(lines
;
(reverse
;
(for/fold
([lst
(list
(vector
0
0))])
([i
(in-range
1
15)])
;
(match-define
(vector
x
y)
(first
lst))
;
(cons
(vector
i
(+
y
(*
1/100
(-
(random)
1/2))))
lst)))
;
#:color
6
#:label
"Random
walk"))
;
Random
Points
(
define
points
'
(
#(
0
7
)
#(
1
2
)
#(
2
5
)
#(
3
12
)
#(
4
1
)
)
)
;
Draw
Random
Points
(
plot
(
lines
points
#:x-max
4
#:x-min
0
#:y-min
0
#:y-max
13
#:label
"Function
1"
)
#:title
"Test
Graphe"
)
;
Draw
Two
Graph
;
(plot
(list
(axes)
(function
sqr)
(lines
points)))
works
too
but
apparently
(axes)
is
not
necessary
(
plot
(
list
(
function
sqr
)
(
lines
points
)
)
)
=>