| 查看: 798 | 回复: 5 | ||
欢迎你来了新虫 (小有名气)
|
[求助]
运行结果不随输入变化
|
结果可以运行，但是结果不会随着输入变化，这是为什么呀？ 发自小木虫Android客户端 |
回复此楼» 猜你喜欢
博士去高校就是为了有寒暑假吗？
已经有24人回复
-
白天不懂夜的黑，90后青椒与60后老板
已经有6人回复
-
博三一直没文章怎么办
已经有38人回复
-
蹲一个男朋友
已经有37人回复
-
手稿提交了两遍
已经有5人回复
-
急求博导收留
已经有15人回复
-
去年申请基金的评审意见是ChatGPT在国内是禁止的，研究方案中有使用ChatGPT不合理
已经有4人回复
-
申请基金代表性成果
已经有20人回复
-
word转成pdf之后公式里面的字体变了，正文字体没变。
已经有7人回复
-
基金委也是打工的
已经有33人回复
raymond137
金虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 1823.8
- 红花: 1
- 帖子: 808
- 在线: 62.2小时
- 虫号: 9463435
- 注册: 2018-07-14
- 性别: GG
- 专业: 电子学与信息系统
2楼2021-05-21 07:06:37
欢迎你来了
新虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 233.1
- 散金: 15
- 帖子: 131
- 在线: 20.9小时
- 虫号: 21285787
- 注册: 2020-02-28
- 专业: 原子和分子物理
|
module contants implicit none real::a1, a2 real::ed = 9.91, edm = 14.5 real::b2 = 2.3 real::kb = 1.380649e-23 real::a_i = 0.08 real::a_j = 4.33d-5 real(kind=8)::h = 1.06e-34 real(kind=8)::w = 2.37e3 integer::b1 = 3390end module contants real function gos(x) use contants implicit none real:: x real(kind=4):: m, m1, m2 real(kind=4):: em1 real::a_1, b_1 integer::j, v integer::tv, t0, trot, tread *,x,tv,t0,trot,t a_1 = a1 - (b1/trot) - (b1/t0) a1 = -3*a_i*kb*t/(2*ed) a2 = -3*a_j*kb*t/(2*ed) if (v >= 0 .and. v < 9) then m1 = 0 m2 = 9 b_1 = b1 m = 1 em1 = (m1 + 0.5)*h*w gos= exp(x*em1 + a_1*m1)*((1 - exp((m2 - m1)*(x*b_1*kb + a_1)))/(1 - exp(x*b_1*kb + a_1))) else if (v >= 9 .and. v < 31) then m1 = 9 m2 = 31 b_1 = 0.75*b1 m = 2 em1 = (m1 + 0.5)*h*w gos= exp(x*em1 + a_1*m1)*((1 - exp((m2 - m1)*(x*b_1*kb + a_1)))/(1 - exp(x*b_1*kb + a_1))) else if (v >= 31 .and. v < 55) then m1 = 31 m2 = 55 b_1 = 0.45*b1 m = 3 em1 = (m1 + 0.5)*h*w gos= exp(x*em1 + a_1*m1)*((1 - exp((m2 - m1)*(x*b_1*kb + a_1)))/(1 - exp(x*b_1*kb + a_1))) end if! fl=q+d+c write(*,*) gos return end function program piok !use contants implicit none real::y,x real,external::gos y=gos(x) ! print*,gos end 发自小木虫Android客户端 |
3楼2021-05-21 11:18:56
欢迎你来了
新虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 233.1
- 散金: 15
- 帖子: 131
- 在线: 20.9小时
- 虫号: 21285787
- 注册: 2020-02-28
- 专业: 原子和分子物理
|
module contants implicit none real::a1, a2 real::ed = 9.91, edm = 14.5 real::b2 = 2.3 real::kb = 1.380649e-23 real::a_i = 0.08 real::a_j = 4.33d-5 real(kind=8)::h = 1.06e-34 real(kind=8)::w = 2.37e3 integer::b1 = 3390 end module contants real function gos(x) use contants implicit none real:: x real(kind=4):: m, m1, m2 real(kind=4):: em1 real::a_1, b_1 integer::j, v integer::tv, t0, trot, t read *,x,tv,t0,trot,t a_1 = a1 - (b1/trot) - (b1/t0) a1 = -3*a_i*kb*t/(2*ed) a2 = -3*a_j*kb*t/(2*ed) if (v >= 0 .and. v < 9) then m1 = 0 m2 = 9 b_1 = b1 m = 1 em1 = (m1 + 0.5)*h*w gos= exp(x*em1 + a_1*m1)*((1 - exp((m2 - m1)*(x*b_1*kb + a_1)))/(1 - exp(x*b_1*kb + a_1))) else if (v >= 9 .and. v < 31) then m1 = 9 m2 = 31 b_1 = 0.75*b1 m = 2 em1 = (m1 + 0.5)*h*w gos= exp(x*em1 + a_1*m1)*((1 - exp((m2 - m1)*(x*b_1*kb + a_1)))/(1 - exp(x*b_1*kb + a_1))) else if (v >= 31 .and. v < 55) then m1 = 31 m2 = 55 b_1 = 0.45*b1 m = 3 em1 = (m1 + 0.5)*h*w gos= exp(x*em1 + a_1*m1)*((1 - exp((m2 - m1)*(x*b_1*kb + a_1)))/(1 - exp(x*b_1*kb + a_1))) end if ! fl=q+d+c write(*,*) gos return end function program piok !use contants implicit none real::y,x real,external::gos y=gos(x) ! print*,gos end 发自小木虫Android客户端 |
4楼2021-05-21 11:26:32
raymond137
金虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 1823.8
- 红花: 1
- 帖子: 808
- 在线: 62.2小时
- 虫号: 9463435
- 注册: 2018-07-14
- 性别: GG
- 专业: 电子学与信息系统
5楼2021-05-21 11:53:14
欢迎你来了
新虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 233.1
- 散金: 15
- 帖子: 131
- 在线: 20.9小时
- 虫号: 21285787
- 注册: 2020-02-28
- 专业: 原子和分子物理
6楼2021-05-21 11:59:59
48