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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】大家帮忙看看数组存值和引用
61/1返回列表
查看: 616  |  回复: 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):给个红包，谢谢回帖交流
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):给个红包，谢谢回帖交流
引用回帖:
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的回帖

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的回帖

astringent

铜虫 (著名写手)
引用回帖:
Originally posted by piduil at 2010-12-01 16:26:52:
! 假设你的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

thanks a lot
回复此楼
6楼2010-12-01 18:14:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 astringent 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085601初试330分找调剂 +6 流心奶黄包l 2026-04-09 6/300 2026-04-09 17:16 by 帕尔马拉特
[考研] 还有化工二轮调剂的学校吗 5+8 化工人999 2026-04-09 28/1400 2026-04-09 16:49 by Delta2012
[考研] 085501机械英二77总分294求调剂，接受跨专业学习 +6 守法公民亓纪 2026-04-08 6/300 2026-04-09 15:55 by wp06
[考研] 材料工程085601，270求调剂 +26 @ASDF1234 2026-04-08 28/1400 2026-04-09 15:47 by wp06
[考研] 材料调剂 +14 一样YWY 2026-04-06 14/700 2026-04-08 23:00 by 猪会飞
[考博] 材料方向考博，求推荐 +3 言语aaa 2026-04-05 4/200 2026-04-08 22:22 by nxgogo
[考研] 生物学308分求调剂（一志愿华东师大）做过分子实验 +6 相信必会光芒万� 2026-04-07 7/350 2026-04-08 16:49 by tjzhao
[考研] 化学0703-一志愿211-338分求调剂 +10 vants 2026-04-05 11/550 2026-04-08 16:02 by screening
[考研] 280求调剂 +9 李rien 2026-04-04 9/450 2026-04-08 13:20 by lijunpoly
[考研] 一志愿北京化工085600 310分求调剂 +20 0856材料与化工3 2026-04-04 22/1100 2026-04-07 15:14 by 上岸快快
[考研] 085100建筑学 寻求跨专业调剂 一志愿南大294分 校级省级国家级奖项若干 踏实肯干 +3 1021075758 2026-04-06 4/200 2026-04-07 09:23 by 蓝云思雨
[考研] 362求调剂一志愿中国石油大学 +4 我要考大 2026-04-06 6/300 2026-04-06 14:11 by 无际的草原
[考研] 一志愿南航，数一英一学硕317求调剂！！ +6 Acaciad 2026-04-04 6/300 2026-04-06 12:13 by 考研学校招点人
[考研] 277求调剂 +5 考研调剂lxh 2026-04-05 5/250 2026-04-05 19:03 by chy09050039
[考研] 295求调剂 +8 FZAC123 2026-04-03 8/400 2026-04-05 17:46 by 蓝云思雨
[考研] 292求调剂 +11 2022080213 2026-04-04 13/650 2026-04-04 18:38 by macy2011
[考研] 数二英二348求调剂 +4 hxdzj1 2026-04-03 5/250 2026-04-03 21:25 by zhq0425
[考研] 机械专硕297 +3 Afksy 2026-04-03 3/150 2026-04-03 14:24 by 1753564080
[考研] 数一英一285求调剂 +7 AZMK 2026-04-03 9/450 2026-04-03 13:03 by ms629
[考研] 调剂 +7 祉岷. 2026-04-02 7/350 2026-04-03 09:11 by 花呗还欠600
信息提示
关闭
请填处理意见
关闭