24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1100  |  回复: 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

新虫 (正式写手)

【答案】应助回帖

其实楼上想弄得应该是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的回帖
查看全部 6 个回答

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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 334分 一志愿武理 材料求调剂 +7 李李不服输 2026-03-26 7/350 2026-03-29 16:25 by 学员8dgXkO
[考研] 300求调剂,材料科学英一数二 +9 leaflight 2026-03-24 9/450 2026-03-29 14:18 by wxiongid
[考研] 材料学硕333求调剂 +11 北道巷 2026-03-24 11/550 2026-03-29 08:31 by fmesaito
[考研] 0703化学 +11 妮妮ninicgb 2026-03-27 11/550 2026-03-29 06:45 by 544594351
[考研] 求调剂 +6 芦lty 2026-03-25 7/350 2026-03-28 13:13 by 唐沐儿
[考研] 283求调剂 +7 A child 2026-03-28 7/350 2026-03-28 12:05 by zllcz
[考研] 药学105500求调剂 +3 Ssun。。 2026-03-28 3/150 2026-03-28 11:24 by lxf170613
[考研] 一志愿南京航空航天大学材料学硕求调剂 +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
[考研] 265求调剂 +8 小木虫085600 2026-03-27 8/400 2026-03-27 22:16 by 无际的草原
[有机交流] 高温高压反应求助 10+4 chibby 2026-03-25 4/200 2026-03-27 21:08 by BT20230424
[考研] 一志愿南师大0703化学 275求调剂 +4 Ripcord上岸 2026-03-27 4/200 2026-03-27 17:00 by zhyzzh
[考研] 07化学280分求调剂 +10 722865 2026-03-23 10/500 2026-03-27 15:51 by Plutoqq
[考研] 08开头275求调剂 +4 拉谁不重要 2026-03-26 4/200 2026-03-27 14:12 by Delta2012
[考研] 348求调剂 +4 小懒虫不懒了 2026-03-27 5/250 2026-03-27 12:47 by 果果妈咪
[考研] 341求调剂 +7 青柠檬1 2026-03-26 7/350 2026-03-27 00:19 by wxiongid
[考研] 打过很多竞赛,085406控制工程300分,求调剂 +3 askeladz 2026-03-26 3/150 2026-03-26 09:08 by 给你你注意休息
[考研] 材料与化工304求B区调剂 +3 邱gl 2026-03-25 3/150 2026-03-25 19:03 by Ainin_
[考研] 材料专硕 335 分求调剂 +4 拒绝冷暴力 2026-03-25 4/200 2026-03-25 18:45 by haxia
[考研] 318求调剂 +3 plum李子 2026-03-23 3/150 2026-03-25 09:42 by 雾散后相遇lc
[考研] 求老师收我 +3 zzh16938784 2026-03-23 3/150 2026-03-23 12:56 by ztnimte
信息提示
请填处理意见