$vmax) {
$vx[$i]=$vvx[$i]*$vmax/$vvr;
$vy[$i]=$vvy[$i]*$vmax/$vvr;
} else {
$vx[$i]=$vvx[$i];
$vy[$i]=$vvy[$i];
}
$px[$i]=$px[$i]+$vx[$i]*$dt;
$py[$i]=$py[$i]+$vy[$i]*$dt;
$ppx[$i]=max(-100000,min(100000,round($px[$i])));
$ppy[$i]=max(-100000,min(100000,round($py[$i])));
# Punkte in values-Liste eintragen...
$vax[$i].=";$ppx[$i]";
$vay[$i].=";$ppy[$i]";
}
$pmx=0;
$pmy=0;
for ($i = 0; $i < $anz; $i++) {
$pmx=$pmx+$ppx[$i];
$pmy=$pmy+$ppy[$i];
}
$pmx=round(-$pmx/$anz);
$pmy=round(-$pmy/$anz);
$vax[$anz].=";$pmx, $pmy";
$vay[$anz].="";
if ($k%20==19) {
for ($i = 0; $i <= $anz; $i++) {
$vax[$i].="\n";
$vay[$i].="\n";
}
}
# ende k
}
if ($pot<0.1) {
$raus="\n";
} else {
$raus="";
}
for ($i = 0; $i < $anz; $i++) {
if ($i<=$anz/6) {
$rot=255;
$gru=floor(255*$i/$anz*6);
$bla=0;
} elseif ($i<=$anz/3) {
$c=($i/$anz-1/6)*6;
$rot=floor(255-255*$c);
$gru=255;
$bla=0;
} elseif ($i<=$anz/2) {
$c=($i/$anz-1/3)*6;
$rot=0;
$bla=floor(255*$c);
$gru=255;
} elseif ($i<=2*$anz/3) {
$c=($i/$anz-1/2)*6;
$rot=0;
$bla=255;
$gru=255-floor(255*$c);
} elseif ($i<=5*$anz/6) {
$c=($i/$anz-2/3)*6;
$gru=0;
$rot=floor(255*$c);
$bla=255;
} else {
$c=($i/$anz-5/6)*6;
$gru=0;
$rot=255;
$bla=floor(255-255*$c);
}
$raus.="
\n";
}
# SVG-header senden:
$content="Content-type: image/svg+xml";
header($content);
echo " \n";
?>