hardcoded_cdf.m

% Cumulative distribution function for hardcoded in spearate m-files
%
% P = HARDCODED_CDF(x, ID, shift, scale)
%
%INPUT
% x         value at which we are interested in the cdf value, P(X<x)
% ID        ID value of the distribution (specified in probdata.marg)
% shift  shift parameter /default = 0/
% scale     scale parameter /default = 1/
%
%OUTPUT
% P         probability of x not being exceeded
%
%NOTE:

function [P, x_grid, cdf] = hardcoded_cdf(x, ID, shift, scale)

if nargin < 4
    scale = 1;
end

if nargin < 3
    shift = 0;
end

switch ID
    case 201 % wind
        x_grid      = wind_x_grid;
        cdf         = wind_cdf;
    case 301 % snow
        x_grid      = snow_x_grid;
        cdf         = snow_cdf;
    case 1001 % dummy1
        x_grid      = dummy1_x_grid;
        cdf         = dummy1_cdf;     
    otherwise
        error(['Unknown ID: ', num2str(ID)])
end

xx          = (x - shift)/scale;

P           = interp1(x_grid, cdf, xx);

end