Turbo Pascal fraktali

    Pred Vama je ne pretjerano bogata kolekcija Borland Turbo Pascal 7.0 programa. Programi su mahom grafički, neki su dotjeraniji od ostalih, a uz svaki je link kratko objašnjenje. Svi su rađeni za rezoluciju od 640x480 pixela (bilo bi lijepše da je rezolucija veća, pa ako tko zna kako to postići, neka se javi). Fajlovi su maleni, pa je i najvećeg moguće downloadati u nekoliko sekundi.
    Ukoliko nemate pojma što su to kaos i fraktali, možda će Vam moja maturalna radnja na tu temu malo pomoći.
    I jedna napomena: u proceduri INITGRAPH kao path za grafičke drajvere je postavljen string '\tp\bgi'. Nemojte zaboraviti to podesiti onako kako Vama odgovara prije pokretanja programa.

Populacijska jednađba:

    graf.pas - crta najobičniji graf toka iteracija populacijske jednađbe u faznom prostoru. Vrlo kratak, i isto tako jednostavan.
    web.pas - mrežni dijagram u bojama. Gotovo da je jednostavan koliko i gornji programčić.
    bif.pas - e, ovo je već deblji program (skoro 10kb). Ne zato što je kompliciran, već zato što je maksimalno ušminkan sitnicama, i zato što ima cijelu hrpu drugih funkcija osim standardne populacijske x:=r*x*(1-x). Potrudio sam se dokumentirati ga koliko mogu, ali ako treba još, javite. Svi parametri programa namještaju se u samom Pascalovom editoru, prije kompajliranja, što nije baš sretno riješenje, ali je najlakše.
    attract.pas - crta funkciju prve, druge, ... n-te iteracije populacijske jednađbe, sve dok atraktori, odnosno konvergencija prema njime, ne postane očita. Pojavljuju se horizontalne linije - atraktori - iz zbrke, ovisno o kontrolnom parametru.
    cantor1.pas, cantor2.pas - oba programa pokazuju nastajanje Cantorove prašine za kontrolne parametre populacijske jednađbe veće od 4. Prvi program crta u iteracijama nešto slično onome što crta attract.pas (obratite pažnju na crvenu liniju na vrhu ekrana). Drugi program crta sličnu stvar, samo odjednom.

Ostali programi:

    akcel.pas - iako se bazira na zanimljivom modelu gibanja čestice u akceleratoru, ovaj fraktal nije osobito lijep, ali je zanimljivo igrati se parametrima.
    dream.pas - za razliku od gornjega, ovaj fraktal je zbilja zanimljiv - samo malene promjene u parametrima mogu dovesti do najrazličitijih oblika. Kada bi bio u višoj rezoluciji (npr. 1024x768), bio bi to savršen program.
    faces.pas - vrlo sličan prethodnom fraktalu, ovaj u okviru trenutnih (dafaultnih) parametara prikazuje nešto nalik centralno simetričnim licima u svađi.
    henon.pas - dobri stari Henonov atraktor. Da je malo program uređen, moglo bi se njime lakše zoomirati zanimljive djelove i proučavati samosličnost, ali i ovako se to može izvesti ručno.
    hopalong.pas - vrlo zanimljiv fraktal, trokutasto-jajolikih formacija, koji se izgleda širi u beskonačnost.
    krakovi.pas - slučajno otkriveni zvijezdasti oblik, kojemu je moguće birati broj krakova. Nije baš fraktal, ali je svejedno zanimljiv.
    lorenz.pas - malo zbrčkan program za iscrtavanje Lorenzovog atraktora u bojama. Zgodan za jednostavne prezentacije, inače (u znanstvenom smislu) ne pretjerano koristan.
    L-sys.pas - jedan od najboljih fraktalnih programa koje sam napravio. Bolje rečeno, najkorisnijih. Ovo nije pravi Lindenmayerov sistem, već njegova koliko-toliko kvalitetna imitacija, kojom se može nacrtati mnoštvo zanimljivih oblika, pogotovo ako je namjera da isti izgledaju "organski". Pravila i parametri nažalost se upisuju u samom izvornom kodu, ali za pravo proučavanje tih fraktala to je sasvim dostatno.
    mandel.pas - jedini program ovdje koji ima potencijalnu budućnost kao gotova .exe datoteka. Uz malo uljepšavanja, možda mu se ta budućnost i ostvari, jer se ionako svi parametri (osim pravila za bojanje, i same funkcije) unose tekstualno nakon pokretanja programa.
    martin.pas - još jedan poznati fraktal, koji se, nalik Hopalong fraktalu širi u beskonačnost, pa probajte zoomirati van za puni efekt.
    sierpin.pas, sier_c.pas - Sierpinskijev trokut na dva načina: prvi je obični trokut napravljen "random" metodom, a drugi je zanimljiva kombinacija krugova i trokuta sa sličnim efektom (unesite broj 3 kao "Sierpinski number" za standardni lik).
    trig1.pas - zanimljiv fraktal koji nastaje iteracijom kombinacije trigonometrijskih funkcija. Uz nekoliko predefiniranih oblika, pokušajte napraviti svoj vlastiti.

    To su bili najzanimljiviji programi iz moje kolekcije, a ako imate komentara, nadopuna, ili jednostavno želite svojim uratcima pridonijeti kolekciji, javite mi se!