// Calculates the wavelength at which objects at a given temperature // radiate most strongly. maxWavelength[T] := wiendisplacement / T for T=F[40] to F[1000] step 5 degF println[format[F[T],1,0] + "\t" + format[maxWavelength[T], nm, 1]]