13 lines
285 B
Matlab
13 lines
285 B
Matlab
|
% Copyright (C) 2004 Michel Juillard
|
||
|
%
|
||
|
function [m,s,p1,p2] = uniform_specification(m,s,p3,p4)
|
||
|
if ~(isnan(p3) | isnan(p4))
|
||
|
p1 = p3;
|
||
|
p2 = p4;
|
||
|
m = (p3+p4)/2;
|
||
|
s = (p4-p3)/(sqrt(12));
|
||
|
else
|
||
|
p1 = m-s*sqrt(3);
|
||
|
p2 = m+s*sqrt(3);
|
||
|
end
|