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

awnusspgy

怎么写才能隐藏它们相同体积的实体，谢谢！！
2 B' l+ [5 l# K

awnusspgy

   ENTITY /body,obj(1000)
; {0 }  z- E& _. J7 v% s; ^    NUMBER /n(42),r(42),density,d,dd

density=1

; c: v0 t, H0 O; v' S& d2 fl10:
   mask/70
   ident/'选择实体',body,resp
   jump /l10:,end:,,,resp
( c+ d  @( e1 d   &sdens(body)=density
% F1 n5 E- t; d3 `   anlsis/solid,body,gcm,n
6 n0 j; l& }( g; O, h  o$ v   d=n(3)*1000
   $$messg/'该物体的重量为'+fstr(d)+'克'

   $$--------------
2 V2 C8 G  u; Z4 F" @( ]l20:
$ y0 ^4 V( a3 n* m) |+ U: e# u   mask/70
   ident/'选择实体',obj,cnt,u,resp
   jump /l10:,end:,,,resp
3 v% Q, U! g: t2 n3 w# n
l30:
   do/l40:,i,1,u
   &sdens(obj(i))=density
   anlsis/solid,obj(i),gcm,r
% t9 ~! O2 z/ ~3 {1 }! \   dd=r(3)*1000
   print/'该物体的重量为'+fstr(dd)+'克'
3 z! O" n+ }, `l40:
l50:
   do/l60:,v,1,u
   ifthen/dd==d
- z8 }# g( d& N2 K; k5 A  T  ]   blank/obj(v)
: E! b: j/ W( g     else
   jump /l50:
     endif
l60:


1 ?) X9 k& ^. R6 ~: I
: s# M, c& w0 e) t/ s+ U' V
# F/ w( f- K' D1 gend:  $$ 跳到此处结束
/ a! D- E4 M3 w     HALT