Vattennivåavläsning med kamerateknik

function varargout = hp_OutputFcn(hObject, eventdata, handles)varargout{1} = handles.output;% ------------------------------x------------------------------function zoomin_Callback(hObject, eventdata, handles)% Definierar vad som händer när knappen ”Zooma in” trycks ner.zoom on% ------------------------------x------------------------------function zoomout_Callback(hObject, eventdata, handles)% Definierar vad som händer när knappen ”Zooma ut” trycks ner.zoom out% ------------------------------x------------------------------function vattenniv_Callback(hObject, eventdata, handles)% Definierar vad som händer när knappen ”Vattennivå” trycks% ner. Hämtar pixelkoordinaterna för den pixel som klickas på% och sparas i variabeln n. Läser in x- och y-värden i% variabeln niv.zoom offwaitforbuttonpress;n=round(get(gca,'currentpoint'));niv=n(1,1:2,1);save niv niv;% ------------------------------x------------------------------function resultat_Callback(hObject, eventdata, handles)% Definierar vad som händer när knappen ”Resultat” trycks% ner. Hämtar variabeln niv och utför sedan den önskade% interpolationen på de fördefinierade värdena.load niv;% Fördefinierade värden för pegel1.jpgt=[158;668;1088;1432;1725;1977];p=[476;474;472;470;468;466];x=1:1:2816;% Här väljs vilken metod som ska användas. Vid körning av% programmet måste de två metoder som ej önskas användas% kommenteras bort. Detta måste ske manuellt.y = interp1(t,p,x, 'linear', 'extrap'); % Styckvis linjäry = interp1(t,p,x, 'spline', 'extrap'); % Kubisk splinep1 = polyfit(t,p,1); y=polyval(p1,x); % Minstakvadratmetoden% Läser av och avrundar vilket värde på meter över havet den% inlästa pixeln har. Skriver ut resultatet i MATLAB-fönstret.b=niv(1,2);k=y(b);hojd2=k*100;hojd3=round(hojd2);hojd4=hojd3/100;disp(['Vattnet står ' num2str(hojd4) ' meter över havet.'])III