多个选择测重

gdboy

用以下的代码 测量重量  在有多个体的建模环境中测量任意一个体出来结果  与自带的结果不同   请高手更改下   还有一个重要的是  怎样做到可以一下选多个  算出来重量  谢谢！



以下是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-

caress124

LIUCHANGLIN

LIUCHANGLIN

gdboy

gdboy

gdboy