Zahlen und Diagramme zur Corona-Pandemie

zeitreihen_diagramme_4wochen.php

<?php

// Was ändert sich? Länge der Grafik, Breite der Linien, Streckung

include ("./includes/header.php");

# Streckung der Werte
$s = 20;

$land_akt = $laenderverweis;

$neues_array = filter_datum_land(28);

// der Inhalt

$x2_offset = 210;

$x_offset = 80;
$diagramm_laenge = count($neues_array) * $s;

# Länge der SVG-Datei
$svg_laenge = $diagramm_laenge + $x_offset + $x2_offset;

# Höhe der SVG-Datei
$svg_hoehe = 500;

$offset_legende = $diagramm_laenge + $x_offset + 20;

# Maximum ermitteln
$max_f = max(array_column($neues_array, 9));       # Fälle
$max_f_ges = max(array_column($neues_array, 8));   # Fälle kumuliert
$max_t = max(array_column($neues_array, 48));      # Tote
$max_i = max(array_column($neues_array, 55));      # Impfungen

$FT = $max_f / $max_t;

if ( $FT > 100 ) {
 $faktor_tote = floor($FT - ($FT % 100)) / 2;
} else {
 $faktor_tote = floor($FT - ($FT % 10)) / 2;
}

if ($faktor_tote == 0) {$faktor_tote = 25;}

# Faktoren für die Skalierung ermitteln
$FI = $max_i / $max_f;

$FI_stellen = floor(log10($FI));
$FI_ziffer1 = str_split($FI)[0];

$faktor_impfungen = ($FI_ziffer1 + 1) * pow(10, $FI_stellen);

#echo "Faktor Impfungen: " . $faktor_impfungen;

# wenn der Faktor 0 ist auf Standard-Wert setzen
if ($faktor_impfungen == 0) {$faktor_impfungen = 25;}
if ($faktor_impfungen < 1) {$faktor_impfungen = 1;}

#echo "Faktor Impfungen: " . $faktor_impfungen;

echo "<h2>Verlauf der letzten 4 Wochen für " . $liste_laender_iso_de["$laenderverweis"] . "</h2>\n";

 // Neuinfektionen

echo "<h3>Neuinfektionen, Todesfälle und Impfungen (Infektionsrate, Sterberate, Impfrate) </h3>\n";

echo "<svg id='svg_fl' width='$svg_laenge' height='500'>\n";

echo "<g id='plot1' transform='translate($x_offset,0)'>\n";

# X-Achse unten
echo "<line x1='0' y1='400' x2='$diagramm_laenge' y2='400' style='stroke:#000000; stroke-width:2'/>\n";

$z = 0;

# Pointer des Array zurück setzen
reset($neues_array);

# aktuellen Wert (erster Wert) ausgeben
$ar_tmp = current($neues_array);

$wert_f3_tmp = round((400 - 400 * (floatval($ar_tmp[$liste_kopffelder["GD_Faelle_neu_14_ppm"]])) / $max_f), 1);
$wert_t3_tmp = round((400 - 400 * (floatval($ar_tmp[$liste_kopffelder["GD_Tote_neu_14_ppm"]]) * $faktor_tote) / $max_f), 1);
$wert_i3_tmp = round((400 - 400 * (floatval($ar_tmp[$liste_kopffelder["GD_Impfungen_14_ppm"]]) / $faktor_impfungen) / $max_f), 1);

$z_tmp = $z * $s + 7;

foreach ( $neues_array as $datensatz ) {
 $wert_f = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["new_cases_per_million"]]) / $max_f)), 1);
 $wert_t = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["new_deaths_per_million"]]) * $faktor_tote) / $max_f), 1);
 $wert_i = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["new_vaccinations"]] / floatval($datensatz[$liste_kopffelder["population"]]) * (1000000 / $faktor_impfungen)) / $max_f)), 1);

 # Die Y-Koordniate ergibt sich aus der Höhe der Grafik minus Dem Anteil des Wertes am Maximalwert
 $wert_f3 = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["GD_Faelle_neu_14_ppm"]])) / $max_f), 1);
 $wert_t3 = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["GD_Tote_neu_14_ppm"]]) * $faktor_tote) / $max_f), 1);
 $wert_i3 = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["GD_Impfungen_14_ppm"]]) / $faktor_impfungen) / $max_f), 1);

 # Linie zeichnen (Fälle)
 echo "<line x1='" . ( $z * $s + 3 ) . "' y1='400' x2='" . ( $z * $s + 3 ) . "' y2='$wert_f' style='stroke:#6666FF; stroke-width:5' />\n";

 # Linie zeichnen (Tote)
 echo "<line x1='" . ( $z * $s + 8 ) . "' y1='400' x2='" . ( $z * $s + 8 ) . "' y2='$wert_t' style='stroke:#FF6666; stroke-width:5' />\n";

 # Linie zeichnen (Impfungen)
 echo "<line x1='" . ( $z * $s + 12 ) . "' y1='400' x2='" . ( $z * $s + 12 ) . "' y2='$wert_i' style='stroke:#007700; stroke-width:5'/>\n";

 # Linie zeichnen (gleitender Durchschnitt Fälle)
 echo "<line x1='" . ( $z * $s + 7 ) . "' y1='$wert_f3' x2='$z_tmp' y2='$wert_f3_tmp' style='stroke:#000077; stroke-width:6' />\n";

 # Linie zeichnen (gleitender Durchschnitt Tote)
 echo "<line x1='" . ( $z * $s + 7 ) . "' y1='$wert_t3' x2='$z_tmp' y2='$wert_t3_tmp' style='stroke:#770000; stroke-width:5' />\n";

//if ( $wert_i == 0 && $wert_i_tmp == 0 ) {} else {

 # Linie zeichnen (gleitender Durchschnitt Impfungen)
 echo "<line x1='" . ( $z * $s + 7 ) . "' y1='$wert_i3' x2='$z_tmp' y2='$wert_i3_tmp' class='l_gi' style='stroke-width:5;' />\n";

//}

 $z_tmp = $z * $s + 7;
 $wert_f3_tmp = $wert_f3;
 $wert_t3_tmp = $wert_t3;
 $wert_i3_tmp = $wert_i3;

  // Datum

 # Datum zeichnen, um 90 ° im UZS gedreht
 echo "<text x='" . ($z * $s + 3) . "' y='410' style='fill:#000000;' transform='rotate(90," . ($z * $s + 3) . ",410)'>" . date("d.M", strtotime($datensatz[$liste_kopffelder["date"]])) . "</text>\n";

 # Skalenstrich zeichnen
 echo "<line x1='" . ($z * $s + 7) . "' y1='400' x2='" . ($z * $s + 7) . "' y2='405' style='stroke:#000000;' />\n";


 $index = $x;
 $z++;
}

// Skalierung

# Maximum abrunden
$max_f_gerundet = intval(round($max_f));

# Anzahl Dezimalstellen ermitteln
$laenge = strlen(strval($max_f_gerundet));

# Erste Ziffer ermitteln
$zahl1 = substr($max_f_gerundet, 0, 1);

$anzahl_skalenteile = $zahl1;

# Interval der Hauptlinen = 10 hoch Dezimalstellen - 1
# alternativ: interval_skala=ceil(log10($zahl);
$interval_skala = pow(10, ($laenge - 1));

# Hauptlinien zeichnen

for ( $a = 1; $a <= $anzahl_skalenteile; $a++ ) {
 echo "<line x1='0' y1='" . round((400 - 400 * $a * $interval_skala / $max_f ), 1) . "' x2='$diagramm_laenge' y2='" . round((400 - 400 * $a * $interval_skala / $max_f), 1) . "' style='stroke:#555555; stroke-width:1'/>\n";
 echo "<text x='-2' y='" . round((405 - 400 * $a * $interval_skala / $max_f), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . $a * $interval_skala . "</text>\n";
 echo "<text x='-2' y='" . (round((405 - 400 * $a * $interval_skala / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . round($a * $interval_skala / $faktor_tote, 2) . "</text>\n";
 echo "<text x='-2' y='" . (round((405 - 400 * $a * $interval_skala / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#007700;font-size:80%;'>" . $a * $interval_skala * $faktor_impfungen . "</text>\n";

# Hilflinien zeichnen
 # wenn es weniger als 3 Skalenstriche geben würde
 if ( $anzahl_skalenteile < 3 ){
  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ) . "' x2='" . $diagramm_laenge . "' y2='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . round((405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . ( $a * $interval_skala - $interval_skala / 2 ) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . round(( $a * $interval_skala - $interval_skala / 2 ) / $faktor_tote, 2) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#007700;font-size:80%;'>" . ( $a * $interval_skala - $interval_skala / 2 ) * $faktor_impfungen . "</text>\n";
  
  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f ) . "' x2='$diagramm_laenge' y2='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . round((405 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f ), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . ( $a * $interval_skala + $interval_skala / 2 ) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . round(( $a * $interval_skala + $interval_skala / 2 ) / $faktor_tote, 2) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#007700;font-size:80%;'>" . ( $a * $interval_skala + $interval_skala / 2 ) * $faktor_impfungen . "</text>\n";
 }
}

echo "<text x='" . ( 12 - $x_offset ) . "' y='300' style='fill:#000000' transform='rotate(-90," . ( 12 - $x_offset ) . ",300)'>Je Million Einwohner</text>\n";

echo "</g>\n";


// Legende1
echo "\n<g id='legende1' transform='translate($offset_legende,50)'>
<rect x='0' y='40' rx='8' ry='8' width='170' height='100' style='stroke:#000000; fill:#FFEECC; stroke-width:2; fill-opacity:0.8' />
<text x='20' y='60' style='fill:#000000'>Legende</text>
<text x='30' y='80' style='fill:#0000FF'>Neuinfektionen</text>
<text x='30' y='100' style='fill:#FF0000'>Todesfälle</text>
<text x='30' y='120' style='fill:#007700'>Impfungen</text>
</g>\n";

echo "</svg>\n\n";


// Regression

# Summe der X-Werte (1 - 28)
$summe_x = array_sum(range(1, 28));

# Summe der y-Werte (Fälle)
$summe_y_f = array_sum(array_column($neues_array, 9));

# Summe der y-Werte (Tote)
$summe_y_t = array_sum(array_column($neues_array, 11));

# Mittelwert der X-Werte
$x_quer = $summe_x / 28;

# Mittelwert der Y-Werte (Fälle)
$y_quer_f = $summe_y_f / 28;

# Mittelwert der Y-Werte (Tote)
$y_quer_t = $summe_y_t / 28;

$xi = 1;

# Für jeden Datensetz
foreach ($neues_array as $datensatz) {
 $yi_f = $datensatz[$liste_kopffelder["new_cases_per_million"]];
 $yi_t = $datensatz[$liste_kopffelder["new_deaths_per_million"]];
 $summe_xx += ( $xi - $xquer ) * ( $xi - $xquer );                         
 $summe_xy2_f += $xi * $yi_f;
 $summe_xy2_t += $xi * $yi_t;
 $xi++;
}

# Berechnung des Regressionskoeffizienten für die Fälle
$anstieg_f = ($summe_xy2_f - 28 * $x_quer * $y_quer_f) / ($summe_xx - 28 * $x_quer * $x_quer);

# Berechnung des Regressionskoeffizienten für die Todefälle
$anstieg_t = ($summe_xy2_t - 28 * $x_quer * $y_quer_t) / ($summe_xx - 28 * $x_quer * $x_quer);

$abschnitt_f = $y_quer_f - ( $anstieg_f * $x_quer );
$abschnitt_t = $y_quer_t - ( $anstieg_t * $x_quer );

// Determinationskoeffizient

$xi = 1;

foreach ($neues_array as $datensatz) {
 $yi_f = $datensatz[$liste_kopffelder["new_cases_per_million"]];
 $yi_t = $datensatz[$liste_kopffelder["new_deaths_per_million"]];
 
 $yi_f_erwartet = $xi * $anstieg_f + $abschnitt_f;
 $yi_t_erwartet = $xi * $anstieg_t + $abschnitt_t;

 $sqr_f += pow($yi_f - $yi_f_erwartet, 2);
 $sqr_t += pow($yi_t - $yi_t_erwartet, 2);
 $sqt_f += pow($yi_f - $y_quer, 2);
 $sqt_t += pow($yi_t - $y_quer, 2);
 $xi++;
}

$r2_f = 1 - $sqr_f / $sqt_f;
$r2_t = 1 - $sqr_t / $sqt_t;

echo "<h3>Lineare Regression</h3>";

echo "<svg id='svg_fl' width='" . ( $svg_laenge + 100 ) . "' height='500'>\n";

echo "<g id='plot1' transform='translate($x_offset,0)'>\n";

// Skalierung

# x-Achse unten
echo "<line x1='0' y1='400' x2='$diagramm_laenge' y2='400' style='stroke:#000000; stroke-width:2'/>\n";

# Hauptlinien zeichnen
for ( $a = 1; $a <= $anzahl_skalenteile; $a++ ) {
 echo "<line x1='0' y1='" . round(( 400 - 400 * $a * $interval_skala / $max_f ), 1) . "' x2='$diagramm_laenge' y2='" . round((400 - 400 * $a * $interval_skala / $max_f), 1) . "' style='stroke:#555555; stroke-width:1'/>\n";
 echo "<text x='-2' y='" . round(( 405 - 400 * $a * $interval_skala / $max_f ), 1) . "' text-anchor='end' style='fill:#6666FF;font-size:90%;'>" . $a * $interval_skala . "</text>\n";
 echo "<text x='-2' y='" . round(( 405 - 400 * $a * $interval_skala / $max_f ) + 15, 1) . "' text-anchor='end' style='fill:#FF6666;font-size:90%;'>" . round($a * $interval_skala / $faktor_tote, 2) . "</text>\n";

# Hilflinien zeichnen
 # wenn es weniger als 3 Skalenstriche geben würde
 if ( $anzahl_skalenteile < 3 ){
  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ) . "' x2='$diagramm_laenge' y2='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . round(( 405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ), 1) . "' text-anchor='end' style='fill:#6666FF;font-size:90%;'>" . ( $a * $interval_skala - $interval_skala / 2 ) . "</text>\n";
  echo "<text x='-2' y='" . round(( 405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ) + 15, 1) . "' text-anchor='end' style='fill:#FF6666;font-size:90%;'>" . round(( $a * $interval_skala - $interval_skala / 2 ) / $faktor_tote, 2) . "</text>\n";

  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f ) . "' x2='$diagramm_laenge' y2='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . round(( 405 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f ), 1) . "' text-anchor='end' style='fill:#6666FF;font-size:90%;'>" . ( $a * $interval_skala + $interval_skala / 2 ) . "</text>\n";
  echo "<text x='-2' y='" . round(( 405 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f ) + 15, 1) . "' text-anchor='end' style='fill:#FF6666;font-size:90%;'>" . round(( $a * $interval_skala + $interval_skala / 2 ) / $faktor_tote, 2) . "</text>\n";
 }
}

echo "<text x='" . ( 12 - $x_offset ) . "' y='300' style='fill:#000000' transform='rotate(-90," . ( 12 - $x_offset ) . ",300)'>Je Million Einwohner</text>\n";

$z = 0;

reset($neues_array);
$ar_tmp = current($neues_array);

$wert_f3_tmp = round((400 - 400 * (floatval($ar_tmp[$liste_kopffelder["GD_Faelle_neu_14_ppm"]])) / $max_f), 1);
$wert_t3_tmp = round((400 - 400 * (floatval($ar_tmp[$liste_kopffelder["GD_Tote_neu_14_ppm"]]) * $faktor_tote) / $max_f), 1);

$z_tmp=0;

foreach ( $neues_array as $datensatz ) {
 $wert_f = floatval($datensatz[$liste_kopffelder["new_cases_per_million"]]);
 $wert_t = floatval($datensatz[$liste_kopffelder["new_deaths_per_million"]]) * $faktor_tote;

 # Die Y-Koordniate ergibt sich aus der Höhe der Grafik minus Dem Anteil des Wertes am Maximalwert
 $wert_f3 = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["GD_Faelle_neu_14_ppm"]])) / $max_f), 1);
 $wert_t3 = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["GD_Tote_neu_14_ppm"]]) * $faktor_tote) / $max_f), 1);


 echo "<circle cx='" . ($z * $s + 3) . "' cy='" . round((400 - 400 * $wert_f / $max_f), 1) . "' r='4' style='fill:#6666FF;' />\n";
 echo "<circle cx='" . ($z * $s + 10) . "' cy='" . round((400 - 400 * $wert_t / $max_f), 1) . "' r='4' style='fill:#FF6666;' />\n";

 $z_tmp = $z * $s;
 $wert_f3_tmp = $wert_f3;
 $wert_t3_tmp = $wert_t3;

 // Datum

 # Datum zeichnen, um 90 ° im UZS gedreht
 echo "<text x='" . ($z * $s + 3) . "' y='410' style='fill:#000000;' transform='rotate(90," . ($z * $s + 3) . ",410)'>" . date("d.M", strtotime($datensatz[$liste_kopffelder["date"]])) . "</text>\n";

 # Skalenstrich zeichnen
 echo "<line x1='" . ($z * $s + 7) . "' y1='400' x2='" . ($z * $s + 7) . "' y2='405' style='stroke:#000000;' />\n";

 $index = $x;
 $z++;
}

