Pro nostalgické vzpomínání je tu deníček z minulého roku, popisující všechny důležité události světové, ale i domácí scény, a to formou stručnou a výstižnou.

	  > Slovo sepsout sem znal uz kdyz sis hral s cinovejma vojackama, vole. Tvoje
	  > dila nemam potrebu kritizovat, do mrtvol a zebraku se nekope

	  Tohle neni uplne spatny, lepsi, nez co mas v denicku. Tak to tam dej,
	  muzem si takhle nadavat celej vikend, aspon to necim zaplacnu.

	  btw co vlastne delas o vikendu, ze tu nejses?

	  

PÁTEK 18 Dokončuju přípravy na Expedici Strážovské vrchy 2003. Ano, správně, s Vlastíkem se troufale chystáme vyzvat ono obávané horstvo, plné hrdých, nedostupných vrcholů, horstvo odlehlé, tajemné. Místo, kde se z chlapců stávají muži a z mužů starci. Místo natolik děsivé, že i pouhé jeho jméno jest vyslovováno s úctu až nábožnou. Strážovské vrchy.
Ovšem naše odvaha nezná mezí a i ty nejmakabróznější místa u nás vyvolávají jen shovívavý úsměv. Vždyt pohled smrti přímo do očí a naší každodenní rutinou. Nyní již zbývá jen pořídit zbylé vybavení, pročež neohorženě vyrážím do města, za šest tisic kupuju pohorky a za šest korun mapu Strážovských vrchů v antikvariátu. Už nám nic nestojí v cestě.
UTERY 15 Zabodl jsem do pocitace repracky, po chodbe se rozhleha argentinske tango a v hlave me rezonuji temne myslenky.
PONDELI 14 Tak furt nic, a ja skoro uveril...
STREDA 9 Uz je vybrano i objednano, mou vyvolenou je Minolta Dynax 5 a pridal jsem objektiv Sigma 28-135mm, 3,8/5,6. Oba meli na photographyreview skvele recenze. Az podezrele skvele. Vsichni jakoby se predhaneli, kdo vychvali vic, vetsina reklam obsahuje polovinu superlativu...zvlastni...neni pro takovou obrovskou tovarnu vlastne docela snadne platit slizkeho hada, ktery bude sirit po internetu falesne chvalozpevy? A ja uz dal zalohu, co si ted pocnu?!
PONDELI 7 Objevil jsem skvele fotostranky -Photographyreview a Photo.net - na kterych lze nalezt spoustu ctenarskych recenzi vsemoznych fotacku, objektivu, blesku, tresku, plesku...Prispevovatele jsou lide zasveceni a fundovani, vlastnici rovnou nekolik aparatu a nescetna mnozstvi objektivu a podle toho take recenze vypadaji. Po chvili cteni jsem zjistil, ze fotaky, do teto chvile pro me predstavujici vrchol moderni techniky, jsou naprosto bezcennou kupou zeleza a skla, kterou soudny clovek zakoupi nanejvys svemu petiletemu diteti, ktere moc zlobilo.
PATEK 4 Poohlizim se po novem fotografickem pristroji, kombinace vlezleho prachu a uderu o sopku udelala s mym Zenitem sve. Funguje nadale, Zenit lze znicit jedine snad opakovanym prejetim tankem ci vhodnou (tj. ne bakteriologickou) zbrani hromadneho niceni, ale nektere jemnustky uz selhavaji. Napriklad dobu expozice lze nastavit, jenze nelze zjistit, jakaze to doba je nastavena. A to, fotografove potvrdi, obcas docela zamrzi.
STREDA 2 Vcera se me podarilo vratit z mesicniho vyletku do chilske Patagonie, coz vysvetluje pauzu v denicku. Toulal jsem se po horach, plazich a sopkach misto abych psal nejake zavsivene blaboly jako ted. Kruci.

  program transformace
  INTEGER n, i, j, k
       real*8, pointer ::  a(:,:)   !transformacni matice (n x n)
       real*8, pointer ::  a1(:,:)  !copy of matrix a
       real*8, pointer ::  vysl(:)   !vysledny vektor
       real*8, pointer ::  vec(:)    !souradnice ve stare bazi
       real frac

       ! open input and output files
        open(unit=1,file='trans.dat',status='old')
        read(1,*) n     !size of given linear system

      !dynamic allocations
       allocate(a(n,n),stat=ialloc)
       allocate(a1(n,n),stat=ialloc)
       allocate(vysl(n),stat=ialloc)
       allocate(vec(n),stat=ialloc)

       Read(1,*) ((a(i,j),j=1,n),i=1,n)


       print*, 'Nactena matice'
													          do i=1,n
 													           print*, (a(i,j), j=1,n)
													          end do
       print*,'------------------------------'


       print*,'------------------------------'
       print *,'Zadej slozky vektoru'
       print *,'x='
       read (*,*) vec(1)
       print *,'y='
       read (*,*) vec(2)
       print *,'z='
       read (*,*) vec(3)
       do i=1,n
	 vysl(i) = 0
            do j=1,n
	        print *,a(i,j)
	        print *,'kurrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrva',vec(j)
	        vysl(i) = vysl(i) + vec(j)*a(i,j)
	        print *,'doprdele(mezisoucet)',vysl(i)
	     end do
	end do
        print*,'Vysledny vektor'
        do i=1,n
           print*, (vysl(i), i=1,n)
        end do
        end program