/*****************************************************************************
*                                                                            *
*   ISTRIPCHART.SPL Copyright (C) 2012 DSP Development Corporation           *
*                               All Rights Reserved                          *
*                                                                            *
*   Author:      Randy Race                                                  *
*                                                                            *
*   Synopsis:    Returns 1 if input is a stripchart                          *
*                                                                            *
*   Revisions:   21 May 2012  RRR  Creation                                  *
*                                                                            *
*****************************************************************************/

#include 


#if @HELP_ISSTRIPCHART

    ISSTRIPCHART

    Purpose: Returns 1 if input parameter is a stripchart series.

    Syntax:  ISSTRIPCHART(val)

              val - series, array or string input

    Returns: The array 1 if the input is a stripchart series, else 0.

    Example:
             s1 = randn(100, 3);
             s2 = stripchart(s1);

             isstripchart(s1) == 0
             isstripchart(s2) == 1

    Example:
             isstripchart(3)

             returns 0

    Remarks:
             If the input is not a series, isstripchart returns 0.

    See Also:
             isarray
             iscomplex
             isreal
             isscalar
             isxy
             isxyz
#endif


/* is series a stripchart? */
isstripchart(s)
{
        local status = 0;

        if (argc < 1) s = refwin(w0);

        if (isarray(s) && length(s) > 0)
        {
                status = getplottype(s) == 7;
        }
        
        return(status == 1);
}