/* Variablendeklaration */
...
var M; // dyn. Maßstab
var y, yf; // y in kartesische Koord.
var vy, vyf; // Geschwindigkeiten in y-Richtung
var tau; // Zeitkonstante
var g = 9.81; // Erdbeschleunigung m/s^2
...
//*********** die folgenden Variablen sind Pflicht! *********************/
var canvas;
var canvasID = 'pDGL_0020';
function setup()
{
...
}
function draw()
{
...
ellipse(kXi(0), kYi(y*M), d*M); // Ballon im Fall unter Reibungseinfluss
ellipse(kXi(10*M), kYi(yf*M), d*M); // Ballon im freien Fall
...
if (START)
{ //******************************* Initialisierung ***************************************
vy = 0; vyf = 0;
y = h0;
yf = h0;
...
}
else
{ //************************ Berechnung der Bewegung *****************************************
vy = vy - (g + vy/tau)*dt; // num. Lösung der DGl. nach Stokes
y = y + vy*dt;
if (yf > d/2)
{
vyf = vyf - g*dt; // num. Lösung freier Fall
yf = yf + vyf*dt;
}
...
}