24小时热门版块排行榜    

查看: 590  |  回复: 5

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
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注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楼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的循环不是必要的,等会我给你写个代码供你参考吧。
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
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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +3 5lbyq5wrhb 2026-02-07 3/150 2026-02-08 03:05 by vs90ilomwc
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +3 5lbyq5wrhb 2026-02-07 3/150 2026-02-08 02:52 by vs90ilomwc
[论文投稿] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +3 3rkserf6qr 2026-02-07 4/200 2026-02-08 02:45 by vs90ilomwc
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +3 3rkserf6qr 2026-02-07 3/150 2026-02-08 02:32 by vs90ilomwc
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:27 by vs90ilomwc
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:25 by vs90ilomwc
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:12 by vs90ilomwc
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 02:07 by vs90ilomwc
[教师之家] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 02:05 by vs90ilomwc
[找工作] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 01:46 by vs90ilomwc
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:32 by vs90ilomwc
[教师之家] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:26 by vs90ilomwc
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:12 by vs90ilomwc
[教师之家] 有院领导为了换新车,用横向课题经费买了俩车 +7 瞬息宇宙 2026-02-04 7/350 2026-02-07 21:47 by tfang
[有机交流] 酰胺脱乙酰基 10+5 chibby 2026-02-03 12/600 2026-02-07 19:29 by 江东闲人
[基金申请] 同年申请2项不同项目,第1个项目里不写第2个项目的信息,可以吗 +4 hitsdu 2026-02-06 4/200 2026-02-07 13:07 by jurkat.1640
[考博] 天津大学招2026.09的博士生,欢迎大家推荐交流(博导是本人) +4 a793625982 2026-02-05 5/250 2026-02-07 10:57 by a793625982
[基金申请] 面上项目申报 +3 Tide man 2026-02-01 3/150 2026-02-05 22:56 by god_tian
[硕博家园] 博士延得我,科研能力直往上蹿 +7 偏振片 2026-02-02 7/350 2026-02-04 17:36 by 陈氏帝国
[教师之家] 遇见不省心的家人很难过 +18 otani 2026-02-03 22/1100 2026-02-04 11:06 by tangmnt
信息提示
请填处理意见