哪们兄台指点一下这段代码

awnusspgy

怎么写才能隐藏它们相同体积的实体，谢谢！！

awnusspgy

   ENTITY /body,obj(1000)
    NUMBER /n(42),r(42),density,d,dd

density=1

0 m' d% B6 f: B8 `1 dl10:
   mask/70
; p- [- F- h. Y+ Y+ |+ x   ident/'选择实体',body,resp
   jump /l10:,end:,,,resp
  k& y) M  }3 d; E0 H  R' u   &sdens(body)=density
* C% `; R) g& \9 [; Q2 E4 j; q: ^   anlsis/solid,body,gcm,n
   d=n(3)*1000
   $$messg/'该物体的重量为'+fstr(d)+'克'
/ c. _7 J6 l* j  p. M
   $$--------------
l20:
) f7 l6 @: N/ H2 Q5 V" {* n   mask/70
   ident/'选择实体',obj,cnt,u,resp
# p( ~2 K. R; _0 ]3 b$ Z   jump /l10:,end:,,,resp

  N5 g5 c3 a6 m7 v2 Xl30:
   do/l40:,i,1,u
   &sdens(obj(i))=density
   anlsis/solid,obj(i),gcm,r
4 a* ?5 g! Y! h- d   dd=r(3)*1000
   print/'该物体的重量为'+fstr(dd)+'克'
- [* T6 a; J" o* f9 ?8 F$ u) _l40:
l50:
   do/l60:,v,1,u
   ifthen/dd==d
   blank/obj(v)
     else
8 w5 A  D) r5 i6 V( m0 F   jump /l50:
9 ^( o. F! U9 C4 ], [     endif
7 T3 s7 p9 C# i0 [l60:




% ~& P% s' }& r0 V/ a$ w% K$ }' Gend:  $$ 跳到此处结束
     HALT