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

Autorisation : Administrateur
Nb de messages : 792
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



 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
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 : 792
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

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Poster un nouveau sujet Poster une réponse





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