多个选择测重

只看该作者 · 发表于 2011-1-5 22:32:04

马上注册，结交更多同行朋友，交流，分享，学习。

您需要登录才可以下载或查看，没有帐号？注册

x

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

以下是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/'不好意思您的试用期已到，请联系作者⑧⑧⑤⑧！'

只看该作者 · 发表于 2011-1-6 14:53:01

思路很简单，循环累加就可以了。但你要别人改好了发给你，这个要求好像有点...

只看该作者 · 发表于 2011-1-6 15:37:25

提示: 作者被禁止或删除内容自动屏蔽

只看该作者 · 发表于 2011-1-6 16:48:00

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

只看该作者 · 发表于 2011-1-6 16:48:35

以前写的是繁体，你自己改一下吧！

只看该作者 · 发表于 2011-1-6 21:40:45

2# -KASA-

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

只看该作者 · 发表于 2011-1-6 21:41:31

4# LIUCHANGLIN

谢谢你的太感激了

只看该作者 · 发表于 2011-1-6 23:55:40

4# LIUCHANGLIN

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

当前离线技术贡献大米积分 10 头像被屏蔽	3楼发表于 2011-1-6 15:37:25 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽
当前离线技术贡献大米积分 10 头像被屏蔽	开思网工业级高精度在线3D打印服务：材料多、价格低、交货快！点击上传模型... 实时报价
	回复支持反对举报

[求助] 多个选择测重

马上注册，结交更多同行朋友，交流，分享，学习。