function Masse()

clear all
clc
format short
n = input('Bitte geben Sie hier die Anzahl der Teilstücke ein: ');
clc
disp('Lassen Sie die Dicht frei und der Wert 7,85 wird angenommen!')
roh = input('Bitte geben Sie hier die Dichte des Materials ein [g/cm³]: ');
clc
if isempty(roh)
   roh=7.85;
end
i=1;
for i=1:n
   disp( [ num2str(i) '. Teilstück von ' num2str(n)] )
   d(i) = input('Bitte hier den Durchmesser angeben [cm]: ');
   if isempty(d(i))
      disp('Bitte geben Sie ....')
      return
   end
   l(i) = input('Bitte hier die Länge des Teilstückes [cm]: ');
   V(i)=((pi/4).*d(i)^2).*l(i);
   m(i)=V(i).*roh;
   M=sum(m);
end
disp(['Die Einzelmassen betragen in [g]: ',num2str(m),])
disp(['Die Gesamtmasse der Welle beträgt in [g]: ',num2str(M),])