// Regressionsgeraden

echo "<line x1='5' y1='" . round((400 - 400 * ($anstieg_f + $abschnitt_f) / $max_f), 1) . "' x2='" . ($z * $s - 10) . "' y2='" . round((400 - 400 * ( 28 * $anstieg_f + $abschnitt_f ) / $max_f), 1) .  "' style='stroke:#000066;stroke-width:3px;' />\n";
echo "<line x1='5' y1='" . round((400 - 400 * ($anstieg_t + $abschnitt_t) * $faktor_tote / $max_f), 1) . "' x2='" . ($z * $s - 10) . "' y2='" . round((400 - 400 * ( 28 * $anstieg_t + $abschnitt_t ) * $faktor_tote / $max_f), 1) .  "' style='stroke:#660000;stroke-width:3px;' />\n";

echo "</g>\n";

echo "<text x='" . $offset_legende . "' y='250' style='fill:#000066;'>Trendlinie: y = " . number_format($anstieg_f, 3, ",",".") . "x + " . number_format($abschnitt_f, 2, ",",".") . "</text>";
echo "<text x='" . ($offset_legende + 105) . "' y='270' style='fill:#000066;'>R² = " . number_format($r2_f, 4, ",",".") . "</text>";
echo "<text x='" . ($offset_legende + 105) . "' y='290' style='fill:#000066;'>R = " . number_format(sqrt($r2_f), 4, ",",".") . "</text>";

echo "<text x='" . $offset_legende . "' y='330' style='fill:#660000;'>Trendlinie: y = " . number_format($anstieg_t, 3, ",",".") . "x + " . number_format($abschnitt_t, 2, ",",".") . "</text>";
echo "<text x='" . ($offset_legende + 105) . "' y='350' style='fill:#660000;'>R² = " . number_format($r2_t, 4, ",",".") . "</text>";
echo "<text x='" . ($offset_legende + 105) . "' y='370' style='fill:#660000;'>R = " . number_format(sqrt($r2_t), 4, ",",".") . "</text>";

// Legende

echo "\n<g id='legende2' transform='translate($offset_legende,50)'>
<rect x='0' y='35' rx='8' ry='8' width='170' height='80' style='stroke:#000000; fill:#FFEECC; stroke-width:2; fill-opacity:0.8' />
<text x='20' y='60' style='fill:#000000'>Legende</text>
<text x='30' y='80' style='fill:#0000FF'>Neuinfektionen</text>
<text x='30' y='100' style='fill:#ff0000'>Todesfälle</text>
</g>\n";

echo "</svg>\n\n";


// Gesamtinfektionen1

echo "<!-- Gesamtinfektionen 1 -->\n\n";

echo "<h3>Aktive Infektionen, Genesene und Todesfälle im Vergleich</h3>\n";
echo "<svg width='$svg_laenge' height='500'>\n";

echo "<g id='plot2' transform='translate($x_offset,0)'>\n";

# X-Achse unten
echo "<line x1='0' y1='400' x2='$diagramm_laenge' y2='400' style='stroke:#000000; stroke-width:2'/>\n";

// Skalierung

# Maximum abrunden
$max_f_gerundet = intval(round($max_f_ges));

# Anzahl Dezimalstellen ermitteln
$laenge = strlen(strval($max_f_gerundet));

# Erste Ziffer ermitteln
$zahl1 = substr($max_f_gerundet, 0, 1);

$anzahl_skalenteile = $zahl1;

# Interval der Hauptlinen = 10 hoch Dezimalstellen - 1
$interval_skala = pow(10, ($laenge - 1));

# Hauptlinien zeichnen
for ( $a = 1; $a <= $anzahl_skalenteile; $a++ ) {
 echo "<line x1='0' y1='" . round((400 - 400 * $a * $interval_skala / $max_f_ges), 1) . "' x2='$diagramm_laenge' y2='" . round((400 - 400 * $a * $interval_skala / $max_f_ges), 1) . "' style='stroke:#555555; stroke-width:1'/>\n";
 echo "<text x='-2' y='" . round((405 - 400 * $a * $interval_skala / $max_f_ges), 1) . "' text-anchor='end' style='fill:#000000;'>" . number_format($a * $interval_skala, 0,",",".") . "</text>\n";

 # Hilflinien zeichnen
 # wenn es weniger als 3 Skalenstriche geben würde
 if ( $anzahl_skalenteile < 3 ){
  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f_ges ) . "' text-anchor='end' x2='" . $diagramm_laenge . "' y2='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f_ges ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . ( 405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f_ges ) . "' text-anchor='end' style='fill:#000000'>" . number_format(($a * $interval_skala - $interval_skala / 2), 0,",",".") . "</text>\n";

  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f_ges ) . "' text-anchor='end' x2='" . $diagramm_laenge . "' y2='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f_ges ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . ( 405 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f_ges ) . "' text-anchor='end' style='fill:#000000'>" . number_format(($a * $interval_skala + $interval_skala / 2), 0,",",".") . "</text>\n";
 }
}

echo "<text x='" . ( 12 - $x_offset ) . "' y='300' style='fill:#000000' transform='rotate(-90," . ( 12 - $x_offset ) . ",300)'>Je Million Einwohner</text>\n";

$z = 0;

foreach ( $neues_array as $datensatz ) {
 $wert_f = floatval($datensatz[$liste_kopffelder["total_cases_per_million"]]);
 $wert_t = floatval($datensatz[$liste_kopffelder["total_deaths_per_million"]]);
 $wert_g = floatval($datensatz[$liste_kopffelder["Genesene_ppm"]]);

 // Datum

 # Datum zeichnen, um 90 ° im UZS gedreht
 echo "<text x='" . ($z * $s + 5) . "' y='410' style='fill:#000000;' transform='rotate(90," . ($z * $s + 5) . ",410)'>" . date("d.M", strtotime($datensatz[$liste_kopffelder["date"]])) . "</text>\n";

 # Skalenstrich zeichnen
 echo "<line x1='" . ($z * $s + 5) . "' y1='400' x2='" . ($z * $s + 5) . "' y2='405' style='stroke:#000000;' />\n";

 # Fälle
 echo "<line x1='" . ($z * $s + 5) . "' y1='400' x2='" . ($z * $s + 5) . "' y2='" . round((400 - 400 * $wert_f / $max_f_ges), 1) . "' style='stroke:#2222AA; stroke-width:10'/>\n";

 # Genesene
 echo "<line x1='" . ($z * $s + 5) . "' y1='400' x2='" . ($z * $s + 5) . "' y2='" . round((400 - 400 * $wert_g / $max_f_ges), 1) . "' style='stroke:#FF6600; stroke-width:10'/>\n";

 # Tote
 echo "<line x1='" . ($z * $s + 5) . "' y1='400' x2='" . ($z * $s + 5) . "' y2='" . round((400 - 400 * $wert_t / $max_f_ges), 1) . "' style='stroke:#AA2222; stroke-width:10'/>\n";

 $z++;
}

echo "</g>";

//Legende
echo "\n<g id='legende3' transform='translate($offset_legende,50)'>
<rect x='0' y='40' rx='8' ry='8' width='170' height='85' style='stroke:#000000; fill:#FFEECC; stroke-width:2; fill-opacity:0.8' />
<text x='10' y='60' style='fill:#000000'>Legende</text>
<text x='20' y='80' style='fill:#0000ff;font-size:14;'>Aktive Infektionen</text>
<text x='20' y='95' style='fill:#FF6600;font-size:14;'>Genesene</text>
<text x='20' y='110' style='fill:#FF0000;font-size:14;'>Todesfälle</text>
</g>\n";

echo "</svg>\n";

// Gesamtinfektionen2

echo "<!-- Gesamtinfektionen 2 -->\n\n";

echo "<h3>Gesamtinfektionen, Todesfälle und Impfungen im Vergleich</h3>\n";
echo "<svg width='$svg_laenge' height='500'>\n";

echo "<g id='plot3' transform='translate($x_offset,0)'>\n";

# x-Achse unten
echo "<line x1='0' y1='400' x2='$diagramm_laenge' y2='400' style='stroke:#000000; stroke-width:2'/>\n";

$z = 0;

$max_f_ges = 1000000;

