Můj milý deníčku

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.



UNOR 2003

UTERY 4 Jiste si vsichni vzpominame skolni anglictinu/nemcinu a maturitni otazky typu My day/Mein Tag, wake up rano v sedm hodin, umyji se, nasnidam, jdu do skoly. Ze skoly jdu ve ctyri hodiny, pak nejaky to Sport treiben, ucim se, samozrejme a go to bed v jedenact, drsnaci rikali po pulnoci. Tak dneska jsem mel vskutku zajimavy Arbeitstag...
10:40 Prichazim do prace. "Nebudu to nijak hrotit", rikam si, "jen natocim ten tetragonalni krystal TiAl do smeru telesove uhlopricky a necham to pocitat, nez masinka vypoti nejaky vysledek, tak mam spoustu casu brouzdat po netu, zapracovat na te prezentaci pristi tyden. Snad pohnu i s tim clankem...".
12:00 Nejak mi to nataceni nevychazi, pritom to je tak jednoduche, zadna velka veda, zvladl by to i prumerny zak zvlastni skoly, natoz cvicena opice, radsi to prepocitam znovu. Ach jo.
14:30 Konecne nejake vysledky, co vypadaji realne. Pravda, zabil jsem s tim hodne casu, ale hlavni vysledek. A pocit dobre udelane prace, ne? Pro jistotu udelam maly testik, ale ne, do pr...., je tam nekde chyba. Kurna.
15:30 Zrobil jsem takovy maly programek, co transformuje vektor podle zadane matice. Kontroluju s nim predchozi vypocty, ale chybu nenachazi. Musi byt nekde jinde. Pekne me to uz stve, ale mam radost z programku, ja si pekne transformuju, je hrozne milouckej, tutu.
16:15 Uz jsem na to prisel, ta matice mela byt udelana trochu jinak, svina. Odvodil jsem tady kvuli tomu pulku linearni algebry a pritom to me, blba, melo hned napadnout. Nevadi, s programkem uz to pujde raz na raz.
17:00 Doprdelekurwadrat, zase to nevyslo. To uz neni mozny, tam se proste nedala udelat chyba. Uklidnuju se panakem vodky Zubrovky, pozustatkem po polskych studentech a vubec netusim, co s tim ted delat.
18:00 Vsechno prekontrolovane, vsechno do sebe zapada a pocitam to programkem. No jo, programkem, radsi to trosku overim...
18:45 Programek otestovan, navic upraven na verzi 1.1, ktera se vyznacuje zejmena tim, ze chrli hromadu cisel a sprostych nadavek, ve kterych se vysledky uspesne ztraceji. Ale pocita to spravne, to jsem blazen.
19:30 No tohle. Ten proradnej kretenskej hajzl programek tam opravdu dela chybu, hovado. Jenze naprosto zahadnou a jen ve dvou pripadech. Kripl. Dostat ho do ruky, roztrhl bych ho jak hada. Tfuj. Tohle uz je na me moc.
20:30 Rucni prepocet konecne prinasi spravny vysledek, skoda ze byl byt uz v jedenact. Uz ani nemam silu nadavat...
21:00 Odchazim domu jako zniceny a zubozeny clovek.

Pro priznivce taju, zahad a nadprirozena je tu zdrojak programku, kompilovany pod Intelovskym Fortran95 compilerem. Pocitalo to chybne vektory (0 1/2 1/2) a (1/2 1/2 0) pri transformacni matici

(2/3 1/3 -1/3)
(-1/3 1/3 2/3)
(1/3 -1/3 1/3)

Vsechny ostatni vektory to spachalo spravne...

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


LEDEN 2003

PATEK 31 Pitva byla bohuzel odlozena, skoda, tolik jsem se tesil. Budu asi muset usporadat pitvu soukromou, jen najit obet.
CTVRTEK 30 Prechod se podaril, plan byl splnen na 100 procent. Zajimavych zazitku jako zmrzly stan, mokry spacak, neobutelne boty, nezdolny Honzin...je tolik, ze zkusim splacat neco vetsiho. Ale rozhodne ne dnes, protoze dnes jdu na pitvu. Ano, ano, na vcerejsim nocnim dychanku ceske enklavy jsem se, patrne uz ponekud podrousen, domluvil, ze se prijdu podivat, co tam ty medicky pachaji. Pry si mozna i riznu, uvidime, jen abych sebou neriznul o zem.
CTVRTEK 23 Od soboty do utery se budu potacet na sneznicich po Fatre, takze nic noveho nebude (ono by sice nebylo ani tak, ale takhle to vypada lip).
UTERY 21 Zázitky ze svého semináre jsem radsi popsal v samostatné cásti, tak se tam kouknete.
UTERY 14 Dosel mi varovny mejl. Pry jsem jeste neposlal abstrakt k svemu seminari v pondeli (20.1.). Nevim cemu se divi, ja o zadnem svem seminari nic nevim...budu se muset nenapadne optat sefa.
PONDELI 13 Ma znalost anglictiny v posledni dobe ponekud poklesla, ze stupne "pokrocily" nekam k "ubohy az k placi". Prevelice jsem se toho zalekl a zacal horecne uvazovat. "Co ted" premyslel jsem, "je treba zacit konat, rychle se do studia dat!" Zacal jsem zmatene pobihat a hledat kultovni Anglictinu pro jazykove skoly. Jenze marne, jen jakesi moderni barevne baznehty, samy poblbly obrazek, fujtaxl. Ja chci cist o Prokop family, uzivat si tech napinavych pribehu a plasticky vykreslenych charakteru, vzdyt jeste z gymnazia mi zustalo tolik otazek! Zvladne pan Prokop vylet do Anglie, co Malcolm, bude po navsteve v cechach tesknit u Loch Lomondu po krasne servirce a ma milovana, sexy Zuzana, vda se konecne? A co na to pani Prokopova?
Jak jsem mohl ztratit tu perlu mezi ucebnicemi, bibli vsech anglictinaru, se kterou jsem stravil nejkrasnejsi chvile sveho mladi? Musim ji znovu ziskat, ozivit vsechny stare legendy, jdu do mesta ted hned!
PATEK 10 Dneska se me na stranky podivala takova spousta lidi, ze vubec nevim, jestli se s tim nekdy vyrovnam. Na cestine uz pracuju, takze pristi tyden bude slibovana basnicka.
UTERY 7 Zde mela byt basnicka o snezeni ve Vidni, ale ona se bez hacku a carek nerymuje. Skoda.