R=input('Please input R='); qus%?B{b}  
p=0.1; !h^_2IX  
n=chaxun(R); /*6[Itm_h  
L=15; ASSe;+yp  
c=3*10^8; 2`V0k.$?p  
h=6.626196*10^(-34); 1#zD7
b~  
k=1.3806505*10^(-23); H-% B<7  
B=198.95;  ;t/KF"
  
r=0.509*10^(-60); #]*d8  
d=532*10^(-9); 4?_^7(%p  
for s=0:20 LCSJIt  
    for T=0.1:50:300.1 O^~nf%  
 if mod(s,2)==0 Q}^qu6  
 f=p*n*L*6*((2*h*c)/(9*k*T))*((3/2)*(s+1)*(s+2)/(2*s+3))*(64*(pi^2)/15)*((c/d-(4*s+6)*B)^4)*r*exp(-(h*c*B/(k*T))*s(s+1)); +}g6X6m  
  y=diff('f','T'); /mn'9=ks  
elseif mod(s,2)==1 7a4Z~r27/  
 f=p*n*L*3*((2*h*c)/(9*k*T))*((3/2)*(s+1)*(s+2)/(2*s+3))*(64*(pi^2)/15)*((c/d-(4*s+6)*B)^4)*r*exp(-(h*c*B/(k*T))*s(s+1)); Wq25, 北海市| 依兰县| 洛阳市| 南康市| 屏东县| 蕉岭县| 西充县| 肇东市| 延川县| 文化| 抚松县| 红原县| 临猗县| 阿图什市| 霍山县| 河池市| 樟树市| 马边| 阳谷县| 化隆| 潮州市| 小金县| 运城市| 海晏县| 建阳市| 政和县| 高碑店市| 南涧| 新巴尔虎左旗| 山东| 汽车| 景东| 共和县| 白朗县| 阿城市| 广丰县| 湟中县| 微山县| 牟定县| 巩义市| 鲜城|