Answer by martin for How can I make this pipe network shape?
A spline solution: Module[{th, rl, ll, pts, join, liquid}, th = 20; rl = {{0, -1}, {0, 0}, {0, 2/3}, {1/2, 1}, {1, 4/3}, {1, 2}}; ll = {{2, -1}, {2, 0}, {2, 2/3}, {3/2, 1}, {1, 4/3}, {1, 2}}; pts =...
View ArticleAnswer by George Varnavides for How can I make this pipe network shape?
A couple of years ago, I wrote a (somewhat general) function to make Sankey diagrams. The top-level function (parseSankeyAssociation) doesn't seem to work out of the box for this use-case, but we can...
View ArticleAnswer by azerbajdzan for How can I make this pipe network shape?
Use Translate with multiples of 3 along x-axis and multiples of 4 along y-axis to move objects o1 and o2.o1 = {Line[{{0, 0}, {0, 1}}], Line[{{1, 0}, {1, 1}}], Circle[{2, 0}, 2, {π+ ArcTan[Sqrt[7]/3],...
View ArticleAnswer by userrandrand for How can I make this pipe network shape?
OutlineGalleryMethod 1 : TreePlot with EdgeShapeFunctionstraightfoward to useMethod 2: Stack parametric plotsInteractive, can be tedious or like a gameMethod 3: Nested shifts and line rewiringeasy to...
View ArticleHow can I make this pipe network shape?
I want to draw this shape in Mathematica. I don't know what to start with. Can I use BezierCurve? Or should I try to form an equation that could end up in this shape?
View Article
More Pages to Explore .....