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