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

awnusspgy

怎么写才能隐藏它们相同体积的实体，谢谢！！
! m1 l" ]) E5 V0 d( Q' F

awnusspgy

   ENTITY /body,obj(1000)
: s% x9 F4 C* S( ]! Y4 }    NUMBER /n(42),r(42),density,d,dd

density=1
6 {0 L5 c; J; s
l10:
   mask/70
   ident/'选择实体',body,resp
; E5 A/ p; h& b( {; y/ A   jump /l10:,end:,,,resp
9 o# r3 W+ q  Z/ ~% b% A0 g9 E   &sdens(body)=density
1 b1 t7 ~( b7 m6 |8 }# Y   anlsis/solid,body,gcm,n
   d=n(3)*1000
( d3 Z* V; y- B1 T' O- O; V3 q7 ]- O$ z( t   $$messg/'该物体的重量为'+fstr(d)+'克'

   $$--------------
: _$ E1 [- E+ n. d7 n9 ol20:
7 B" ~! x' O6 F+ ?$ Y1 Q   mask/70
+ W, I5 F* @( ]4 C  k. A1 Z3 k! s   ident/'选择实体',obj,cnt,u,resp
   jump /l10:,end:,,,resp

l30:
# O. ^7 A/ U  _& J   do/l40:,i,1,u
6 F, ]- S$ j! |. l1 Q1 ~* g   &sdens(obj(i))=density
: h4 x5 p' Q. y+ N$ Z8 W   anlsis/solid,obj(i),gcm,r
2 O$ K8 N! {4 f- E) L   dd=r(3)*1000
# j, @* ^# M/ {7 B6 G. B   print/'该物体的重量为'+fstr(dd)+'克'
4 Q- s6 e: }+ ]! R; X0 I+ B7 _l40:
/ A( X- m! q' E% S/ K/ K( _7 xl50:
   do/l60:,v,1,u
3 M2 E) }' A5 e' Z5 F& U   ifthen/dd==d
1 l3 Z0 w( E5 L. p! J% y1 K; ^, f   blank/obj(v)
     else
" j. H% O  y# m( X" W; p3 x   jump /l50:
: E1 `, [; I$ k' W% Z: F0 u     endif
, k  W+ H5 a$ H; m0 |3 E& nl60:

( i& Q; u* C+ e( {6 U# {
3 j4 w, k6 n$ w3 d" L  B

end:  $$ 跳到此处结束
' ]- t( `4 D! D     HALT