1. THIS IS DATAPLOT MACRO   DDS.DP
2. PURPOSE--CARRY OUT DDS ANALYSIS USING DATAPLOT'S DDS COMMAND
3. NOTE--THE FOLLOWING MUST PRE-EXIST BEFORE CALLING THIS MACRO--
4.    1. FILENAME = DATAPLOT STRING =    NAME OF INPUT DATA FILE
5.    2. NUMSKIP  = DATAPLOT PARAMETER = NUMBER OF HEADER LINES TO SKIP
6.    3. READFLAG = DATAPLOT PARAMETER = 1 (IF READ) OR 2 (IF SERIAL READ)
7.    4. ORDER1   = DATAPLOT PARAMETER = AUTOREGRESSIVE ORDER
8.    5. ORDER1   = DATAPLOT PARAMETER = MOVING AVERAGE ORDER
9. NOTE--DATAPLOT    DDS   COMMAND (WITH 3 ARGUMENTS) FORMAT--
10.    DDS <NAME OF VARIABLE> <AUTOREG. ORDER> <MOVING AVERAGE ORDER>
11. CONTACT--
12.    SUDHAKAR M. PANDIT
13.    GHANASHYAM A. JOSHI
14.    JAMES J. FILLIBEN
15. DATE--AUGUST 1994
16. EXAMPLE OF USAGE--
17.    LET STRING FILENAME = SIN.DAT
18.    LET NUMSKIP = 25
19.    LET READFLAG = 1
20.    LET ORDER1 = 2
21.    LET ORDER2 = 1
22.    CALL DDS.DP
23.
24. -----START POINT-----
25.
26DEVICE 2 POSTSCRIPT
27DEFINE ER ESC FF
28TIC OFFSET UNITS SCREEN; TIC OFFSET 5 5
29LET FUNCTION MARK = DDS.DP
30.
31. ---------------------------------------------------------------
32. STEP 1--READ IN RAW DATA
33.
34IF READFLAG = 1
35   SKIP NUMSKIP
36   READ ^FILENAME Y
37END IF
38IF READFLAG = 2
39   SKIP NUMSKIP
40   SERIAL READ ^FILENAME Y
41END IF
42.
43. ---------------------------------------------------------------
44. STEP 2-- CARRY OUT DDS ANALYSIS
45
46DDS Y ORDER1 ORDER2
47
48. ---------------------------------------------------------------
49. STEP 3--READ IN THE DDS RESIDUALS, GREEN FUNCTION, AND SPECTRUM
50.
51SKIP 4
52READ RESIDUAL.OUT RESIDUALS
53SKIP 3
54READ GREEN.OUT INDEX GREENTOT GREEN1 GREEN2 GREEN3 GREEN4
55SKIP 3
56READ SPECTRUM.OUT FREQ SPECTOT SPEC1 SPEC2 SPEC3 SPEC4
57.
58. ----------------------------------------------
59. STEP 4--GENERATE A MULTIPLOT OF THE DDS OUTPUT
60.
61MULTIPLOT 2 2
62FEEDBACK OFF
63TIC LABEL SIZE 2
64LABEL SIZE 3
65TITLE DISPLACEMENT 3; TITLE SIZE 4
66.
67TITLE RAW DATA; Y1LABEL X(T); X1LABEL T
68XLIMITS 0 150
69LINES SOLID
70PLOT Y
71.
72TITLE GREEN'S FUNCTION; Y1LABEL G(J); X1LABEL J
73XLIMITS
74LINES SOLID DOT DASH1 DASH2 DASH3 DASH4
75PLOT GREENTOT GREEN1 GREEN2 GREEN3 GREEN4 VERSUS INDEX
76.
77TITLE RESIDUALS; Y1LABEL A(T); X1LABEL T
78XLIMITS 0 150
79LINES
80SPIKE ON
81PLOT RESIDUALS
82.
83TITLE SPECTRUM; Y1LABEL S(F); X1LABEL F
84XLIMITS
85LINES SOLID DOT DASH1 DASH2 DASH3 DASH4
86SPIKE OFF
87PLOT SPECTOT SPEC1 SPEC2 SPEC3 SPEC4 VERSUS FREQ
88.
89CALL MARK.DP
90