24小时热门版块排行榜    

查看: 1397  |  回复: 5

张生生zsc

新虫 (初入文坛)

[求助] ANSYS中使用APDL语言建模问题 已有2人参与

编程的目的是要分析导电胶的受热时应力和位移变化。导电胶中有球形的导电颗粒,周围是环氧树脂。建模时是在10x10x10的立方体内随机选取一个整数坐标来作为圆心,0.5为半径画球,以此类推循环一百次在立方体内得到100个小球。程序如下:
/prep7
*DO,i,1,100
*SET,Ai,RAND(1,1000)
*SET,B,NINT(Ai)
C=MOD(B,100)
D=MOD(C,10)
Z=(B-C)/100
Y=(C-D)/10
X=D
wplane,X,Y,Z,X+1,Y,Z,X,Y+1,Z
sph4,,,0.5
*ENDDO
现在面临的问题是这1-1000中随机产生的100个数之中不能保证互不重复,也就是说随机数选取的时候可能多次重复选同一个数。
有没有方法解决这个问题,如果需要用到C语言的话请在回复时把代码写出来。
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mxwq

新虫 (正式写手)

你是想用10个金币让别人帮你编个程序嘛!?

发自小木虫Android客户端
2楼2015-11-26 22:45:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

shgao20

专家顾问 (职业作家)

【答案】应助回帖

感谢参与,应助指数 +1
将:
    *SET,Ai,RAND(1,1000)
  改成:
    *SET,Ai,RAND(i,1000+i)  或 *SET,Ai,RAND(1,i*1000) 或......
  试试。
3楼2015-11-27 09:03:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mxwq

新虫 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
你得写一个判断语句和循环语句组合,还要对已经产生的数存放在数组里…这是这一类免重编程的常识,编过程序的都这么来,但是也挺麻烦…楼上的恐怕不是你要的!一个是:产生i-i+1000的随机数,如果i=5时,Ai(Ai是一个变量,不会是A2之类的一百个不同变量!)先产生100.508,i=6时产生i-i+1000(即6-1006)的随机数,还是可能产生100.106这样,取整还都是100!第二个1-i*1000也有类似问题…

发自小木虫Android客户端
4楼2015-11-27 11:04:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mxwq

新虫 (正式写手)

【答案】应助回帖

其实楼上想弄得应该是Ai=RAND((i-1)*10,i*10)——这个意思是,i=1在0-10内随机,i=10在90-100内随机,虽然取了点儿巧,不会有重复,但是估计不是你要的……

发自小木虫Android客户端
5楼2015-11-27 11:12:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

坦克手

新虫 (初入文坛)

同问,我用rand命令,但是有重复,要怎么解决啊
6楼2018-04-23 20:42:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 张生生zsc 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 2rKfVQg2jQww 2026-11-06 5/250 2026-11-07 17:23 by Xc2FxHsHkBNc
[教师之家] 延安大学回应“副教授留绝笔信”:确已离世,正核实举报内容 +3 yexuqing 2026-11-04 5/250 2026-11-07 13:22 by 苏东坡二世
[公派出国] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +8 ncTVBM6AOJHF 2026-11-04 23/1150 2026-11-07 06:49 by Equinoxhua
[公派出国] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +4 ELBZ6WwEaRj6 2026-11-05 5/250 2026-11-06 16:43 by 5sJFDKp2kwuI
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 ELBZ6WwEaRj6 2026-11-05 7/350 2026-11-06 16:43 by 5sJFDKp2kwuI
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +6 ELBZ6WwEaRj6 2026-11-04 11/550 2026-11-06 16:32 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 16:12 by 5sJFDKp2kwuI
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 ttH3f1oA6ace 2026-11-04 11/550 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +6 ncTVBM6AOJHF 2026-11-04 15/750 2026-11-06 13:49 by BkA9Bi5cMhkD
[考研] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +7 ncTVBM6AOJHF 2026-11-04 14/700 2026-11-06 13:47 by BkA9Bi5cMhkD
[考研] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +8 ncTVBM6AOJHF 2026-11-04 18/900 2026-11-06 13:36 by BkA9Bi5cMhkD
[硕博家园] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 ELBZ6WwEaRj6 2026-11-05 5/250 2026-11-06 09:01 by 2lRNluKrJpwL
[考研] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +4 ttH3f1oA6ace 2026-11-04 14/700 2026-11-06 05:11 by qL1cU46YIdK0
[考博] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +4 kvewwGtKktqB 2026-11-04 11/550 2026-11-06 05:10 by qL1cU46YIdK0
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-06 04:47 by qL1cU46YIdK0
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 ELBZ6WwEaRj6 2026-11-04 9/450 2026-11-06 02:15 by qL1cU46YIdK0
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 ttH3f1oA6ace 2026-11-04 9/450 2026-11-06 02:02 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 hNpp4Y2CGvSC 2026-11-04 12/600 2026-11-06 01:53 by qL1cU46YIdK0
[考博] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +6 ncTVBM6AOJHF 2026-11-04 10/500 2026-11-06 01:51 by qL1cU46YIdK0
[基金申请] 各位基础老师们,看完中央《从严治党》的决定后,对学术界更加有信心了吧 +5 iaeyuan 2026-11-01 5/250 2026-11-04 14:43 by jinchengzi
信息提示
请填处理意见