%% Created by Maple V Release 5 (IBM INTEL NT)
%% Source Worksheet: class7.mws
%% Generated: Mon Feb 09 09:36:58 1998
\documentclass{article}
\usepackage{maple2e}
\DefineParaStyle{Heading 1}
\DefineParaStyle{Heading 2}
\DefineParaStyle{Maple Output}
\DefineParaStyle{Maple Plot}
\DefineCharStyle{2D Math}
\DefineCharStyle{2D Output}
\begin{document}
\begin{maplegroup}
\begin{Heading 2}
    Working on a key to the graph on the time temperature problem.
\end{Heading 2}

\end{maplegroup}
\begin{maplegroup}
We have a list of time and temperature data we want to plot.   First
make a list of the data points.

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{temps :=
[[0,6.5],[1,6.1],[2,5.6],[3,4.9],[4,4.2],[5,4.0],[6,4.0],
[7,4.8],[8,6.1],[9,8.3],[10,10.0], [11,12.1],[12,14.3],[13,16.0],
[14,17.3],[15,18.2],[16,18.8],[17,17.6], [18,16.0],[19,14.1],
[20,11.5],[21,10.2],[22,9.0],[23,7.9],[24,7.0]];}{%
}
\end{mapleinput}

\mapleresult
\begin{maplelatex}
\begin{eqnarray*}
\lefteqn{\mathit{temps} := [[0, \,6.5], \,[1, \,6.1], \,[2, \,5.6
], \,[3, \,4.9], \,[4, \,4.2], \,[5, \,4.0], \,[6, \,4.0], \,[7, 
\,4.8], \,[8, \,6.1], } \\
 & & [9, \,8.3], \,[10, \,10.0], \,[11, \,12.1], \,[12, \,14.3], 
\,[13, \,16.0], \,[14, \,17.3], \,[15, \,18.2],  \\
 & & [16, \,18.8], \,[17, \,17.6], \,[18, \,16.0], \,[19, \,14.1]
, \,[20, \,11.5], \,[21, \,10.2], \,[22, \,9.0],  \\
 & & [23, \,7.9], \,[24, \,7.0]]\mbox{\hspace{285pt}}
\end{eqnarray*}
\end{maplelatex}

\end{maplegroup}
\begin{maplegroup}
Then plot the data.  Give the plot a name, like plt1.

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{plt1 := plot(temps): plt1;}{%
}
\end{mapleinput}

\mapleresult
\begin{center}
\mapleplot{class701.eps}
\end{center}

\end{maplegroup}
\begin{maplegroup}
We want to see the individual data points.

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{### WARNING: the definition of the type
`symbol` has changed'; see help page for details
plt2 := plot(temps,style=point,symbol=box):plt2;}{%
}
\end{mapleinput}

\mapleresult
\begin{center}
\mapleplot{class702.eps}
\end{center}

\end{maplegroup}
\begin{maplegroup}
We would also like to see some grid lines.

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{plt3
:=plots[coordplot](cartesian,[0..24,0..20],view=[0..24,0..20],grid=[7,
5],color=[blue,blue],labelling=rear):  plt3;}{%
}
\end{mapleinput}

\mapleresult
\begin{center}
\mapleplot{class703.eps}
\end{center}

\end{maplegroup}
\begin{maplegroup}
We can display all three plots together.

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{plots[display]([plt1 ,plt2, plt3]);}{%
}
\end{mapleinput}

\mapleresult
\begin{center}
\mapleplot{class704.eps}
\end{center}

\end{maplegroup}
\begin{maplegroup}
\begin{Heading 2}
  The named colors in Maple
\end{Heading 2}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{coordplot(cartestian,}{%
}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{clrs :=
[aquamarine,black,blue,navy,coral,cyan ,brown,      gold ,  green ,   
gray ,  grey,  khaki, 
  magenta,    maroon, orange,    pink,   plum,  red ,  
  sienna,      turquoise, violet, wheat, white, 
  yellow ];
}{%
}
\end{mapleinput}

\mapleresult
\begin{maplelatex}
\begin{eqnarray*}
\lefteqn{\mathit{clrs} := [\mathit{aquamarine}, \,\mathit{black}
, \,\mathit{blue}, \,\mathit{navy}, \,\mathit{coral}, \,\mathit{
cyan}, \,\mathit{brown}, \,\mathit{gold}, \,\mathit{green}, \,
\mathit{gray}, \,\mathit{grey}, \,\mathit{khaki}, } \\
 & & \mathit{magenta}, \,\mathit{maroon}, \,\mathit{orange}, \,
\mathit{pink}, \,\mathit{plum}, \,\mathit{red}, \,\mathit{sienna}
, \,\mathit{turquoise}, \,\mathit{violet}, \,\mathit{wheat}, \,
\mathit{white},  \\
 & & \mathit{yellow}]\mbox{\hspace{359pt}}
\end{eqnarray*}
\end{maplelatex}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{  for i from 1 to nops (clrs) do
   pl[i] := [clrs[i],plot([[0,i],[1,i]],thickness=3,color=clrs[i])]
od:
}{%
}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{ plots[display]([seq(pl[i][2],i=1..24)]);}{%
}
\end{mapleinput}

\begin{mapleinput}
\end{mapleinput}

\mapleresult
\begin{center}
\mapleplot{class705.eps}
\end{center}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\end{mapleinput}

\end{maplegroup}
\end{document}
%% End of Maple V Output
