.MCAD 304020000 1 74 76 0
.CMD PLOTFORMAT
0 0 1 1 1 0 0 1 1 
0 0 1 1 1 0 0 1 1 
0 1 0 0 1 1 NO-TRACE-STRING
0 2 1 0 1 1 NO-TRACE-STRING
0 3 2 0 1 1 NO-TRACE-STRING
0 4 3 0 1 1 NO-TRACE-STRING
0 1 4 0 1 1 NO-TRACE-STRING
0 2 5 0 1 1 NO-TRACE-STRING
0 3 6 0 1 1 NO-TRACE-STRING
0 4 0 0 1 1 NO-TRACE-STRING
0 1 1 0 1 1 NO-TRACE-STRING
0 2 2 0 1 1 NO-TRACE-STRING
0 3 3 0 1 1 NO-TRACE-STRING
0 4 4 0 1 1 NO-TRACE-STRING
0 1 5 0 1 1 NO-TRACE-STRING
0 2 6 0 1 1 NO-TRACE-STRING
0 3 0 0 1 1 NO-TRACE-STRING
0 4 1 0 1 1 NO-TRACE-STRING
0 1 1 21 15 0 0 3 
.CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge temperature tr=0 vm=0
.CMD SET ORIGIN 0
.CMD SET TOL 0.001000000000000
.CMD SET PRNCOLWIDTH 8
.CMD SET PRNPRECISION 4
.CMD PRINT_SETUP 1.200000 1.218750 1.200000 1.200000 0
.CMD HEADER_FOOTER 1 1 *empty* *empty* *empty* 0 1 *empty* *empty* *empty*
.CMD HEADER_FOOTER_FONT fontID=14 family=Arial points=10 bold=0 italic=0 underline=0 colrid=528
.CMD HEADER_FOOTER_FONT fontID=15 family=Arial points=10 bold=0 italic=0 underline=0 colrid=528
.CMD DEFAULT_TEXT_PARPROPS 0 0 0
.CMD DEFINE_FONTSTYLE_NAME fontID=0 name=Variables
.CMD DEFINE_FONTSTYLE_NAME fontID=1 name=Constants
.CMD DEFINE_FONTSTYLE_NAME fontID=2 name=Text
.CMD DEFINE_FONTSTYLE_NAME fontID=4 name=User^1
.CMD DEFINE_FONTSTYLE_NAME fontID=5 name=User^2
.CMD DEFINE_FONTSTYLE_NAME fontID=6 name=User^3
.CMD DEFINE_FONTSTYLE_NAME fontID=7 name=User^4
.CMD DEFINE_FONTSTYLE_NAME fontID=8 name=User^5
.CMD DEFINE_FONTSTYLE_NAME fontID=9 name=User^6
.CMD DEFINE_FONTSTYLE_NAME fontID=10 name=User^7
.CMD DEFINE_FONTSTYLE fontID=0 family=Times^New^Roman points=16 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=1 family=Times^New^Roman points=16 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=2 family=Times^New^Roman points=16 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=4 family=Arial points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=5 family=Courier^New points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=6 family=System points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=7 family=Script points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=8 family=Roman points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=9 family=Modern points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=10 family=Times^New^Roman points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD UNITS U=1
.CMD DIMENSIONS_ANALYSIS 0 0
.CMD COLORTAB_ENTRY 0 0 0
.CMD COLORTAB_ENTRY 128 0 0
.CMD COLORTAB_ENTRY 0 128 0
.CMD COLORTAB_ENTRY 128 128 0
.CMD COLORTAB_ENTRY 0 0 128
.CMD COLORTAB_ENTRY 128 0 128
.CMD COLORTAB_ENTRY 0 128 128
.CMD COLORTAB_ENTRY 128 128 128
.CMD COLORTAB_ENTRY 192 192 192
.CMD COLORTAB_ENTRY 255 0 0
.CMD COLORTAB_ENTRY 0 255 0
.CMD COLORTAB_ENTRY 255 255 0
.CMD COLORTAB_ENTRY 0 0 255
.CMD COLORTAB_ENTRY 255 0 255
.CMD COLORTAB_ENTRY 0 255 255
.CMD COLORTAB_ENTRY 255 255 255
.CMD COLORTAB_ENTRY 0 64 128
.TXT 3 1 2 0 0
Cg a73.000000,73.000000,93
{\rtf\ansi \deff0{\colortbl;\red0\green64\blue128;\red0\green0\blue128;}{
\fonttbl{\f0\fcharset0\fnil Times New Roman;}}\plain\cf1\fs32 \pard {
\cf2\fs36\b\ul ENVIRONMENTAL PHYSICS COMPUTER LAB #3   }{\cf2\fs36\b         
\tab \par                EARTH'S BLACK-BODY RADIATION}}
.EQN 11 0 3 0 0
{0:\l}NAME:(10)^(-6)*{0:m}NAME,2*(10)^(-6)*{0:m}NAME;30*(10)^(-6)*{0:m}NAME
.TXT 0 41 53 0 0
Cg a50.000000,50.000000,19
{\rtf\ansi \deff0{\colortbl;\red0\green64\blue128;\red0\green0\blue128;}{
\fonttbl{\f0\fcharset0\fnil Times New Roman;}}\plain\cf1\fs32 \pard {
\cf2    Wavelength range}}
.EQN 5 -41 9 0 0
{0:k.B}NAME:1.381*(10)^(-23)*({0:joule}NAME)/({0:K}NAME)
.TXT 0 31 47 0 0
Cg a49.000000,49.000000,23
{\rtf\ansi \deff0{\colortbl;\red0\green64\blue128;\red0\green0\blue128;}{
\fonttbl{\f0\fcharset0\fnil Times New Roman;}}\plain\cf1\fs32 \pard {
\cf2 \tab The Boltzmann constant}}
.EQN 7 -31 18 0 0
{0:c}NAME:3.0*(10)^(8)*({0:m}NAME)/({0:sec}NAME)
.TXT 0 31 49 0 0
Cg a49.000000,49.000000,15
{\rtf\ansi \deff0{\colortbl;\red0\green64\blue128;\red0\green0\blue128;}{
\fonttbl{\f0\fcharset0\fnil Times New Roman;}}\plain\cf1\fs32 \pard {
\cf2 \tab Speed of light}}
.TXT 6 0 48 0 0
Cg a49.000000,49.000000,20
{\rtf\ansi \deff0{\colortbl;\red0\green64\blue128;\red0\green0\blue128;}{
\fonttbl{\f0\fcharset0\fnil Times New Roman;}}\plain\cf1\fs32 \pard {
\cf2 \tab The Planck constant}}
.EQN 1 -31 33 0 0
{0:h}NAME:6.63*(10)^(-34)*{0:joule}NAME*{0:sec}NAME
.TXT 9 35 56 0 0
Cg a36.625000,36.625000,79
{\rtf\ansi \deff0{\colortbl;\red0\green64\blue128;\red0\green0\blue128;}{
\fonttbl{\f0\fcharset0\fnil Times New Roman;}{\f1\fcharset2\fnil Symbol;}}
\plain\cf1\fs32 \pard {\cf2 I(}{\cf2\f1 l,T}{\cf2 ) is the spectral 
intensity density per unit wavelength at a temperature T}}
.EQN 1 -35 36 0 0
{0:I}NAME({0:\l}NAME,{0:T}NAME):(2*{0:\p}NAME*{0:h}NAME*({0:c}NAME)^(2))/(({0:\l}NAME)^(5)*(({0:e}NAME)^(({0:h}NAME*{0:c}NAME)/({0:\l}NAME*{0:k.B}NAME*{0:T}NAME))-1))
.EQN 10 0 72 0 0
&&(_n_u_l_l_&_n_u_l_l_)&({0:I}NAME({0:\l}NAME,288*{0:K}NAME))/((({0:joule}NAME)/(({0:m}NAME)^(3)*{0:sec}NAME))),({0:I}NAME({0:\l}NAME,312*{0:K}NAME))/((({0:joule}NAME)/(({0:m}NAME)^(3)*{0:sec}NAME)))@30.0*(10)^(-6)&0&(_n_u_l_l_&_n_u_l_l_)&({0:\l}NAME)/(
{0:m}NAME)
0 1 1 1 1 0 0 1 1 
0 1 1 1 1 0 0 1 1 
0 1 0 0 1 1 NO-TRACE-STRING
0 3 1 0 1 1 NO-TRACE-STRING
0 3 2 0 1 1 NO-TRACE-STRING
0 4 3 0 1 1 NO-TRACE-STRING
0 1 4 0 1 1 NO-TRACE-STRING
0 2 5 0 1 1 NO-TRACE-STRING
0 3 6 0 1 1 NO-TRACE-STRING
0 4 0 0 1 1 NO-TRACE-STRING
0 1 1 0 1 1 NO-TRACE-STRING
0 2 2 0 1 1 NO-TRACE-STRING
0 3 3 0 1 1 NO-TRACE-STRING
0 4 4 0 1 1 NO-TRACE-STRING
0 1 5 0 1 1 NO-TRACE-STRING
0 2 6 0 1 1 NO-TRACE-STRING
0 3 0 0 1 1 NO-TRACE-STRING
0 4 1 0 1 1 NO-TRACE-STRING
0 1 1 48 35 16 0 3 
.TXT 54 0 74 0 0
Cg a71.375000,71.375000,193
{\rtf\ansi \deff0{\colortbl;\red0\green64\blue128;\red0\green0\blue128;}{
\fonttbl{\f0\fcharset0\fnil Times New Roman;}{\f1\fcharset2\fnil Symbol;}}
\plain\cf1\fs32 \pard {\cf2 Earth's average temperature is 288K.  The 
graphs for  288K and 312K show: (a) when T increase the maximum shifts 
to lower }{\cf2\f1 l}{\cf2 ; (b) when T increases the area under the 
curve (intensity) increases.}}
.TXT 14 0 58 0 0
Cg b73.000000,73.000000,27
{\rtf\ansi \deff0{\colortbl;\red0\green64\blue128;\red0\green0\blue128;}{
\fonttbl{\f0\fcharset0\fnil Times New Roman;}}\plain\cf1\fs32 \pard {
\cf2\fs36\b \tab SUN'S BLACK-BODY RADIATION}}
.EQN 5 2 61 0 0
{0:\l}NAME:(10)^(-8)*{0:m}NAME,2*(10)^(-8)*{0:m}NAME;200*(10)^(-8)*{0:m}NAME
.TXT 0 43 66 0 0
Cg a30.000000,30.000000,20
{\rtf\ansi \deff0{\colortbl;\red0\green64\blue128;\red0\green0\blue128;}{
\fonttbl{\f0\fcharset0\fnil Times New Roman;}}\plain\cf1\fs32 \pard {
\cf2 The wavelength range}}
.TXT 3 -43 68 0 0
Cg a71.000000,71.000000,45
{\rtf\ansi \deff0{\colortbl;\red0\green64\blue128;\red0\green0\blue128;}{
\fonttbl{\f0\fcharset0\fnil Times New Roman;}}\plain\cf1\fs32 \pard {
\cf2 The Sun's surface temperature is about 6000K.}}
.EQN 2 -2 76 0 0
&&(_n_u_l_l_&_n_u_l_l_)&({0:I}NAME({0:\l}NAME,6000*{0:K}NAME))/(({0:joule}NAME)/(({0:m}NAME)^(3)*{0:sec}NAME))@200.0*(10)^(-8)&0&(4*(10)^(-7)&7*(10)^(-7))&({0:\l}NAME)/({0:m}NAME)
0 1 1 1 1 0 1 1 1 
0 1 1 1 1 0 0 1 1 
0 1 0 0 1 1 NO-TRACE-STRING
0 2 1 0 1 1 NO-TRACE-STRING
0 3 2 0 1 1 NO-TRACE-STRING
0 4 3 0 1 1 NO-TRACE-STRING
0 1 4 0 1 1 NO-TRACE-STRING
0 2 5 0 1 1 NO-TRACE-STRING
0 3 6 0 1 1 NO-TRACE-STRING
0 4 0 0 1 1 NO-TRACE-STRING
0 1 1 0 1 1 NO-TRACE-STRING
0 2 2 0 1 1 NO-TRACE-STRING
0 3 3 0 1 1 NO-TRACE-STRING
0 4 4 0 1 1 NO-TRACE-STRING
0 1 5 0 1 1 NO-TRACE-STRING
0 2 6 0 1 1 NO-TRACE-STRING
0 3 0 0 1 1 NO-TRACE-STRING
0 4 1 0 1 1 NO-TRACE-STRING
0 1 1 48 33 16 0 3 
.TXT 52 0 75 0 0
Cg a73.000000,73.000000,65
{\rtf\ansi \deff0{\colortbl;\red0\green64\blue128;\red0\green0\blue128;}{
\fonttbl{\f0\fcharset0\fnil Times New Roman;}}\plain\cf1\fs32 \pard {
\cf2 The graph shows the visible range of the spectrum: 400nm to 700nm}}