(*^ ::[ Information = "This is a Mathematica Notebook file. It contains ASCII text, and can be transferred by email, ftp, or other text-file transfer utility. It should be read or edited using a copy of Mathematica or MathReader. If you received this as email, use your mail application or copy/paste to save everything from the line containing (*^ down to the line containing ^*) into a plain text file. On some systems you may have to give the file a name ending with ".ma" to allow Mathematica to recognize it as a Notebook. The line below identifies what version of Mathematica created this file, but it can be opened using any other version as well."; FrontEndVersion = "NeXT Mathematica Notebook Front End Version 2.2"; NeXTStandardFontEncoding; 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 = leftheader, 12; fontset = footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, italic, L1, 12, "Times"; ; fontset = leftfooter, 12; 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; paletteColors = 128; automaticGrouping; currentKernel; ] :[font = title; inactive; preserveAspect; startGroup] High School Notebooks :[font = subsubtitle; inactive; preserveAspect] by George Beck :[font = subsection; inactive; preserveAspect; startGroup] Drawing Letters with Splines [splines.ma] :[font = text; inactive; preserveAspect; endGroup] Sign your name by having Mathematica connect the dots. ;[s] 3:0,0;25,1;36,2;56,-1; 3:1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = subsection; inactive; preserveAspect; startGroup] Long Multiplication and Division [long.ma] :[font = text; inactive; preserveAspect; endGroup] This shows the long multiplication and division of positive integers. :[font = subsection; inactive; preserveAspect; startGroup] a x + b [axplusb.ma] :[font = text; inactive; preserveAspect; endGroup] What does changing a and b do to the graph of y = a x + b? :[font = subsection; inactive; preserveAspect; startGroup] Parabolas [parabolas.ma] :[font = text; inactive; preserveAspect; endGroup] What does changing a, b, and c do to the graph of y = a x^2 + b x + c? :[font = subsection; inactive; preserveAspect; startGroup] Why Is Pi the Same in C = 2 Pi r and A = Pi r^2? [pi1.ma] :[font = text; inactive; preserveAspect; endGroup] We slice up a circle like a pie and rearrange the sectors to form a figure that is roughly a rectangle. As the sectors become thinner, the rectangle's left and right sides become more vertical and the top and bottom become flatter and more horizontal. We can imagine that in the limit we get an actual rectangle. :[font = subsection; inactive; preserveAspect; startGroup] Nesting Regular Polygons and Circles [scribe.ma] :[font = text; inactive; preserveAspect; endGroup] This notebook is under construction but the functions work. Circumscribe and Inscribe are functions that let you draw nested sequences of circles and regular polygons. :[font = subsection; inactive; preserveAspect; startGroup] Approximating Pi [pi2.ma] :[font = text; inactive; preserveAspect; endGroup] This notebook shows how to approximate pi by using the areas of polygons. :[font = subsection; inactive; preserveAspect; startGroup] Solving Quadratics Step by Step [stepquad.ma] :[font = text; inactive; preserveAspect; endGroup] This notebook discusses the solutions of quadratic equations in a several different ways. The built-in functions Solve, NSolve, and Factor give three fast ways to solve a quadratic equation. Their solutions are easy to check. The defined function WalkSolve solves a quadratic step-by-step by completing the square. We derive the QuadraticFormula and compare it with the Russian version. :[font = subsection; inactive; preserveAspect; startGroup] Solving Linear Equations Step by Step Two Equations in Two Unknowns [step2by2.ma] :[font = text; inactive; preserveAspect; endGroup] This notebook discusses the solutions of systems of equations The built-in functions Solve and NSolve are the usual way to solve such systems. The defined function WalkSolve solves a system step by step. :[font = subsection; inactive; preserveAspect; startGroup] Step-by-Step Differentiation [stepdiff.ma] :[font = text; inactive; preserveAspect; endGroup] The built-in Mathematica operator D gives derivatives immediately without any intermediate steps. In this notebook the operators WalkD and RunD are defined to slow things down so that a beginner can learn how to take derivatives. :[font = subsection; inactive; preserveAspect; startGroup] Ladders [ladders.ma] :[font = text; inactive; preserveAspect; endGroup] Are ladders too simple for math questions? These brain teasers might drive you up the wall. :[font = subsection; inactive; preserveAspect; startGroup] Geometry of Complex Arithmetic [i.ma] :[font = text; inactive; preserveAspect; endGroup] The basic functions and arithmetic operations on complex numbers are discussed from the point of view of geometry. :[font = subsection; inactive; preserveAspect; startGroup] Vieta's Formula [pi3.ma] :[font = text; inactive; preserveAspect; endGroup; endGroup] This notebook continues the discussion on aproximating pi by calculating the areas of a circle using inscribed and circumscribed regular polygons. We illustrate Vieta's formula, which is the oldest exact result derived for pi. ^*)