Message Boards Message Boards

0
|
3779 Views
|
0 Replies
|
0 Total Likes
View groups...
Share
Share this post:

Printout3D using RegionPlot3D, PametricPlot3D, Graphics3D?

Posted 7 years ago

Combining : RegionPlot3D, PametricPlot3D and Graphics3D, it is possible to see all 3 with Show, but no printing them with Printout3D.

co := {0.7, 0.7, 0.7};
x1 := -2;
y1 := -2;
z1 := 1;
p[0] := co + {0, 0, 0};
p[1] := co + {x1, 0, 0};
p[2] := co + {x1, 0, z1};
p[3] := co + {0, 0, z1};
p[4] := co + {0, y1, 0};
p[5] := co + {x1, y1, 0};
p[6] := co + {x1, y1, z1};
p[7] := co + {0, y1, z1};

cube := {
   Yellow, Polygon[{p[0], p[1], p[2], p[3]}],
   Pink, Polygon[{p[0], p[1], p[5], p[4]}],
   Cyan, Polygon[{p[0], p[4], p[7], p[3]}],
   Red, Polygon[{p[3], p[2], p[6], p[7]}],
   Purple, Polygon[{p[4], p[5], p[6], p[7]}],
   Blue, Polygon[{p[1], p[5], p[6], p[2]}
    ]};

Print["G1=Graphics3D[{cube}]-yes"]; 
         G1 = 
 Graphics3D[{cube}]
Print["D1=DiscretizeGraphics[g1]-yes"];
                            D1= DiscretizeGraphics[G1]
Print["G2=Graphics3D[{g1-yes"]; 

G2 =  
 ParametricPlot3D[
  1.4 {Cos[t] (3 + Cos[u]), Sin[t] (3 + Cos[u]), Sin[u]}, {t, 0, 
  2 Pi}, {u, 0, 2 Pi}, Boxed -> False]
Print["D2=DiscretizeGraphics[G2]-yes"];                               \
D2 = DiscretizeGraphics[G2]

Print["G3=RegionPlot3D[x^2+y^2>4,{x,-2,2},{y,-2,2},{z,-2,1},
Mesh -> False, PlotPoints -> 35, PlotRange -> All]

G3 = RegionPlot3D[x^2 + y^2 > 4, {x, -2, 2}, {y, -2, 2}, {z, -2, 1},
      Mesh -> False, PlotPoints -> 35, PlotRange -> All]

Print["D3=DiscretizeGraphics[G3]-yes"];
            D3 =  DiscretizeGraphics[G3]

Print["S1=Show[G1,G2,G3]-yes"];         S1 = Show[G1, G2, G3]
Print["Printout3D[ S1 ]- no G2,G3"];             Printout3D[S1]

Print["S2=Show[D1,D2,D3]-yes"];         S2 = Show[D1, D2, D3]
Print["Printout3D[ S2 ]- no"];             Printout3D[S2]

Print["S3=Show[D1,S2,S3]-no"];         S3 = Show[D1, S2, S3]
Print["Printout3D[ S3 ]- no"];             Printout3D[S3]

Print["S4=Show[G1,D2,G3]-yes"];         S4 = Show[G1, D2, G3]
Print["Printout3D[ S4 ]- no"];             Printout3D[S4]

Print["S5=Show[G1,G2,D3]-yes"];         S5 = Show[G1, G2, D3]
Print["Printout3D[ S5 ]- no G2"];             Printout3D[S5]

Print["S6=Show[D1,D2,G3]-yes"];         S6 = Show[D1, D2, G3]
Print["Printout3D[ S6 ]- no"];             Printout3D[S6]

Print["S7=Show[G1,D2,D3]-yes"];         S7 = Show[G1, D2, D3]
 Print["Printout3D[ S7 ]- no"];             Printout3D[S7]

Print["S8=Show[D1,G2,D3]-yes"];         S8 = Show[D1, G2, D3]
Print["Printout3D[ S8 ]- no G2"];             Printout3D[S8]
Attachments:
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract