Názory k článku
Signatury a fraktály podruhé

<?php

error_reporting(0);
$x = 170;
$y = 150;


$im = -1.5;
for($maxy = $y;$maxy;$maxy--) {
$re = -2.2;
for($maxx = $x;$maxx;$maxx--) {
$zr = $re;
$zi = $im;
$n = 39;
for($i = 20;$i;$i--) {
$a = $zr * $zr;
$b = $zi * $zi;
if ($a + $b == 4) { break; }
$zi = $zr * $zi;
$zr = $a - $b + $re;
$zi = $zi + $zi + $im;
$n++;
}
if ($n == 59) { $n = 95; }
echo(chr($n));
$re = ($re + 3 / $y);
}
echo("\n");
$im = ($im + 3.5 / $x);
}

?>

Jeste to jde trosku vylepsit: pres GD primo renderovat obrazek a nahradit echo vykreslenim pixelu.

To je skript pro příkazovej řádek.

Tak to ano, ale kdyby to cele bylo uzavrene do znacky [pre], tak by slo i o pekny skriptik pro Weby.

Zdravim,

nevim, jestli nekdo z vas zkousel ten VIM blazinec od Linuse Akessona, ale vrele doporucuju. Akorat to na me tak nejak pusobi, ze bez poruchy osobnosti se toto vazne vytvorit neda! :)

Pekne, jeste dodelat verzi Mandelbrotky napsanou v BF a bude to dokonale :-)

Presne to jsem mel na mysli :-) Mimochodem, BF je snad nejprenositelnejsi programovaci jazyk, jeho interpretery existuji i na stare osmibitaky :-) Kam se na nej hrabe Java...

A co můj oblíbený FORTH? ;-)

Mám něco v PostScriptu, to je Forthu hodně podobné:

http://warp.povusers.org/MandScripts/ps.html

popravdě řečeno jsem M-set ve Forthu ještě neudělal, nějak se mi nechce pracovat s FX aritmetikou. Ale jestli budu mít přes víkend čas, něco zbastlím.

Da sa aj v modernejsich jazykoch :) Konkretne, toto je moj podpis v C#:

class P{static void Main(){int[]d=new int[3200];int x=0,y=0;int i=0,n,s=0;//Oto
while(i++<3199){d[x+y*80]=1;n=s%3;s=1+9*s%2048;x+=n<1?0:80/n;y+=n/2*40;//Ciulis
x/=2;y/=2;}while(i-->0)System.Console.Write(d[i]>0?".":i%80<1?"\n":" ");}}//'07

Tak este raz: class P{static void Main(){int[]d=new int[3200];int x=0,y=0;int i=0,n,s=0;//Oto
while(i++<3199){d[x+y*80]=1;n=s%3;s=1+9*s%2048;x+=n<1?0:80/n;y+=n/2*40;//Ciulis
x/=2;y/=2;}while(i-->0)System.Console.Write(d[i]>0?".":i%80<1?"\n":" ");}}//'07