24小时热门版块排行榜    

查看: 382  |  回复: 0

解子林

新虫 (小有名气)

[求助] 结构因子 分子模拟

哪位能帮忙分析分析我计算出来的结构因子为什么在大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
回复此楼

» 猜你喜欢

» 本主题相关商家推荐: (我也要在这里推广)

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子,希望有用哦~

科研从小木虫开始,人人为我,我为人人
相关版块跳转 我要订阅楼主 解子林 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂 +6 研研,接电话 2026-03-24 7/350 2026-03-24 17:01 by barlinike
[考研] 材料专硕331求调剂 +4 鲜当牛 2026-03-24 4/200 2026-03-24 15:58 by JourneyLucky
[考研] 299求调剂 +7 某某某某位 2026-03-21 7/350 2026-03-24 15:24 by cuifj
[考研] 求调剂 +7 十三加油 2026-03-21 7/350 2026-03-23 23:48 by 热情沙漠
[考研] 384求调剂 +3 子系博 2026-03-22 6/300 2026-03-23 21:45 by 子系博
[考研] 265求调剂 +10 梁梁校校 2026-03-17 10/500 2026-03-23 21:17 by 一切OK
[考研] 上海电力大学材料防护与新材料重点实验室招收调剂研究生(材料、化学、电化学,环境) +3 我爱学电池 2026-03-23 3/150 2026-03-23 17:16 by AZMK
[考研] 求老师收我 +3 zzh16938784 2026-03-23 3/150 2026-03-23 12:56 by ztnimte
[考研] 一志愿东华大学化学070300,求调剂 +7 2117205181 2026-03-21 8/400 2026-03-22 22:55 by chixmc
[考研] 317求调剂 +12 申子申申 2026-03-19 18/900 2026-03-22 22:23 by luoyongfeng
[考研] 268求调剂 +9 简单点0 2026-03-17 9/450 2026-03-21 15:37 by lature00
[考研] 22 350 本科985求调剂,求老登收留 +3 李轶男003 2026-03-20 3/150 2026-03-21 13:28 by 搏击518
[考研] 332求调剂 +3 凤凰院丁真 2026-03-20 3/150 2026-03-21 10:27 by luoyongfeng
[考研] 南昌大学材料专硕311分求调剂 +6 77chaselx 2026-03-20 6/300 2026-03-21 07:24 by JourneyLucky
[考研] 华东师范大学-071000生物学-293分-求调剂 +3 研究生何瑶明 2026-03-18 3/150 2026-03-21 01:30 by JourneyLucky
[考研] 一志愿西南交大,求调剂 +5 材化逐梦人 2026-03-18 5/250 2026-03-21 00:26 by JourneyLucky
[考研] 一志愿武汉理工材料工程专硕调剂 +9 Doleres 2026-03-19 9/450 2026-03-20 22:36 by JourneyLucky
[考研] 一志愿 西北大学 ,070300化学学硕,总分287,双非一本,求调剂。 +4 晨昏线与星海 2026-03-19 4/200 2026-03-20 22:15 by JourneyLucky
[考研] 329求调剂 +9 想上学吖吖 2026-03-19 9/450 2026-03-20 22:01 by luoyongfeng
[考研] 261求B区调剂,科研经历丰富 +3 牛奶很忙 2026-03-20 4/200 2026-03-20 19:34 by JourneyLucky
信息提示
请填处理意见