tijd := tijd + tijdstap


'Snelheid:'
zwaartekracht := valversnelling * massa
fhelling := zwaartekracht * Sin(hellingshoek) + wrijvingopschans
floodrecht := zwaartekracht * Cos(hellingshoek)
dsnelheid := fhelling / massa
snelheid := snelheid + dsnelheid











'Deze wil nog niet werken. :S'

'Wrijving op de schans:'
Wrijvingopschans := luchtwrijving + glijwrijving
glijwrijving := Wrijvingsconstante * floodrecht * massa
luchtweerstand := Weerstandsconstante * Frontaaloppervlakte * 0,5 * luchtdichtheid * snelheid


'           Deze formules heb ik van het internet geplukt voor lucht en glijweerstand:      '
'                    Q(glij)  = wrijvingsconstante * massa * Floodrecht                     '
'         Q(lucht) = Constante * frontaaloppervlakte * 0,5 * dichtheid lucht * snelheid     '












'Afstand op de schans:'
dafstandschans := snelheid * tijdstap
afstandschans := afstandschans + dafstandschans
als afstandschans >= 103,5 dan dsnelheid=0 eindals










'Deze doet het nog niet:'
als afstandschans >= 103,5 dan dafstandschans=0 eindals











'Tijd na het vertrekken van de schans:'
valtijd := valtijd + tijdstap
als afstandschans<= 103,5 dan valtijd=0 eindals


'Horizontale beweging:'
horizontaleafstand := horizontaleafstand + dhorizontaleafstand
dhorizontaleafstand := snelheid * Cos(hellingshoek) * tijdstap


'Verticale beweging:'
dy=0,5 * valversnelling * valtijd^2
als afstandschans<=103,5 dan dy=0 eindals
y := y-dy
als y<0 dan stop eindals

'Hoogte skier:'
schans :=103,6 * Sin(hellingshoek)
SZ= 103,5-afstandschans
hschans :=SZ * Sin(hellingshoek)
dhschans := schans-hschans
hoogte := 149-dhschans
als hoogte<=89,6 dan dhschans=0 eindals