function [fok rad]= fpm2fok(f,p,m)
% Fok-perc-másodpercből tizedfok
% Bemenet: a) vesszővel elválasztva fok, perc, mp
%          b) vektorban: [fok perc mp]
%          c) mátrixban: 1. oszlop- fok, 2. perc, 3. mpoles
% Kimenet: [tizedfok, radián]
valtozok_szama = nargin;
switch valtozok_szama
  case 3 % 3 bemenet esetén  -> fok,perc,mp
    fok = f + p/60 + m/3600;
  case 1 % 1 bemenet esetén -> [fok perc mp]
    fok = f(:,1) + f(:,2)/60 + f(:,3)/3600;
end
rad = fok*pi/180;
end