19 March 2018 12:46:19.746 PM WALSH_TEST FORTRAN90 version Test the WALSH library. TEST01 FWT computes a fast Walsh transform. I X(I) Y=FWT(X)/N Z=FWT(Y)/N 1 0.2184 0.4099 0.2184 2 0.9563 0.0169 0.9563 3 0.8295 0.1552 0.8295 4 0.5617 0.0594 0.5617 5 0.4153 -0.0325 0.4153 6 0.0661 -0.0088 0.0661 7 0.2576 -0.0391 0.2576 8 0.1100 0.0263 0.1100 9 0.0438 -0.1347 0.0438 10 0.6340 0.0342 0.6340 11 0.0617 -0.1346 0.0617 12 0.4495 -0.0163 0.4495 13 0.4013 -0.1492 0.4013 14 0.7547 0.0283 0.7547 15 0.7973 0.0352 0.7973 16 0.0018 -0.0318 0.0018 I X(I) Y=FWT(X)/N Z=FWT(Y)/N 1 1.0000 8.5000 1.0000 2 2.0000 -4.0000 2.0000 3 3.0000 0.0000 3.0000 4 4.0000 -2.0000 4.0000 5 5.0000 0.0000 5.0000 6 6.0000 0.0000 6.0000 7 7.0000 0.0000 7.0000 8 8.0000 -1.0000 8.0000 9 9.0000 0.0000 9.0000 10 10.0000 0.0000 10.0000 11 11.0000 0.0000 11.0000 12 12.0000 0.0000 12.0000 13 13.0000 0.0000 13.0000 14 14.0000 0.0000 14.0000 15 15.0000 0.0000 15.0000 16 16.0000 -0.5000 16.0000 TEST02 WALSH computes a fast Walsh transform. I X(I) Y=FWT(X)/N Z=FWT(Y)/N 1 0.2184 0.4099 0.2184 2 0.9563 0.0169 0.9563 3 0.8295 0.1552 0.8295 4 0.5617 0.0594 0.5617 5 0.4153 -0.0325 0.4153 6 0.0661 -0.0088 0.0661 7 0.2576 -0.0391 0.2576 8 0.1100 0.0263 0.1100 9 0.0438 -0.1347 0.0438 10 0.6340 0.0342 0.6340 11 0.0617 -0.1346 0.0617 12 0.4495 -0.0163 0.4495 13 0.4013 -0.1492 0.4013 14 0.7547 0.0283 0.7547 15 0.7973 0.0352 0.7973 16 0.0018 -0.0318 0.0018 I X(I) Y=FWT(X)/N Z=FWT(Y)/N 1 1.0000 8.5000 1.0000 2 2.0000 -4.0000 2.0000 3 3.0000 0.0000 3.0000 4 4.0000 -2.0000 4.0000 5 5.0000 0.0000 5.0000 6 6.0000 -0.0000 6.0000 7 7.0000 0.0000 7.0000 8 8.0000 -1.0000 8.0000 9 9.0000 0.0000 9.0000 10 10.0000 -0.0000 10.0000 11 11.0000 0.0000 11.0000 12 12.0000 -0.0000 12.0000 13 13.0000 0.0000 13.0000 14 14.0000 -0.0000 14.0000 15 15.0000 0.0000 15.0000 16 16.0000 -0.5000 16.0000 TEST03 HAAR computes a Haar transform. HNORM normalizes the transformed data. HAARIN computes an inverse Haar transform. I X(I) Y=HAAR(X) Z=HNORM(Y) W=HAARIN(Z) 1 0.2184 6.5591 0.4099 0.2184 2 0.9563 0.2707 0.0169 0.9563 3 0.8295 1.7170 0.2146 0.8295 4 0.5617 -0.7660 -0.0958 0.5617 5 0.4153 -0.2165 -0.0541 0.4153 6 0.0661 0.1139 0.0285 0.0661 7 0.2576 0.1665 0.0416 0.2576 8 0.1100 0.3569 0.0892 0.1100 9 0.0438 -0.7379 -0.3689 0.0438 10 0.6340 0.2678 0.1339 0.6340 11 0.0617 0.3492 0.1746 0.0617 12 0.4495 0.1476 0.0738 0.4495 13 0.4013 -0.5901 -0.2951 0.4013 14 0.7547 -0.3878 -0.1939 0.7547 15 0.7973 -0.3534 -0.1767 0.7973 16 0.0018 0.7954 0.3977 0.0018 I X(I) Y=HAAR(X) Z=HNORM(Y) W=HAARIN(Z) 1 1.0000 136.0000 8.5000 1.0000 2 2.0000 -64.0000 -4.0000 2.0000 3 3.0000 -16.0000 -2.0000 3.0000 4 4.0000 -16.0000 -2.0000 4.0000 5 5.0000 -4.0000 -1.0000 5.0000 6 6.0000 -4.0000 -1.0000 6.0000 7 7.0000 -4.0000 -1.0000 7.0000 8 8.0000 -4.0000 -1.0000 8.0000 9 9.0000 -1.0000 -0.5000 9.0000 10 10.0000 -1.0000 -0.5000 10.0000 11 11.0000 -1.0000 -0.5000 11.0000 12 12.0000 -1.0000 -0.5000 12.0000 13 13.0000 -1.0000 -0.5000 13.0000 14 14.0000 -1.0000 -0.5000 14.0000 15 15.0000 -1.0000 -0.5000 15.0000 16 16.0000 -1.0000 -0.5000 16.0000 TEST04 FFWT computes a fast Walsh transform. I X(I) Y=FFWT(X)/N Z=FFWT(Y)/N 1 0.2184 0.4099 0.2184 2 0.9563 0.0169 0.9563 3 0.8295 0.1552 0.8295 4 0.5617 0.0594 0.5617 5 0.4153 -0.0325 0.4153 6 0.0661 -0.0088 0.0661 7 0.2576 -0.0391 0.2576 8 0.1100 0.0263 0.1100 9 0.0438 -0.1347 0.0438 10 0.6340 0.0342 0.6340 11 0.0617 -0.1346 0.0617 12 0.4495 -0.0163 0.4495 13 0.4013 -0.1492 0.4013 14 0.7547 0.0283 0.7547 15 0.7973 0.0352 0.7973 16 0.0018 -0.0318 0.0018 I X(I) Y=FFWT(X)/N Z=FFWT(Y)/N 1 1.0000 8.5000 1.0000 2 2.0000 -4.0000 2.0000 3 3.0000 0.0000 3.0000 4 4.0000 -2.0000 4.0000 5 5.0000 0.0000 5.0000 6 6.0000 0.0000 6.0000 7 7.0000 0.0000 7.0000 8 8.0000 -1.0000 8.0000 9 9.0000 0.0000 9.0000 10 10.0000 0.0000 10.0000 11 11.0000 0.0000 11.0000 12 12.0000 0.0000 12.0000 13 13.0000 0.0000 13.0000 14 14.0000 0.0000 14.0000 15 15.0000 0.0000 15.0000 16 16.0000 -0.5000 16.0000 WALSH_TEST Normal end of execution. 19 March 2018 12:46:19.746 PM