HIPPOPOTAME
a écrit :
et lebesgue-intégrable?
Peut-être (franchement, je n'ose pas m'avancer plus loin que "continue" faute de démonstration sous les yeux pour les cas plus généraux), mais dans ce cas, il faudra déjà changer toutes mes intégrales de Riemann en intégrales de Lebesgue.
On peut toujours exhiber une fonction du genre cos(x)+cos(x/a), avec a une constante dont il est difficile de dire si elle est irrationnelle (-> fonction non périodique) ou si elle est rationnelle, et quelle est cette valeur rationnelle (-> pour obtenir la période).
On peut par exemple prendre pour a des valeurs de fonctions transcendantes comme Gamma, ou logarithme intégral (on peut choisir des valeurs dont l'irrationnalité est encore conjecturelle). Tout celà peut se faire avec les symboles d'intégration dont on dispose dans le Cas.
Et vu la tête qu'a une fonction cos(x)+cos(x/a), je doute qu'un algorithme puisse donner une valeur crédible de la période, ou affirmer qu'il n'y a pas de période!
Bon, on essaye mon algorithme avec
a=22/7. Soit donc
f(x)=cos(x)+cos(7x/22).
1. Y = lim(intégrale(f(x),x,-p,p)/(2p),p,+infini) = 0 (jusque là pas de problème pour ma TI-89).
2. f(x)-Y=f(x)
intégrale(f(x)-Y,x,0,T)=22/7 sin(7T/22) + sin(T) (jusque là toujours pas de problèmes)
22/7 sin(7T/22) + sin(T) = 0 <=> Euh... La TI-89 ne trouve pas de résultats formels.

Voilà des approximations:
t0 = 9,65003, t1 = 19,3054, t2 = 28,9730, t3 = 38,6632, t4 = 48,3966, t5 = 58,2302, t6 = 69,1151, t7 = 79,9998, t8 = 89,8335, t9 = 99,5669, t10 = 109,257, t11 = 118,925, t12 = 128,58, t13 = 138,23, ...
3. f(x+t0)-f(x)|x=seq(x,x,0,1,.1) -> raté
f(x+t1)-f(x)|x=seq(x,x,0,1,.1) -> raté
f(x+t2)-f(x)|x=seq(x,x,0,1,.1) -> raté
f(x+t3)-f(x)|x=seq(x,x,0,1,.1) -> raté
f(x+t4)-f(x)|x=seq(x,x,0,1,.1) -> raté
f(x+t5)-f(x)|x=seq(x,x,0,1,.1) -> raté
f(x+t6)-f(x)|x=seq(x,x,0,1,.1) -> raté
f(x+t7)-f(x)|x=seq(x,x,0,1,.1) -> raté
f(x+t8)-f(x)|x=seq(x,x,0,1,.1) -> raté
f(x+t9)-f(x)|x=seq(x,x,0,1,.1) -> raté
f(x+t10)-f(x)|x=seq(x,x,0,1,.1) -> raté
f(x+t11)-f(x)|x=seq(x,x,0,1,.1) -> raté
f(x+t12)-f(x)|x=seq(x,x,0,1,.1) -> raté
f(x+t13)-f(x)|x=seq(x,x,0,1,.1) -> {0., 1.E-13, 3.E-13, 5.E-13, 5.E-13, 6.E-13, 8.E-13, 8.E-13, 1.E-12, 1.2E-12, 1.E-12}. Tiens...
Un peu plus de calculs numériques:
f(x+t13)-f(x)=cos(7x/22+43,9823)+cos(x+138,23)-cos(7x/22)-cos(x)
43,9823/(2pi)=7, (Tiens, ...)
138,23/(2pi)=22, (Tiens, ...)
La période est donc t13=environ 138,23=22*(2 pi)=44 pi.
Un peu de calcul formel montre que 44 pi est bien une période (même si ça ne montre pas que c'est la plus petite - mais les calculs numériques laissent le présager):
f(x+44 pi)-f(x)=cos(7x/22+14 pi)+cos(x+44 pi)-cos(7x/22)-cos(x)=0
Voilà, ma méthode systématique mène au but. Cela dit, il faut que le CAS sache reconnaître des différences proches de 0 malgré les erreurs d'arrondis, et (pour obtenir un résultat exact) qu'il ait l'initiative de diviser les valeurs numériques qui apparaîssent dans les cosinus par 2 pi. Ou alors qu'il soit suffisamment intelligent pour calculer la valeur exacte de
t13 en étant devant
22/7 sin(7T/22) + sin(T) = 0. (Mais il faut quand-même traîter les zéros précédents numériquement.)