17
3
0
入门
使用道具 举报
838
2
大宗师
213
宗师
风平老涡 发表于 2020-8-20 23:42 如上所述,把x,y分别作为俩个区域,生成随机数即可。
01
program
test
02
implicit
none
03
real
x
(
50
,
)
y
04
::
dx
=
0.2
dy
05
integer
i
j
06
call
RANDOM_SEED
07
RANDOM_NUMBER
08
09
*
10
11
do
1
12
13
+
-1
14
15
end
16
li913 发表于 2020-8-21 16:08 [mw_shl_code=fortran,true]program test implicit none real x(50,50), y(50,50)
13613529432 发表于 2020-8-27 21:16 谢谢大佬。你是那个群群主把?
li913 发表于 2020-8-28 09:21 en, 是的。
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2025-4-29 19:50
Powered by Discuz! X3.4
© 2013-2025 Comsenz Inc.