foreach ( $neues_array as $datensatz ) {
 $wert_f = floatval($datensatz[$liste_kopffelder["total_cases_per_million"]] );
 $wert_g = floatval($datensatz[$liste_kopffelder["Genesene_ppm"]] );
 $wert_t = floatval($datensatz[$liste_kopffelder["total_deaths_per_million"]] );
 $wert_i1 = floatval($datensatz[$liste_kopffelder["people_vaccinated_per_hundred"]] * 10000);
 $wert_i2 = floatval($datensatz[$liste_kopffelder["people_fully_vaccinated_per_hundred"]] * 10000);

 // Datum zeichnen

 # Datum zeichnen, um 90 ° im UZS gedreht
 echo "<text x='" . ($z * $s + 3) . "' y='410' style='fill:#000000;' transform='rotate(90," . ($z * $s + 3) . ",410)'>" . date("d.M", strtotime($datensatz[$liste_kopffelder["date"]])) . "</text>\n";

 # Skalenstrich zeichnen
 echo "<line x1='" . ($z * $s + 7) . "' y1='400' x2='" . ($z * $s + 7) . "' y2='405' style='stroke:#000000;' />\n";

 # Linie zeichnen (Fälle)
 echo "<line x1='" . ( $z * $s + 3 ) . "' y1='400' x2='" . ( $z * $s + 3 ) . "' y2='" . round((400 - 400 * $wert_f / $max_f_ges), 1) . "' style='stroke:#2222AA; stroke-width:8'/>\n";

 # Linie zeichnen (Genesene)
 echo "<line x1='" . ( $z * $s + 3 ) . "' y1='400' x2='" . ( $z * $s + 3 ) . "' y2='" . round((400 - 400 * $wert_g / $max_f_ges), 1) . "' style='stroke:#FF6600; stroke-width:8'/>\n";

 # Linie zeichnen (Tote)
 echo "<line x1='" . ( $z * $s + 3 ) . "' y1='400' x2='" . ( $z * $s + 3 ) . "' y2='" . round((400 - 400 * $wert_t / $max_f_ges), 1) . "' style='stroke:#AA2222; stroke-width:8'/>\n";

 # Linie zeichnen (1. Impfung)
 echo "<line x1='" . ( $z * $s + 11 ) . "' y1='400' x2='" . ( $z * $s + 11 ) . "' y2='" . round((400 - 400 * $wert_i1 / $max_f_ges), 1) . "' style='stroke:#22AA22; stroke-width:8'/>\n";

 # Linie zeichnen (vollständig geimpft)
 echo "<line x1='" . ( $z * $s + 11 ) . "' y1='400' x2='" . ( $z * $s + 11 ) . "' y2='" . round((400 - 400 * $wert_i2 / $max_f_ges), 1) . "' style='stroke:#007700; stroke-width:8'/>\n";

 $z++;
}

// Skalierung

# Maximum abrunden
$max_f_gerundet = intval(round($max_f_ges));

# Anzahl Dezimalstellen ermitteln
$laenge = strlen(strval($max_f_gerundet));

# Erste Ziffer ermitteln
$zahl1 = substr($max_f_gerundet, 0, 1);

$anzahl_skalenteile = $zahl1;

# Interval der Hauptlinen = 10 hoch Dezimalstellen - 1
$interval_skala = pow(10, ($laenge - 1));

# Hauptlinien
for ( $a = 1; $a <= 10; $a++ ) {
 echo "<line x1='0' y1='" . round(( 400 - 400 * $a / 10 * $interval_skala / $max_f_ges), 1) . "' x2='$diagramm_laenge' y2='" . round(( 400 - 400 * $a / 10 * $interval_skala / $max_f_ges), 1) . "' style='stroke:#555555; stroke-width:1'/>\n";
 echo "<text x='-2' y='" . round(( 405 - 400 * $a / 10 * $interval_skala / $max_f_ges), 1) . "' text-anchor='end' style='fill:#000000;'>" . number_format($a * 10 , 0,",",".") . " %</text>\n";
}

echo "</g>\n";

//Legende
echo "\n<g id='legende4' transform='translate($offset_legende,50)'>
<rect x='0' y='40' rx='8' ry='8' width='180' height='115' style='stroke:#000000; fill:#FFEECC; stroke-width:2; fill-opacity:0.8' />
<text x='10' y='60' style='fill:#000000'>Legende</text>
<text x='20' y='80' style='fill:#22AA22;font-size:14;'>Erstimpfung</text>
<text x='20' y='95' style='fill:#007700;font-size:14;'>Vollständige Impfung</text>
<text x='20' y='110' style='fill:#2222AA;font-size:14;'>Aktive Infektionen</text>
<text x='20' y='125' style='fill:#FF6600;font-size:14;'>Genesene</text>
<text x='20' y='140' style='fill:#AA2222;font-size:14;'>Todesfälle</text>
</g>\n";

echo "</svg>\n";


// der Fußteil

include ("./includes/footer.php");

?>

<?php

// Was ändert sich? Länge der Grafik, Breite der Linien, Streckung

include ("./includes/header.php");

# Streckung der Werte
$s = 10;

$land_akt = $laenderverweis;

$neues_array = filter_datum_land(56);

// der Inhalt

$x2_offset = 210;

$x_offset = 80;
$diagramm_laenge = count($neues_array) * $s;

# Länge der SVG-Datei
$svg_laenge = $diagramm_laenge + $x_offset + $x2_offset;

# Höhe der SVG-Datei
$svg_hoehe = 500;

$offset_legende = $diagramm_laenge + $x_offset + 20;

# Maximum ermitteln
$max_f = max(array_column($neues_array, 9));       # Fälle
$max_f_ges = max(array_column($neues_array, 8));   # Fälle kumuliert
$max_t = max(array_column($neues_array, 48));      # Tote
$max_i = max(array_column($neues_array, 55));      # Impfungen

$FT = $max_f / $max_t;

if ( $FT > 100 ) {
 $faktor_tote = floor($FT - ($FT % 100)) / 2;
} else {
 $faktor_tote = floor($FT - ($FT % 10)) / 2;
}

if ($faktor_tote == 0) {$faktor_tote = 25;}

# Faktoren für die Skalierung ermitteln
$FI = $max_i / $max_f;

$FI_stellen = floor(log10($FI));
$FI_ziffer1 = str_split($FI)[0];

$faktor_impfungen = ($FI_ziffer1 + 1) * pow(10, $FI_stellen);

#echo "Faktor Impfungen: " . $faktor_impfungen;

# wenn der Faktor 0 ist auf Standard-Wert setzen
if ($faktor_impfungen == 0) {$faktor_impfungen = 25;}
if ($faktor_impfungen < 1) {$faktor_impfungen = 1;}

#echo "Faktor Impfungen: " . $faktor_impfungen;

echo "<h2>Verlauf der letzten 8 Wochen für " . $liste_laender_iso_de["$laenderverweis"] . "</h2>\n";

 // Neuinfektionen

echo "<h3>Neuinfektionen, Todesfälle und Impfungen (Infektionsrate, Sterberate, Impfrate) </h3>\n";

echo "<svg id='svg_fl' width='$svg_laenge' height='500'>\n";

echo "<g id='plot1' transform='translate($x_offset,0)'>\n";

# X-Achse unten
echo "<line x1='0' y1='400' x2='$diagramm_laenge' y2='400' style='stroke:#000000; stroke-width:2'/>\n";

$z = 0;

# Pointer des Array zurück setzen
reset($neues_array);

# aktuellen Wert (erster Wert) ausgeben
$ar_tmp = current($neues_array);

$wert_f3_tmp = round((400 - 400 * (floatval($ar_tmp[$liste_kopffelder["GD_Faelle_neu_14_ppm"]])) / $max_f), 1);
$wert_t3_tmp = round((400 - 400 * (floatval($ar_tmp[$liste_kopffelder["GD_Tote_neu_14_ppm"]]) * $faktor_tote) / $max_f), 1);
$wert_i3_tmp = round((400 - 400 * (floatval($ar_tmp[$liste_kopffelder["GD_Impfungen_14_ppm"]]) / $faktor_impfungen) / $max_f), 1);

$z_tmp = $z * $s + 6;

foreach ( $neues_array as $datensatz ) {
 $wert_f = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["new_cases_per_million"]]) / $max_f)), 1);
 $wert_t = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["new_deaths_per_million"]]) * $faktor_tote) / $max_f), 1);
 $wert_i = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["new_vaccinations"]] / floatval($datensatz[$liste_kopffelder["population"]]) * (1000000 / $faktor_impfungen)) / $max_f)), 1);

 # Die Y-Koordniate ergibt sich aus der Höhe der Grafik minus Dem Anteil des Wertes am Maximalwert
 $wert_f3 = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["GD_Faelle_neu_14_ppm"]])) / $max_f), 1);
 $wert_t3 = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["GD_Tote_neu_14_ppm"]]) * $faktor_tote) / $max_f), 1);
 $wert_i3 = round((400 - 400 * (floatval($datensatz[$liste_kopffelder["GD_Impfungen_14_ppm"]]) / $faktor_impfungen) / $max_f), 1);

 # Linie zeichnen (Fälle)
 echo "<line x1='" . ( $z * $s + 3 ) . "' y1='400' x2='" . ( $z * $s + 3 ) . "' y2='$wert_f' style='stroke:#6666FF; stroke-width:3' />\n";

 # Linie zeichnen (Tote)
 echo "<line x1='" . ( $z * $s + 6 ) . "' y1='400' x2='" . ( $z * $s + 6 ) . "' y2='$wert_t' style='stroke:#FF6666; stroke-width:3' />\n";

 # Linie zeichnen (Impfungen)
 echo "<line x1='" . ( $z * $s + 9 ) . "' y1='400' x2='" . ( $z * $s + 9 ) . "' y2='$wert_i' style='stroke:#007700; stroke-width:3'/>\n";

 # Linie zeichnen (gleitender Durchschnitt Fälle)
 echo "<line x1='" . ( $z * $s + 6 ) . "' y1='$wert_f3' x2='$z_tmp' y2='$wert_f3_tmp' style='stroke:#000077; stroke-width:3' />\n";

 # Linie zeichnen (gleitender Durchschnitt Tote)
 echo "<line x1='" . ( $z * $s + 6 ) . "' y1='$wert_t3' x2='$z_tmp' y2='$wert_t3_tmp' style='stroke:#770000; stroke-width:3' />\n";

//if ( $wert_i == 0 && $wert_i_tmp == 0 ) {} else {

 # Linie zeichnen (gleitender Durchschnitt Impfungen)
 echo "<line x1='" . ( $z * $s + 7 ) . "' y1='" . $wert_i3 . "' x2='" . $z_tmp . "' y2='" . $wert_i3_tmp . "' class='l_gi' style='stroke-width:3;' />\n";

//}

 $z_tmp = $z * $s + 6;
 $wert_f3_tmp = $wert_f3;
 $wert_t3_tmp = $wert_t3;
 $wert_i3_tmp = $wert_i3;

  // Datum

 # Datum zeichnen, um 90 ° im UZS gedreht
 echo "<text class='datum3' x='" . ($z * $s + 3) . "' y='410' style='fill:#000000;' transform='rotate(90," . ($z * $s + 3) . ",410)'>" . date("d.M", strtotime($datensatz[$liste_kopffelder["date"]])) . "</text>\n";

 # Skalenstrich zeichnen
 echo "<line x1='" . ($z * $s + 7) . "' y1='400' x2='" . ($z * $s + 7) . "' y2='405' style='stroke:#000000;' />\n";


 $index = $x;
 $z++;
}

// Skalierung

# Maximum abrunden
$max_f_gerundet = intval(round($max_f));

# Anzahl Dezimalstellen ermitteln
$laenge = strlen(strval($max_f_gerundet));

# Erste Ziffer ermitteln
$zahl1 = substr($max_f_gerundet, 0, 1);

$anzahl_skalenteile = $zahl1;

# Interval der Hauptlinen = 10 hoch Dezimalstellen - 1
# alternativ: interval_skala=ceil(log10($zahl);
$interval_skala = pow(10, ($laenge - 1));

# Hauptlinien zeichnen

