Je souhaiterai convertir un petit programme (codé par un ami sur une 83+) sur ma TI Nspire CX CAS. Je ne connais rien de la syntaxe du langage TI nspire.. Donc je ne sais pas comment réécrire le programme haha?
Je vous met le programme codé en TI83+ en question :
- Code: Tout sélectionner
Menu("COMPO","% de pli",1,"Hmin, TSAI-HILL",2)
--------
% de pli
Lbl 1
Input "Nx :",E
Input "Ny :",F
Input "Nxy :",G
100/(1+(2*G/E)+(F/E))→A
(F/E)*A→C
(G/E)*A→B
Disp "% 0° = ",A
Disp "% +-45° = ",B
Disp "% 90° = ",C
Stop
--------
Hmin, TSAI-HILL
Lbl 2
{0,0,0,0}→L₁
Input "N :",N
Disp "caractèristiques du pli :"
Input "σmax trac sens fibre :",A
Input "σmax comp sens fibre :",B
Input "σmax trac sens travers :",C
Input "σmax comp sens travers :",D
Input "τmax repère orthotropie:",E
Disp "pour 0° :"
Input "σl :",I
Input "σt :",J
Input "τlt :",K
If I<0
Then
B→X
Else
A→X
End
If J<0
Then
D→Y
Else
C→Y
End
√(N²*((I²/X²)+(J²/Y²)-((I*J)/X²)+(K²/E²))→H
H→L₁(1)
Disp "pour 0°, Hmin = ",H
Disp "pour 45° :"
Input "σl :",I
Input "σt :",J
Input "τlt :",K
If I<0
Then
B→X
Else
A→X
End
If J<0
Then
D→Y
Else
C→Y
End
√(N²*((I²/X²)+(J²/Y²)-((I*J)/X²)+(K²/E²))→H
H→L₁(2)
Disp "pour 45°, Hmin = ",H
Disp "pour -45° :"
Input "σl :",I
Input "σt :",J
Input "τlt :",K
If I<0
Then
B→X
Else
A→X
End
If J<0
Then
D→Y
Else
C→Y
End
√(N²*((I²/X²)+(J²/Y²)-((I*J)/X²)+(K²/E²))→H
H→L₁(3)
Disp "pour -45°, Hmin = ",H
Disp "pour 90° :"
Input "σl :",I
Input "σt :",J
Input "τlt :",K
If I<0
Then
B→X
Else
A→X
End
If J<0
Then
D→Y
Else
C→Y
End
√(N²*((I²/X²)+(J²/Y²)-((I*J)/X²)+(K²/E²))→H
H→L₁(4)
Disp "pour 90°, Hmin = ",H
Disp "donc Hmin = ",max(L₁)
Merci bcp d'avance,
Navyxx
