24小时热门版块排行榜    

查看: 603  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 申博26年 +3 八6八68 2026-03-19 3/150 2026-03-19 19:43 by nxgogo
[考研] 085601材料工程专硕求调剂 +10 慕寒mio 2026-03-16 10/500 2026-03-19 15:26 by 丁丁*
[考研] 286求调剂 +6 lemonzzn 2026-03-16 10/500 2026-03-19 14:31 by lemonzzn
[考研] 一志愿 西北大学 ,070300化学学硕,总分287,双非一本,求调剂。 +3 晨昏线与星海 2026-03-19 3/150 2026-03-19 13:36 by houyaoxu
[考研] 一志愿985,本科211,0817化学工程与技术319求调剂 +10 Liwangman 2026-03-15 10/500 2026-03-19 10:25 by 无际的草原
[考研] 0817调剂 +3 没有答案_ 2026-03-14 3/150 2026-03-19 09:51 by Xu de nuo
[教师之家] 焦虑 +9 水冰月月野兔 2026-03-13 13/650 2026-03-19 09:50 by otani
[考研] 330求调剂 +3 小材化本科 2026-03-18 3/150 2026-03-18 21:55 by 无懈可击111
[考研] 354求调剂 +4 Tyoumou 2026-03-18 7/350 2026-03-18 21:45 by Tyoumou
[考研] 070300化学319求调剂 +6 锦鲤0909 2026-03-17 6/300 2026-03-18 13:22 by Iveryant
[考博] 环境领域全国重点实验室招收博士1-2名 +3 QGZDSYS 2026-03-13 5/250 2026-03-18 11:13 by QGZDSYS
[考研] 277调剂 +5 自由煎饼果子 2026-03-16 6/300 2026-03-17 19:26 by 李leezz
[考研] 一志愿南京大学,080500材料科学与工程,调剂 +4 Jy? 2026-03-16 4/200 2026-03-17 11:02 by gaoqiong
[考研] 274求调剂 +5 时间点 2026-03-13 5/250 2026-03-17 07:34 by 热情沙漠
[考研] 333求调剂 +3 文思客 2026-03-16 7/350 2026-03-16 18:21 by 文思客
[基金申请] 今年的国基金是打分制吗? 50+3 zhanghaozhu 2026-03-14 3/150 2026-03-16 17:07 by 北京莱茵润色
[考研] 304求调剂 +5 素年祭语 2026-03-15 5/250 2026-03-16 17:00 by 我的船我的海
[考研] 求老师收留调剂 +4 jiang姜66 2026-03-14 5/250 2026-03-15 20:11 by Winj1e
[考研] 中科大材料专硕319求调剂 +3 孟鑫材料 2026-03-13 3/150 2026-03-14 18:10 by houyaoxu
[考研] 一志愿哈工大材料324分求调剂 +5 闫旭东 2026-03-14 5/250 2026-03-14 14:53 by 木瓜膏
信息提示
请填处理意见