/* Variablendeklaration */
var kmy_r; // Regler Koeff. Gleitreibung
...
var alpha; // alpha: aktuelles Gefälle der Rampe
var s, v; // Objektort und -geschwindigkeit
var sign; // Vorzeichen Geschwindigkeit
var g = 9.81;
var dt = 1/frmRate; // Zeitquant = 1/frameRate
function draw()
{
...
if (abs(v) < g*my_r*cos(alpha)*dt) // Vorzeichen für Reibkraft ermitteln
{
sign = 0; // Wirkung der Reibkraft aussetzen
v = 0; // Restfehler der Geschwindigkeitsberechnung eliminieren
}
else
if (v > 0)
sign = 1; // pos. Richtung
else
sign = -1; // neg. Richtung
...
}