USE MATH -- Cálculo del ángulo diario en radianes -- Entradas a la función: día juliano (1-366) -- Salidas de la función: angulo diario [radianes] FUNCTION REAL angdiario(REAL diajuliano) DECLS REAL angulodiario BODY angulodiario=(2*PI/365)*(diajuliano-1) RETURN angulodiario END FUNCTION