clear all
clc
% Detta program beraknar luftmostandet hos ett objekt

Fd=20000;
rho=1e-6;
v=100;
A=1;

Cd=2*Fd/(rho*v^2*A);

% Skriver ut vardet p? skarmen
disp(['Cd = ' num2str(Cd) 'N/m'])
v=input('Ge mig en hastighet ');
% Lagg till: Varde pa v som lases in fran skarmen

Fd=0.5*Cd*rho*v;

% Skriv ut Fd pa skarmen
disp(['Fd = ' num2str(Fd) 'N/m'])