t=22.;d=2254.;l=6574.;h=700.;α=3.;d0=d/2-t;l0=l/2-t;h0=-d0+h;s:=x^2+y^2+z^2-l0^2;c:=x^2+z^2-d0^2;p:=z+y*Tan[α/180*Pi]-h0;r=ImplicitRegion[s≤0∧c≤0∧p≤0,{x,y,z}];Column[ContourPlot3D[{s==0,c==0,p==0},{x,-l0,l0},{y,-l0,l0},{z,-l0,l0},MeshNone,ClipPlanes{-1,0,0,0}],Row[(Volume@r/1*^6//DecimalForm) Superscript["дм",3]]]
Out[]=
6596.5 3 дм |