mehanika
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: urbi
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.60 Ko KB
Mis en ligne Uploaded: 22/06/2025 - 20:49:48
Uploadeur Uploader: urbi (Profil)
Téléchargements Downloads: 2
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4741291
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.60 Ko KB
Mis en ligne Uploaded: 22/06/2025 - 20:49:48
Uploadeur Uploader: urbi (Profil)
Téléchargements Downloads: 2
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4741291
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
Define upogib_preset()= Prgm Local x, qx, w3, w2, w1, w0 Local C1, C2, C3, C4 Local tip, res Local e1, e2, e3, e4 Request "Vnesi q(x):", qx Request "Izberi tip nosilca (1=vpet, 2=konzola, 3=podprt):", tip C1 := "C1" C2 := "C2" C3 := "C3" C4 := "C4" w3 := +(qx, x) + C1 w2 := +(w3, x) + C2 w1 := +(w2, x) + C3 w0 := +(w1, x) + C4 Disp "w(x):", w0 If tip=1 Then e1 := subst(w0, x=0) e2 := subst(w1, x=0) e3 := subst(w0, x=L) e4 := subst(w1, x=L) ElseIf tip=2 Then e1 := subst(w0, x=0) e2 := subst(w1, x=0) e3 := subst(w2, x=L) e4 := subst(w3, x=L) ElseIf tip=3 Then e1 := subst(w0, x=0) e2 := subst(w0, x=L) e3 := subst(w2, x=0) e4 := subst(w2, x=L) Else Disp "Napaka: napa en tip" Return EndIf res := solve({e1=0, e2=0, e3=0, e4=0}, {C1, C2, C3, C4}) Disp "Reaitve:", res If res ` {} Then w0 := subst(w0, res) Disp "Kon na w(x):", w0 Else Disp "Napaka: ni reaitve" EndIf EndPrgm Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
Define upogib_preset()= Prgm Local x, qx, w3, w2, w1, w0 Local C1, C2, C3, C4 Local tip, res Local e1, e2, e3, e4 Request "Vnesi q(x):", qx Request "Izberi tip nosilca (1=vpet, 2=konzola, 3=podprt):", tip C1 := "C1" C2 := "C2" C3 := "C3" C4 := "C4" w3 := +(qx, x) + C1 w2 := +(w3, x) + C2 w1 := +(w2, x) + C3 w0 := +(w1, x) + C4 Disp "w(x):", w0 If tip=1 Then e1 := subst(w0, x=0) e2 := subst(w1, x=0) e3 := subst(w0, x=L) e4 := subst(w1, x=L) ElseIf tip=2 Then e1 := subst(w0, x=0) e2 := subst(w1, x=0) e3 := subst(w2, x=L) e4 := subst(w3, x=L) ElseIf tip=3 Then e1 := subst(w0, x=0) e2 := subst(w0, x=L) e3 := subst(w2, x=0) e4 := subst(w2, x=L) Else Disp "Napaka: napa en tip" Return EndIf res := solve({e1=0, e2=0, e3=0, e4=0}, {C1, C2, C3, C4}) Disp "Reaitve:", res If res ` {} Then w0 := subst(w0, res) Disp "Kon na w(x):", w0 Else Disp "Napaka: ni reaitve" EndIf EndPrgm Made with nCreator - tiplanet.org
>>
