10 COM X[103,22],M[20,20],U[20,20] 20 COM Q[20],V[20] 30 COM M$[60],N$[72] 40 COM N,K,N8,K8,N9,K9,Q9,Q7,Q5,Q4,Q3,Q2,Q1 45 COM I3,I4,U9,X$[20] 46 REM HEWLETT-PACKARD 36755B, 6/74 50 REM: VERSION 31MAY73 200 GOTO Q[7+Q[18]]-5 OF 1000,2000,3000 1000 PRINT "TRANSFORMATIONS :" 1010 PRINT 1020 PRINT "ABSO ABSOLUTE VALUE" 1030 PRINT "ADDC ADD A CONSTANT TO A COLUMN" 1040 PRINT "ADDV ADD TWO COLUMNS OF DATA MATRIX" 1050 PRINT " NOTE THE DIFFERENCE OF TWO COLUMNS CAN" 1060 PRINT " BE OBTAINED BY FIRST MULTIPLYING A COLUMN" 1070 PRINT " BY -1 AND THEN ADDING TO ANOTHER COLUMN" 1080 PRINT "DIFF DIFFERENCING TRANSFORMATION" 1090 PRINT " LET J BE THE COLUMN TO PLACE THE TRANSFORMED" 1100 PRINT " VARIABLE, I BE THE VARIABLE TO BE TRANSFORMED," 1110 PRINT " AND K BE THE GAP FOR DIFFERENCING. THEN" 1120 PRINT " X(L,J) = X(L,I) - X(L-K,I), L=K+1,..." 1122 PRINT " THE FIRST K ROWS OF THE ACTIVE DATA MATRIX BECOME" 1123 PRINT " INACTIVE IN THE PROCESS" 1130 PRINT "DOTP DIRECT PRODUCT OF TWO COLUMNS" 1140 PRINT "EXPO EXPONENTIAL TRANSFORMATION" 1150 PRINT "LAGG LAG TRANSFORMATION X(L,J) = X(L-K,I), L=K+1,..." 1155 PRINT " THE FIRST K ROWS OF THE ACTIVE DATA MATRIX BECOME" 1156 PRINT " INACTIVE IN THE PROCESS" 1160 PRINT "LOGE NATURAL LOG (LN) TRANSFORMATION" 1170 PRINT "LOG1 COMMON LOG (BASE 10) TRANSFORMATION" 1180 PRINT "MULC MULTIPLY A COLUMN OF DATA MATRIX BY A CONSTANT" 1190 PRINT "MULV MULTIPLY TWO COLUMNS OF DATA MATRIX" 1200 PRINT "POWE POWER TRANSFORMATION. NOTE VALUE OF POWER =" 1202 PRINT " -1 FOR RECIPROCAL TRANSFORMATION" 1204 PRINT " .5 FOR SQUARE ROOT TRANSFORMATION, ETC." 1210 PRINT "MSOR SORTS ONE VARIABLE (COLUMN) IN ASCENDING ORDER" 1212 PRINT " AND ALL OTHER COLUMNS ACCOMPANY IT. RESULTS" 1214 PRINT " PLACED IN S"'28"AME COLUMNS" 1222 PRINT "PSOR PAIRED SORT OF ONE VARIABLE (COLUMN) AND" 1223 PRINT " ACCOMPANYING VARIABLE (COLUMN) INTO TWO" 1224 PRINT " OTHER COLUMNS" 1225 PRINT "RANK ASSIGNS RANKS TO THE OBSERVATIONS (ROWS) OF A" 1226 PRINT " VARIABLE (COLUMN) AND PLACES THE RANKS IN ANOTHER" 1227 PRINT " COLUMN" 1230 PRINT "SORT SORTS THE VALUES OF ONE VARIABLE (COLUMN) INTO" 1231 PRINT " ASCENDING ORDER AND PLACES RESULTS IN ANOTHER" 1232 PRINT " COLUMN" 1233 PRINT "STAN STANDARDIZATION TRANSFORMATION--SUBTRACT MEAN" 1240 PRINT " FROM EACH OBSERVATION, DIVIDE THE DEVIATION BY" 1250 PRINT " THE STANDARD DEVIATION" 1500 GOTO 9000 2000 PRINT "SUMMARY STATISTICS :" 2010 PRINT 2020 PRINT "CORR CORRELATION MATRIX OF VARIABLES" 2030 PRINT "COVA COVARIANCE MATRIX OF VARIABLES" 2040 PRINT "MEAN MEANS AND STANDARD DEVIATIONS OF VARIABLES" 2050 PRINT "PARC PARTIAL CORRELATION MATRIX OF ONE SET OF" 2060 PRINT " VARIABLES GIVEN ANOTHER SET OF VARIABLES" 2500 GOTO 9000 3000 PRINT "ONE SAMPLE STATISTICS :" 3010 PRINT 3020 PRINT "AUTO AUTOCORRELATION (BOX-JENKINS ESTIMATES)" 3025 PRINT "DURB DURBIN-WATSON STATISTIC (FOR RESIDUALS ONLY)" 3030 PRINT "RUNS EXPECTED AND OBSERVED NUMBER OF RUNS ABOVE" 3040 PRINT " AND BELOW THE MEAN. NORMAL APPROXIMATION" 3050 PRINT "SERC SERIAL CORRELATION (MAXIMUM LIKELIHOOD" 3060 PRINT " ESTIMATE OF AUTOCORRELATION)" 9000 CHAIN "$IDA39",2000 9998 CHAIN "$IDA",150 9999 END