harj43.m

% Tehdään pulkkamäen malli paloittain määriteltynä funktiona
function harj43
    x = linspace( 0, 300 );
    y = pulkkamaki(x);
    plot( x, y )
    xlabel( 'x' )
    ylabel( 'y' )
end


% Pulkkamäki paloittain määriteltynä funktiona
function y = pulkkamaki(x)
    for i=1:length(x)
        if x(i) < 5
            y(i) = 0;
        elseif x(i) < 280
            y(i) = 46/2*(1-cos(pi*(x(i)-5)/275));
        else
            y(i) = 46;
        end
    end
end