|

楼主 |
发表于 2011-12-23 08:43
|
显示全部楼层
宇宙加速膨胀_联想到边缘外部会不会有极大天体-"暗能量"读后感
“在大约50亿至60亿年前宇宙从减速膨胀,转变为加速膨胀状态,并且一直持续至今”原因会不会是由于宇宙膨胀越来越大,越来越接近宇宙外的极大天体,所以这个外部引力越来越大,导致宇宙膨胀越来越快?
周华教授给我提供了一篇凤凰网上相关视频 讲暗能量和暗物质:
“2011-11-04人物 神秘玛雅文化科学家系列之李淼”
视频主讲是理论物理所李淼教授,我的同年级校友,当年在北大应该同住43楼。有可能的话我问问他去。
编了两个程序对二维三维简单情况估算,结果与我的预料部分相同,部分不同(关于引力的计算结果,不是说与真实情况比较)。
程序一:
double precision a,s,dx,x,ss,sa,sf
m=1000
do ia=800,m
a=ia/(m+0.0d0)
n=1000
s=0
sf=0
ks=0
dx=1.0d0/n
do i=1-n,n
x=i*dx-dx/2
ss=(a+x)/sqrt((a*a+1+2*a*x)**3*(1-x*x))
if(ks.eq.0) then
if(ss.ge.0) then
sa=s
ks=i+n
sf=ss
endif
else
sf=sf+ss
endif
ssl=ss
s=s+ss
enddo
write(*,';(i6,f16.11,3i8,3f16.11)';)
&ia,-2*s*dx,n,m,ks,-2*sa*dx,-2*sf*dx,-2*(sa+sf-s)*dx
enddo
end
程序二:
double precision a,s,dx,x
m=100
do ia=0,m
a=ia/(m+0.0d0)
n=40
s=0
dx=1.0d0/n
do i=1-n,n
x=i*dx-dx/2
s=s+(a+x)/(sqrt((a*a+1+2*a*x)**3)*3.141592653589793)
enddo
write(*,*) ia,-2*s*dx,n,m
enddo
end
|
|