Cody

Problem 42688. Determine the full width at half max

Solution 783316

Submitted on 24 Nov 2015 by Carl Witthoft
This solution is locked. To view this solution, you need to provide a solution of the same size or smaller.

Test Suite

Test Status Code Input and Output
1   Pass
%% 1 y = [0 1 2 3 4 3 2 1 0]; F = 4; assert(abs((fwhm(y)-F)/F)<0.1)

2   Pass
%% 2 y = [0, 1:10, 9:-1:1, 0]; F = 10; assert(abs((fwhm(y)-F)/F)<0.1)

3   Pass
%% 3 y = [0 1 1 1 1 0]'; F = 4; assert(abs((fwhm(y)-F)/F)<0.1)

4   Pass
%% 4 y = [zeros(1,3),ones(1,10),zeros(1,5)]; F = 10; assert(abs((fwhm(y)-F)/F)<0.1)

5   Pass
%% 5 for i = 1:200 maxX = randi(10) + 10; F = rand*4+1; x = -maxX:maxX; y = exp(-4*log(2)*x.^2/F^2); assert(abs((fwhm(y)-F)/F)<0.1) end

6   Pass
%% user_solution = fileread('fwhm.m'); assert(isempty(strfind(user_solution,'regexp'))); assert(isempty(strfind(user_solution,'num2str'))); assert(isempty(strfind(user_solution,'fprintf'))); assert(isempty(strfind(user_solution,'assert')));