dialux1
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: will104
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.82 Ko KB
Mis en ligne Uploaded: 25/04/2025 - 09:24:32
Uploadeur Uploader: will104 (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4601298
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.82 Ko KB
Mis en ligne Uploaded: 25/04/2025 - 09:24:32
Uploadeur Uploader: will104 (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4601298
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
Define dialuxlite()= Prgm Local op, F, E, UF, MF, A, N, FL, tipo Disp "MENU DIALUX LITE" Disp "1: Calcular E (lux)" Disp "2: Calcular F (lumenes)" Disp "3: Calcular N luminarias" Prompt op If op=1 Then Prompt F Prompt UF Prompt MF Prompt A If A=0 Then Disp "Error: Area no puede ser 0" Return EndIf E := (F * UF * MF) / A Disp "Lux (E):" Disp E ElseIf op=2 Then Prompt E Prompt UF Prompt MF Prompt A If UF=0 or MF=0 Then Disp "Error: UF y MF no pueden ser 0" Return EndIf F := (E * A) / (UF * MF) Disp "Flujo necesario (F):" Disp F ElseIf op=3 Then Disp "TIPO DE LUMINARIA:" Disp "1: LED 10W (1000lm)" Disp "2: LED 20W (2000lm)" Disp "3: LED 30W (3000lm)" Disp "4: LED 40W (4000lm)" Prompt tipo If tipo=1 Then FL := 1000 ElseIf tipo=2 Then FL := 2000 ElseIf tipo=3 Then FL := 3000 ElseIf tipo=4 Then FL := 4000 Else Disp "Tipo no valido" Return EndIf Prompt E Prompt UF Prompt MF Prompt A If FL=0 or UF=0 or MF=0 Then Disp "Error: Parametros no validos" Return EndIf N := (E * A) / (FL * UF * MF) Disp "Cantidad luminarias (N):" Disp round(N,0) Else Disp "Opcion no valida" EndIf EndPrgm Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
Define dialuxlite()= Prgm Local op, F, E, UF, MF, A, N, FL, tipo Disp "MENU DIALUX LITE" Disp "1: Calcular E (lux)" Disp "2: Calcular F (lumenes)" Disp "3: Calcular N luminarias" Prompt op If op=1 Then Prompt F Prompt UF Prompt MF Prompt A If A=0 Then Disp "Error: Area no puede ser 0" Return EndIf E := (F * UF * MF) / A Disp "Lux (E):" Disp E ElseIf op=2 Then Prompt E Prompt UF Prompt MF Prompt A If UF=0 or MF=0 Then Disp "Error: UF y MF no pueden ser 0" Return EndIf F := (E * A) / (UF * MF) Disp "Flujo necesario (F):" Disp F ElseIf op=3 Then Disp "TIPO DE LUMINARIA:" Disp "1: LED 10W (1000lm)" Disp "2: LED 20W (2000lm)" Disp "3: LED 30W (3000lm)" Disp "4: LED 40W (4000lm)" Prompt tipo If tipo=1 Then FL := 1000 ElseIf tipo=2 Then FL := 2000 ElseIf tipo=3 Then FL := 3000 ElseIf tipo=4 Then FL := 4000 Else Disp "Tipo no valido" Return EndIf Prompt E Prompt UF Prompt MF Prompt A If FL=0 or UF=0 or MF=0 Then Disp "Error: Parametros no validos" Return EndIf N := (E * A) / (FL * UF * MF) Disp "Cantidad luminarias (N):" Disp round(N,0) Else Disp "Opcion no valida" EndIf EndPrgm Made with nCreator - tiplanet.org
>>
