| Recherche programme RDM |
| Auteur |
Message |
Arthuro
Invité
|
Posté le : Lun 11 Avr 2011, 19:48
|
|
 |
bonsoir je recherche un programme pour ma ti 82 stats fr qui permetterai de calculer les moments quadratiques et ou tout autre calcul relation lié au dimensionnement (flexion traction )
merci
|
| |
  |
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mar 12 Avr 2011, 0:22
|
|
|
Ces notions de mécanique ne sont pas de mon niveau (TSSI) ! 
Si les formules ne sont pas trop complexes, je pourrai peut-être les adapter.
Indique moi les formules et ta démarche pour que je voie quoi faire.
A moins qu'un autre membre suive ces études.
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
 |
|
| |
Arthuro
Invité
|
Posté le : Mar 12 Avr 2011, 19:17
|
|
|
tan(2a)=(-2*(Igyz))/(Igy-Igz)
Igy'=Igy*cos²(a)+Igz*sin²(a)-Igyz*sin(2a)
Igz'=Igy*sin²'a)+Igz*cos²(a)+Igyz*sin(2a)
=> resortir a(en degré),Igy' et Igz' (connaissant Igyz,Igy et Igz)
|
| |
|
| |
Arthuro
Autorisation : Membre
Nb de messages : 8
Inscrit le : Lun 11 Avr 2011, 19:44
|
Posté le : Mar 12 Avr 2011, 19:36
|
|
|
sinon j'avais commencer a faire ca mais je n'avais pas eu le courage de le programmer ...
http://www.megaupload.com/?d=COG11V5P
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mar 12 Avr 2011, 23:12
|
|
|
Pour le premier système, c'est mort en ce qui me concerne.
Je ne sais pas du tout où je vais, mais je traduirai ta feuille de calculs (bien que tu me semble connaître le principe du ti-basic). Des boucles pourraient éviter une copie totale et bourrine.
Q et P sont-elles des inconnues ?
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
Arthuro
Autorisation : Membre
Nb de messages : 8
Inscrit le : Lun 11 Avr 2011, 19:44
|
Posté le : Mer 13 Avr 2011, 15:26
|
|
|
q et p sont connus
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Sam 16 Avr 2011, 12:52
|
|
|
Chaque fois que tu fais P*x où Q*x ou autre produit par x, dépendent-ils du segment étudié ? Si oui, comment ?
Je bidouille le cas où P Q et x sont des constantes.
EDIT= Voici ma première version.
| Code | "ABCDE->Chaîne1
EffVar A
EffVar B
EffVar C
EffVar D
EffList L1,L2,L3
Prompt P,Q,X
X->Z
For(W,1,5
Disp "POINT "+sous-chaîne(Chaîne1,W,1
Prompt X,Y,N
A-X->A
B-Y->B
C-N->C
A-PZ->L1(W
B-QZ->L2(W
C-BZ+QZ^2/2->L3(W
End
Disp "N
Pause L1
Disp "TY
Pause L2
Disp "MFX
Pause L3 |
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
Arthuro
Autorisation : Membre
Nb de messages : 8
Inscrit le : Lun 11 Avr 2011, 19:44
|
Posté le : Sam 16 Avr 2011, 13:46
|
|
|
en fait ce qu'il faut sortir sont des equatios qui represente l'evolution des contrainte normale(N) , tangentielle(Ty) et le moment de flexion (mfz) en fonction de la position sur la poutre d'où le x !
en espérant que ça réponde a ta question et oui P et Q sont des constantes !
merci
|
| |
|
| |
Arthuro
Autorisation : Membre
Nb de messages : 8
Inscrit le : Lun 11 Avr 2011, 19:44
|
Posté le : Mer 11 Mai 2011, 21:29
|
|
|
Il y a qqun ?
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 11 Mai 2011, 21:56
|
|
|
Je croyais que cela suffisait.
Quelle est la variable à exprimmer selon les autres ? (puisqu'apparamment l'étude numérique ne te convient pas)
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
Arthuro
Autorisation : Membre
Nb de messages : 8
Inscrit le : Lun 11 Avr 2011, 19:44
|
Posté le : Jeu 12 Mai 2011, 15:58
|
|
|
la variable c'est x qui repr"sente la position de la section dans la poutre et il faudrait que le programme affiche les 12 equations
merci
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Jeu 12 Mai 2011, 16:18
|
|
|
Aucune idée si ça te convient, mais ceci devrais correspondre à ce message
| Citer | tan(2a)=(-2*(Igyz))/(Igy-Igz)
Igy'=Igy*cos²(a)+Igz*sin²(a)-Igyz*sin(2a)
Igz'=Igy*sin²'a)+Igz*cos²(a)+Igyz*sin(2a)
=> resortir a(en degré),Igy' et Igz' (connaissant Igyz,Igy et Igz) |
| Code | :ClrHome
:Input "IGYZ:",B
:Input "IGY:",C
:Input "IGZ:",D
:Degree
:.5arctan(-2B/(C-D -> A //devant le 2 c'est le moins entre parrenthèses
:C*cos(A)²+D*sin(A)²-B*sin(2A -> E
:C*sin(A)²+D*cos(A)²+B*sin(2A) -> F
:Disp "A(EN°)=","IGY'=","IGZ'=
:{A,E,F -> Liste1
:Output(4,8,A
:Output(5,6,E
:Output(6,6,F
: |
En espérent que ça te serve à quelque chose (en première et avec la rougeole, je n'étais pas en état de comprendre les 5 pages de calculs)
Sandro
EDIT : carractères qui devennait des ensembles de signes corrigés
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Jeu 12 Mai 2011, 20:22
|
|
|
sandro : corrige les problèmes de caractères unicode.
Arthuro : alors tu veux une antisêche des équations ou une résolution d'équation ?
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Jeu 12 Mai 2011, 23:15
|
|
|
| Citer : Arthuro | | [...]calculer les moments quadratiques et ou tout autre calcul relation lié au dimensionnement (flexion traction ) |
Relis mieux Linkakro, il demande bien une résolution d'équation.
Y-a-t'il des cas précis pour calculer ces moments où tu peut te retrouver avec n'importe quelle surface?
Sangohan38
|
| |
|
| |
Arthuro
Autorisation : Membre
Nb de messages : 8
Inscrit le : Lun 11 Avr 2011, 19:44
|
Posté le : Ven 13 Mai 2011, 18:28
|
|
|
ce que je veux c'est un programme qui écrit(et non résout) les équations a ma place et pas pour tricher mais plutôt pour gagner du temps et faire des vérifs
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Sam 14 Mai 2011, 13:22
|
|
|
Salut
Peut-être que ce programme-ci fait l'affaire :
| Code | :ClrHome
:Input "IGYZ=",Str1
:Input "IGY=",Str2
:Input "IGZ=",Str3
:ClrHome
:Output(1,1,"tan(2a)=(-2*(IGYZ))/(IGY-IGZ)
:Pause
:ClrHome
:Output(1,1,"IGY'=IGY*cos(a)²+IGZ*sin(a)²-IGYZ*sin(2a)
:Pause
:ClrHome
:Output(1,1,"IGZ'=IGY*sin(a)²+IGZ*cos(a)²+IGYZ*sin(2a)
:Pause
:ClrHome
:Output(1,1,"tan(2a)=(-2*("+Str1+"))/("+Str2+"-"+Str3+")
:Pause
:ClrHome
:Output(1,1,"IGY'="+Str2+"*cos(a)²+"+Str3+"*sin(a)²-"+Str1+"*sin(2a)
:Pause
:ClrHome
:Output(1,1,"IGZ'="+Str2+"*sin(a)²+"+Str3+"*cos(a)²+"+Str1+"*sin(2a)
:Pause
:ClrHome
:Input "a=",Str4
:Output(1,1,"IGY'="+Str2+"*cos("+Str4+")²+"+Str3+"*sin("+Str4+")²-"+Str1+"*sin(2*"+Str4+")
:Pause
:ClrHome
:Output(1,1,"IGZ'="+Str2+"*sin("+Str4+")²+"+Str3+"*cos("+Str4+")²+"+Str1+"*sin(2*"+Str4+")
:Pause
:ClrHome |
Ce programme ne fait que afficher les formules d'abord litéralles, puis en remplaçant Igyz, Igy et Igz par leurs valeures numériques ,puis en remplaçant a par ça valeur à condition de l'entrer.
En espérent t'aider
Sandro
PS : ce programme ne remplace pas par des valeurs mais par des chaînes de carractères : si tu entre "2+2", dans le calcul du aura "2+2" ; si tu entre racine carré de 23 , tu obtindra le signe racine carrée suivit de "23)" ; si tu entre "2x²y+3" , tu obtiendra "2x²y+3" ; ...
Attention : si tu entre une somme ou une différence, entoure la de parenthèses (2+3*4 est différend de (2+3)*4 LOL)
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
