22 April 2023 4:23:54.672 PM walsh_transform_test(): FORTRAN90 version Test walsh_transform(). TEST01 FWT computes a fast Walsh transform. I X(I) Y=FWT(X)/N Z=FWT(Y)/N 1 0.4973 0.4529 0.4973 2 0.0668 -0.0332 0.0668 3 0.0836 -0.0766 0.0836 4 0.4890 -0.0590 0.4890 5 0.4430 -0.0401 0.4430 6 0.4942 0.0823 0.4942 7 0.3180 -0.0008 0.3180 8 0.9658 -0.0436 0.9658 9 0.5969 0.1125 0.5969 10 0.0801 0.0665 0.0801 11 0.9105 0.0338 0.9105 12 0.4273 -0.0039 0.4273 13 0.3642 0.1746 0.3642 14 0.7318 -0.0841 0.7318 15 0.0379 -0.0378 0.0379 16 0.7400 -0.0465 0.7400 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.4853 0.5408 0.4853 2 0.4179 0.0798 0.4179 3 0.7014 -0.0197 0.7014 4 0.6825 -0.0290 0.6825 5 0.7353 0.1108 0.7353 6 0.8101 -0.2226 0.8101 7 0.3661 0.0052 0.3661 8 0.7657 -0.0136 0.7657 9 0.9439 0.0365 0.9439 10 0.5889 0.0101 0.5889 11 0.2521 -0.0197 0.2521 12 0.0220 -0.0148 0.0220 13 0.1439 0.0706 0.1439 14 0.0923 -0.0004 0.0923 15 0.8053 -0.0619 0.8053 16 0.8399 0.0134 0.8399 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.8549 10.0999 0.6312 0.8549 2 0.7217 -1.6006 -0.1000 0.7217 3 0.5324 0.6360 0.0795 0.5324 4 0.3338 -1.0078 -0.1260 0.3338 5 0.5237 0.7104 0.1776 0.5237 6 0.2676 -0.2242 -0.0561 0.2676 7 0.5658 -0.3517 -0.0879 0.5658 8 0.4497 0.2088 0.0522 0.4497 9 0.5878 0.1333 0.0666 0.5878 10 0.4469 0.1986 0.0993 0.4469 11 0.6272 0.2561 0.1281 0.6272 12 0.7593 0.1161 0.0581 0.7593 13 0.9008 0.1409 0.0704 0.9008 14 0.9181 -0.1320 -0.0660 0.9181 15 0.8597 -0.0173 -0.0086 0.8597 16 0.7504 0.1093 0.0547 0.7504 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.3049 0.4711 0.3049 2 0.8456 0.0700 0.8456 3 0.2807 -0.1104 0.2807 4 0.3197 0.0070 0.3197 5 0.9747 0.0641 0.9747 6 0.2062 0.0316 0.2062 7 0.8395 0.0373 0.8395 8 0.5571 0.0045 0.5571 9 0.9426 0.0345 0.9426 10 0.0940 -0.0364 0.0940 11 0.2981 -0.1875 0.2981 12 0.7394 0.0640 0.7394 13 0.1882 -0.1141 0.1882 14 0.2485 -0.0897 0.2485 15 0.6800 -0.0336 0.6800 16 0.0179 0.0925 0.0179 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_transform_test(): Normal end of execution. 22 April 2023 4:23:54.673 PM