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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】大家帮忙看看数组存值和引用
51/1返回列表
查看: 620  |  回复: 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 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 322求调剂 +6 tekuzu 2026-04-17 6/300 2026-04-17 13:48 by Espannnnnol
[考研] 279求调剂 +13 张番茄不炒蛋 2026-04-11 13/650 2026-04-17 10:38 by cuisz
[考研] 化学070300 求调剂 +28 哈哈哈^_^ 2026-04-12 28/1400 2026-04-16 21:36 by 大力水手力大无�
[考研] 0831生医工第一轮调剂失败求助 +14 小熊睿睿_s 2026-04-11 18/900 2026-04-16 20:41 by lpl364211
[考研] 求调剂推荐 +8 小聂爱学习 2026-04-14 8/400 2026-04-16 07:22 by 学员JpLReM
[考研] 求调剂学校 +14 不会吃肉 2026-04-13 16/800 2026-04-15 21:59 by noqvsozv
[考研] 085404 22408 309分求调剂 +9 lzmk 2026-04-14 10/500 2026-04-15 20:02 by 学员JpLReM
[考研] 生物学调剂 +9 纸扇zhishan 2026-04-13 9/450 2026-04-15 18:28 by AN流800
[考研] 297工科调剂? +14 河南农业大学-能 2026-04-13 15/750 2026-04-15 13:25 by 黑科技矿业
[考研] 211本科材料化工求调剂 +19 YHLAH 2026-04-11 23/1150 2026-04-14 22:25 by fenglj492
[考研] 调剂 +12 月@163.com 2026-04-11 12/600 2026-04-14 15:37 by zs92450
[考研] 271求调剂 +35 2261744733 2026-04-11 41/2050 2026-04-14 15:36 by zs92450
[考研] 求调剂 +12 何气正 2026-04-13 13/650 2026-04-14 14:47 by zs92450
[考研] 2026硕士调剂_能动_河南农业大学 +4 河南农业大学-能 2026-04-12 4/200 2026-04-13 22:01 by bljnqdcc
[考研] 一志愿中南大学 0855 机械 286 求调剂 +11 不会吃肉 2026-04-12 11/550 2026-04-13 21:59 by bljnqdcc
[考研] 297工科，求调剂? +13 河南农业大学-能 2026-04-12 13/650 2026-04-13 14:12 by dingyanbo1
[考研] 一志愿浙大生物325分求调剂 +9 zysheng 2026-04-12 9/450 2026-04-12 22:31 by yuyin1233
[考研] 344 材料专业 求调剂211 无地域要求 +8 hualkop 2026-04-11 8/400 2026-04-12 22:24 by fqwang
[考研] 331求调剂 +5 王国帅 2026-04-11 5/250 2026-04-11 22:56 by 溪涧流水
[考研] 一志愿厦大0856，306求调剂 +15 Bblinging 2026-04-11 15/750 2026-04-11 22:53 by 314126402
信息提示
关闭
请填处理意见
关闭