| 查看: 1117 | 回复: 0 | ||
[求助]
structure factor
|
|
哪位能帮忙分析分析我计算出来的结构因子为什么在大q时不趋近于1？我调整过qx、qy、dq的值，可是没什么作用，大伙给点意见，谢谢！ do i = 1 , conf_2 mm=1 do j = 1 , 9 read(1,*) enddo do j = 1 , all_n read(1,*) num_o , type_o , X_o , Y_o , Z_o if (type_o==1)then !!!!!!!!水分子的坐标 xx(mm) = X_o yy(mm) = Y_o zz(mm) = Z_o mm=mm+1 !!!!!!!水分子的数目 endif end do do nx=1,600 do ny=1,600 do nz=1,600 kr=sqrt((nx*qx)**2+(ny*qy)**2+(nz*qz)**2)!!!!!!!q的模 ! if ((kr>9).and.(kr<62))then bin=1+int(kr/0.5) nhist(bin)=nhist(bin)+1 cossum=0.0 sinsum=0.0 mm1=0 do l = 1 , mm-1 rx=0.1*xx(l) ry=0.1*yy(l) rz=0.1*zz(l) cossum=cossum+cos(nx*qx*rx+ny*qy*ry+nz*qz*rz) sinsum=sinsum+sin(nx*qx*rx+ny*qy*ry+nz*qz*rz) mm1=mm1+1 end do hist(bin) =hist(bin) + (cossum**2+sinsum**2)/real(mm-1) write(*,*) nhist(bin),hist(bin),mm1,mm,i !endif enddo enddo enddo end do !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! do k = 1 ,600 if(hist(k)/=0) then g(k) = real(hist(k))/real(nhist(k)) write(2,*) k*0.5,g(k) else g(k)=0 write(2,*) k*0.5,g(k) endif end do |
回复此楼» 猜你喜欢
一志愿东华大学化学070300，求调剂
已经有8人回复
-
277材料科学与工程080500求调剂
已经有7人回复
-
317求调剂
已经有18人回复
-
293求调剂
已经有5人回复
-
280分求调剂 一志愿085802
已经有7人回复
-
0854电子信息求调剂
已经有3人回复
-
263求调剂
已经有4人回复
-
石河子大学（211、双一流）硕博研究生长期招生公告
已经有3人回复
-
一志愿西安交通大学材料工程专业 282分求调剂
已经有13人回复
-
北科281学硕材料求调剂
已经有6人回复
» 本主题相关商家推荐: (我也要在这里推广)
找到一些相关的精华帖子，希望有用哦~
GSAS精修完之后怎么得到拟合峰强度或者积分峰面积？
已经有4人回复
- 请教中子散射高手分析
已经有7人回复
- 求助高手帮忙解析cif文件当中的A类C类错误以及精修参数是否合适等
已经有4人回复
- OLEX2解析晶体时check cif
已经有8人回复
- checkcif中出现的A类、B类问题怎么解
已经有4人回复
- 晶体化学（英文版）
已经有208人回复
- SCI生物类期刊 影响因子
已经有14人回复
- 求单斜和斜方S8的cif格式文件
已经有15人回复
- 求助cifcheck！！
已经有4人回复
- 【分享】elk-1.3.2
已经有18人回复
- 【求助】fullprof 精修，指标化-欢迎参与讨论
已经有20人回复
- 【求助】structure factor S(q)的问题
已经有5人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
