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