[交流] 【求助】fortran小程序，帮忙一下

» 猜你喜欢

请问有评职称，把科研教学业绩算分排序的高校吗已经有3人回复
孩子确诊有中度注意力缺陷已经有12人回复
2025冷门绝学什么时候出结果已经有3人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复
AI论文写作工具：是科研加速器还是学术作弊器？已经有3人回复
2026博士申请-功能高分子，水凝胶方向已经有6人回复
论文投稿，期刊推荐已经有4人回复
硕士和导师闹得不愉快已经有13人回复
请问2026国家基金面上项目会启动申2停1吗已经有5人回复

1楼2009-09-05 09:52:40

tjyl

金虫 (正式写手)

程序强帖: 2
应助: 0 (幼儿园)
金币: 3218.1
红花: 2
帖子: 576
在线: 156.6小时
虫号: 765184
注册: 2009-05-07
专业: 生物无机化学
管辖: 程序语言

loovfnd(金币+0):回到正题，不要秀英语！

r^2_c(A)的表达式还得给出来

赞一下(1人)

2楼2009-09-05 11:01:48

nono2009

超级版主 (文学泰斗)

No gains, no pains.

专家经验: +21105
应助: 28684 (院士)
贵宾: 513.911
金币: 2555140
散金: 27828
红花: 2147
沙发: 66666
帖子: 1602243
在线: 65200.8小时
虫号: 827383
注册: 2009-08-13
性别: GG
专业: 工程热物理与能源利用
管辖: 科研家筹备委员会

loovfnd(金币+0):回到正题，不要秀英语！

LZ, you are so lazy. Cannot help you.:dnd:

赞一下(1人)

3楼2009-09-05 11:17:13

开心@豆豆

应助: (幼儿园)
在线:
虫号: 754038

引用回帖:

Originally posted by nono2009 at 2009-9-5 11:17:
LZ, you are so lazy. Cannot help you.:dnd:

yes ,you are right

4楼2009-09-05 11:38:56

开心@豆豆

应助: (幼儿园)
在线:
虫号: 754038

引用回帖:

Originally posted by tjyl at 2009-9-5 11:01:
r^2_c(A)的表达式还得给出来

xcrms=sqrt(xprms**2+(0.8)**2)
是这个不？

5楼2009-09-05 11:44:53

tjyl

金虫 (正式写手)

程序强帖: 2
应助: 0 (幼儿园)
金币: 3218.1
红花: 2
帖子: 576
在线: 156.6小时
虫号: 765184
注册: 2009-05-07
专业: 生物无机化学
管辖: 程序语言

"loovfnd(金币+0):回到正题，不要秀英语！"
你这实习版主是怎么当的？没有看清别人说的瞎评论啥啊？

引用回帖:

Originally posted by tjyl at 2009-9-5 11:01:
r^2_c(A)的表达式还得给出来

6楼2009-09-05 11:59:13

tjyl

金虫 (正式写手)

程序强帖: 2
应助: 0 (幼儿园)
金币: 3218.1
红花: 2
帖子: 576
在线: 156.6小时
虫号: 765184
注册: 2009-05-07
专业: 生物无机化学
管辖: 程序语言

你总得给出像你图片里的
r^2_LD那样的式子啊

引用回帖:

Originally posted by 开心@豆豆 at 2009-9-5 11:44:

xcrms=sqrt(xprms**2+(0.8)**2)
是这个不？

7楼2009-09-05 12:01:18

开心@豆豆

应助: (幼儿园)
在线:
虫号: 754038

引用回帖:

Originally posted by tjyl at 2009-9-5 12:01:
你总得给出像你图片里的
r^2_LD那样的式子啊

式子如图

8楼2009-09-05 12:09:14

cxz314

木虫 (正式写手)

应助: 1 (幼儿园)
贵宾: 0.2
金币: 3815.1
散金: 993
红花: 1
帖子: 997
在线: 189小时
虫号: 475745
注册: 2007-12-07
性别: GG
专业: 凝聚态物性I:结构、力学和

★ ★ ★ ★ ★
开心@豆豆(金币+5,VIP+0):谢谢，fm是单位 9-5 12:35

PROGRAM LZ
IMPLICIT NONE

REAL*8 :: SQRC,SQRLD,DELTSQRC,DELTSQRLD
REAL*8 :: SQRC_2008,SQRLD_2008
REAL*8 :: A,SQR0,F,M,R0,FINAL

F=1.D0
M=2.D0
R0=1.2D0*F*M

PRINT*,'ENTER THE VALUE OF A'
READ*, A

CALL FSQRC(A,SQRC)
CALL FSQRLD(A,R0,SQRLD)
CALL FSQRC(2008,SQRC_2008)
CALL FSQRLD(2008,R0,SQRLD_2008)

DELTSQRC=SQRC-SQRC_2008
DELTSQRLD=SQRLD-SQRLD_2008

FINAL=DELTSQRC-DELTSQRLD

PRINT*,'RESULT=',FINAL

END

SUBROUTINE FSQRC(X,Y)
IMPLICIT NONE
REAL*8 :: X,Y

Y=X*X

END SUBROUTINE

SUBROUTINE FSQRLD(X,Y,Z)
IMPLICIT NONE
REAL*8 :: X,Y,Z

Z=(3.D0/5.D0)*Y*Y*(X**(2.D0/3.D0))

END SUBROUTINE
lz不知道你的fm是什么，所以这里取F=1,M=2
函数Rc2（A）的表达式也不知道，这里取Rc2（A）=A*A

[ Last edited by cxz314 on 2009-9-5 at 12:28 ]

赞一下(2人)

9楼2009-09-05 12:26:31

zhangghost

银虫 (初入文坛)

应助: 1 (幼儿园)
金币: 414
红花: 1
帖子: 12
在线: 26.5小时
虫号: 628364
注册: 2008-10-17
专业: 岩土力学与岩土工程

瀑布汗，这么小的程序还要来求助。
LZ，你太懒了，这样不行。

10楼2009-10-24 18:08:48