\HeaderA{draw.mwd}{Draws a wavelet or scaling function used to compute an `mwd' object}{draw.mwd}
\keyword{hplot}{draw.mwd}
\begin{Description}\relax
Draws picture of one wavelet or scaling function associated with the multiple wavelet decomposition object. \code{\LinkA{mwd.object}{mwd.object}}.
\end{Description}
\begin{Usage}
\begin{verbatim}
draw.mwd(mwd, phi = 0, psi = 0, return.funct = FALSE, ...)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{mwd}] The \code{\LinkA{mwd}{mwd}} class object whose associated wavelet or scaling function you wish to draw. 
\item[\code{phi}] description not yet available
\item[\code{psi}] If \code{phi} is non-zero then the `phi'-th scaling function of the wavelet family used for mwd will be plotted. \code{phi} must be between 0 and \code{mwd\$filter\$nphi}.
\item[\code{return.funct}] If true then the vector used as phi/psi in the plot command is returned.
\item[\code{...}] Additional arguments to pass to the \code{plot} function
\end{ldescription}
\end{Arguments}
\begin{Details}\relax
It is usual to specify just one of phi and psi. IF neither phi nor psi are specified then phi=1 is the default. An error is generated if both phi=0 and psi=0 or if both are nonzero.
\end{Details}
\begin{Value}
If the \code{return.funct} argument is set to \code{TRUE} then the function values in the plot are returned otherwise \code{NULL} is returned.
\end{Value}
\begin{Section}{RELEASE}
Version 3.9.6 (Although Copyright Tim Downie 1995-6).
\end{Section}
\begin{SeeAlso}\relax
\code{\LinkA{accessC.mwd}{accessC.mwd}}, \code{\LinkA{accessD.mwd}{accessD.mwd}}, \code{\LinkA{mfirst.last}{mfirst.last}}, \code{\LinkA{mfilter.select}{mfilter.select}}, \code{\LinkA{mwd}{mwd}}, \code{\LinkA{mwd.object}{mwd.object}}, \code{\LinkA{mwr}{mwr}}, \code{\LinkA{plot.mwd}{plot.mwd}}, \code{\LinkA{print.mwd}{print.mwd}}, \code{\LinkA{putC.mwd}{putC.mwd}}, \code{\LinkA{putD.mwd}{putD.mwd}}, \code{\LinkA{summary.mwd}{summary.mwd}}, \code{\LinkA{threshold.mwd}{threshold.mwd}}, \code{\LinkA{wd}{wd}}, \code{\LinkA{wr.mwd}{wr.mwd}}.
\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}
#
# Do a multiple wavelet decomposition on vector: ynoise
#
#ynoise <- rnorm(512, sd = 0.1)
#ymwd <- mwd(ynoise,filter.type="Geronimo")
#
# Draw a picture of the second Geronimo wavelet.
#
#draw(ymwd,psi=2)
#
#
\end{ExampleCode}
\end{Examples}

