Program written, modified, or edited at StatSoft, Inc.}

Sequential;
ReDim x(nvars);

if caseno = 1 then
begin
  if not DisplayMessageBox (MB_OKCANCEL+MB_ICONINFORMATION, 'STATISTICA Example',
                                          'This program will print a graph for each case in a data file.') then
     Exit;
  type:=DisplayListBox ('Select plot type', 'Scatterplot|Line Plot|Step Plot', 2);
  if not type then
    Exit;
  graphtype := SCATTERPLOT;
  if type = 2 then graphtype := LINEPLOT
  else if type = 3 then graphtype := STEPPLOT;
  out:=DisplayListBox ('Select output device:', 'Printer|Text/Output Window', 1);
  if not out then
    Exit;
end;

for i:=1 to nvars do
  x(i) := i;
graph := NewGraph (graphtype, CaseName, ?Left_Title$, 'Variables', nvars, x, v);
if out = 1 then PrintGraph (graph);
if out = 2 then PrintGraphToOutputWindow (graph);

2300 East 14th Street, Tulsa, OK 74104
Phone: (918) 749-1119; Fax: (918) 749-2217
e-mail: info@statsoft.com

©Copyright StatSoft, Inc., 1984-2004.
StatSoft, StatSoft logo, STATISTICA, SEWSS, SEDAS, Data Miner, SEPATH and GTrees are trademarks of StatSoft, Inc.