6/23

#NGC 1275
t_err.flux.gala.m.s<-err.flux.gala.m.s^2+m.flux.gala.m.s^2*syg.f2.m.s+syg.b2.m.s
sum( ( (flux.gala.m.s-m.flux.gala.m.s)^2/t_err.flux.gala.m.s) )

#A
T_err.flux.A.m.s<-err.flux.A.m.s^2+m.flux.A.m.s^2*syg.f2.m.s+syg.b2.m.s
sum( ( (flux.A.m.s-m.flux.A.m.s)^2/T_err.flux.A.m.s) )

#3C 84
t_err.flux.3C84.m.s<-sqrt(err.flux.3C84.m.s^2+flux.3C84.m.s^2*syg.f2.m.s+syg.b2.m.s)
sum( ( (flux.3C84.m.s-m.flux.3C84.m.s)^2/t_err.flux.3C84.m.s^2) )

#####################################
fluxsa<-flux.3C84.m.s-m.flux.3C84.m.s
t_err.flux.3C84.m.s<-( (fluxsa^2*err.flux.3C84.m.s^2)/(fluxsa^2-syg.f2.m.s*(flux.3C84.m.s)^2-syg.b2.m.s) )

sum( ( (flux.3C84.m.s-m.flux.3C84.m.s)^2/t_err.flux.3C84.m.s) )


fulx<-1.661226598234980e-11
obsx<-49.197303535497184157
R<-2695.2613546934444
T<-9.7665939512830742e+24
a<-obsx- syg.f2.m.s*R- syg.b2.m.s*T
#a:43.94701746155524
sa<-2.2443939221189729e-12
err<-3.199841258834480e-13

tsig<-(sa^2*err^2)/(sa^2-syg.f2.m.s*f^2-syg.b2.m.s)
sa^2/tsig
#43.94701746155523

moreshort_maxmin<-subset(more.short, more.short$flux.3C84==min(more.short$flux.3C84)|more.short$flux.3C84==max(more.short$flux.3C84),)

メールに返信する（JAXA派遣）。→O.K.
再度エラーについて考えてみる。
早割で夏の学校の航空券を申し込む。
亀野さんのを走らせる為に必要なののインストールを試みる。

明日エラーが確認でき次第、旅費補助提出