*** empty log message ***

This commit is contained in:
Antoine Drouin
2008-06-23 06:52:12 +00:00
parent 65f1ae5f13
commit afac00d150
+1 -1
View File
@@ -191,7 +191,7 @@ module Make(A:Data.MISSION) = struct
and dy = state.air_speed *. sin state.psi *. dt +. wy *. dt in
state.x <- state.x +.dx ;
state.y <- state.y +. dy;
let gamma = (state.thrust -. drag) /. weight +. state.theta -. 0.1 *. abs_float (sin state.phi)) in
let gamma = (state.thrust -. drag) /. weight +. state.theta -. 0.1 *. abs_float (sin state.phi) in
let dz = sin gamma *. state.air_speed *. dt in
state.z <- state.z +. dz;