Commit 5ba95406 authored by Philip Roy Charlton's avatar Philip Roy Charlton

Test function for new version of coarseGrain

parent bd61b9b7
......@@ -287,7 +287,7 @@ function pass=test_coarse(f0_x, df_x, Nx, f0_y, df_y, Ny)
x = generate_data(f0_x, df_x, Nx);
[y, index1, index2, frac1, frac2] = coarseGrain_new(x, f0_y, df_y, Ny);
[y, index1, index2, frac1, frac2] = coarseGrain(x, f0_y, df_y, Ny);
% Check the characteristics of the coarse-grained series
......@@ -359,7 +359,7 @@ function pass=test_v3(f0_x, df_x, Nx, f0_y, df_y, Ny)
x = generate_data(f0_x, df_x, Nx);
[y, index1, index2, frac1, frac2] = coarseGrain_new(x, f0_y, df_y, Ny);
[y, index1, index2, frac1, frac2] = coarseGrain(x, f0_y, df_y, Ny);
[y1, i1, i2, f1, f2] = coarseGrain_v3(x, f0_y, df_y, Ny);
if (length(y.data) == length(y1.data))
......@@ -432,7 +432,7 @@ function pass=test_time(f0_x, df_x, Nx, f0_y, df_y, Ny, reps)
tic;
for k = 1:reps
[y, index1, index2, frac1, frac2] = coarseGrain_new(x, f0_y, df_y, Ny);
[y, index1, index2, frac1, frac2] = coarseGrain(x, f0_y, df_y, Ny);
end;
t = toc;
fprintf('New time = %f secs/use\n', t/reps);
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment