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

awnusspgy

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

awnusspgy

   ENTITY /body,obj(1000)
" L2 I1 k2 G8 v: v% `' u    NUMBER /n(42),r(42),density,d,dd
0 Y7 t2 s* S! f5 P3 L9 `
9 s, y% ]1 k9 O+ ^$ F+ k5 B4 Cdensity=1

8 Y# q; H- N% ?  o* R7 J4 kl10:
   mask/70
, d$ r# n9 F9 K   ident/'选择实体',body,resp
7 l9 t+ h  n5 w: ]- h1 z; p   jump /l10:,end:,,,resp
   &sdens(body)=density
) C! v: i8 {% G( D* E6 E( `' ^' X   anlsis/solid,body,gcm,n
   d=n(3)*1000
   $$messg/'该物体的重量为'+fstr(d)+'克'

   $$--------------
l20:
. l9 a, o$ I8 @   mask/70
# O" t' c& K* r- I9 v: t1 L   ident/'选择实体',obj,cnt,u,resp
   jump /l10:,end:,,,resp

l30:
   do/l40:,i,1,u
   &sdens(obj(i))=density
2 x4 E+ i4 U: |9 j$ {7 ^   anlsis/solid,obj(i),gcm,r
   dd=r(3)*1000
   print/'该物体的重量为'+fstr(dd)+'克'
l40:
  V. a: |1 X) S" B$ M+ @& B* Il50:
0 z" F: w+ b$ j! T   do/l60:,v,1,u
2 S% U- J6 c* t, l2 d5 C   ifthen/dd==d
   blank/obj(v)
' ]& X, }: Y2 ?! p5 w     else
" w4 p% Y0 \& W0 ]/ V( w9 E   jump /l50:
  B" g& t7 w; b  U     endif
7 f" a5 C4 f; r3 ^7 H: Wl60:
$ {) y4 e- j# K9 w$ X/ @; x4 H6 ^# n
& G5 p; {6 m6 ^3 d- q& ~4 }2 H" l9 h


end:  $$ 跳到此处结束
     HALT