Cody

# Problem 42688. Determine the full width at half max

Solution 783272

Submitted on 24 Nov 2015 by LY Cao
• Size: 18
• This is the leading solution.
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')));