function [y,y1]=Funktionen(x,p)
y=30*(1+p).^x;
y1=x.^4+30;
endfunction