Pro nostalgické duše je tu i deníček z minulého roku.
Svůj názor na podobné spisky můžete jadrně vyjádřit v návštěvní knize.

  

> 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