function rhp_zero=finn_rhp_zero(G)
[num_G,den_G]=tfdata(G,'v');
nullpunkt=roots(num_G);

nullpunkt_HHP=0;
for ii=1:length(nullpunkt)
    if(real(nullpunkt(ii))>0)
        if(nullpunkt_HHP==0)
            nullpunkt_HHP=nullpunkt(ii);
        else
            plass=length(nullpunkt_HHP)+1;
            nullpunkt_HHP(plass)=nullpunkt(ii);
        end
        
    end
end


rhp_zero=nullpunkt_HHP;

end

