leyomh
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: mana1983
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.25 Ko KB
Mis en ligne Uploaded: 20/07/2025 - 05:27:53
Mis à jour Updated: 20/07/2025 - 05:28:14
Uploadeur Uploader: mana1983 (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4801714
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.25 Ko KB
Mis en ligne Uploaded: 20/07/2025 - 05:27:53
Mis à jour Updated: 20/07/2025 - 05:28:14
Uploadeur Uploader: mana1983 (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4801714
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
Define leyohm(v,i,r,p)= Func If v`"x" and i`"x" Then Disp "Resistencia (R) = ",((v)/(i)) Disp "Potencia (P) = ",v*i ElseIf v`"x" and r`"x" Then Disp "Corriente (I) = ",((v)/(r)) Disp "Potencia (P) = ",((v^(2))/(r)) ElseIf v`"x" and p`"x" Then Disp "Corriente (I) = ",((p)/(v)) Disp "Resistencia (R) = ",((v^(2))/(p)) ElseIf i`"x" and r`"x" Then Disp "Voltaje (V) = ",i*r Disp "Potencia (P) = ",i^(2)*r ElseIf i`"x" and p`"x" Then Disp "Voltaje (V) = ",((p)/(i)) Disp "Resistencia (R) = ",((p)/(i^(2))) ElseIf r`"x" and p`"x" Then Disp "Voltaje (V) = ",(p*r) Disp "Corriente (I) = ",(((p)/(r))) Else Disp "Error." EndFunc Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
Define leyohm(v,i,r,p)= Func If v`"x" and i`"x" Then Disp "Resistencia (R) = ",((v)/(i)) Disp "Potencia (P) = ",v*i ElseIf v`"x" and r`"x" Then Disp "Corriente (I) = ",((v)/(r)) Disp "Potencia (P) = ",((v^(2))/(r)) ElseIf v`"x" and p`"x" Then Disp "Corriente (I) = ",((p)/(v)) Disp "Resistencia (R) = ",((v^(2))/(p)) ElseIf i`"x" and r`"x" Then Disp "Voltaje (V) = ",i*r Disp "Potencia (P) = ",i^(2)*r ElseIf i`"x" and p`"x" Then Disp "Voltaje (V) = ",((p)/(i)) Disp "Resistencia (R) = ",((p)/(i^(2))) ElseIf r`"x" and p`"x" Then Disp "Voltaje (V) = ",(p*r) Disp "Corriente (I) = ",(((p)/(r))) Else Disp "Error." EndFunc Made with nCreator - tiplanet.org
>>
