SharedRaleigh Jeans.sagewsOpen in CoCalc
Emily Chaisson P. Chem Problem Set 1
k=1.381*10-23
c=2.998*10^8
h=6.626*10^-34
T1=550
T2=750
T3=900
start=1*10^-6
stop=1750*10^-8
p1=plot(8*pi*(1.381*10^-23)*T3/(x^4), (x, start, stop), ymin=0, ymax=100, color='hotpink')
p2=plot(8*pi*(1.381*10^-23)*T2/(x^4), (x, start, stop), ymin=0, ymax=100, color='aquamarine')
p3=plot(8*pi*(1.381*10^-23)*T1/(x^4), (x, start, stop), ymin=0, ymax=100, color='cyan')
p6=plot(8*pi*(6.626*10^-34)*(2.998*10^8)/(x^5*(e^((6.626*10^-34)*(2.998*10^8)/(x*(1.381*10^-23)*T3))-1)),(x,start,stop), ymin=0, ymax=100, color='limegreen')
p7=plot(8*pi*(6.626*10^-34)*(2.998*10^8)/(x^5*(e^((6.626*10^-34)*(2.998*10^8)/(x*(1.381*10^-23)*T2))-1)),(x,start,stop), ymin=0, ymax=100, color='darkolivegreen')
p8=plot(8*pi*(6.626*10^-34)*(2.998*10^8)/(x^5*(e^((6.626*10^-34)*(2.998*10^8)/(x*(1.381*10^-23)*T1))-1)),(x,start,stop), ymin=0, ymax=100, color='magenta')
show(p1+p2+p3+p6+p7+p8)