@B_chavarria

program main double precision :: A, Jsc, Jm, Isc, Im A = 30.15 ! Área del PV (cm2) Jsc = 0.01720 ! Corriente de corto circuito (A) Jm = 0.01614 ! Corriente de MPPT (A) Isc = Jsc*A

program main double precision :: q, k, beta, alpha double precision :: G, G_ref, CR_PTC, T, T_cell, T_ref, Voc_ref, Isc_ref double precision :: Vt, n_min, n_max, coef, n double precision :: Voc, Isc, I0, IL double precision :: Jsc_ref, Jmp_ref, APV double precision :: Rs, Vmp, Imp, Pmp, RA, P_mppt, Rss double precision :: Vtt, S, Rpv, Rpvv

! Programa_MPPT_simplificado.f90 ! Calcula Pm (potencia máxima) usando la ecuación derivada de Shockley. ! Solo usa los valores definidos en el código, sin entrada del usuario. ! Compilar: gfortran -O2 -o Programa_MPPT Programa_MPPT_simplificado.f90 ! Ejecutar: ./Programa_MPPT program Programa_MPPT_simplificado implicit none integer, parameter :: dp = kind(1.0d0) real(dp) :: q, k, G

program solve_rs_rsh implicit none integer, parameter :: dp = kind(1.0) integer :: iter, maxiter real(dp) :: tol, alpha real(dp) :: Rs, Rsh ! incógnitas real(dp) :: IL, I0, Im, Vm, Voc, Isc, n, kB, q, T real(dp) :: C, Y real(dp) :: f1, f2 real(dp) :: J11, J12, J21, J22

program calc_Rs implicit none double precision :: Rs double precision :: q_bz, sercell, Tref, Imp_ref, Vmp_ref, Isc_ref, Voc_ref double precision :: muVoc_ref, muIsc_ref, eg ! ====== Datos de ejemplo ====== Voc_ref = 2.630d0 ! [V] Isc_ref = 0.168d0 ! [A] Vmp_ref = 2.290d0 ! [V]

program main double precision :: q, k, beta, alpha double precision :: G, G_ref, CR_PTC, T, T_cell, T_ref, Voc_ref, Isc_ref double precision :: Vt, n_min, n_max, coef, n double precision :: Voc, Isc, I0, IL double precision :: Rs, Vm, Im, Pm, RA, P_mppt, Rss q = 1.602e-19 ! Carga del electrón (C) k = 1.381e-23 ! Constante de Boltzmann (J/K)

program PPV implicit none ! ================== Parámetros de ejemplo ================== double precision :: G, Tc_C, Tref_C, Itot_ref double precision :: Isc_ref, Voc_ref, Imp_ref, Vmp_ref double precision :: muIsc_ref, muVoc_ref, eg_eV double precision :: sercell, area_m2 double precision :: Rs, gam, IL, Io, Voc, Isc double precision :: imp, vmp, pmp, ff, eta, P_ele

program main double precision :: q, k, beta, alpha double precision :: G, G_ref, CR_PTC, T, T_cell, T_ref, Voc_ref, Isc_ref double precision :: Vt, n_min, n_max, coef, n double precision :: Voc, Isc, I0, IL double precision :: Rs, Vm, Im, Pm, RA, P_mppt q = 1.602e-19 ! Carga del electrón (C) k = 1.381e-23 ! Constante de Boltzmann (J/K)

program PPV implicit none ! ================== Parámetros de ejemplo ================== double precision :: G, Tc_C, Tref_C, Itot_ref double precision :: Isc_ref, Voc_ref, Imp_ref, Vmp_ref double precision :: muIsc_ref, muVoc_ref, eg_eV double precision :: sercell, area_m2 double precision :: Rs, gam, IL, Io, Voc, Isc double precision :: imp, vmp, pmp, ff, eta, P_ele

program PPV implicit none ! ================== Parámetros de ejemplo ================== double precision :: G, Tc_C, Tref_C, Itot_ref double precision :: Isc_ref, Voc_ref, Imp_ref, Vmp_ref double precision :: muIsc_ref, muVoc_ref, eg_eV double precision :: sercell, area_m2 double precision :: Rs, gam, IL, Io, Voc, Isc double precision :: imp, vmp, pmp, ff, eta, P_ele

