iCAx开思工具箱

标题: 多个选择测重 [打印本页]

作者: gdboy 时间: 2011-1-5 22:32
标题: 多个选择测重
用以下的代码测量重量在有多个体的建模环境中测量任意一个体出来结果与自带的结果不同请高手更改下还有一个重要的是怎样做到可以一下选多个算出来重量谢谢！

以下是8588 大侠的源代码

entity/body
number/n(42),density,d
string/pa(132),pb(132),pc(132)

&fulldt=2
pa=date
pb=substr(pa,7,4)
pc=substr(pa,1,5)
pa=pb+'-'+pc
if/pa>='2007-10-01',jump/messg1:
density=1
z=&decpl
&decpl=2

aa:
param/'请输入密度...编写人:⑧⑧⑤⑧',$
'密度(克/每立方厘米)',density,rsp
jump/aa:,end:,,rsp

bb:
mask/70
ident/'请选择。。。编写人:⑧⑧⑤⑧',body,rsp
jump/bb:,end:,,rsp
&sdens(body)=density
anlsis/solid,body,gcm,n
d=n(3)*1000
if/d>=1000,jump/cc:
messg/'该物体的重量为'+fstr(d)+'克'
jump/end:

cc:
messg/'该物体的重量为'+fstr(n(3))+'千克'
end:
&decpl=z
halt
messg1:
messg/'不好意思您的试用期已到，请联系作者⑧⑧⑤⑧！'

作者: -KASA- 时间: 2011-1-6 14:53
思路很简单，循环累加就可以了。但你要别人改好了发给你，这个要求好像有点...

作者: caress124 时间: 2011-1-6 15:37
高手，学习了，呵呵

作者: LIUCHANGLIN 时间: 2011-1-6 16:48
entity/body(1000)
number/n(42),density

density=1
z=&decpl
&decpl=2

aa:

density=7.85  $$盞(/–ミよ往μ)
H=0

N(3)=0
mask/70
SEL:
IDENT/'匡拒家ㄣ龟砰',body,CNT,NUM,RESP
JUMP/SEL:,END:,,RESP

LOOP:
DO/END:,I,1,NUM
   &sdens(body(I))=density
   anlsis/solid,body(I),gcm,n
   H=H+N(3)
end:

messg/'赣砰秖'+fstr(H)+''

&decpl=z
halt

作者: LIUCHANGLIN 时间: 2011-1-6 16:48
以前写的是繁体，你自己改一下吧！

作者: gdboy 时间: 2011-1-6 21:40
2#

就是自己努力了改了之后还是算不出来

作者: gdboy 时间: 2011-1-6 21:41
4#

谢谢你的太感激了

作者: gdboy 时间: 2011-1-6 23:55
4#

messg/'赣砰秖'+fstr(H)+'' 小数位数怎样处理（想增加位数）请赐教

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)