@B_chavarria

program main_ET_PTC_HTF implicit none ! ======= Constantes físicas y de geometría ======= Double Precision :: G_GHI, u_Air, rho_Water Double Precision :: R_conv_PTC, R_conv_PV, R_conv_abs Double Precision :: R_cond_PV, R_cond_su

program main_ET_PTC_HTF implicit none ! ======= Constantes físicas y de geometría ======= Double Precision :: sigma, G_GHI Double Precision :: A_PTC, alpha_PTC, epsilon_PTC Double Precision :: A_PV, epsilon_PV, R_conv_PTC, R_con

program main_ET_PTC_HTF implicit none ! ======= Constantes físicas y de geometría ======= Double Precision :: sigma, G_GHI Double Precision :: A_PTC, alpha_PTC, epsilon_PTC Double Precision :: A_PV, epsilon_PV, R_conv_PTC, R_con

program main_ET_PTC_HTF implicit none ! ======= Constantes físicas y de geometría ======= Double Precision :: sigma, G_GHI Double Precision :: A_PTC, alpha_PTC, epsilon_PTC Double Precision :: A_PV, epsilon_PV, R_conv_PTC, R_con

program main_ET_PTC_HTF implicit none Double Precision :: T_PTC integer :: iter1, iter2 ! ====== Paso 1: Calcular T_PTC con Newton-Raphson 1 variable ====== call calc_T_PTC(T_PTC, iter1) print *, "---------------------------

program Newton3Vars_HTF implicit none integer, parameter :: dp = selected_real_kind(15,300) ! variables incógnitas real(dp) :: T_abs, T_sub, T_out ! datos y constantes real(dp) :: T_a, T_sky, T_PV, T_in_HTF, T_PTC real(dp

program Newton2Vars_HTF implicit none real(8) :: T_abs, T_sub real(8) :: T_a, T_sky, T_PV, T_in_HTF, T_PTC real(8) :: G_GHI, A_abs, alpha_abs, epsilon_abs real(8) :: sigma, R_conv_abs, R_cond_abs, R_cond_sub, R_cond_PV real(8

program Newton2Vars implicit none real(8) :: T_abs, T_sub, T_a, T_sky real(8) :: G_GHI, A_abs, alpha_abs, epsilon_abs real(8) :: sigma, R_conv_abs, R_cond_abs, R_cond_sub, R_conv_sub real(8) :: f1, f2, J11, J12, J21, J22 real

program ET_PTC ! Declaración de variables real(8) :: T_PTC, T_PVi, T_a, T_sky real(8) :: G_GHI, A_PTC, alpha_PTC, epsilon_PV, epsilon_PTC real(8) :: sigma, A_PV, R_conv_PTC real(8) :: f_T_PTC, df_T_PTC, T_PTCe real(

program newton_ptc implicit none ! Declaración de variables real(8) :: Tptc, Tpv, Ta, Tsky real(8) :: Gghi, Aptc, alpha_ptc, eps_pv, eps_ptc real(8) :: sigma, Apv, Rconv real(8) :: f, df, Tnew real(8) :: tol integer :

import numpy as np # Constantes físicas fundamentales q = 1.602e-19 # Carga elemental del electrón (Coulombs) k = 1.381e-23 # Constante de Boltzmann (Joules/Kelvin) # Función para ajustar parámetros según condiciones ambientales def ajustar_

import numpy as np # Constantes físicas fundamentales q = 1.602e-19 # Carga elemental del electrón (Coulombs) k = 1.381e-23 # Constante de Boltzmann (Joules/Kelvin) # Función para ajustar parámetros según condiciones ambientales def ajustar_

import numpy as np import matplotlib.pyplot as plt # Parámetros L = 0.9 # Longitud de los lados del triángulo (m) - Ampliado a 0.5 d_circulo = 0.45 # Diámetro del círculo (m) r_circulo = d_circulo / 2 # Radio del círculo (m) # Cálculo de la altu

import matplotlib.pyplot as plt # Datos de flujo másico, eficiencia eléctrica y térmica mass_flow = [0.02, 0.04, 0.06, 0.08, 0.1, 0.12, 0.14, 0.16, 0.18] electric_efficiency = [0.1607, 0.1715, 0.1752, 0.177, 0.1781, 0.1788, 0.1793, 0.1797, 0.18] th

import matplotlib.pyplot as plt # Datos de flujo másico, potencia eléctrica y térmica mass_flow = [0.02, 0.04, 0.06, 0.08, 0.1, 0.12, 0.14, 0.16, 0.18] electric_power = [1.542, 1.647, 1.682, 1.699, 1.709, 1.716, 1.721, 1.725, 1.728] thermal_power =

import matplotlib.pyplot as plt # Nuevos datos de diámetro y temperatura diameters = [0.02, 0.04, 0.06, 0.08, 0.1, 0.12, 0.14, 0.16, 0.18] pv_temp = [136.4, 103.5, 92.64, 87.18, 83.91, 81.71, 80.14, 78.96, 78.04] absorber_temp = [136.1, 103.3, 92.3

import matplotlib.pyplot as plt import numpy as np # Datos de diámetro, eficiencia eléctrica y térmica diameter = [0.015, 0.03, 0.045, 0.06, 0.075, 0.09] electric_efficiency = [0.1813, 0.1734, 0.1684, 0.1646, 0.1614, 0.1585] thermal_efficiency = [0

import matplotlib.pyplot as plt # Datos de diámetro, potencia eléctrica y térmica diameters = [0.015, 0.03, 0.045, 0.06, 0.075, 0.09] electric_power = [1.74, 1.665, 1.617, 1.58, 1.549, 1.522] thermal_power = [5.239, 5.652, 6.034, 6.401, 6.759, 7.10

import matplotlib.pyplot as plt # Nuevos datos de diámetro y temperatura diameters = [0.015, 0.03, 0.045, 0.06, 0.075, 0.09] pv_temp = [78.8, 79.98, 81.61, 83.46, 85.46, 87.59] absorber_temp = [78.49, 79.84, 81.52, 83.4, 85.42, 87.55] htf_inlet_tem

import matplotlib.pyplot as plt # Nuevos datos de ancho, eficiencia eléctrica y térmica width = [0.03, 0.06, 0.09, 0.12] electric_efficiency = [0.1946, 0.1872, 0.1828, 0.1795] thermal_efficiency = [0.5061, 0.5245, 0.5394, 0.5529] # Tamaños de letr