added new function for black body emission

ankit7540 · Dec 6, 2023 · 56e9943 · 56e9943
1 parent d25f017
commit 56e9943
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/general/spectroscopy.ipf b/general/spectroscopy.ipf
@@ -199,3 +199,24 @@ function absWavenum_to_freqGHz ( wavenum )
 	return frequency / 1e9
 end
 ///////////////////////////////////////////////////////////////////////////////////////////
+
+
+// spectral output of a black-body heated to a temperature
+// wavelength in nanometers
+// temperature in Kelvin
+
+function blackBody_spectral_output (wavelength, T)
+	variable wavelength // nm
+	variable T			// Kelvin
+
+	variable wv = wavelength * 1e-9
+
+	variable factorA = (const_h * const_c * 8 * Pi ) / (wv ^ 5)
+	variable factorB = 1/ (( exp  (const_h * const_c /  (wv * const_k * T )) ) - 1 )
+	return factorA * factorB
+
+end	
+
+
+///////////////////////////////////////////////////////////////////////////////////////////
+