(*^

::[	frontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.1";
	macintoshStandardFontEncoding; 
	paletteColors = 128; automaticGrouping; currentKernel; 
	fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e8,  24, "Times"; ;
	fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6,  18, "Times"; ;
	fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, e6,  14, "Times"; ;
	fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, a20,  18, "Times"; ;
	fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, a15,  14, "Times"; ;
	fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12,  12, "Times"; ;
	fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  10, "Times"; ;
	fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5,  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, R65535, L-5,  12, "Courier"; ;
	fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5,  12, "Courier"; ;
	fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5,  12, "Courier"; ;
	fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287,  12, "Courier"; ;
	fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic,  10, "Geneva"; ;
	fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = leftheader, inactive, L2,  12, "Times"; ;
	fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7,  12, "Times"; ;
	fontset = leftfooter, inactive, L2,  12, "Times"; ;
	fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  10, "Times"; ;
	fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
]
:[font = special1; inactive; preserveAspect; ]
                            Simple Building Blocks -- Units and Mathematica

You should follow along in this Mathematica  notebook as you work through this module.  The examples in your browser window use the computer algebra system built into the TI-92.  This notebook uses Mathematica.

The cell below illustrates how a variable may be cleared or deleted in Mathematica.  Evaluate it now.
;[s]
11:0,1;64,2;75,0;109,3;120,0;275,3;286,0;360,3;371,0;374,4;389,0;391,-1;
5:5,13,9,Times,0,12,0,0,0;1,13,9,Times,1,12,0,0,0;1,13,9,Times,3,12,0,0,0;3,13,9,Times,2,12,0,0,0;1,13,9,Times,1,12,65535,0,0;
:[font = input; preserveAspect; ]
Clear[feet, seconds, inches, miles, hours]
:[font = special1; inactive; preserveAspect; ]
After you have cleared the variable names that you want to use for units you can use Mathematica  to do simple calculations involving units as shown below.  Evaluate the next cell now.
;[s]
5:0,0;85,1;96,0;157,2;183,0;185,-1;
3:3,13,9,Times,0,12,0,0,0;1,13,9,Times,2,12,0,0,0;1,13,9,Times,1,12,65535,0,0;
:[font = input; preserveAspect; ]
12 inches + 5 inches

feet := 12 inches

2 feet + 5 inches

(200 miles) / (4 hours)

(4 inches) * (5 inches)

(4 hours) * (60 miles/hours)
:[font = special1; inactive; preserveAspect; ]
The cell below illustrates how Mathematica  can be used to work with functions and units.  Evaluate it now.  Notice that the Mathematica  procedure  N[]  is used to obtain approximate numerical results.
;[s]
9:0,0;31,1;42,0;91,2;106,0;125,1;136,0;149,3;152,0;203,-1;
4:5,13,9,Times,0,12,0,0,0;2,13,9,Times,2,12,0,0,0;1,13,9,Times,1,12,65535,0,0;1,13,9,Times,1,12,0,0,0;
:[font = input; preserveAspect; ]
Area[r_] := Pi r^2

Radius[a_] := Sqrt[a/Pi]

N[Area[4 inches]]

N[Radius[50.2655 inches^2]]
:[font = special1; inactive; preserveAspect; ]
The cell below illustrates how Mathematica  can be used to work with differentiation and units.  Evaluate it now.
;[s]
5:0,0;31,1;42,0;97,2;112,0;114,-1;
3:3,13,9,Times,0,12,0,0,0;1,13,9,Times,2,12,0,0,0;1,13,9,Times,1,12,65535,0,0;
:[font = input; preserveAspect; ]
Clear[feet]

h[t_] := 10 feet - (16 feet/(sec^2)) t^2
v[t_] = D[h[t], t];
v[0.1 sec] 
:[font = special1; inactive; preserveAspect; ]
The cell below illustrates how Mathematica  can be used to work with integration and units.  Evaluate it now.
;[s]
5:0,0;31,1;42,0;93,2;108,0;110,-1;
3:3,13,9,Times,0,12,0,0,0;1,13,9,Times,2,12,0,0,0;1,13,9,Times,1,12,65535,0,0;
:[font = input; preserveAspect; ]
Clear[v]

v[t_] := -32 (feet/(sec^2)) t
Integrate[v[t], {t, 1 sec, 2 sec}]
^*)