! ============================================================== ! mppt_4pam_mod.f90 ! Cálculo de MPPT para un módulo FV con modelo de 4 parámetros ! Basado en el algoritmo del TRNSYS Type103 ! ============================================================== program mppt_4pam implicit none ! ================== Parámetros de ejemplo ================== double precision :: G, Tc_C, Tref_C, Itot_ref

! ============================================================== ! mppt_4pam_mod.f90 ! Cálculo de MPPT para un módulo FV con modelo de 4 parámetros ! Basado en el algoritmo del TRNSYS Type103 ! ============================================================== program mppt_4pam implicit none ! ================== Parámetros de ejemplo ================== double precision :: G, Tc_C, Tref_C, Itot_ref

! mppt_4pam.f90 ! Cálculo de MPPT para un módulo FV con modelo de 4 parámetros (basado en Type103) ! - Ajusta Rs por bisección (series4pam) con datos de catálogo y coeficientes de temperatura ! - Calcula gam (gamma), IL_ref, Io_ref en condiciones de referencia ! - Escala IL e Io a (G, Tc) ! - Calcula Voc, Isc ! - Encuentra (Imp, Vmp, Pmp) con Newton (condición dP/dI = 0) como en el original ! Autor: (tu nombre) program mppt_4pam

program main_NR_total implicit none Double Precision :: G_GHI, G_DNI, u_Air, T_a, T_sky, T_in_HTF, T_PVi Double Precision :: T_abs, T_sub, T_out_HTF, T_PTC, T_PV Double Precision :: R_cond_abs, R_cond_PV, R_cond_sub Double Precision :: R_conv_abs, R_conv_PV, R_conv_PTC !Double Precision :: W_PV, W_abs, L, A_PV, A_abs, A_ap, A_PTC !Double Precision :: CR_PTC, alpha_PV, alpha_abs, epsilon_PV, epsilon_abs

program main_NR_total implicit none Double Precision :: Tabs, Tsub, Tout, TPTC Double Precision :: G_GHI, G_DNI, Ta, Tsky, Tin, T_PVi Double Precision :: W_PV, W_abs, L, A_PV, A_abs, A_ap, A_PTC Double Precision :: CR_PTC, alpha_PV, alpha_abs, eps_PV, eps_abs Double Precision :: IAM_elec, IAM_th, eta_opt, sigma Double Precision :: mdot, Cp, U, A_hx, P_PV, T_PV Double Precision :: Rcond_abs, Rcond_PV, Rcond_sub Double Precision :: Rconv_abs, Rconv_PV, Rconv_PTC

program main_NR_total implicit none Double Precision :: Tabs, Tsub, Tout, TPTC Double Precision :: G_GHI, G_DNI, Ta, Tsky, Tin, T_PVi Double Precision :: W_PV, W_abs, L, A_PV, A_abs, A_ap, A_PTC Double Precision :: CR_PTC, alpha_PV, alpha_abs, eps_PV, eps_abs Double Precision :: IAM_elec, IAM_th, eta_opt, sigma Double Precision :: mdot, Cp, U, A_hx, P_PV Double Precision :: Rcond_abs, Rcond_PV, Rcond_sub Double Precision :: Rconv_abs, Rconv_PV, Rconv_PTC

program main_NR_3x3 implicit none Double Precision :: Tabs, Tsub, Tout Double Precision :: G_GHI, G_DNI, Ta, Tsky, Tin, TPV, TPTC Double Precision :: W_PV, W_abs, L, A_PV, A_abs, A_ap, A_PTC Double Precision :: CR_PTC, alpha_PV, alpha_abs, eps_PV, eps_abs Double Precision :: IAM_elec, IAM_th, eta_opt, sigma Double Precision :: mdot, Cp, U, A_hx, P_PV Double Precision :: Rcond_abs, Rcond_PV, Rcond_sub Double Precision :: Rconv_abs, Rconv_PV, Rconv_PTC

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_sub, R_cond_abs Double Precision :: C_p_HTF, h_HTF Double Precision :: G_DNI Double Precision :: T_a, T_sky, T_PVi, T_in_HTF

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_sub, R_cond_abs Double Precision :: C_p_HTF, h_HTF Double Precision :: G_DNI Double Precision :: T_a, T_sky, T_PVi, T_in_HTF

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_conv_PV Double Precision :: A_abs, A_sub, alpha_abs, epsilon_abs, R_conv_abs Double Precision :: R_cond_PV, R_cond_sub, R_cond_abs Double Precision :: m_dot_HTF, C_p_HTF, h_HTF