programme de trigo

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

bonjour a tous

Voici un p'tit programme sur la trigonométrie
rien d’intéressant dans son ensemble mais il indique toutes les
lignes du système au cercle trigonométrie
y compris la ligne de la sécante et cosécante
papydall contrôle s'il n'y a pas d’erreur lol
j'aurai bien voulus mettre une autre option, c'est de mettre
l'inverse du degré par rapport à la valeur trigo
c a dire de donner une valeur trigo et la convertir
en degré ex: 0.707........ =cos(45) mais pour ça il faut
connaitre la formule
c'est un petit programme que je me suis fait sur ma TI92
ainsi que d'autre programme mais c dommage je les ai tous perdu
j'en avais aussi un qui me permettais de connaitre l' entraxe
de plusieurs perçage en cercle,cela m'évitai de faire tout les calcul
enfin voici le source

Code:: dim CY,CX,sinu,csinu,tang,ctang,seca,cseca,degre
full_space 0
color 0,0,0,0
label trr
on_click 0,trr
pitagor()
end

trr:
pitagor()
if message_input("Angle", "Indiquez un angle" , "")=1
degre=message_text$
print_locate 0,30
degrees
ctang=cos(degre)/sin(degre)
print "cotangeante "+str$(degre)+"°="+str$(ctang)
2d_pen_color 125,0,0
2d_line CX,CY-100,CX+(ctang*100),CY-100

tang=tan(degre)
print "tangeante "+str$(degre)+"°="+str$(tang)
2d_pen_color 0,125,0
2d_line CX+100,CY,CX+100,CY-(tang*100)

csinu=cos(degre)
print "cosinus "+str$(degre)+"°="+str$(csinu)
2d_pen_color 0,0,125
2d_line CX,CY,CX+(csinu*100),CY

sinu=sin(degre)
print "sinus "+str$(degre)+"°="+str$(sinu)
2d_pen_color 125,0,125
2d_line CX+(csinu*100),CY,CX+(csinu*100),CY-(sinu*100)

cseca=1/sin(degre)
print "cosécante "+str$(degre)+"°="+str$(cseca)
2d_pen_color 125,125,125
   if degre=>45
   2d_line CX,CY,CX+100,CY-(tang*100)
   else
   2d_line CX,CY,CX+(ctang*100),CY-100
   end_if

seca=1/cos(degre)
print "sécante "+str$(degre)+"°="+str$(seca)
2d_pen_color 200,125,125
   if degre=>45
   2d_line CX,CY,CX+(ctang*100),CY-100
   else
   2d_line CX,CY,CX+100,CY-(tang*100)
   end_if

end_if
return

sub pitagor()
font_color 0,255,255,255
cy=height(0)/2
cx=width(0)/2
2d_pen_color 250,250,250
2d_clear
2d_circle cx,cy,100
2d_line cx,cy,cx+100,cy
2d_line cx,cy,cx,cy-100
print "cliquer sur la fenêtre pour déterminer un angle"
end_sub

allez bon w-end
a+

pascal10000 a écrit:: papydall contrôle s'il n'y a pas d’erreur lol
j'aurai bien voulus mettre une autre option, c'est de mettre
l'inverse du degré par rapport à la valeur trigo
c a dire de donner une valeur trigo et la convertir
en degré ex: 0.707........ =cos(45) mais pour ça il faut
connaitre la formule

Je pense que tu veux parler des fonctions trigonométriques inverses, on dit aussi fonctions réciproques
C’est-à-dire : les fonctions Arcsin, Arccos et Arctan.
En Panoramic ce sont : asin, acos et atn

Code:: degrees
print cos(45) : ' <---- 0.70710678...
print acos(0.707) : ' <---- 45.00865...

Remarques :
Tu as tenté une chose et c'est déjà bien.
+1 point pour toi Laughing

Je préfère Pythagore à pitagor Wink

On écrit : tangente / cotangente et non tangeante / cotangeante tongue

Pour ce genre de calcul, il faut prévoir le comportement du programme en cas de valeurs particulières.
Essayez par exemple de donner 0 (zéro) comme valeur de l’angle.
Prévoir aussi les cas où le rapport trigonométrique n’est pas défini (exemple tangente de 90° est indéfinie) pale

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

dsl pour les erreurs
ok je connaissais pas les fonction de asin, acos et atn
merci du renseignement

Ne soit pas désolé pour les erreurs !
On apprend beaucoup plus de nos erreurs et de nos échecs que de nos réussites.
Sache que quand tu fais quelque chose, il y a contre toi :
ceux qui veulent faire la même chose,
ceux qui veulent faire le contraire
et ceux qui ne veulent rien faire.

Alors fais ce que tu veux et apprends de tes erreurs ; ça te feras avancer.

Edit :

http://math.unice.fr/~yameogo/ensgmt/seco/seco2k9/amphi_7.pdf

http://dev-math.cmaisonneuve.qc.ca/alevesque/doc/trigo.pdf

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

bjr
mrc papydall

au 2 adresses que tu ma donné
j'ai rajouté dans ce programme
encore plus d'option pour déterminé des
inconnus par rapport aux angles d'un
triangle rectangle et de leur côtés
mais il n'est pas fini

programme de trigo Captur10

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

bonjour a tout les panoramiciens

Dans mon programme de trigo; j'ai fais des améliorations!
J'ai dû remodeler tout le système et un bug survenait
lorsque la fenêtre était réduit à la barre de tache, tout les print
et les lignes était effacé dès que l'on voulais ré-agrandir la fenêtre
de plus la nouvelle version comporte les calculs pour les triangles quelconques
Je l'ai surnommé "trigoDataDeluxe"

Sur ce, j'invite aux personne qui le souhaite, a tester mon programme s'ils ne trouvent pas d'erreur
ou de bug

De mon coté je l'ai testé a partir des angles B et C à 30 degré et je n'ai trouvé aucune d'erreur.
Je remercie a tout ceux qui acceptera ma demande

Vous pouvez le télécharger a partir de mydrive
id: panoramic@pascal10000
code: panoramic123

Allez a très bientôt!

» finition du program trigo
» Un debut de radar, encore de la trigo
» ce fut mon 2ème programme en panoramic! (mauvais programme)
» fermer le programme qui lance un autre programme
» Stoper le programme