Programmes de la calculatrice Texas Instruments (TI-92 Plus)
Vecteur vitesse vers Accélération
acc(fv)
Func
@fv: formule vecteur [i,j,k]
@rep: vecteur reponse (acceleration)
local dp, rep, i, j
newMat(4,3) -> dp
newMat(1,3) -> rep
@ATTENTION: ici, c'est le signe d de derivee
For i,1,3
d(fv[1,i],t) -> dp[1,i]
d(fv[1,i],x) -> dp[2,i]
d(fv[1,i],y) -> dp[3,i]
d(fv[1,i],z) -> dp[4,i]
EndFor
For j,2,4
dp[j,1]*fv[1,j-1] -> dp[j,1]
dp[j,2]*fv[1,j-1] -> dp[j,2]
dp[j,3]*fv[1,j-1] -> dp[j,3]
EndFor
For i,1,3
0 -> rep[1,i]
For j,1,4
rep[1,i]+dp[j,i] -> rep[1,i]
EndFor
EndFor
Return rep
EndFunc
Accélération vers valeurs numériques
accval(vecteur,val)
Func
@vecteur: formule acceleration, format vecteur
@val : valeur de x,y,z et t dans un vecteur [1,4]
Return vecteur|x=val[1,1] and y=val[1,2] and z=val[1,3] and t=val[1,4]
EndFunc
Lire les commentaires | Laisser un commentaire