24小时热门版块排行榜    

查看: 770  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 是这周出结果还是下周出结果? +3 yuleib84 2026-08-11 3/150 2026-08-11 21:53 by jnhyjjm
[基金申请] 小木虫上这么多卖论文的,真有人买论文么?感觉没必要啊 +8 Tide man 2026-08-10 9/450 2026-08-11 20:39 by beefly
[基金申请] 帮忙看看fileCode +7 wwncly 2026-08-10 13/650 2026-08-11 19:36 by 冰心玉壶晴
[硕博家园] 读博的好处 +3 lnee 2026-08-11 3/150 2026-08-11 18:10 by 希望我好好的
[基金申请] 什么时候出结果,有咨询渠道??? +3 Tide man 2026-08-11 3/150 2026-08-11 17:54 by kudofaye
[基金申请] 分享一下我之前已中青C的计划书的filecode +3 布布和一二 2026-08-11 4/200 2026-08-11 15:20 by aasahr
[基金申请] 我的国基提前知道中了,可是同事的操作让我实在接受不了,怎么会有这样的人 +8 家与远方 2026-08-10 13/650 2026-08-11 09:49 by 家与远方
[基金申请] 基金中了 +15 laoda193707 2026-08-06 15/750 2026-08-11 00:11 by jiafei2190
[基金申请] 静等基金结果 +5 gjjjzhong 2026-08-10 16/800 2026-08-10 17:19 by Tide man
[基金申请] 关于Filecode分析方法 +3 majunge000 2026-08-10 3/150 2026-08-10 15:46 by lch2012
[基金申请] 据悉今年马上要出结果了 +7 瞬息宇宙 2026-08-10 8/400 2026-08-10 12:42 by Vivilian
[基金申请] 这样的filecode谁见过 +11 布布和一二 2026-08-08 22/1100 2026-08-10 11:10 by wmfsnow
[基金申请] 关于豆爷回答的JTJC与%2F数量 +5 yang182083 2026-08-06 7/350 2026-08-08 18:29 by zhanghaozhu
[基金申请] 国基金的申报应该改成非等额制,评价高的钱多评价低的钱少,但是增加资助率 +7 a089 2026-08-07 7/350 2026-08-08 18:05 by gltch
[基金申请] 关于filecode +4 布布和一二 2026-08-07 7/350 2026-08-07 22:55 by zhanghaozhu
[基金申请] 化学口download_prp&fileCode的固定段好像这几天一直没变,有变的大神么? +3 Tide man 2026-08-07 4/200 2026-08-07 22:39 by Tide man
[基金申请] 固定端突然变了,今天 +6 archvillain 2026-08-06 10/500 2026-08-07 16:03 by 医学老男孩
[基金申请] filecode变化情况 +6 布布和一二 2026-08-07 22/1100 2026-08-07 14:45 by 且听虎啸
[基金申请] filecode +14 等待解的谜 2026-08-06 19/950 2026-08-07 12:20 by wlwhappy
[基金申请] filecode +8 布布和一二 2026-08-06 11/550 2026-08-06 20:41 by tangpu318
信息提示
请填处理意见