应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】大家帮忙看看数组存值和引用
51/1返回列表
查看: 607  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

astringent

铜虫 (著名写手)

[交流] 【求助】大家帮忙看看数组存值和引用 已有2人参与

我现在有一组数据，是对应step=1，2---10的数，但是每个step对应的数据的个数不一定相等。我想把这些数（在程序用a表示）存在数组中，以便后面用，在后面我要定义一个函数，如H（x），x可以取0到30000的任意值，当x取我的数据中值是，H（x）=1，否则为0.也就是说当step=1，x取15733，18193，20251时，H（x）=1，当step=2，x取15733，20251时，H（x）=1。大家帮忙看看这样写行不行？如果不行，应该怎样实现？先谢谢了
do istep=1，10
test（10，istep）=a  ！将a存到数组test中。对应每个step的a值最多是10
enddo
do i=1，30000  ！x取所有可能的 值
    do istep=1，10
         do j=1，10
             if（i==test（j，istep））then
                  H（i）=1
             else
                  H（i）=0
            endif           
         enddo
     enddo
enddo

step           1       15733
step           1       18193
step           1       20251
step           2       15733
step           2       20251
step           3       20824
step           4       15733
step           4       16159
step           4       18193
step           4       20251
step           4       20824
step           5       16159
step           5       18193
step           5       20251
step           5       20824
step           6       15733
step           6       20251
step           6       20824
step           7       15733
step           7       20251
step           7       20824
step           8       15733
step           8       16159
step           8       18193
step           8       20251
step           9       18193
step           9       20251
step          10        9490
step          10       16159
step          10       20251
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2010-12-01 01:25:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

piduil

铜虫 (初入文坛)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
引用回帖:
Originally posted by astringent at 2010-12-01 16:02:10:

我改了一下，你说的是这个意思吗？
do istep=1，10
test（10，istep）=a  ！将a存到数组test中。对应每个step的a值最多是10
enddo
H=0
do i=1，30000  ！x取所有可能的 值
    test=0  
    do istep=1， ...

很抱歉，没有看到你的对i进行了长度为30000的循环，那我那个给H(0)赋值的说法不成立。
你的编程风格很像我原来的舍友啊！那个长度为30000的循环不是必要的，等会我给你写个代码供你参考吧。
赞一下(1人) 回复此楼
4楼2010-12-01 16:16:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

piduil

铜虫 (初入文坛)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+1):鼓励应助 2010-12-02 07:50:24
1，test数组需要初始化，假设初始化所有的值都为0
2，H数组初始化全部为0，在循环中就可以不需要else后面的赋值
3，如果test的值为0的情况你没有考虑，这样会引起给H(0)赋值的错误，这样你判断一下然后跳出循环就可以。
赞一下(2人) 回复此楼
2楼2010-12-01 13:18:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

astringent

铜虫 (著名写手)
引用回帖:
Originally posted by piduil at 2010-12-01 13:18:32:
1，test数组需要初始化，假设初始化所有的值都为0
2，H数组初始化全部为0，在循环中就可以不需要else后面的赋值
3，如果test的值为0的情况你没有考虑，这样会引起给H(0)赋值的错误，这样你判断一下然后跳出循环 ...

我改了一下，你说的是这个意思吗？
do istep=1，10
test（10，istep）=a  ！将a存到数组test中。对应每个step的a值最多是10
enddo
H=0
do i=1，30000  ！x取所有可能的 值
    test=0  
    do istep=1，10
         do j=1，10
             if（i==test（j，istep））then
                  H（i）=1
            endif           
         enddo
     enddo
enddo
赞一下 回复此楼
3楼2010-12-01 16:02:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

piduil

铜虫 (初入文坛)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+2):鼓励应助，欢迎常来交流 2010-12-02 07:50:41
! 假设你的test数组已经赋值，空的数据用0表示
H=0
do istep=1,10
  do j=1,10
    if(test(j,istep)/=0) H(test(j,istep))=1
   end do
end do
赞一下(2人) 回复此楼
5楼2010-12-01 16:26:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂 +3 暗涌afhb 2026-03-16 3/150 2026-03-20 00:28 by 河南大学校友
[考研] 081700化工学硕调剂 +3 【1】 2026-03-16 3/150 2026-03-19 23:40 by edmund7
[考研] 0703化学调剂 +10 妮妮ninicgb 2026-03-15 14/700 2026-03-19 22:59 by 学员8dgXkO
[考研] 0856调剂，是学校就去 +6 sllhht 2026-03-19 7/350 2026-03-19 19:50 by 制度的
[考研] 一志愿南京理工大学085701资源与环境302分求调剂 +3 葵梓卫队 2026-03-18 5/250 2026-03-19 19:35 by 给你你注意休息
[考研] 0703化学调剂 +4 18889395102 2026-03-18 4/200 2026-03-19 16:13 by 30660438
[考研] 求调剂 +3 Mqqqqqq 2026-03-19 3/150 2026-03-19 14:11 by peike
[考研] 材料080500调剂求收留 +4 一颗meteor 2026-03-13 4/200 2026-03-19 10:32 by 30660438
[考研] 一志愿华中科技大学，080502，354分求调剂 +4 守候夕阳CF 2026-03-18 4/200 2026-03-18 22:16 by li123456789.
[考研] 311求调剂 +6 26研0 2026-03-15 6/300 2026-03-18 14:43 by haxia
[考研] 材料，纺织，生物（0856、0710），化学招生啦 +3 Eember. 2026-03-17 9/450 2026-03-18 10:28 by Eember.
[考研] 326求调剂 +5 上岸的小葡 2026-03-15 6/300 2026-03-17 17:26 by ruiyingmiao
[考研] 308求调剂 +4 是Lupa啊 2026-03-16 4/200 2026-03-17 17:12 by ruiyingmiao
[考研] 290求调剂 +3 p asserby. 2026-03-15 4/200 2026-03-17 16:35 by wangkm
[考博] 26申博 +4 八6八68 2026-03-16 4/200 2026-03-17 13:00 by 轻松不少随
[考研] 275求调剂 +4 太阳花天天开心 2026-03-16 4/200 2026-03-17 10:53 by 功夫疯狂
[考研] 东南大学364求调剂 +5 JasonYuiui 2026-03-15 5/250 2026-03-16 21:28 by 木瓜膏
[考研] 304求调剂 +3 曼殊2266 2026-03-14 3/150 2026-03-16 16:39 by houyaoxu
[考研] 070303 总分349求调剂 +3 LJY9966 2026-03-15 5/250 2026-03-16 14:24 by xwxstudy
[考研] 0856求调剂 +3 刘梦微 2026-03-15 3/150 2026-03-16 10:00 by houyaoxu
信息提示
关闭
请填处理意见
关闭