Laatst postte ik een vraag over het modelleren van een kogelbaan. Echter zaten hier al een hoop fundamentele fouten in. Intussen ben ik verbeterd, maar nog steeds verre van perfect. Met behulp van de volgende componenten wil ik de baan berekenen:
Als t<tmax Dan
t := t + Δt
Δsx=vx1*Δt
sx=sx+Δsx
vx2=vx1/((B*A*vx1*Δt/m)+1)
vx1=vx2
Δsy=vy1*Δt
sy=sy+Δsy
vy2=(g/q)*tan(q*Δt+arctan(vy1/(g/q)))
vy1=vy2
Anders
t := t + Δt
Δsx=vx1*Δt
sx=sx+Δsx
vx2=vx1/((B*A*vx1*Δt/m)+1)
vx1=vx2
Δsy=vy1*Δt
sy=sy+Δsy
vy2=g/q*(e^(2*q*t+ln((g/q+vy1)/(g/q-vy1))-1)/(e^(2q*t+ln((g/q+vy1)/(g/q-vy1))+1)
vy1=vy2
Herhaal Totdat sy<0
Eindals
Met als constanten:
Cw=0,47
m=0,018 'kg
A=0,01539 'm^2
g=9,81 'm/s^2
p=1,293 'kg/m^3
v0=7 'm/s
e=2,718
vy1=v0 * 0,7071067812
vx1=v0 * 0,7071067812
B=0,5*p*Cw
q=(B*A*g/m)^(1/2)
tmax=(arctan(vy1/(g/q)))/q
sy=0
sx=0
t := 0
Δt := 0,1
Ik realiseer mij dat hier veel fouten in zitten, maar zelf kom ik er echt niet uit. Wie helpt mij uit de brand? Ik heb er uiteraard geen problemen mee om fundamentele veranderingen in mijn stroomschema te maken. Dit is de laatste stap van mijn onderzoek, en als ik dit programma niet lopend krijg heeft dit onderzoek geen enkele waarde. Excuses voor het dubbel posten en hopelijk bedankt!
Pieter
