We applied data from [1] to reproduce the result of the SN 2008es’s light curve around 100 days after discovery. We took the data from Table 5 in the article and reproduced Fig. 4 of the article. Necessary constants are defined as following [1]:
The analysis was done in RStudio.
[Note: SI unit was used in the analysis]
Convert magnitude to flux (in microJy): mag = -2.5 * log10(flux/3631)
For each period, to get temperature, we applied chi-squared minization to fit single-component blackbody model.
[Note: Optimization problem chose (temperature,norm). Local minimum is possible to be a solution in this process. To fix this, try random initialization]
Convert to surface temperature: temp_eart = temp_surface / (1+z)
Convert bolometric flux to bolometric luminosity by using luminosity distance: flux = luminosity / (4 * pi * lumi_distance^2)
[Note: luminosity distance was calculated from [4]]
Apply Stefan-Boltzmann equation to get radius.
Plot.
[Note: there were two periods which optimization gave bad result. We excluded the periods from the plots.]
[Note: L_Bol BB fit was calculated by applying temperature to BB model to get flux. Then, we followed the previous process to obtain L_Bol.]
# percentage diff
abs( (log_lumi_bol - log_fit_lumi_bol) * 100./ (log_lumi_bol) )
## [1] 1.140257 58.516577 1.339214 2.001152 1.518167 1.873966 1.857826
## [8] 2.487345 1.714177 2.598441
1: Miller et al., 2008, “The Exceptionally Luminous Type II-Linear Supernove 2008ES”
2: Brown et al., 2010, “The Absolute Magnitudes of Type Ia Supernovae in the Ultraviolet”
3: Poole et al., 2007, “Photometric Calibration of the Swift Ultraviolet/Optical Telescope”
4: http://www.astro.ucla.edu/~wright/CosmoCalc.html (accessed 8/17/2015)