Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
ISOSTATI par luffy_yop
Auteur Message
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 782
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Ven 28 Déc 2007, 21:52   Citer 

Voilà ce que j'ai reçu hier par mail. Merci à luffy_yop pour ce programme qui vérifie si un système est isostatique !

@+ Le Webmaster beer.gif


Code
ClrDraw
ClrHome
Disp "NB DE CLASSE","D'EQUIVALANCE"
Input N
Disp "NB DE MOBILITE","UTILES"
Input U
Disp "NB DE MOBILITE","INTERNES"
Input I
Disp "CB DE LIAISONS"
Input A
 
0→S
While A>0
0→Xmin
94→Xmax
0→Ymin
62→Ymax
0→Yscl
GridOff:AxeOff:ClrDraw
 
Text(0,0,"0:PIVOT"
Text(0,49,"1:GLISSIERE"
Text(6,0,"2:HELICOIDALE"
Text(12,0,"4:PIVOT GLISSANT"
Text(6,65,"3:ROTULE"
Text(18,0,"5:ROTULE A DOIGT"
Text(24,0,"6:LINEAIRE ANNULAIRE"
Text(30,0,"7:APPUI PLAN"
Text(36,0,"8:LINEAIRE RECTILIGNE"
Text(42,0,"9:PONCTUELLE"
Text(48,0,"APPUI SUR LA TOUCHE "
Text(54,0,"0:DE LA LIASON"
 
0→Z
While Z=0
GetKey→Z
End
If Z=102:5+S→S
If Z=92:5+S→S
If Z=93:5+S→S
If Z=94:3+S→S
If Z=82:4+S→S
If Z=83:4+S→S
If Z=84:2+S→S
If Z=72:3+S→S
If Z=73:2+S→S
If Z=74:1+S→S
A-1→A
End
-6(N-1)+U+I+S→H
 
ClrDraw
ClrHome
ZDecimal
CoorOn
AxesOn
If H=0:Disp "ISOSTATIQUE"
If H[Différent de]0:Disp "HYPERSTATIQUE","D'ORDRE",H



----------------------
Retrouver le site sur Facebook : http://www.facebook.com/tout82
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Ven 28 Déc 2007, 22:00   Citer 

c'est de la physique de quel niveau? (si c'est de la physique)

 Adresse email Haut de page Bas de page 
 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 782
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Ven 28 Déc 2007, 22:20   Citer 

Je dirais que c'est plus de la mécanique ou de la SI...

@+ Le Webmaster beer.gif

----------------------
Retrouver le site sur Facebook : http://www.facebook.com/tout82
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa