Código:
- Código: Seleccionar Todos
(define (main L v dt ttotal)
(define (velocidade L v dt ttotal)
(define (aceleraçao L)
(/ 1 (expt L 2)))
(posiçao L (- v (* (- (aceleraçao L)) dt)) dt ttotal))
(define (posiçao L v dt ttotal)
(main (- L (* v dt)) v dt (+ ttotal dt)))
(if (< L 0.0047)
(/ (* ttotal 365.257) (* 2 (atan 0.0 -1.0)))
(velocidade L v dt ttotal)))
(define (problema)
(main 1 0 1e-6 0))
Código com segmentos de 1.6 * 10 ^ -6 unidades de tempo, o que resulta no resultado com melhor relação precisão/tempo de processamento.
Resultado:
> (time (problema))
cpu time: 5450 real time: 5669 gc time: 1240
64.56010469228957
(a última linha é o resultado da função)
Thank you very much professor.
