1----- <~time\DDSLUTH.DP> Run DDS analysis on LUTHER.DAT
2
3. This is file    DDSLUTH.DP
4
5DELETE Y
6DIMENSION 25 VARIABLES
7SKIP 25
8READ LUTHER.DAT Y
9.
10. ==============================================================
11. STEP 2-- CARRY OUT DDS ANALYSIS
12
13LET ORDER1 = 6
14LET ORDER2 = ORDER1 - 1
15DDS Y ORDER1 ORDER2
16.
17. ===============================================================
18. STEP 3--READ IN THE DDS RESIDUALS, GREEN FUNCTION, AND SPECTRUM
19.
20SKIP 5
21READ RESIDUAL.OUT RESIDUALS
22SKIP 5
23READ GREEN.OUT INDEX GREENTOT GREEN1
24SKIP 5
25READ SPECTRUM.OUT FREQ SPECTOT SPEC1
26.
27. ==============================================
28. STEP 4--GENERATE A MULTIPLOT OF THE DDS OUTPUT
29.
30FEEDBACK OFF
31MULTIPLOT CORNER COORDINATES 5 5 95 95
32MULTIPLOT 2 2
33TIC LABEL SIZE 2
34LABEL SIZE 3
35TITLE DISPLACEMENT 3
36TITLE SIZE 4
37.
38TITLE RAW DATA
39Y1LABEL Y(T)
40X1LABEL T
41LINES SOLID
42PLOT Y
43.
44TITLE GREEN'S FUNCTION
45Y1LABEL G(J)
46X1LABEL J
47XLIMITS
48LINES SOLID DOT DASH1 DASH2 DASH3 DASH4
49PLOT GREENTOT GREEN1 VERSUS INDEX
50.
51TITLE RESIDUALS
52Y1LABEL A(T)
53X1LABEL T
54LINES
55SPIKE ON
56PLOT RESIDUALS
57.
58TITLE SPECTRUM
59Y1LABEL S(F)
60X1LABEL F
61XLIMITS
62LINES SOLID DOT DASH1 DASH2 DASH3 DASH4
63SPIKE OFF
64PLOT SPECTOT SPEC1 VERSUS FREQ
65.
66END OF MULTIPLOT
67TITLE
68Y1LABEL
69X1LABEL
70TIC LABEL SIZE
71LABEL SIZE
72TITLE DISPLACEMENT
73TITLE SIZE
74FEEDBACK ON
75
76