Declination angle \(\delta\)

——–

#Assigning day number to dates
days<-seq( as.Date("2017-03-22"), as.Date("2018-03-21"), by="+1 day")
ndays<-length(seq( as.Date("2017-03-22"), as.Date("2018-03-21"), by="+1 day"))
ndays
## [1] 365
delta<-0

for (i in 1:ndays){
        delta[i]<-23.45*sin((360/365)*(pi/180)*(280+i))        
}

plot(days,delta,type="l",main="Variation of Sun's Declination",xlab="Time of the year",ylab = "Declination(delta) in degrees")

max(delta)
## [1] 23.44978