VectorRotater[{x_, y_}, \[Theta]_, {x0_,

  y0_}] := ({{Cos[\[Theta]], -Sin[\[Theta]]}, {Sin[\[Theta]], 
      Cos[\[Theta]]}}.Transpose[{{x, y} - {x0, y0}}] + {x0, y0}) // 
 Flatten

VectorScaler[{x_, y_}, r_, {x0_, y0_}] :=

 r*({x - x0, y - y0}) + {x0, y0};

HilbertCurve[n_] := (

 HilbertCurve[n] =
  If[n == 1,
   {{1/4, 1/4}, {1/4, 3/4}, {3/4, 3/4}, {3/4, 1/4}},
   prev = HilbertCurve[n - 1];
   scaledPrev = VectorScaler[#, 1/2, {1/2, 1/2}] & /@ prev;
   scaledPrevRot1 = 
    Reverse[VectorRotater[#, \[Pi]/2, {1/2, 1/2}] & /@ scaledPrev];
   scaledPrevRot2 = 
    Reverse[VectorRotater[#, -\[Pi]/2, {1/2, 1/2}] & /@ scaledPrev];
   Join[
    {-1/4, -1/4} + # & /@ scaledPrevRot2,
    {-1/4, 1/4} + # & /@ scaledPrev,
    {1/4, 1/4} + # & /@ scaledPrev,
    {1/4, -1/4} + # & /@ scaledPrevRot1]
   ]
 )

Εγώ, ο κάτοχος των πνευματικών δικαιωμάτων αυτού του έργου, το δημοσιεύω δια του παρόντος υπό την εξής άδεια χρήσης:

Το αρχείο διανέμεται υπό την άδεια Creative Commons Αναφορά προέλευσης-Παρόμοια διανομή 3.0 Μη εισαγόμενη

Είστε ελεύθερος:

• να μοιραστείτε – να αντιγράψετε, διανέμετε και να μεταδώσετε το έργο
• να διασκευάσετε – να τροποποιήσετε το έργο

Υπό τις ακόλουθες προϋποθέσεις:

• αναφορά προέλευσης – Θα πρέπει να κάνετε κατάλληλη αναφορά, να παρέχετε σύνδεσμο για την άδεια και να επισημάνετε εάν έγιναν αλλαγές. Μπορείτε να το κάνετε με οποιοδήποτε αιτιολογήσιμο λόγο, χωρίς όμως να εννοείται με οποιονδήποτε τρόπο ότι εγκρίνουν εσάς ή τη χρήση του έργου από εσάς.
• παρόμοια διανομή – Εάν αλλάξετε, τροποποιήσετε ή δημιουργήσετε πάνω στο έργο αυτό, μπορείτε να διανείμετε αυτό που θα προκύψει μόνο υπό τους όρους της ίδιας ή συμβατής άδειας με το πρωτότυπο.

https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue