This question already has an answer here:

How do I obtain the coordinates of the centers of triangles composing the Koch snowflake?


marked as duplicate by MarcoB, Dr. belisarius, user9660, Edmund, m_goldberg Jan 30 '16 at 0:58

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.


Please search the site properly for existing answers before asking a new question. Following the answer by @Mark McClure here , getting the centers of the Koch snowflake triangles is a very easy job.

Centers at level n=2

(Mean /@ triangles[2])

Visualize them. Thx to the answer I linked above.

enter image description here

Graphics[{Table[{Darker[LightYellow, 1 - 1/1.2^(k - 1)], 
    EdgeForm[{Thin, Directive[Opacity@.3, Gray]}], 
    Polygon[triangles[k]], Darker[Red, 1 - 1/2^(k - 1)], 
    Point /@ (Mean /@ triangles[k])}, {k, 1, level}], {Orange, 

Not the answer you're looking for? Browse other questions tagged or ask your own question.