Script: Cantor Set
- Author:
- Juan Carlos Ponce Campuzano
Script
Execute(Join({"L1 = {Segment((0,0), (1,0))}"}, Zip( "L"+(k+1)+" = Translate( Join(Zip({Segment(Point(s,0), Point(s,1/3)), Segment(Point(s,2/3), Point(s,1))}, s, L"+k+")), (0, -1/"+k+"))", k, 1..9)))