Úloha 10.14
Určete zářivý výkon aktivní galaxie Cygnus A v rádiovém oboru pomocí
zářivého toku uvedeného v tabulce, víte-li, že galaxie je vzdálena
.
|
|
|
|||
|
|
[
|
|
[
|
|
Řešení: Abychom získali zářivý výkon v radiovém oboru, musíme integrovat zářivý tok přes všechny frekvence a sečíst tok na kouli o poloměru
program agn;
const nf=10;
d=250.0;
mpc=3.09e22;
var nu,nus,f,fs,lr,r: double;
i: integer;
function des(x: double) : double;
begin
des:=exp(x*ln(10.0));
end;
begin
lr:=0.0;
for i:=1 to nf do
begin
read(nu,f);
nu:=des(nu);
f:=des(f);
if(i > 0) then lr:=lr+0.5*(fs+f)*(nu-nus);
fs:=f;
nus:=nu;
end;
r:=d*mpc;
lr:=4.0*pi*r*r*lr;
writeln(lr);
end.
Zářivý výkon galaxie Cygnus A v rádiovém oboru je