|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
constant D=287 ,h=1.05457266*10^(-34),v=2700,kB=1.3806515*10^(-23);
ConstStr x=(h*w)/(kB*T),G=v/L+A*w^4+B*w^2*T*exp(-D/(3*T))+(C1*w^2)/((w01^2-w^2)^2)+ (C2*w^2)/((w02^2-w^2)^2);
Variable T,kl;
Parameter L,A,B,C1,C2,w01,w02;
Function kl=(kB/(2*pi^2*v))*((kB*T)/h)^3*int((x^4*exp(x))/(G*(exp(x)-1)^2)*h/(KB*T),w=0,D*KB/h);
Data; //T kl
30 5.16941
40 5.81634
50 6.43934
60 6.85724
70 6.97419
80 7.24853
90 7.23865
100 7.13575
110 7.16523
120 7.07047
130 7.02542
140 6.90191
150 6.76504
160 6.69633
170 6.36297
180 6.17548
190 6.07909
200 5.95913
210 5.80334
220 5.71028
230 5.59512
240 5.48558
250 5.37031
260 5.30022
270 5.20803
280 5.12605
290 5.09479
300 5.08835
哪位有高版本的1StOpt,帮我运行一下这个程序。万分感谢 |
|