Skip to main content

Browse the archive

Revision 726b099653edc6a4b34606251ad6969742d17d41 authored by PPL Gerrit on 02 March 2017, 05:00:06 UTC, committed by PPL Gerrit on 02 March 2017, 05:00:06 UTC 
Auto-merge of 6bf64a69a3530c3b7fb5413b8e0a0f2b1403ad6b
2 parent s 4277144 + 8333cb2
Raw File
radenergy.pro 
function rad,m

if m>20 then return, 81.0*m^2.14*0.3029*m^(-2.7) $
else if m>2 then return, 1.78*m^3.5*0.3029*m^(-2.7) $
else return, 0.75*m^4.8*0.3029*m^(-2.7)
end

function kroupa,m
return, 0.3029*m^(-1.7)
end

print,qsimp('kroupa',1.0,40.0)
print,qsimp('rad',1.0,40.0)
end
back to top