function Berechnung() { // Copyright Arthur Wenzel, DL7AHW
  var zd = 1 * document.E.zyl_durchmesser.value.replace(/,/, "."); // Zylinderdurchmesser abfragen
  var zh = 1 * document.E.zyl_hoehe.value.replace(/,/, "."); // Zylinderhoehe abfragen
  var A = Math.PI * zh * zd; // Zylindermantelflaeche errechnen
  document.E.zyl_flaeche.value = Math.round(A); // Zylinderflaeche runden und ausgeben
  A = A/100; // in Quadratzentimeter umrechnen
  if(A > 0 && A < 200)         {m = 0.03500; i =  0;}; // Logarithmus als Geraden annaehern
  if(A >=  200  && A <  1000 ) {m = 0.01280; i =  4;};
  if(A >= 1000  && A <  2600 ) {m = 0.00750; i =  9;};
  if(A >= 2600  && A <  5000 ) {m = 0.00370; i = 19;};
  if(A >= 5000  && A <  9000 ) {m = 0.00250; i = 25;};
  if(A >= 9000  && A <= 10000) {m = 0.00184; i = 31;};
  if(A > 10000 )               {m = 0.00184; i = 28;};
  var C  = m * A + i; // Kapazitaet des Zylinders errechnen
  document.E.zyl_kapazitaet.value = Math.round(C*100)/100; // Kapazitaet runden und ausgeben
  document.E.zyl_kapazitaet.value = document.E.zyl_kapazitaet.value.replace(/\./, ","); // Punkt in Komma
  var f = 1 * document.E.frequenz.value.replace(/,/, "."); // Frequenz abfragen
  var L = 25330.296 / (Math.pow(f,2) * C); // Induktivitaet errechnen
  document.E.spu_induktivitaet.value = Math.round(L * 100)/100; // Induktivitaet runden und ausgeben
  document.E.spu_induktivitaet.value = document.E.spu_induktivitaet.value.replace(/\./, ","); // Punkt in Komma
  var sd = 1 * document.E.spu_durchmesser.value.replace(/,/, ".");  // Spulendurchmesser abfragen
  var dd = 1 * document.E.spu_drahtstaerke.value.replace(/,/, "."); // Drahtstaerke abfragen
  var wv = 0;
  var ax = 0;
  var W = 0;
  var Lae = 30;
  for (var x = 1; x <= 10; x++) { // Spulenlaenge errechnen
    wv = sd/Lae;
    ax = 1.4426 * Math.log(Math.pow(wv, 2));
    ax = ax + 0.4 * Math.pow(wv, 1.11) + 6.3;
    W = 1000 * Math.sqrt(L/(sd * ax));
    W = Math.round(W)/10;
    Lae = W * dd;
  };
  document.E.spu_windungen.value = Math.round(W * 10)/10; // Windungen runden und ausgeben
  document.E.spu_windungen.value = document.E.spu_windungen.value.replace(/\./, ","); // Punkt in Komma
  document.E.spu_laenge.value = Math.round(Lae * 10)/10; // Spulenlaenge runden und ausgeben
  document.E.spu_laenge.value = document.E.spu_laenge.value.replace(/\./, ","); // Punkt in Komma
  var K = (300/f) * 0.66 * 0.25; // RG58 mit V = 0,66
  document.E.koax_laenge.value = Math.round(K * 100)/100; // Laenge des Koaxialkabels runden und ausgeben
  document.E.koax_laenge.value = document.E.koax_laenge.value.replace(/\./, ","); // Punkt in Komma
};