% Airspeed 2 Temperature

function T = airspeed2temp (data)
 c = data(:,5);

 % Airspeed
 kappa = 1.402; % eigentlich kappa(T) %% TODO %%
 R = 8.31451070; % J/(mol * K)
 M = 28.840/1000; % kg/mol eigentlich M(q) annahme 50% rel. Feuchte
 % c Genauigkeit %% TODO %%
 % c = (kappa * (R * T)/M )^(1/2)
 T = (c.^2*M)/(kappa*R);
end