for ( $a = 1; $a <= $anzahl_skalenteile; $a++ ) {
 echo "<line x1='0' y1='" . round((400 - 400 * $a * $interval_skala / $max_f ), 1) . "' x2='$diagramm_laenge' y2='" . round((400 - 400 * $a * $interval_skala / $max_f), 1) . "' style='stroke:#555555; stroke-width:1'/>\n";
 echo "<text x='-2' y='" . round((405 - 400 * $a * $interval_skala / $max_f), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . $a * $interval_skala . "</text>\n";
 echo "<text x='-2' y='" . (round((405 - 400 * $a * $interval_skala / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . round($a * $interval_skala / $faktor_tote, 2) . "</text>\n";
 echo "<text x='-2' y='" . (round((405 - 400 * $a * $interval_skala / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#007700;font-size:80%;'>" . $a * $interval_skala * $faktor_impfungen . "</text>\n";

# Hilflinien zeichnen
 # wenn es weniger als 3 Skalenstriche geben würde
 if ( $anzahl_skalenteile < 3 ){
  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ) . "' x2='" . $diagramm_laenge . "' y2='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . round((405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . ( $a * $interval_skala - $interval_skala / 2 ) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . round(( $a * $interval_skala - $interval_skala / 2 ) / $faktor_tote, 2) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#007700;font-size:80%;'>" . ( $a * $interval_skala - $interval_skala / 2 ) * $faktor_impfungen . "</text>\n";
  
  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f ) . "' x2='$diagramm_laenge' y2='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . round((405 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f ), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . ( $a * $interval_skala + $interval_skala / 2 ) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . round(( $a * $interval_skala + $interval_skala / 2 ) / $faktor_tote, 2) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#007700;font-size:80%;'>" . ( $a * $interval_skala + $interval_skala / 2 ) * $faktor_impfungen . "</text>\n";
 }
}

echo "<text x='" . ( 12 - $x_offset ) . "' y='300' style='fill:#000000' transform='rotate(-90," . ( 12 - $x_offset ) . ",300)'>Je Million Einwohner</text>\n";

echo "</g>\n";


// Legende1
echo "\n<g id='legende1' transform='translate(" .  $offset_legende . ",50)'>
<rect x='0' y='40' rx='8' ry='8' width='170' height='100' style='stroke:#000000; fill:#FFEECC; stroke-width:2; fill-opacity:0.8' />
<text x='20' y='60' style='fill:#000000'>Legende</text>
<text x='30' y='80' style='fill:#0000FF'>Neuinfektionen</text>
<text x='30' y='100' style='fill:#FF0000'>Todesfälle</text>
<text x='30' y='120' style='fill:#007700'>Impfungen</text>
</g>\n";

echo "</svg>\n\n";


// Regression

echo "<h3>Lineare Regression</h3>";

include ("./includes/regression_56.php");


// Gesamtinfektionen1

echo "<!-- Gesamtinfektionen 1 -->\n\n";

echo "<h3>Aktive Infektionen, Genesene und Todesfälle im Vergleich</h3>\n";
echo "<svg width='$svg_laenge' height='500'>\n";

echo "<g id='plot2' transform='translate($x_offset,0)'>\n";

# X-Achse unten
echo "<line x1='0' y1='400' x2='$diagramm_laenge' y2='400' style='stroke:#000000; stroke-width:2'/>\n";

// Skalierung

# Maximum abrunden
$max_f_gerundet = intval(round($max_f_ges));

# Anzahl Dezimalstellen ermitteln
$laenge = strlen(strval($max_f_gerundet));

# Erste Ziffer ermitteln
$zahl1 = substr($max_f_gerundet, 0, 1);

$anzahl_skalenteile = $zahl1;

# Interval der Hauptlinen = 10 hoch Dezimalstellen - 1
$interval_skala = pow(10, ($laenge - 1));

# Hauptlinien zeichnen
for ( $a = 1; $a <= $anzahl_skalenteile; $a++ ) {
 echo "<line x1='0' y1='" . round((400 - 400 * $a * $interval_skala / $max_f_ges), 1) . "' x2='" . $diagramm_laenge . "' y2='" . round((400 - 400 * $a * $interval_skala / $max_f_ges), 1) . "' style='stroke:#555555; stroke-width:1'/>\n";
 echo "<text x='-2' y='" . round((405 - 400 * $a * $interval_skala / $max_f_ges), 1) . "' text-anchor='end' style='fill:#000000;'>" . number_format($a * $interval_skala, 0,",",".") . "</text>\n";

 # Hilflinien zeichnen
 # wenn es weniger als 3 Skalenstriche geben würde
 if ( $anzahl_skalenteile < 3 ){
  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f_ges ) . "' text-anchor='end' x2='" . $diagramm_laenge . "' y2='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f_ges ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . ( 405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f_ges ) . "' text-anchor='end' style='fill:#000000'>" . number_format(($a * $interval_skala - $interval_skala / 2), 0,",",".") . "</text>\n";

  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f_ges ) . "' text-anchor='end' x2='" . $diagramm_laenge . "' y2='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f_ges ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . ( 405 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f_ges ) . "' text-anchor='end' style='fill:#000000'>" . number_format(($a * $interval_skala + $interval_skala / 2), 0,",",".") . "</text>\n";
 }
}

echo "<text x='" . ( 12 - $x_offset ) . "' y='300' style='fill:#000000' transform='rotate(-90," . ( 12 - $x_offset ) . ",300)'>Je Million Einwohner</text>\n";

$z = 0;

foreach ( $neues_array as $datensatz ) {
 $wert_f = floatval($datensatz[$liste_kopffelder["total_cases_per_million"]]);
 $wert_t = floatval($datensatz[$liste_kopffelder["total_deaths_per_million"]]);
 $wert_g = floatval($datensatz[$liste_kopffelder["Genesene_ppm"]]);

 // Datum

 # Datum zeichnen, um 90 ° im UZS gedreht
 echo "<text class='datum3' x='" . ($z * $s + 5) . "' y='410' style='fill:#000000;' transform='rotate(90," . ($z * $s + 5) . ",410)'>" . date("d.M", strtotime($datensatz[$liste_kopffelder["date"]])) . "</text>\n";

 # Skalenstrich zeichnen
 echo "<line x1='" . ($z * $s + 5) . "' y1='400' x2='" . ($z * $s + 5) . "' y2='405' style='stroke:#000000;' />\n";

 # Fälle
 echo "<line x1='" . ($z * $s + 5) . "' y1='400' x2='" . ($z * $s + 5) . "' y2='" . round((400 - 400 * $wert_f / $max_f_ges), 1) . "' style='stroke:#2222AA; stroke-width:5'/>\n";

 # Genesene
 echo "<line x1='" . ($z * $s + 5) . "' y1='400' x2='" . ($z * $s + 5) . "' y2='" . round((400 - 400 * $wert_g / $max_f_ges), 1) . "' style='stroke:#FF6600; stroke-width:5'/>\n";

 # Tote
 echo "<line x1='" . ($z * $s + 5) . "' y1='400' x2='" . ($z * $s + 5) . "' y2='" . round((400 - 400 * $wert_t / $max_f_ges), 1) . "' style='stroke:#AA2222; stroke-width:5'/>\n";

 $z++;
}

echo "</g>";

//Legende
echo "\n<g id='legende3' transform='translate(" . $offset_legende . ",50)'>
<rect x='0' y='40' rx='8' ry='8' width='170' height='85' style='stroke:#000000; fill:#FFEECC; stroke-width:2; fill-opacity:0.8' />
<text x='10' y='60' style='fill:#000000'>Legende</text>
<text x='20' y='80' style='fill:#0000ff;font-size:14;'>Aktive Infektionen</text>
<text x='20' y='95' style='fill:#FF6600;font-size:14;'>Genesene</text>
<text x='20' y='110' style='fill:#FF0000;font-size:14;'>Todesfälle</text>
</g>\n";

echo "</svg>\n";

// Gesamtinfektionen2

echo "<!-- Gesamtinfektionen 2 -->\n\n";

echo "<h3>Gesamtinfektionen, Todesfälle und Impfungen im Vergleich</h3>\n";
echo "<svg width='" . $svg_laenge . "' height='500'>\n";

echo "<g id='plot3' transform='translate(" . $x_offset . ",0)'>\n";

# x-Achse unten
echo "<line x1='0' y1='400' x2='" . $diagramm_laenge . "' y2='400' style='stroke:#000000; stroke-width:2'/>\n";

$z = 0;

$max_f_ges = 1000000;

foreach ( $neues_array as $datensatz ) {
 $wert_f = floatval($datensatz[$liste_kopffelder["total_cases_per_million"]] );
 $wert_g = floatval($datensatz[$liste_kopffelder["Genesene_ppm"]] );
 $wert_t = floatval($datensatz[$liste_kopffelder["total_deaths_per_million"]] );
 $wert_i1 = floatval($datensatz[$liste_kopffelder["people_vaccinated_per_hundred"]] * 10000);
 $wert_i2 = floatval($datensatz[$liste_kopffelder["people_fully_vaccinated_per_hundred"]] * 10000);

 // Datum zeichnen

 # Datum zeichnen, um 90 ° im UZS gedreht
 echo "<text class='datum3' x='" . ($z * $s + 3) . "' y='410' style='fill:#000000;' transform='rotate(90," . ($z * $s + 3) . ",410)'>" . date("d.M", strtotime($datensatz[$liste_kopffelder["date"]])) . "</text>\n";

 # Skalenstrich zeichnen
 echo "<line x1='" . ($z * $s + 7) . "' y1='400' x2='" . ($z * $s + 7) . "' y2='405' style='stroke:#000000;' />\n";

 # Linie zeichnen (Fälle)
 echo "<line x1='" . ( $z * $s + 5 ) . "' y1='400' x2='" . ( $z * $s + 5 ) . "' y2='" . round((400 - 400 * $wert_f / $max_f_ges), 1) . "' style='stroke:#2222AA; stroke-width:4'/>\n";

 # Linie zeichnen (Genesene)
 echo "<line x1='" . ( $z * $s + 5 ) . "' y1='400' x2='" . ( $z * $s + 5 ) . "' y2='" . round((400 - 400 * $wert_g / $max_f_ges), 1) . "' style='stroke:#FF6600; stroke-width:4'/>\n";

 # Linie zeichnen (Tote)
 echo "<line x1='" . ( $z * $s + 5 ) . "' y1='400' x2='" . ( $z * $s + 5 ) . "' y2='" . round((400 - 400 * $wert_t / $max_f_ges), 1) . "' style='stroke:#AA2222; stroke-width:4'/>\n";

 # Linie zeichnen (1. Impfung)
 echo "<line x1='" . ( $z * $s + 8 ) . "' y1='400' x2='" . ( $z * $s + 8 ) . "' y2='" . round((400 - 400 * $wert_i1 / $max_f_ges), 1) . "' style='stroke:#22AA22; stroke-width:4'/>\n";

 # Linie zeichnen (vollständig geimpft)
 echo "<line x1='" . ( $z * $s + 8 ) . "' y1='400' x2='" . ( $z * $s + 8 ) . "' y2='" . round((400 - 400 * $wert_i2 / $max_f_ges), 1) . "' style='stroke:#007700; stroke-width:4'/>\n";

 $z++;
}

// Skalierung

# Maximum abrunden
$max_f_gerundet = intval(round($max_f_ges));

# Anzahl Dezimalstellen ermitteln
$laenge = strlen(strval($max_f_gerundet));

# Erste Ziffer ermitteln
$zahl1 = substr($max_f_gerundet, 0, 1);

$anzahl_skalenteile = $zahl1;

# Interval der Hauptlinen = 10 hoch Dezimalstellen - 1
$interval_skala = pow(10, ($laenge - 1));

# Hauptlinien
for ( $a = 1; $a <= 10; $a++ ) {
 echo "<line x1='0' y1='" . round(( 400 - 400 * $a / 10 * $interval_skala / $max_f_ges), 1) . "' x2='$diagramm_laenge' y2='" . round(( 400 - 400 * $a / 10 * $interval_skala / $max_f_ges), 1) . "' style='stroke:#555555; stroke-width:1'/>\n";
 echo "<text x='-2' y='" . round(( 405 - 400 * $a / 10 * $interval_skala / $max_f_ges), 1) . "' text-anchor='end' style='fill:#000000;'>" . number_format($a * 10 , 0,",",".") . " %</text>\n";
}

echo "</g>\n";

//Legende
echo "\n<g id='legende4' transform='translate($offset_legende,50)'>
<rect x='0' y='40' rx='8' ry='8' width='180' height='115' style='stroke:#000000; fill:#FFEECC; stroke-width:2; fill-opacity:0.8' />
<text x='10' y='60' style='fill:#000000'>Legende</text>
<text x='20' y='80' style='fill:#22AA22;font-size:14;'>Erstimpfung</text>
<text x='20' y='95' style='fill:#007700;font-size:14;'>Vollständige Impfung</text>
<text x='20' y='110' style='fill:#2222AA;font-size:14;'>Aktive Infektionen</text>
<text x='20' y='125' style='fill:#FF6600;font-size:14;'>Genesene</text>
<text x='20' y='140' style='fill:#AA2222;font-size:14;'>Todesfälle</text>
</g>\n";

echo "</svg>\n";


// der Fußteil

include ("./includes/footer.php");

?>

<?php

include ("./includes/header.php");

# Streckung der Werte
$s = 8;

$land_akt = $laenderverweis;


$neues_array = filter_montag();

// der Inhalt

$x2_offset = 210;

$x_offset = 80;
$diagramm_laenge = count($neues_array) * $s;

# Länge der SVG-Datei
$svg_laenge = $diagramm_laenge + $x_offset + $x2_offset;

# Höhe der SVG-Datei
$svg_hoehe = 500;

$offset_legende = $x_offset + 20;
#$offset_legende = $diagramm_laenge + $x_offset + 20;

# Maximum ermitteln
$max_f = max(array_column($neues_array, $liste_kopffelder["Sum_Faelle_neu_7_ppm"])) * 1.05;
$max_t = max(array_column($neues_array, $liste_kopffelder["Sum_Tote_neu_7_ppm"])) * 1.05;
$max_i = max(array_column($neues_array, $liste_kopffelder["Sum_Impfungen_7"])) * 1.05;

# Faktoren für die Skalierung ermitteln
$FI = $max_i / $max_f;

$FI_stellen = floor(log10($FI));
$FI_ziffer1 = str_split($FI)[0];

$faktor_impfungen = ($FI_ziffer1 + 1) * pow(10, $FI_stellen);

# wenn der Faktor 0 ist auf Standard-Wert setzen
if ($faktor_impfungen == 0) {$faktor_impfungen = 25;}

$FT = $max_f / $max_t;

if ( $FT > 100 ) {
 $faktor_tote = floor($FT - ($FT % 100)) / 2;
} else {
 $faktor_tote = floor($FT - ($FT % 10)) / 2;
}

if ($faktor_tote == 0) {$faktor_tote = 25;}

#echo "<p>max_f: $max_f max_t: $max_t FT: $FT - Stellen: $FT_stellen - 1. Ziffer: $FT_ziffer1 - $FT2 - $FT2i</p>";

echo "<h2>Wochensummen seit Beginn der Pandemie für " . $liste_laender_iso_de["$laenderverweis"] . "</h2>\n";

 // Neuinfektionen

echo "<h3>Neuinfektionen, Todesfälle und Impfungen</h3>\n";

echo "<svg id='svg_fl' width='" . ($svg_laenge) . "' height='500'>\n";

echo "<g id='plot1' transform='translate(" . $x_offset . ",0)'>\n";

#x-Achse unten
echo "<line x1='0' y1='400' x2='" . $diagramm_laenge . "' y2='400' style='stroke:#000000; stroke-width:2'/>\n";

$z = 0;

$wert_i_tmp = 0;

foreach ( $neues_array as $datensatz ) {
 $wert_f = floatval($datensatz[$liste_kopffelder["Sum_Faelle_neu_7_ppm"]]); 
 $wert_t = floatval($datensatz[$liste_kopffelder["Sum_Tote_neu_7_ppm"]]) * $faktor_tote;
 $wert_i = floatval($datensatz[$liste_kopffelder["Sum_Impfungen_7"]]) / $faktor_impfungen;

 # Linie zeichnen (Fälle)
 echo "<line x1='" . ( $z * $s + 2 ) . "' y1='400' x2='" . ( $z * $s + 2 ) . "' y2='" . round((400 - 400 * $wert_f / $max_f), 1) . "' class='l_f' style='stroke-width:6' />\n";
 # Linie zeichnen (Tote)
 echo "<line x1='" . ( $z * $s + 2 ) . "' y1='400' x2='" . ( $z * $s + 2 ) . "' y2='" . round((400 - 400 * $wert_t / $max_f), 1) . "' style='stroke:#FF6666BB; stroke-width:6' />\n";

if ( $wert_i == 0 && $wert_i_tmp == 0 ) {} else {

 # Linie zeichnen (Impfungen)
 echo "<line x1='" . $z_tmp . "' y1='" . round((400 - 400 * $wert_i_tmp / $max_f ), 1) . "' x2='" . ( $z * $s ) . "' y2='" . round((400 - 400 * $wert_i / $max_f ), 1) . "' style='stroke:#22AA22DD; stroke-width:5'/>\n";

}

 $z_tmp = $z * $s;
 $wert_i_tmp = $wert_i;

// Datum

 # Datum zeichnen, um 90 ° im UZS gedreht
 echo "<text class='datum3' x='" . ( $z * $s ) . "' y='410' style='fill:#000000;' transform='rotate(80," . ( $z * $s ) . ",410)'>KW " . date("W 'y", strtotime($datensatz[3])) . "</text>\n";

 # Skalenstrich zeichnen
 echo "<line x1='" . ( $z * $s + 3 ) . "' y1='400' x2='" . ( $z * $s + 3 ) . "' y2='405' style='stroke:#000000;' />\n";


 $index = $x;
 $z++;
}

// Skalierung

# Maximum abrunden
$max_f_gerundet = intval(round($max_f));

# Anzahl Dezimalstellen ermitteln
$laenge = strlen(strval($max_f_gerundet));

# Erste Ziffer ermitteln
$zahl1 = substr($max_f_gerundet, 0, 1);

$anzahl_skalenteile = $zahl1;

# Interval der Hauptlinen = 10 hoch Dezimalstellen - 1
# alternativ: interval_skala=ceil(log10($zahl);
$interval_skala = pow(10, ($laenge - 1));
                                                                          
// Hauptlinien

for ( $a = 1; $a <= $anzahl_skalenteile; $a++ ) {
 echo "<line x1='0' y1='" . round((400 - 400 * $a * $interval_skala / $max_f ), 1) . "' x2='" . $diagramm_laenge . "' y2='" . round((400 - 400 * $a * $interval_skala / $max_f), 1) . "' style='stroke:#555555; stroke-width:1'/>\n";
 echo "<text x='-2' y='" . round((405 - 400 * $a * $interval_skala / $max_f), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . $a * $interval_skala . "</text>\n";
 echo "<text x='-2' y='" . (round((405 - 400 * $a * $interval_skala / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . number_format($a * $interval_skala / $faktor_tote, 0,",",".") . "</text>\n";
 echo "<text x='-2' y='" . (round((405 - 400 * $a * $interval_skala / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#22AA22;font-size:80%;'>" . $a * $interval_skala * $faktor_impfungen . "</text>\n";

// Hilflinien

 # wenn es weniger als 3 Skalenstriche geben würde
 if ( $anzahl_skalenteile < 3 ){
  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ) . "' x2='" . $diagramm_laenge . "' y2='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f ) . "' x2='" . $diagramm_laenge . "' y2='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f ) . "' style='stroke:#555555; stroke-width:1'/>\n";

  echo "<text x='-2' y='" . round((405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . ( $a * $interval_skala - $interval_skala / 2 ) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . number_format(( $a * $interval_skala - $interval_skala / 2 ) / $faktor_tote, 0,",",".") . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#22AA22;font-size:80%;'>" . ( $a * $interval_skala - $interval_skala / 2 ) * $faktor_impfungen . "</text>\n";

  echo "<text x='-2' y='" . round((405 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f ), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . ( $a * $interval_skala + $interval_skala / 2 ) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . number_format(( $a * $interval_skala + $interval_skala / 2 ) / $faktor_tote, 0,",",".") . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala + $interval_skala / 2 ) / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#22AA22;font-size:80%;'>" . ( $a * $interval_skala + $interval_skala / 2 ) * $faktor_impfungen . "</text>\n";
  
 }
}

echo "<text x='" . ( 12 - $x_offset ) . "' y='300' style='fill:#000000' transform='rotate(-90," . ( 12 - $x_offset ) . ",300)'>Je Million Einwohner</text>\n";

echo "</g>\n";

// Legende1
echo "\n<g id='legende1' transform='translate(" .  $offset_legende . ", 20)'>
<rect x='0' y='40' rx='8' ry='8' width='170' height='95' style='stroke:#000000; fill:#FFFFFF; stroke-width:2; fill-opacity:0.8' />
<text x='20' y='60' style='fill:#000000'>Legende</text>
<text x='30' y='80' style='fill:#6666FF'>Neuinfektionen</text>
<text x='30' y='100' style='fill:#FF6666'>Todesfälle</text>
<text x='30' y='120' style='fill:#22AA22'>Impfungen</text>
</g>\n";

echo "</svg>\n\n";

// der Fußteil

include ("./includes/footer.php");

?>

<?php

// Was ändert sich? Länge der Grafik, Breite der Linien, Streckung -> Faktor

include ("./includes/header.php");

# Streckung der Werte
$s = 30;

$land_akt = $laenderverweis;

$neues_array = filter_monat();

// der Inhalt

$x2_offset = 210;

$x_offset = 80;
$diagramm_laenge = count($neues_array) * $s;

# Länge der SVG-Datei
$svg_laenge = $diagramm_laenge + $x_offset + $x2_offset;

# Höhe der SVG-Datei
$svg_hoehe = 500;

$offset_legende = $x_offset + 20;
#$offset_legende = $diagramm_laenge + $x_offset + 20;

# Maximum ermitteln
$max_f = max(array_column($neues_array, $liste_kopffelder["Sum_Faelle_neu_28_ppm"])) * 1.05;
$max_t = max(array_column($neues_array, $liste_kopffelder["Sum_Tote_neu_28_ppm"])) * 1.05;
$max_i = max(array_column($neues_array, $liste_kopffelder["Sum_Impfungen_28"])) * 2;

# Faktoren für die Skalierung ermitteln
$FI = $max_i / $max_f;

if ( $FI < 10 ) {
 $faktor_impfungen = ceil($FI);
} else {
 $faktor_impfungen = ceil($FI - ($FI % 10));
}


# wenn der Faktor 0 ist auf Standard-Wert setzen
if ($faktor_impfungen == 0) {$faktor_impfungen = 25;}

$FT = $max_f / $max_t;

if ( $FT > 100 ) {
 $faktor_tote = floor($FT - ($FT % 100)) / 2;
} else {
 $faktor_tote = floor($FT - ($FT % 10)) / 2;
}

if ($faktor_tote == 0) {$faktor_tote = 25;}

#echo "<p>max_f: $max_f max_i: $max_i FI: $FI - Stellen: $FI_stellen - 1. Ziffer: $FI_ziffer1 - $faktor_impfungen</p>";


echo "<h2>Monatssummen für " . $liste_laender_iso_de["$laenderverweis"] . "</h2>\n";

 // Neuinfektionen

echo "<h3>Neuinfektionen, Todesfälle und Impfungen</h3>\n";

echo "<svg id='svg_fl' width='" . ($svg_laenge) . "' height='500'>\n";

echo "<g id='plot1' transform='translate(" . $x_offset . ",0)'>\n";

#x-Achse unten
echo "<line x1='0' y1='400' x2='" . $diagramm_laenge . "' y2='400' style='stroke:#000000; stroke-width:2'/>\n";

$z = 0;

$wert_i_tmp = 0;

foreach ( $neues_array as $datensatz ) {
 $wert_f = floatval($datensatz[$liste_kopffelder["Sum_Faelle_neu_28_ppm"]]);
 $wert_t = floatval($datensatz[$liste_kopffelder["Sum_Tote_neu_28_ppm"]]) * $faktor_tote;
 $wert_i = floatval($datensatz[$liste_kopffelder["Sum_Impfungen_28"]]) / $faktor_impfungen;

 # Linie zeichnen (Fälle)
 echo "<line x1='" . ( $z * $s + 5 ) . "' y1='400' x2='" . ( $z * $s + 5 ) . "' y2='" . round(( 400 - 400 * $wert_f / $max_f ), 1) . "' style='stroke:#6666FF; stroke-width:25' />\n";

 # Linie zeichnen (Tote)
 echo "<line x1='" . ( $z * $s + 5 ) . "' y1='400' x2='" . ( $z * $s + 5 ) . "' y2='" . round(( 400 - 400 * $wert_t / $max_f ), 1) . "' style='stroke:#FF6666AA; stroke-width:25' />\n";

if ( $wert_i == 0 && $wert_i_tmp == 0 ) {} else {

 # Linie zeichnen (Impfungen)
 echo "<line x1='" . $z_tmp . "' y1='" . round(( 400 - 400 * $wert_i_tmp / $max_f ), 1) . "' x2='" . ( $z * $s + 2 ) . "' y2='" . round((400 - 400 * $wert_i / $max_f ), 1) . "' style='stroke:#22AA22DD; stroke-width:10'/>\n";

}
 $z_tmp = $z * $s + 2;
 $wert_i_tmp = $wert_i;

// Datum

 # Datum zeichnen, um 90 ° im UZS gedreht
 echo "<text class='datum6' x='" . ( $z * $s ) . "' y='410' style='fill:#000000;' transform='rotate(70," . ( $z * $s ) . ",410)'>" . date("M y", strtotime($datensatz[3])) . "</text>\n";

 # Skalenstrich zeichnen
 echo "<line x1='" . ( $z * $s + 4 ) . "' y1='400' x2='" . ( $z * $s + 4 ) . "' y2='405' style='stroke:#000000;' />\n";

 $index = $x;
 $z++;
}

// Skalierung

# Maximum abrunden
$max_f_gerundet = intval(round($max_f));

# Anzahl Dezimalstellen ermitteln
$laenge = strlen(strval($max_f_gerundet));

# Erste Ziffer ermitteln
$zahl1 = substr($max_f_gerundet, 0, 1);

$anzahl_skalenteile = $zahl1;

# Interval der Hauptlinen = 10 hoch Dezimalstellen - 1
# alternativ: interval_skala=ceil(log10($zahl);
$interval_skala = pow(10, ($laenge - 1));
                                                                          
// Hauptlinien

for ( $a = 1; $a <= $anzahl_skalenteile; $a++ ) {
 echo "<line x1='0' y1='" . round((400 - 400 * $a * $interval_skala / $max_f ), 1) . "' x2='" . $diagramm_laenge . "' y2='" . round((400 - 400 * $a * $interval_skala / $max_f), 1) . "' style='stroke:#555555; stroke-width:1'/>\n";
 echo "<text x='-2' y='" . round((405 - 400 * $a * $interval_skala / $max_f), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . $a * $interval_skala . "</text>\n";
 echo "<text x='-2' y='" . (round((405 - 400 * $a * $interval_skala / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . number_format($a * $interval_skala / $faktor_tote, 0,",",".") . "</text>\n";
 echo "<text x='-2' y='" . (round((405 - 400 * $a * $interval_skala / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#22AA22;font-size:80%;'>" . $a * $interval_skala * $faktor_impfungen . "</text>\n";

// Hilflinien

 # wenn es weniger als 3 Skalenstriche geben würde
 if ( $anzahl_skalenteile < 3 ){
  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ) . "' x2='" . $diagramm_laenge . "' y2='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . round((405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f ), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . ( $a * $interval_skala - $interval_skala / 2 ) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . number_format(( $a * $interval_skala - $interval_skala / 2 ) / $faktor_tote, 0,",",".")  . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala - $interval_skala / 2 ) / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#22AA22;font-size:80%;'>" . ( $a * $interval_skala - $interval_skala / 2 ) * $faktor_impfungen . "</text>\n";
  
  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 4 ) / $max_f ) . "' x2='" . $diagramm_laenge . "' y2='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 4 ) / $max_f ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . round((405 - 400 * ( $a * $interval_skala - $interval_skala / 4 ) / $max_f ), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . ( $a * $interval_skala - $interval_skala / 4 ) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala - $interval_skala / 4 ) / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . number_format(( $a * $interval_skala - $interval_skala / 4 ) / $faktor_tote, 0,",",".")  . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala - $interval_skala / 4 ) / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#22AA22;font-size:80%;'>" . ( $a * $interval_skala - $interval_skala / 4 ) * $faktor_impfungen . "</text>\n";
  
  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 4 ) / $max_f ) . "' x2='" . $diagramm_laenge . "' y2='" . ( 400 - 400 * ( $a * $interval_skala + $interval_skala / 4 ) / $max_f ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . round((405 - 400 * ( $a * $interval_skala + $interval_skala / 4 ) / $max_f ), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . ( $a * $interval_skala + $interval_skala / 4 ) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala + $interval_skala / 4 ) / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . number_format(( $a * $interval_skala + $interval_skala / 4 ) / $faktor_tote, 0,",",".")  . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala + $interval_skala / 4 ) / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#22AA22;font-size:80%;'>" . ( $a * $interval_skala + $interval_skala / 4 ) * $faktor_impfungen . "</text>\n";

  
  echo "<line x1='0' y1='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 4 * 3 ) / $max_f ) . "' x2='" . $diagramm_laenge . "' y2='" . ( 400 - 400 * ( $a * $interval_skala - $interval_skala / 4 * 3 ) / $max_f ) . "' style='stroke:#555555; stroke-width:1'/>\n";
  echo "<text x='-2' y='" . round((405 - 400 * ( $a * $interval_skala - $interval_skala / 4 * 3 ) / $max_f ), 1) . "' text-anchor='end' style='fill:#0000FF;font-size:80%;'>" . ( $a * $interval_skala - $interval_skala / 4 * 3 ) . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala - $interval_skala / 4 * 3 ) / $max_f), 1) + 12) . "' text-anchor='end' style='fill:#FF0000;font-size:80%;'>" . number_format(( $a * $interval_skala - $interval_skala / 4 * 3 ) / $faktor_tote, 0,",",".")  . "</text>\n";
  echo "<text x='-2' y='" . (round((405 - 400 * ( $a * $interval_skala - $interval_skala / 4 * 3 ) / $max_f), 1) + 24) . "' text-anchor='end' style='fill:#22AA22;font-size:80%;'>" . ( $a * $interval_skala - $interval_skala / 4 * 3 ) * $faktor_impfungen . "</text>\n";
  
 }
}

echo "<text x='" . ( 12 - $x_offset ) . "' y='300' style='fill:#000000' transform='rotate(-90," . ( 12 - $x_offset ) . ",300)'>Je Million Einwohner</text>\n";

echo "</g>\n";

// Legende1
echo "\n<g id='legende1' transform='translate(" .  $offset_legende . ", 20)'>
<rect x='0' y='40' rx='8' ry='8' width='170' height='95' style='stroke:#000000; fill:#FFFFFF; stroke-width:2; fill-opacity:0.8' />
<text x='20' y='60' style='fill:#000000'>Legende</text>
<text x='30' y='80' style='fill:#6666FF'>Neuinfektionen</text>
<text x='30' y='100' style='fill:#FF6666'>Todesfälle</text>
<text x='30' y='120' style='fill:#22AA22'>Impfungen</text>
</g>\n";

echo "</svg>\n\n";

// der Fußteil

include ("./includes/footer.php");

?>

<?php

$vis = htmlspecialchars($_GET['vvis']);

$faelle_tmp = 0;
$tote_tmp = 0;

# Kopfteil
include ("./includes/header.php");

# Faktor der Vergrößerung
$faktor = 3;

# Streckung der Werte
$s = 2;

# Faktor für die Skalierung von Impfungen zu Infektionen
$faktor_impfungen = 40;

# Arrays mit ISO-Codes der anzuziegenden Länder
$laendervergleich[0] = array ("DEU","GBR","FRA","ITA","USA","AUS");
$laendervergleich[1] = array ("OWID_AFR","OWID_ASI","OWID_EUR","OWID_NAM","OWID_SAM","OWID_OCE","OWID_WRL");
$laendervergleich[2] = array ("ALB","AUT","BEL","BGR","BIH","BLR","CHE","CYP","CZE","DEU","DNK","ESP","EST","FIN","FRA","GBR","GIB","GRC","HRV","HUN","IRL","ISL","ITA","LIE","LTU","LUX","LVA","MDA","MKD","MLT","MNE","NLD","NOR","OWID_KOS","POL","PRT","ROU","RUS","SMR","SRB","SVK","SVN","SWE","UKR");
$laendervergleich[3] = array ("ABW","AIA","ATG","BES","BHS","BLZ","BMU","BRB","CAN","CRI","CUB","CUW","CYM","DMA","DOM","GRD","GRL","GTM","HND","HTI","JAM","KNA","LCA","MEX","MSR","NIC","PAN","SLV","SPM","SXM","TCA","TTO","USA","VCT","VGB");
$laendervergleich[4] = array ("AGO","BDI","BEN","BFA","BWA","CAF","CIV","CMR","COD","COG","COM","CPV","DJI","DZA","EGY","ERI","ETH","GAB","GHA","GIN","GMB","GNB","GNQ","KEN","LBR","LBY","LSO","MAR","MDG","MLI","MOZ","MRT","MUS","MWI","NAM","NER","NGA","RWA","SDN","SEN","SHN","SLE","SOM","SSD","STP","SWZ","SYC","TCD","TGO","TUN","TZA","UGA","ZAF","ZMB","ZWE");
$laendervergleich[5] = array ("AFG","ARE","ARM","AZE","BGD","BHR","BRN","BTN","CHN","GEO","HKG","IDN","IND","IRN","IRQ","ISR","JOR","JPN","KAZ","KGZ","KHM","KOR","KWT","LAO","LBN","LKA","MAC","MDV","MMR","MNG","MYS","NPL","OMN","PAK","PHL","PSE","QAT","SAU","SGP","SYR","THA","TJK","TLS","TUR","TWN","UZB","VNM","YEM");
$laendervergleich[6] = array ("AUS","FJI","NCL","NZL","PNG","PYF");
$laendervergleich[7] = array ("ARG","BOL","BRA","CHL","COL","ECU","GUY","PER","PRY","SUR","URY","VEN");
# -> Vergleich äller Länder eines Kontinents (mit mehr als X Mio Einwohnern)s


echo "<h2>Verlauf seit Beginn der Pandemie</h2>\n";
echo "<table border='0'>";
echo "<tr>
<th></th>
<th><h3>Neuinfektionen, Todesfälle und Impfungen (Infektionsrate, Sterberate, Impfrate)</h3></th>
<th><h3>Aktive Infektionen</h3></th>
<th><h3>Aktive Infektionen, Genesene und Todesfälle (Summe = Gesamtinfektionen)</h3></th>
<th><h3>Gesamtinfektionen, Todesfälle und Impfungen im Vergleich</h3></th>
<th><h3>Lineare Regression (8 Wochen)</h3></th>
</tr>
<tr><td>";


foreach ( $laendervergleich[$vis] as $land_akt ) {

# Land filtern
$neues_array = filter_land();

// der Inhalt

$x_offset = 80;                                             # linker Rand
$svg_laenge = count($neues_array) * $s + $x_offset + 10;    # Länge der SVG-Datei
$svg_hoehe = 500;                                           # Höhe der SVG-Datei

# Maximum ermitteln (Fälle)
$werte_f = array_column($neues_array, 42);      # Wertespalte extrahieren
$max_f = max($werte_f) * 1.05;

# Maximum ermitteln (Fälle kumuliert)
$werte_f_ges = array_column($neues_array, 8);   # Wertespalten extrahieren
$max_f_ges = max($werte_f_ges);

# Maximum ermitteln (Genesene)
$werte_g = array_column($neues_array, 54);      # Wertespalte extrahieren
$max_g = max($werte_g) / 2.5;

echo "<h2><a href='zeitreihen_diagramme.php?vland=" . $land_akt . "&vseite=zeitreihen_diagramme'>" . $liste_laender_iso_de["$land_akt"] . "</a></h2>\n";

echo "</td><td>";

// Neuinfektionen


echo "<svg width='" . $svg_laenge / $faktor . "' height='" . $svg_hoehe / $faktor . "'>\n";

include ("./includes/zeitreihe_neuinfektionen_gesamt.php");


echo "</svg>\n\n";

echo "</td><td>";

// aktive Infektionen

echo "<!-- aktive Infektionen -->\n\n";
echo "<svg width='" . $svg_laenge / $faktor . "' height='" . $svg_hoehe / $faktor . "'>\n";

include ("./includes/zeitreihe_aktive_infektionen.php");


echo "</svg>\n\n";

echo "</td><td>";

// Gesamtinfektionen

echo "<!-- Gesamtinfektionen -->\n\n";
echo "<svg width='" . $svg_laenge / $faktor . "' height='" . $svg_hoehe / $faktor . "'>\n";

include ("./includes/zeitreihe_gesamtinfektionen.php");

echo "</svg>\n\n";

echo "</td><td>"; 

// Impfungen

echo "<!-- Impfungen -->\n\n";
echo "<svg width='" . $svg_laenge / $faktor . "' height='" . $svg_hoehe / $faktor . "'>\n";

include ("./includes/zeitreihe_impfungen.php");

echo "</svg>\n\n";

echo "</td><td>"; 


// Regression
echo "<!-- Regression -->\n\n";
echo "<svg width='" . $svg_laenge / $faktor / 2 . "' height='" . $svg_hoehe / $faktor . "'>\n";

$neues_array = filter_datum_land(56);
$s = 10;
$diagramm_laenge = count($neues_array) * $s;
$x2_offset = 210;
$offset_legende = $diagramm_laenge + $x_offset + 20;
$svg_laenge = $diagramm_laenge + $x_offset + $x2_offset;


# Maximum ermitteln
$max_f = max(array_column($neues_array, 9));       # Fälle
$max_t = max(array_column($neues_array, 48));      # Tote

$FT = $max_f / $max_t;

if ( $FT > 100 ) {
 $faktor_tote = floor($FT - ($FT % 100)) / 2;
} else {
 $faktor_tote = floor($FT - ($FT % 10)) / 2;
}

if ($faktor_tote == 0) {$faktor_tote = 25;}


include ("./includes/regression_56.php");

echo "</svg>\n\n";

echo "</td>"; 

echo "</tr>\n<tr><td>"; 
$s = 2;
}

echo "</td></tr>\n</table>";

// der Fußteil

include ("./includes/footer.php");

?>

<?php

$vis = htmlspecialchars($_GET['vvis']);

# Kopfteil einbinden
include ("./includes/header.php");

# Schalter zum erzeugen von SVG-Output
$svg = False;


$svg_offset_x = 150;

# Array mit Darstellungsparametern 
$param_vis = array ( 
                    array (58, 100000, 10000, "0,255,0,", 99),                      # Impfungen
                    array (43, 2000, 750, "0,0,255,", 98),                          # Infektionen
                    array (49, 200, 75, "255,0,0,", 98),                            # Todesfälle
                    array (15, 2000, 10, "255,255,0,", 98),                         # Tests
                    array (52, 10000, 10000, array ("255,0,0,","0,255,0,"), 99),    # Trend 28 Tahe
                    array (50, 10000, 10000, array ("255,0,0,","0,255,0,"), 99)     # Trend 14 Tahe
                   );

$nr_spalte = $param_vis[$vis][0];        # darzustellende Wertespalte
#$kappwert = $param_vis[$vis][1];        # oberer Maximalwert
#$skalierung = $param_vis[$vis][2];      # Stufenzahl
$farbe = $param_vis[$vis][3];            # Farbe
$perzentil = $param_vis[$vis][4];        # Angabe des Bezugs-Perzentils

$regionen = array ("","Europe","North America","South America","Asia","Oceania","Africa");
$regionen_farben = array ("FFFFFF","0000FF","FF0000","00FF00","FF00FF","FFFF00","00FFFF");

# Anzahl der Tage ermitteln (für Länge der Zwichenzeile)
$anzahl_tage = count(array_unique(array_column($array, 3)));
$anzahl_tage = 750;
$leerzeile = "<tr style='background-color:#D3FFFF'><td colspan='" . $anzahl_tage . "'>.</td></tr>\n<tr style='background-color:#D3FFFF'><td colspan='" . $anzahl_tage . "'>.</td></tr>\n";

# Ausgabe
##########

echo "<h3>Heatmap (Wochendurchschnitt)</h3>";
echo "<table style='font-size:20%;padding:0px;border-collapse:collapse;background-color:rgb(0,0,0);'>\n<thead>\n<tr>\n<th></th>\n";

if ( $svg ) {
 # Ausgabedatei öffnen
 $ausgabe = fopen("coronamap.svg","w");
 fwrite($ausgabe, "<svg width='3400' height='2060'>\n<defs>
  <style type='text/css'>
   <![CDATA[
    text {font-size:70%;}
   ]]>
  </style>
 </defs>\n");
 
 # schwarzer Hintergrund
 fwrite($ausgabe, "<rect x='0' y='0' width='3400' height='2065' fill='black' />\n");
}

$land_akt = "OWID_WRL";
$neues_array = array_reverse(filter_land_wo());

#var_dump($neues_array);

# Datumszeile erzeugen
$abc = 1;
foreach ($neues_array as $datensatz) {
 echo "<th><div class='h_d'>" . date("j.n.", strtotime($datensatz[3])) . "</div></th>\n";
 if ($svg) { fwrite($ausgabe,"<text x='" . ( $abc * 6 + $svg_offset_x ) . "' y='20' fill='#FFFFFF' transform='rotate(-90," . ( $abc * 6 + $svg_offset_x ) . ",20)'>" . date("j.n.", strtotime($datensatz[3])) . "</text>\n"); }
 $abc = $abc + 1;
}

echo "</tr>\n</thead>\n<tbody>\n";

$z = 0;     # Zähler (Regionen)
$z2 = 1;    # Zähler (Zeilenfortschritt)
$c = 0;     # counter (Datenpunkte)

# Debugging
#$testregion="";                                                    

$ar_dbg = [];

# Für jeden Kontinent
foreach ($regionen as $testregion) {
 # Array auf Region filtern
 $array_regio = array_reverse(filter_region_wo());

 # Spalte mit ISO-Codes extrahieren            
 $spalte_iso = array_column($array_regio, 0);
 
 # Duplikate entfernen
 $spalte_iso = array_unique($spalte_iso);
 # sortieren
 sort($spalte_iso);
 
 $spalte_iso_2 = array_unique(array_column($array_regio, 0));
 sort($spalte_iso_2, SORT_LOCALE_STRING);

$ar_dbg[] = $spalte_iso_2;

 #array_shift($spalte_iso_2);

 foreach ($spalte_iso_2 as $land_akt) {                        # 
  $neues_array = array_reverse(filter_land_wo());                  # Datensätze des Langes filtern
  $wertespalte = array_column($neues_array, $nr_spalte);            # Spalte mit den gewählten Werten extrahieren
  sort($wertespalte, SORT_NUMERIC);                                 # numerisch sortieren
  $perz[1] = $wertespalte[floor(count($wertespalte) * 0.01)];       # 1. Perzentil
  $perz[50] = $wertespalte[floor(count($wertespalte) * 0.5)];       # Median
  $perz[90] = $wertespalte[floor(count($wertespalte) * 0.9)];       # 9. Dezil
  $perz[95] = $wertespalte[floor(count($wertespalte) * 0.95)];      # 95. Perzentil
  $perz[98] = $wertespalte[floor(count($wertespalte) * 0.98)];      # 98. Perzentil
  $perz[99] = $wertespalte[floor(count($wertespalte) * 0.99)];      # 99. Perzentil
  $max = $wertespalte[count($wertespalte) - 1];                       # Höchster Wert
  
  if ($max != 0){
   $z2 = $z2 + 1;
   # Oberer Grenzwert für die farbige Skalierung
   $kappwert = $perz[$perzentil];
   $skalierung = $perz[$perzentil] * 2;
  
   if ( $nr_spalte == 52 or $nr_spalte == 50 ) {
    $kappwert2 = $perz[1];
    $skalierung = $perz[$perzentil];
   }

   if ( $land_akt == "OWID_WRL" ) { echo $leerzeile; $z2 = $z2 + 2; }
  
    echo "<tr>\n";
    
    $land = array_unique(array_column($neues_array, 25));
    
    # Zeilenbeschriftung (Ländername)
    echo "<td style='background-color:#" . $regionen_farben[$z] . ";'>" . $land[0] . "</td>\n";
    if ($svg) { fwrite($ausgabe, "<text class='hmt' x='$svg_offset_x' y='" . ( $z2 * 10 + 8 ) . "' fill='#" . $regionen_farben[$z] . "' text-anchor='end'>" . $land[0] . "</text>\n"); }

    # Zähler (Spaltenfortschritt)
    $z3 = 0;

    # für jedes Element von $neues_array
    foreach ($neues_array as $datensatz) { 

     # den darzustellenden Wert aus Spalte entnehmen
     $messwert = $datensatz[$nr_spalte];

     # Kappung
     if ( $messwert > $kappwert ) { $messwert = $kappwert; }
     elseif ( $messwert < $kappwert2 ) { $messwert = $kappwert2; }

     # eine Zelle mit nach Werten abgestufter Hintergrundfarbe erzeugen
     $transparenz = strval(abs(round(floatval($messwert)/$skalierung, 2)));
     $pos_x = $z3 * 6 + $svg_offset_x;
     $pos_y = $z2 * 10;
     if ( $nr_spalte != 52 and $nr_spalte != 50 ){
      $farbe_comp = $farbe . $transparenz;
      $c = $c + 1;
     } else {
      if ( $messwert > 0 ) {
       $farbe_comp = $param_vis[$vis][3][1] . $transparenz;
       $c = $c + 1;
      } else {
       $farbe_comp = $param_vis[$vis][3][0] . $transparenz;
       $c = $c + 1;
      }
      $z3 = $z3 + 1;
     }
     echo "<td style='background-color:rgb( $farbe_comp );'>.</td>\n";
     if ($svg) { fwrite($ausgabe, "<rect x='$pos_x' y='$pos_y' width='6' height='8' fill='rgb( $farbe_comp )'/>\n"); }
    }
    echo "</tr>\n";
   }
  }
  # nach der ersten Region (Kontinente)
 if ( $z == 0 ) { echo $leerzeile; $z2 = $z2 + 2; }

 $z = $z + 1;
}

echo "</tbody>\n</table><br>\n";

echo "<p>$c Datenpunkte</p>";

if ($svg) {
 fwrite($ausgabe, "</svg>\n");
 fclose($ausgabe);
}

# Fußteil einbinden
include ("./includes/footer.php");

?>

<?php

# Datum der letzten Änderung der Datenbank abfragen
$datum_datenbank = date("Y-m-d", filectime("corona_owid.csv"));
$datum_vergleich = date("Y-m-d"); 

# Datum der letzten Änderung der Datenbank abfragen
$datum_datenbank2 = date("U", filectime("corona_owid.csv"));

# Heutiges Datum in Sekunden
$datum_vergleich2 = date("U");

# Differenz in Minuten brechnen
$datum_diff = ( $datum_vergleich2 - $datum_datenbank2 ) / 60;

#include ("./includes/datenbank_erweitern2.php");

# Wenn die letzte Änderung mehr als 20 Stunden zurück liegt
if ($datum_diff > (20*60)) {             

 # Name des Logfiles
 $logfile = "db_download.log";
 $log_alt = join(file($logfile));
 $log = fopen($logfile, "w");

 # Internetadresse der Quelldatenbank
 $url = 'https://covid.ourworldindata.org/data/owid-covid-data.csv';

 # interner Datenbankname
 $file_name = "corona_owid.csv";

 # Die Datenbank herunterladen und unter $file_name abspeichern; wenn der Rückgabewert 1 ist:
 if(file_put_contents( $file_name, file_get_contents($url)) ) {
  # Ausgabe in Logfile
  fwrite($log, $log_alt . date("Y-m-d H:i") . " Datenbank aktualisiert\n");

  # erweiterte Berechnungen ausführen
  include ("./includes/datenbank_erweitern2.php");

 } else { # Sonst
  # Ausgabe in Logfile
  fwrite($log, $log_alt . date("Y-m-d H:i") . " Download fehlgeschlagen\n");
 }

 # Logfile Schliessen
 fclose($logfile);     
 echo "<script>location.reload();</script>";
}

?>

<?php

// nicht in eine Funktion legen! -> hat weniger Speicher

// Für die Reduktion der Datenbank -> relative Werte können auch ad hoc durch Division durch Bevölkerung erzeugt werden

include ("./includes/datenbank_reduzieren.php");

# Tabelle mit Ländernamen und ISO-Codes einlesen
$input_laender = file("laender_iso_en_de_region.csv");

# Liste in ein Array einlesen
for ( $x = 0 ; $x <= count($input_laender); $x++ ){ $array_laender[] = explode(",", $input_laender[$x] ); } 

# Assoziative Arrays erzeugen
foreach ($array_laender as $land) { $liste_laender_iso_de["$land[0]"] = $land[2]; } # ISO -> Deutsch

unset($input_laender);

// Datenbank öffnen

# reduzierte Original-Datenbank zeilenweise als Array einlesen
$input = file("corona_owid_red.csv");

// Array ergänzen

$faelle_neu_abs = array_fill(0, 28, 0);
$tote_neu_abs = array_fill(0, 28, 0);
$faelle_neu_ppm = array_fill(0, 28, 0);
$tote_neu_ppm = array_fill(0, 28, 0);
$impfungen_neu_abs = array_fill(0, 28, 0);

# temporäre Ausgabedatei öffnen
$ausgabedatei = fopen("corona_daten_tmp.csv","w");

$x = 0;
$land_tmp = "xyz";

foreach ( $input as $zeile_input ){
 # Zeile in Array aufspalten
 $array[$x] = explode(",", $zeile_input);

 # absolute Zahlen (für Zusammenfassung)
 $faelle_neu_abs[$index] = intval($array[$x][5]);
 $tote_neu_abs[$index] = intval($array[$x][8]);
 $impfungen_neu_abs[$index] = intval($array[$x][38]);

 # Zahlen pro Million Einwohner (für Diagramme)
 $faelle_neu_ppm[$index] = floatval($array[$x][11]);
 $tote_neu_ppm[$index] = floatval($array[$x][14]);

 $genesene[$index2] = array ($array[$x][10], $array[$x][0]);

 # wenn sich der neue und der alte ISO-Code unterscheiden
 if ($array[$x][2] != $land_tmp) {
  $array[0] = $array[$x];
  $x = 0;
  $index = 28;
  $index2 = 14;                         # durch $x+14 ersetzbar
  $faelle_neu_abs = array_fill(0, 28, 0);
  $tote_neu_abs = array_fill(0, 28, 0);
  $impfungen_neu_abs = array_fill(0, 28, 0);
  $faelle_neu_ppm = array_fill(0, 28, 0);
  $tote_neu_ppm = array_fill(0, 28, 0);
 }

 $summe_faelle_neu_abs[7] = 0;
 $summe_tote_neu_abs[7] = 0;
 $summe_impfungen_neu_abs[7] = 0;
 $summe_faelle_neu_ppm[7] = 0;
 $summe_tote_neu_ppm[7] = 0;

 for ( $r = 0; $r < 7; $r++ ){                                        # für r = 1 - 7
  $summe_faelle_neu_abs[7] += $faelle_neu_abs[$index-$r];             # Fälle aufsummieren
  $summe_tote_neu_abs[7] += $tote_neu_abs[$index-$r];                 # Fälle aufsummieren
  $summe_impfungen_neu_abs[7] += $impfungen_neu_abs[$index-$r];       # Fälle aufsummieren
  $summe_faelle_neu_ppm[7] += $faelle_neu_ppm[$index-$r];             # Fälle aufsummieren
  $summe_tote_neu_ppm[7] += $tote_neu_ppm[$index-$r];                 # Fälle aufsummieren
 }

 $summe_faelle_neu_abs[14] = 0;
 $summe_tote_neu_abs[14] = 0;
 $summe_impfungen_neu_abs[14] = 0;
 $summe_faelle_neu_ppm[14] = 0;
 $summe_tote_neu_ppm[14] = 0;

 for ( $r = 0; $r < 14; $r++ ){                                         # für r = 1 - 14                                  
  $summe_faelle_neu_abs[14] += $faelle_neu_abs[$index - $r];            # Fälle aufsummieren
  $summe_tote_neu_abs[14] += $tote_neu_abs[$index - $r];                # Fälle aufsummieren
  $summe_impfungen_neu_abs[14] += $impfungen_neu_abs[$index - $r];      # Fälle aufsummieren
  $summe_faelle_neu_ppm[14] += $faelle_neu_ppm[$index - $r];            # Fälle aufsummieren
  $summe_tote_neu_ppm[14] += $tote_neu_ppm[$index - $r];                # Fälle aufsummieren
 }

 // Regression 14

 $yquer = $summe_faelle_neu_ppm[14] / 14;
 $xquer = 120 / 14;

 $summe_xy = 0;
 $summe_xx = 0;

 for ( $r = 0; $r < 14; $r++ ) {                              
  $yi = $faelle_neu_ppm[$index - $r];
  $xi = $r + 1;
  $summe_xy += ( $xi - $xquer ) * ( $yi - $yquer );
  $summe_xx += ( $xi - $xquer ) * ( $xi - $xquer );
 }

 $reg14_faelle_ppm = $summe_xy / $summe_xx;
 $reg14b_faelle_ppm = $yquer - ( $reg14_faelle_ppm * $xquer );


 $summe_faelle_neu_abs[28] = 0;
 $summe_tote_neu_abs[28] = 0;
 $summe_impfungen_neu_abs[28] = 0;
 $summe_faelle_neu_ppm[28] = 0;
 $summe_tote_neu_ppm[28] = 0;

 for ( $r = 0; $r < 28; $r++ ){                                         # für r = 1 - 28 (die letzten 28 Datensätze)
  $summe_faelle_neu_abs[28] += $faelle_neu_abs[$index - $r];            # Fälle aufsummieren
  $summe_tote_neu_abs[28] += $tote_neu_abs[$index - $r];
  $summe_impfungen_neu_abs[28] += $impfungen_neu_abs[$index - $r];
  $summe_faelle_neu_ppm[28] += $faelle_neu_ppm[$index - $r];
  $summe_tote_neu_ppm[28] += $tote_neu_ppm[$index - $r];
 } 

 // Regression 28

 $yquer = $summe_faelle_neu_ppm[28] / 28;
 $xquer = 406 / 28;

 $summe_xy = 0;
 $summe_xx = 0;

 for ( $r = 0; $r < 28; $r++ ) {                              
  $yi = $faelle_neu_ppm[$index - $r];
  $xi = $r + 1;
  $summe_xy += ( $xi - $xquer ) * ( $yi - $yquer );
  $summe_xx += ( $xi - $xquer ) * ( $xi - $xquer );
 }

 $reg28_faelle_ppm = $summe_xy / $summe_xx;
 $reg28b_faelle_ppm = $yquer - ( $reg28_faelle_ppm * $xquer );

 // Ausgabe

 $tmp = str_replace('"', '', $array[$x][0]);                      # Anführungszeichen entfernen
 $array_erweitert[0] = rtrim($liste_laender_iso_de["$tmp"]);      # deutsche Namen

 $array_erweitert[1] = $summe_faelle_neu_abs[7];                  # Summe Fälle7 neu
 $array_erweitert[2] = $summe_faelle_neu_abs[14];                 # Summe Fälle14 neu
 $array_erweitert[3] = $summe_faelle_neu_abs[28];                 # Summe Fälle28 neu
 $array_erweitert[4] = round($summe_faelle_neu_abs[7] / 7, 2);    # GD 7
 $array_erweitert[5] = round($summe_faelle_neu_abs[14] / 14, 2);  # GD 14
 $array_erweitert[6] = round($summe_faelle_neu_abs[28] / 28, 2);  # GD 28

 $array_erweitert[7] = $summe_tote_neu_abs[7];                    # Summe Tote7
 $array_erweitert[8] = $summe_tote_neu_abs[14];                   # Summe Tote14
 $array_erweitert[9] = $summe_tote_neu_abs[28];                   # Summe Tote28
 $array_erweitert[10] = round($summe_tote_neu_abs[7] / 7, 2);     # GD 7
 $array_erweitert[11] = round($summe_tote_neu_abs[14] / 14, 2);   # GD 14
 $array_erweitert[12] = round($summe_tote_neu_abs[28] / 28, 2);   # GD 28

 $array_erweitert[13] = $summe_faelle_neu_ppm[7];                 # Summe Fälle7 neu
 $array_erweitert[14] = $summe_faelle_neu_ppm[14];                # Summe Fälle14 neu
 $array_erweitert[15] = $summe_faelle_neu_ppm[28];                # Summe Fälle28 neu
 $array_erweitert[16] = round($summe_faelle_neu_ppm[7] / 7, 2);   # GD 7
 $array_erweitert[17] = round($summe_faelle_neu_ppm[14] / 14, 2); # GD 14
 $array_erweitert[18] = round($summe_faelle_neu_ppm[28] / 28, 2); # GD 28

 $array_erweitert[19] = $summe_tote_neu_ppm[7];                   # Summe Tote7
 $array_erweitert[20] = $summe_tote_neu_ppm[14];                  # Summe Tote14
 $array_erweitert[21] = $summe_tote_neu_ppm[28];                  # Summe Tote28
 $array_erweitert[22] = round($summe_tote_neu_ppm[7] / 7, 2);     # GD 7
 $array_erweitert[23] = round($summe_tote_neu_ppm[14] / 14, 2);   # GD 14
 $array_erweitert[24] = round($summe_tote_neu_ppm[28] / 28, 2);   # GD 28

 $array_erweitert[25] = $reg14_faelle_ppm;     # REG14 Fälle neu
 $array_erweitert[26] = $reg14b_faelle_ppm;    # REG14 Fälle neu
 $array_erweitert[27] = $reg28_faelle_ppm;     # REG28 Fälle neu
 $array_erweitert[28] = $reg28b_faelle_ppm;    # REG28 Fälle neu

 # Wenn sich die ISO-Codes unterscheiden (zeichen für Tabellenwechsel)
 if ( $array[$x][0] == $genesene[$x - 14][1]){   
  $array_erweitert[29] = $genesene[$x - 14][0];  # Genesene (ppm)
 } else {
  $array_erweitert[29] = 0;
 }

 $array_erweitert[30] = round($summe_impfungen_neu_abs[14] * 1000000 / ( 14 * $array[$x][48]), 2);   # GD 14 Impfungen ppm
 $array_erweitert[31] = round($summe_impfungen_neu_abs[7] * 1000000 / $array[$x][48], 2);            # Summe Impfungen7 neu ppm
 $array_erweitert[32] = round($summe_impfungen_neu_abs[28] * 1000000 / $array[$x][48], 2);           # Summe Impfungen28 neu ppm

 if ( $array[$x][0] == "iso_code" ) {

 $array_erweitert = array ("Land deutsch",              # 25
                          "Sum_Faelle_neu_7_abs",       # 26
                          "Sum_Faelle_neu_14_abs",      # 27
                          "Sum_Faelle_neu_28_abs",      # 28
                          "GD_Faelle_neu_7_abs",        # 29
                          "GD_Faelle_neu_14_abs",       # 30
                          "GD_Faelle_neu_28_abs",       # 31
                          "Sum_Tote_neu_7_abs",         # 32
                          "Sum_Tote_neu_14_abs",        # 33
                          "Sum_Tote_neu_28_abs",        # 34
                          "GD_Tote_neu_7_abs",          # 35
                          "GD_Tote_neu_14_abs",         # 36
                          "GD_Tote_neu_28_abs",         # 37
                          "Sum_Faelle_neu_7_ppm",       # 38
                          "Sum_Faelle_neu_14_ppm",      # 39
                          "Sum_Faelle_neu_28_ppm",      # 40
                          "GD_Faelle_neu_7_ppm",        # 41
                          "GD_Faelle_neu_14_ppm",       # 42
                          "GD_Faelle_neu_28_ppm",       # 43
                          "Sum_Tote_neu_7_ppm",         # 44
                          "Sum_Tote_neu_14_ppm",        # 45
                          "Sum_Tote_neu_28_ppm",        # 46
                          "GD_Tote_neu_7_ppm",          # 47
                          "GD_Tote_neu_14_ppm",         # 48
                          "GD_Tote_neu_28_ppm",         # 49
                          "Reg14_Faelle_neu_ppm",       # 50
                          "Reg14b_Faelle_neu_ppm",      # 51
                          "Reg28_Faelle_neu_ppm",       # 52
                          "Reg28b_Faelle_neu_ppm",      # 53
                          "Genesene_ppm",               # 54
                          "GD_Impfungen_14_ppm",        # 55
                          "Sum_Impfungen_7",            # 56
                          "Sum_Impfungen_28" ); }       # 57

 $array_gefiltert = array( $array[$x][0],     # 0 iso_code
                           $array[$x][1],     # 1 continent
                           $array[$x][2],     # 2 location
                           $array[$x][3],     # 3 date
                           $array[$x][4],     # 4 total_cases
                           $array[$x][5],     # 5 new_cases
                           $array[$x][7],     # 6 total_deaths
                           $array[$x][8],     # 7 new deaths
                           $array[$x][10],    # 8 total_cases_ppm
                           $array[$x][11],    # 9 new_cases_ppm
                           $array[$x][13],    # 10 total_deaths_ppm
                           $array[$x][14],    # 11 new_deaths_ppm
                           $array[$x][25],    #- 12 new_tests
                           $array[$x][26],    #- 13 total_tests
                           $array[$x][27],    #- 14 total_tests_per_thousand
                           $array[$x][28],    #- 15 new_tests_per_thousand
                           $array[$x][34],    #- 16 total_vaccs
                           $array[$x][35],    #+ 17 people_vaccin
                           $array[$x][36],    #+ 18 people_fully_vaccinated
                           $array[$x][38],    #+ 19 new_vaccs
                           $array[$x][40],    #- 20 total_vaccs_per_thousand
                           $array[$x][41],    #+ 21 people_vac_per_hundred
                           $array[$x][42],    #+ 22 people_fully_vac_per_hundred
                           $array[$x][48],    # 23 population
                           trim($array[$x][49]) );  # 24 pop_density -- trim() ist notwendig um den Zeilenumbruch zu entfernen

 # die beiden Teil-Arrays zusammenführen
 $ausgabe = array_merge($array_gefiltert, $array_erweitert);

 fputcsv($ausgabedatei, $ausgabe);

 $index++;
 $index2++;
 $land_tmp = $array[$x][2];
 $x++;
}

fclose($ausgabedatei);

unset($input);

# alle Variablen leeren
foreach (array_keys($GLOBALS) as $k) unset($$k);
unset($k);

// Anführungszeichen aus der Datenbank entfernen (werden durch fputcsv eingefügt)

$input = file("corona_daten_tmp.csv"); 

# Ausgabedatei öffnen
$ausgabedatei2 = fopen("corona_daten.csv","w");

foreach ($input as $zeile) { fwrite($ausgabedatei2, str_replace('"', '', $zeile)); }

fclose($ausgabedatei2);

unset($input);

?>

<?php

# original Datenbank einlesen
$input_owid = file("corona_owid.csv"); 

# Ausgabedatei für reduzierte Datenbank öffnen oder erzeugen
$ausgabe_tmp = fopen("corona_owid_red.csv", "w"); 

# von jeder Zeile nur die ersten 50 Einträge verwenden
for ( $x = 0; $x <= count($input_owid); $x++ ){ 
 $zeile = explode(",", $input_owid[$x]);
 
 if ( preg_match("/OWID_(HIC|LIC|LMC|UMC|ENG|NIR)/i", $zeile[0]) != 1 ) {
  for( $k = 0; $k <= 48; $k++ ){
   $ausgabezeile[$k] = $zeile[$k];
  }
  $ausgabezeile[49] = $zeile[62];
  fputcsv($ausgabe_tmp, $ausgabezeile);
 }
}

fclose($ausgabe_tmp);

unset($input_owid);

?>

<?php

# interner Verweis
$seitenverweis = "zusammenfassung";
$laenderverweis = "DEU";

# Kopfteil einbinden
include ("./includes/header.php");

?>

<h2>Die Datenquelle</h2>
<p>Die Rohdaten stammen von <a href="https://ourworldindata.org/" target="_blank"><br/>
https://ourworldindata.org/</a></p>
<p>Die Datenbank kann unter <br/>
<a href="https://ourworldindata.org/coronavirus-data" target="_blank">https://ourworldindata.org/coronavirus-data</a><br/>
abgerufen werden</p>
<br/>

<h2>Der Quelltext</h2>

<?php

# Liste mit auszugebenden Dateien
$liste = array("includes/header.php",
               "layout.css",
               "verteilung_tabellen.js",
               "index.php",
               "zusammenfassung.php",
               "verteilung_tabellen.php",
               "verteilung_diagramme.php",
               "includes/zeitreihe_aktive_infektionen.php",
               "includes/zeitreihe_differential.php",
               "includes/zeitreihe_gesamtinfektionen.php",
               "includes/zeitreihe_impfungen.php",
               "includes/zeitreihe_neuinfektionen_gesamt.php",
               "zeitreihen_tabellen.php",
               "zeitreihen_diagramme.php",
               "zeitreihen_diagramme_4wochen.php",
               "zeitreihen_diagramme_8wochen.php",
               "zeitreihen_diagramme_wochensumme.php",
               "zeitreihen_diagramme_monatssumme.php",
               "zeitreihen_diagramme_vergleich.php",
               "heatmap_wo2.php",
               "includes/download.php",
               "includes/datenbank_erweitern.php",
               "includes/datenbank_reduzieren.php",
               "dokumentation.php",
               "includes/footer.php");

foreach ($liste as $dateiname){ 

echo "<a href='#$dateiname'>$dateiname</a><br>\n";

}

# Für jedes Element des Arrays $liste (für jeden Dateinamen)
foreach ($liste as $dateiname){

 # den Inhalt der Datei mit dem aktuellen Namen in $datei_inhalt schreiben
 $datei_inhalt = file($dateiname);

 # den Namen der Datei als Überschrift der Ebene 3 ausgeben
 echo "<div id='$dateiname'><h3>$dateiname</h3>\n";

 # HMTL-Tag zur Darstellung von Quellcode
 echo "<pre>";
 
 # für jede Zeile des aktuellen Dateiinhaltes
 foreach ($datei_inhalt as $zeile){

  # den Inhalt ausgeben, wobei HTML-Tags in HTML Entities umgewandelt werden
  echo htmlentities($zeile);
 }

 # Tag schliessen
 echo "</pre>\n";
}

# Fussteil einbinden
include ("./includes/footer.php");

?>

<?php

unset($input);
unset($input2);

if ($debug) {
 $memory["ende"] = round(memory_get_usage() / 1024, 0);

 echo "<p>Debugging<p>";
 echo "Zeitzone: " . $memory["timezone"] . "<br>\n";
 foreach ($memory as $name => $wert) {
  if ($name != "timezone") {
   echo($name . ": " . $wert . " KB - " . round($wert / 1024, 1) . " MB <br>\n");
  }
 }
}

?>

<!-- Inhaltsteil Ende -->

   </td>
  </tr>
 </table>

<footer>
<center>
<a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/88x31.png" /></a><br />This work is licensed under a <a rel="license" href="http://creativecommons.org/licenses/by/4.0/">Creative Commons Attribution 4.0 International License</a>.
<br/><?php echo date("Y-m-d"); ?>
</center>
</footer>

</body>

</html>