0
$\begingroup$

I'm looking to map a flat plane composed of triangles onto a cylinder, and then ultimately use a manipulate function to show the plane wrapping into a cylinder. Here is the code I have so far, I've created two sets of triangles which I have joined to make a flat unit plane in the x-z plane.

n=6
b=Select[Table[{i,i+1,i+n},{i,1,n^2-(1+n)}],Mod[#_[[1]]_,6]≠0&]
a=Select[Table[{i + n + 1, i + n, i + 1}, {i, 0, n^2 - (1 + n)}], Mod[#_[[2]]_,6]≠0&]
flatpoints=Flatten[Table[{x, 0, z}, {z, 0, 1, 1/(n - 1)}, {x, 0, 1, 1/(n - 1)}],1]
flattrianglesb = Map[flatpoints_[[#]]_&,b]
flattrianglesa=Map[flatpoints_[[#]]_&,b]
flatplane = Join[flattrianglesb, flattrianglesa]  

Now I just need to map this plane onto a cylinder. I apologize if my formatting is incorrect I am new to Mathematica and coding in general, any help would be greatly appreciated!

$\endgroup$
  • $\begingroup$ Your code does not run, notably, you have underscores where they shouldn't be. $\endgroup$ – C. E. Oct 31 '19 at 20:24

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.