(*^ ::[ frontEndVersion = "NeXT Mathematica Notebook Front End Version 2.1"; next21StandardFontEncoding; paletteColors = 128; automaticGrouping; currentKernel; fontset = title, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e8, 24, "Times"; ; fontset = subtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6, 18, "Times"; ; fontset = subsubtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, L1, e6, 14, "Times"; ; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L1, a20, 18, "Times"; ; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L1, a15, 14, "Times"; ; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L1, a12, 12, "Times"; ; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L1, 12, "Courier"; ; fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; ; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L1, 12, "Courier"; ; fontset = name, inactive, noPageBreakInGroup, nohscroll, preserveAspect, M7, italic, B65535, L1, 10, "Times"; ; fontset = header, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, L1, 12, "Times"; ; fontset = Left Header, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, L1, 12, "Times"; ; fontset = footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, italic, L1, 12, "Times"; ; fontset = Left Footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, italic, L1, 12, "Times"; ; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Courier"; ; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; ] :[font = title; inactive; preserveAspect; startGroup; ] Introduction to Graphics and Sound :[font = subtitle; inactive; preserveAspect; ] Tom Wickham-Jones :[font = subsubtitle; inactive; preserveAspect; ] Wolfram Research :[font = section; inactive; preserveAspect; startGroup; ] Graphical Commands :[font = subsection; inactive; preserveAspect; startGroup; ] Function Plotting :[font = input; preserveAspect; ] Plot[ Sin[ x], {x,0,2Pi}] :[font = input; preserveAspect; ] ParametricPlot[{ Cos[t], Sin[t]}, {t,0,2Pi}] :[font = input; preserveAspect; ] Plot3D[ Sin[x y],{x,0,2Pi}, {y,0,Pi}] :[font = input; preserveAspect; ] ContourPlot[ Exp[ -Sqrt[ x^2 + y^2]] Cos[ ArcTan[x,y]], {x,-1,1},{y,-1,1}] :[font = input; preserveAspect; ] DensityPlot[ Tan[x y], {x,-Pi,Pi}, {y,-Pi, Pi}] :[font = input; preserveAspect; ] ParametricPlot3D[{ Sin[t] Cos[p], Sin[t] Sin[p], Cos[t]}, {t,0,Pi}, {p,0,2Pi}] :[font = input; preserveAspect; endGroup; ] Play[ Sin[ 2Pi 400 t], {t,0,1}] :[font = subsection; inactive; preserveAspect; startGroup; ] ListPlotting :[font = input; preserveAspect; ] Table[ x^3, {x,8}] :[font = input; preserveAspect; endGroup; ] ListPlot[%] :[font = subsection; inactive; preserveAspect; startGroup; ] The Result of a Plot :[font = input; preserveAspect; ] Plot[x,{x,0,4}] :[font = input; preserveAspect; endGroup; ] InputForm[%] :[font = subsection; inactive; preserveAspect; startGroup; ] Adaptive and Non-Adaptive Plotting :[font = input; preserveAspect; endGroup; ] Plot[ Sin[1/x], {x,-Pi, Pi}] :[font = subsection; inactive; preserveAspect; startGroup; ] GraphicsArray :[font = input; preserveAspect; ] Table[ Plot[ Sin[ i x + j], {x,0,2Pi}, DisplayFunction -> Identity], {i,4}, {j,0,Pi, Pi/2}] :[font = input; preserveAspect; endGroup; endGroup; ] Show[ GraphicsArray[%]] :[font = section; inactive; preserveAspect; startGroup; ] Graphical Components :[font = subsection; inactive; preserveAspect; startGroup; ] Primitives, Directives and Options :[font = input; preserveAspect; ] Graphics[ {Line[{{0,0}, {1,1}}], Polygon[{{.1,0}, {1,0}, {1,.9}}]}] :[font = input; preserveAspect; ] Show[ %] :[font = input; preserveAspect; ] Show[ Graphics[ {AbsoluteThickness[ 10], Line[{{ 0,0}, {1,1}}]}]] :[font = subsubsection; inactive; preserveAspect; startGroup; ] Scope of Directives :[font = input; preserveAspect; endGroup; ] p = Show[ Graphics[ { GrayLevel[ 0], { RGBColor[1,0,0], Line[{{0,0}, {1,1}}], { Line[{{0,1},{1,2}}]}}, Polygon[{{0,2}, {0,3}, {1,3},{1,2}}]}]] :[font = subsubsection; inactive; preserveAspect; startGroup; ] Options :[font = input; preserveAspect; ] Options[ Graphics] :[font = input; preserveAspect; endGroup; ] Show[ p, Axes -> True] :[font = subsubsection; inactive; preserveAspect; startGroup; ] FullOptions :[font = input; preserveAspect; ] Plot[ Tan[x], {x,0,2Pi}] :[font = input; preserveAspect; endGroup; ] FullOptions[%, PlotRange] :[font = subsubsection; inactive; preserveAspect; startGroup; ] Rectangle :[font = input; preserveAspect; ] f[x_] := Exp[ -x/10] - Cos[30 x] Exp[ -3 x] :[font = input; preserveAspect; ] short = Plot[ f[x], {x,0,1}, Frame -> True] :[font = input; preserveAspect; endGroup; ] Plot[ f[x], {x,0,50}, Frame -> True, Prolog -> Rectangle[{18, .5}, {48, 1.2}, short]] :[font = subsubsection; inactive; preserveAspect; startGroup; ] Raster and RasterArray :[font = input; preserveAspect; ] rast = RasterArray[ Table[ Hue[ h, s, 1], {h,0,1,.01}, {s,0,1,.01}]] ; :[font = input; preserveAspect; endGroup; ] Show[ Graphics[ rast]] :[font = subsubsection; inactive; preserveAspect; startGroup; ] Absolute Sizes :[font = text; inactive; preserveAspect; ] AbsoluteThickness, AbsoluteDashing and AbsolutePointSize :[font = input; preserveAspect; endGroup; endGroup; ] Show[ Graphics[ {AbsolutePointSize[ 36], Point[{0,0}]}]] :[font = subsection; inactive; preserveAspect; startGroup; ] SurfaceGraphics ContourGraphics DensityGraphics :[font = input; preserveAspect; ] Plot3D[ x y, {x,0,1}, {y,0,1}, PlotPoints -> 2] :[font = input; preserveAspect; endGroup; ] InputForm[%] :[font = subsection; inactive; preserveAspect; ] GraphicsArray :[font = subsection; inactive; preserveAspect; endGroup; ] Sound :[font = section; inactive; preserveAspect; startGroup; ] Text and Fonts :[font = input; preserveAspect; startGroup; ] $DefaultFont :[font = output; output; inactive; preserveAspect; endGroup; ] {"Courier", 10.} ;[o] {Courier, 10.} :[font = input; preserveAspect; endGroup; ] Plot[ Sin[x], {x,0,4}, DefaultFont -> {"Helvetica", 10}] :[font = section; inactive; preserveAspect; startGroup; ] Axes, Grids and Labels :[font = subsection; inactive; preserveAspect; startGroup; ] Axes :[font = input; preserveAspect; ] Plot[ Sin[x], {x,0,2Pi}] :[font = input; preserveAspect; ] Plot[ Sin[x], {x,0,2Pi}, AxesOrigin -> {Pi, -.5}] :[font = input; preserveAspect; ] Plot[ Sin[x], {x,0,2Pi}, Frame -> True] :[font = input; preserveAspect; endGroup; ] Show[%, FrameLabel -> {"Number 1", "Number 2", "Number 3", "Number 4"}] :[font = subsection; inactive; preserveAspect; startGroup; ] GridLines :[font = input; preserveAspect; endGroup; ] Plot[ Exp[-x] - Exp[-2 x], {x,0,4}, GridLines -> Automatic, Frame -> True] :[font = subsection; inactive; preserveAspect; startGroup; ] Three-Dimensional :[font = input; preserveAspect; ] < False] :[font = input; preserveAspect; ] Show[%, Axes -> True] :[font = input; preserveAspect; endGroup; endGroup; ] Show[%, Boxed -> True, FaceGrids -> All] :[font = section; inactive; preserveAspect; startGroup; ] Sound :[font = input; preserveAspect; ] Play[ Sin[ 2Pi 400 t], {t,0,1}] :[font = input; preserveAspect; ] Show[%] :[font = input; preserveAspect; ] InputForm[%] :[font = input; preserveAspect; ] mysound = First[%] :[font = input; preserveAspect; endGroup; ] Plot[ Sin[x], {x,0,2Pi}, Prolog -> mysound] :[font = section; inactive; preserveAspect; startGroup; ] Graphics Packages :[font = input; preserveAspect; ] Load the package: use Mathematica filename. ;[s] 3:0,0;22,1;33,2;44,-1; 3:1,10,8,Courier,1,12,0,0,0;1,10,8,Courier,3,12,0,0,0;1,10,8,Courier,1,12,0,0,0; :[font = input; preserveAspect; ] <