hidrologia1
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: tolon
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 2.10 Ko KB
Mis en ligne Uploaded: 07/11/2024 - 21:25:52
Mis à jour Updated: 07/11/2024 - 21:29:36
Uploadeur Uploader: tolon (Profil)
Téléchargements Downloads: 2
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4302805
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 2.10 Ko KB
Mis en ligne Uploaded: 07/11/2024 - 21:25:52
Mis à jour Updated: 07/11/2024 - 21:29:36
Uploadeur Uploader: tolon (Profil)
Téléchargements Downloads: 2
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4302805
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
function friccion(ks, d, nu, q) -- Calcula el coeficiente de fricción usando la ecuación de Colebrook-White. -- Parámetros: -- ks: Rugosidad absoluta de la tubería -- d: Diámetro de la tubería -- nu: Viscosidad cinemática del fluido -- q: Caudal de flujo -- Retorna el coeficiente de fricción o nil si el caudal está vacío o no es válido. -- Verificar que q no esté vacío y que los valores de entrada sean válidos if q == "" or ks <= 0 or d <= 0 or nu <= 0 or q <= 0 then return nil end -- Definir el valor de Pi local Pi = 3.1416 -- Inicializar el valor de fricción y el contador de iteraciones local friccion = 0.001 local j = 0 -- Bucle iterativo para calcular el valor de fricción while j <= 10 do -- Actualizar fricción usando la fórmula de Colebrook-White local fi = 1 / (-2 * math.log10((ks / (3.7 * d)) + (2.51 / ((4 * q) / (Pi * d * nu) * math.sqrt(friccion))))) ^ 2 friccion = fi j = j + 1 end return friccion end -- Solicitar al usuario que ingrese los valores local ks = tonumber(Request("Ingrese la rugosidad absoluta (ks):")) local d = tonumber(Request("Ingrese el diámetro de la tubería (d):")) local nu = tonumber(Request("Ingrese la viscosidad cinemática del fluido (nu):")) local q = tonumber(Request("Ingrese el caudal de flujo (q):")) -- Calcular el coeficiente de fricción usando los valores ingresados local resultado = friccion(ks, d, nu, q) -- Mostrar el resultado al usuario if resultado ~= nil then print("El coeficiente de fricción es: " .. tostring(resultado)) else print("Parámetros no válidos para el cálculo de fricción.") end Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
function friccion(ks, d, nu, q) -- Calcula el coeficiente de fricción usando la ecuación de Colebrook-White. -- Parámetros: -- ks: Rugosidad absoluta de la tubería -- d: Diámetro de la tubería -- nu: Viscosidad cinemática del fluido -- q: Caudal de flujo -- Retorna el coeficiente de fricción o nil si el caudal está vacío o no es válido. -- Verificar que q no esté vacío y que los valores de entrada sean válidos if q == "" or ks <= 0 or d <= 0 or nu <= 0 or q <= 0 then return nil end -- Definir el valor de Pi local Pi = 3.1416 -- Inicializar el valor de fricción y el contador de iteraciones local friccion = 0.001 local j = 0 -- Bucle iterativo para calcular el valor de fricción while j <= 10 do -- Actualizar fricción usando la fórmula de Colebrook-White local fi = 1 / (-2 * math.log10((ks / (3.7 * d)) + (2.51 / ((4 * q) / (Pi * d * nu) * math.sqrt(friccion))))) ^ 2 friccion = fi j = j + 1 end return friccion end -- Solicitar al usuario que ingrese los valores local ks = tonumber(Request("Ingrese la rugosidad absoluta (ks):")) local d = tonumber(Request("Ingrese el diámetro de la tubería (d):")) local nu = tonumber(Request("Ingrese la viscosidad cinemática del fluido (nu):")) local q = tonumber(Request("Ingrese el caudal de flujo (q):")) -- Calcular el coeficiente de fricción usando los valores ingresados local resultado = friccion(ks, d, nu, q) -- Mostrar el resultado al usuario if resultado ~= nil then print("El coeficiente de fricción es: " .. tostring(resultado)) else print("Parámetros no válidos para el cálculo de fricción.") end Made with nCreator - tiplanet.org
>>
