Discussion :

[arnaud405]

Bonjour à tous.

Cette année je vais voir le CamL light, et commence déjà à programmer..Et je rencontre un problème pour la dernière question d'un exo. Evidemment ça n'est pas grave, mais j'aime bien comprendre ! La consigne :

"Donner une mesure approchée en degrés de chacun des 3 angles de ce triangle. Vérifier que la somme des mesures de ces 3 angles est bien égale à 180 . On utilisera la fonction prédéfinie asin et la fonction radianDegre définie en (1)"

Voila, alors je suis bloqué...La fonction radianDegré est la suivante tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

let radianDegre r = r*.180. /. pi ;;

Merci de me débloquer !

[gorgonite]

je pense qu'il manque un bout d'énoncé ?

ce triangle -> il a des caractéristiques particulières ?
donner une mesure approchée -> faut les calculer, ou ceux sont des paramètres ?

[arnaud405]

alors c'est a b et c qu'il faut comme variable uniquement. (on me donne a=4 b=5 et c=6 ) . Il y a également aa (angle alpha). on ne me donne que ça. Je pense que c'est au programme de me donner la valeur approchée.avant cette question, on me demande de calculer l'aire, encore avant le produit scalaire...C'est le premier TP pour se familiariser. Mais j'avoue que cette question me bloque !

[gorgonite]

théorème d'Al-Kashi

http://fr.wikipedia.org/wiki/Th%C3%A...d'Al-Kashi


c'est un problème de géométrie en fait...



EDIT : es-tu en MPSI ? si oui, quel lycée ?

[arnaud405]

Merci pour ta réponse, mais je ne sais pas comment "écrire" le petit bout de programme pour faire ce qu'ils me demandent, utiliser la fonction radianDegre, arrondir et tout et tout....En gros si tu as une idée de ce que je dois taper dans camL pour qu'il me renvoie le bon truc..
Merci.

Je suis à l'ESEO, école privée d'info, en première année..prépa intégrée..MPSI...

[gorgonite]

commences par résoudre mathématiquement le problème... ensuite, essaies de traduire le code ; je te corrigerais si besoin, mais je ne te ferais pas le code

[arnaud405]

Si j'ai posté le message, c'est que bien évidemment j'ai cherché, sans être parvenu à résoudre le problème. Je me doutais que c'était Al Kashi, mais je ne vois pas comment écrire la fonction, arrondir les angles, vérifier la somme, car je n'ai qu'un angle, utiliser l'arc sinus...

Merci quand même pour ton aide.

[gorgonite]

et en pensant à cette formule ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sin(pi/2 - a) = cos(a)

[arnaud405]

je n'utilise pas asin ni radianDegre...

[gorgonite]

Al-Kashi dit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c² = a² + b² + 2*cos(cc)

donc, on peut en déduire...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
c² = a² + b² + 2*sin(pi/2 - cc)
(c² - a² - b²)/2 = sin(pi/2 - cc)
arcsin(c² - a² - b²)/2 = pi/2 - cc
cc = pi/2 - arcsin(c² - a² - b²)/2

sachant que cc est exprimé en radians... donc faudra le passer en degrés

[arnaud405]

Voila alors j'ai fait ça mais je ne sais pas vraiment quoi faire de plus...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
#let fonction a b c = (pi/.2.)-. asin(a*.a-.c*.c-.b*.b)/.2. ;;
fonction : float -> float -> float -> float = <fun>

je ne sais pas comment utiliser radianDegre...et ça ne me donne qu'un ange..Il faut que je teste la somme des 3...genre if aa+.bb+.cc = 180 then true ;;

mais j'en sais rien du tout..C'est mon tout premier TP...

[alex_pi]

mais j'en sais rien du tout..C'est mon tout premier TP...

D'ailleurs, je trouve ça passablement absurde de faire ce genre de truc pour un premier TP caml. Mais bon, ce n'est que mon humble avis !

Mais avant de "penser Caml" essaye de penser maths, de tout bien poser sur papier, et après de traduire en Caml

Et accessoirement, la somme des angles ne fera jamais exactement 180°, il y aura des erreurs d'arrondis, donc il faut faire le test à epsilon pres.

[arnaud405]

ouè...je ne sais pas trop comment faire là....

[gorgonite]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
let fonction a b c = radianDegre((pi/.2.)-. asin(a*.a-.c*.c-.b*.b)/.2.) ;;
 
let aa = fonction b c a and bb = fonction a c b and cc = fonction a b c in
let somme = aa +. bb +. cc ;;

[arnaud405]

Je te remercie..Je ne savais pas me servir de and et in...D'ailleurs je ne sais pas si je comprends parfaitement. Bref, on m'expliquera à mon prochain cours.
Merci encore !

[gorgonite]

Bref, on m'expliquera à mon prochain cours.

dis nous ce que font, selon toi, chaque ligne... et on corrigera

[InOCamlWeTrust]

il y aura des erreurs d'arrondis, donc il faut faire le test à epsilon pres.

Ou de l'art de choisir le epsilon...

Véridique, vu en présentation de thèse : "Si le test à epsilon près échoue, on modifie epsilon."... dans le genre "Si je veux que ça marche et que ça marche pas, je fais comme si ça marchait !".

[arnaud405]

Bonjour.
On vient de le voir aujourd'hui. j'ai compris..en fait and et in c'est pour en fait ajouter des fonctions dans les fonctions. et ça autant qu'on veut !
donc j'ai compris toute la syntaxe de ce petit truc. Merci encore ! Je vous recontacterai pour d'autres trucs je pense. merci de votre soutien, votre ide et votre sympathie.