Author: phm - Observatoire de Lyon - France

Filtres
λ en microns

c1 = 3.74441E8
c2 = 0.014388000000000001
T = 5800 (slider from 100 to 50000, step 10)
ct2: c2 / T * 1000000
fcn = Function(c1 / x^(5) / (ℯ^(ct2 / x) - 1), 0, 100)
l_1 = 0.43 (slider from 0 to 5, step 0.01)
dx1: x = l_1
l_2 = 0.52 (slider from 0 to 5, step 0.01)
df2 = 0.07
df1 = 0.05
e = 2.718281828459045
lb1: l_1 - df1 / 2
lb2: l_1 + df1 / 2
intb = Integral(fcn, lb1, lb2)
lv2: l_2 + df2 / 2
lv1: l_2 - df2 / 2
intv = Integral(fcn, lv1, lv2)
dx2: x = l_2
i2 = Intersect(fcn, dx2, (0.52, 8.418538533219096E7))
i1 = Intersect(fcn, dx1, (0.43, 7.9787472899868E7))
IC: -2.5 * lg(y(i1) / y(i2)) + 0.3823
ICF: -2.5 * lg(intb / intv) + 0.0143
M = Max(fcn, 0.0010, 100)
y_{max}: y(M)
texte1: "IC  = " + IC + "
ICF= " + ICF
x_{max}: x(Max[fcn, 0, 20])
texte3: "lambda max = " + x_{max} + " microns  I = " + y_{max} + ""
I_{stef}: Integral[fcn(x) / 1000, 0.0010, 200] * 1000
texte5: "P = " + I_{stef} + " watts/m²"
d_{max}: x = x(M)