谁能帮我写一下下面这个fortran程序流程图。 谢谢了。 5

程序如下。LOCAL-SPIN-DENSITYAPPOXIMATIONPI=2.0*ASIN(1.0)ONETHD=1.0/3.0FORTHD=4.0/3.0CP=0.0... 程序如下。
LOCAL-SPIN-DENSITY APPOXIMATION
PI=2.0*ASIN(1.0)
ONETHD=1.0/3.0
FORTHD=4.0/3.0
CP=0.0666
CF=0.0406
RP=11.4
PF=15.9
ALP=(4.0/(90*PI))**ONETHD
GAMMA=0.297
ZETAF=1.0
ZETAP=0.0
FACT=2.0**FORTHD-2.0
FZETAP=0.0
FZETAF=FACT/FACT
WRITE(6,*)'CALCULATION OF HARTREE POTENTIAL'
WRITE(6,300)
DO 10 I=1,31
R=0.1*FLOAT(I)
RS=0.75**ONETHD*EXP(2.0*R/3.0)
XF=RS/RF
XP=RS/RP
BETA=1.0+0.545*RS*ALOG(1.0+11.4/RS)
DELTA=1.0-0.036*RS-1.36*RS/(1.0+10.0*RS)
EXPP=-3.0/(2.0*PI*ALP*RS)
EXF=2.0**ONETHD*EXPP
EXCP=EXPP-CP*((1.0+XP*XP*XP)*ALOG(1.0+1.0/xp)+0.5*xp-xp*xp-ONETHD)
EXCF=EXF+(EXCF-EXCP)*FZETAF
POTEXP=-(2.0/(PI*ALP*RS))*(BETA)
POTEXF=-(2.0/(PI*ALP*RS))*(BETA+ONETHD*DELTA*ZETAF/(1.0+GAMMA*ZETAF)
HARTRP=2.0*(1.0/R-EXP(-2.0*R)-EXP(-2.0*R/R)
VTOTF=HARTRP+POTEXF
VTOTP=HARTRP+POTEXP
WRITE(6,3.1)I,R,RS,HARTRP,VTOTP,VTOTF
10 CONTINUE
300 FORMAT(1H,',I R RS HARTREE POT VTOTP VTOTF')
301 FORMAT(1H,I5,2F8.4,5F10.5)
STOP
END
展开
 我来答
lp...n@qq.com
2010-12-19 · TA获得超过140个赞
知道答主
回答量:47
采纳率:0%
帮助的人:36.9万
展开全部
不好意思、、我画出来了、、、但我不会上传、、、、、
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
AiPPT
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图... 点击进入详情页
本回答由AiPPT提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式