razno.103madamov,
-> #102, montenegro Dupli exec. Pazi ubuduće.
razno.104ndragan,
-> #96, jtitov/ Da li se neko do sada sreo sa programima za izradu porodicnog stabla?
Koja koincidencija! Upravo sam juče razmišljao o tome. Imam neke slične
modele u nekim našim programima, i mislim da je najveći problem logička
kontrola podataka i kako odštampati stablo. Zovni me u firmu, ako hoćeš
da pravimo po željama nešto; ako misliš nešto demo pa na brzinu...
valjda će neko drugi naći.
Bue_ NDragan
razno.105bole,
CENTRALE ZEZAJU
VEc jedno 10-tak dana zovem sezam i on se javlja (zvoni) ali nikako da
uspostavim vezu,
i tako jednog dana kada sam se vratio iz skole sa svojim drugom (normalno cvece
je cvetalo, sunce sijalo, ali je kasnije pala i kisa), na pamet mi je pala
cigla (zezam se, pala mi je papuca) i dosetio sam se da dam MANUAL DIAL i zove
011 648 899 i gle cuda, dobih ja i sezam, onda sam doso u konf. orka i na piso
pricu....
CAO
Pisac (:)
Bolje
razno.106tesloni,
-> #105, bole> CENTRALE ZEZAJU
Ma jok brate ....
Trebaš samo biti dovoljno uporan ....
( minimum 22 puta okreneš pa onda konačno dobiješ )
... :> Tesloni <:
razno.107bole,
-> #106, teslonioces!
evo sada je to ispravljeno!
razno.108bole,
Otkacili nas Austrijanci
Svi oni koji koriste UBBG ili tako neki cvor (citaj dejanr...)
znaju da su nas austrijanci (namerno malo a) otkacili, tako da nema vise sa
Trickla zmodem source, novi gsz, dsz i ostali programi koje odatle skidaju i
stavljaju na Sezam (namerno veliko S)
Toliko od mene!
razno.109dejanr,
-> #108, bole>> Svi oni koji koriste UBBG ili tako neki cvor (citaj dejanr...)
>> znaju da su nas austrijanci (namerno malo a) otkacili...
O ovome se već danima diskutuje u konferenciji komunikacije.
razno.110imandic,
-> #109, dejanrTako je,ali nisam se usudio da pratim conf komunikacije pre nego sto
mi bole ne potvrdi da su nasustrijanci otkacili ;)
razno.111bdm.,
Da li ima neko uputstvo za SHARP-ov PC-1403?
BDM.
razno.112squsovac,
-> #111, bdm.> Da li ima neko uputstvo za SHARP-ov PC-1403?
Ima.
razno.113madamov,
-> #111, bdm.
>>Da li ima neko uputstvo za SHARP-ov PC-1403?
Imam ja ono što sam dobio uz njega. Šta ti treba?
razno.114bdm.,
-> #113, madamov## Imam ja ono sto sam dobio uz njega. Sta ti treba?
Hvala. Nije za mene vec za druga pa moze da se cujem snjime i posle
par pitanja na mail?
BDM.
razno.115madamov,
-> #114, bdm. Može, javi se. Napominjem da je uputstvo na engleskom jer sam Sharpića
kupio u Singapuru.
razno.116zormi,
Evo još jednog Spectrum Emulatora... Ima i Manic Miner-a.
razno.117ljubisha,
Da li na SEZAM-u postoji neko ko igra tzv. FRP igre ali ne na kompjuteru
nego sa "živim" ljudima, tzv. on-board igre. To su igre u kojima svaki
igrač predstavlja po jednog junaka a svi oni zajedno lutaju po nekoj
zemlji bestragiji radeći razne lepe i loše stvari. Neke od tih igara su:
DAS SCHWARZE AUGE (ili ti na srpskom CRNO OKO), ADVANCED DUNGEONS AND
DRAGONS, WAR IN THE MIDDLE EARTH i mnoge druge. Molio bih zainteresovane
da ostave poruku ili se jave na "mail ljubisha".
pozdrav STefan
razno.118wizard,
-> #116, zormi>> Evo još jednog Spectrum Emulatora... Ima i Manic Miner-a.
Reci nešto više. Jel bolji od onog JPP?
Ujedno bih zamolio one koje imaju neke programe za Spectrum-a koji idu u
JPP da ih, ako im nije teško (a ne bi trebalo, s obzirom na dužinu),
pošalju ili ovde ili meni na MAIL.
Barem nekoliko. :)
<<nenad<<
razno.119nkbog,
rep PC.OS:4.717
>> Autor ne garantuje pravilno izvrsavanje ovih programa, niti grantuje
>> tacnost i preciznost datih fontova, niti se smatra odgovornim za svu
>> direktnu ili posrednu stetu nastalu usled koriscenja ovih datoteka.
> Je li ovo greska, ili je autor programa (winyufon.zip, prikacen uz poruku
> PC.OS 4.714) ove redove planirano uvrstio u pogledaj.me fajl koji prati
> pomenuti program?
Ne, nije greska. Da, planirano su uvrsteni ovi redovi. Jednostavno,
slicna recenica uvek pise u mojim uputstvima. Ponekad, jedino, kod
programa koje prodajem stoji i ogranicena garancija koja obavezuje
autora (t.j. mene) da ukoliko program ne radi, ucini sve u svojim
mogucnostima da omoguci maksimalno korektan rad programa (pri cemu ovo
vazi samo odredjeno vreme, i samo ako kupac tako nesto trazi - to se
placa...). Uzmi na primer, da dodje do glitcha pri uvecanju PC brojaca
80x86 (to niko ne moze utvrditi, i malo je verovatno), usled toga
program skoci na krajnje bezvezno mesto u memoriji (koje moze biti i u
okviru mog programa) i da rezultuje karambolom. Sem toga, nesto slicno
pise i za DOS i za Windows. Kako ja mogu da garantujem da je moj program
korektan na necemu sto nije garantovano korektno???
Sto se drugog stava tice (koga ovde namerno ne citiram):
Prilicno je uobicajena pojava da autori PD programa u svojim programima
ili uputstvima ostavljaju neke svoje stavove (religijske, moralne ili
politicke).
Osim toga, ja moje programe uvek posvecujem nekome (obicno devojci ili
porodici). Fontovi su, kao sto pise, i posveceni nekome meni dragom. A
paket u celosti (znaci ne pojedini delovi) je posvecen necemu u sta ja
verujem. Ukoliko neko u to ne veruje, ne branim mu, a sigurno mu necu
braniti ni da koristi ovaj paket, cak, bicu srecan, ako i njima ovaj
paket bude odgovarao :-)
Osim toga, ne vidim razlog da neko ne koristi neki program zato
sto autor toga programa ima drugacije politicke stavove: to je kao:
"ne voziti folksvagen-bubu jer su ga projektovali nacisticki inzenjeri".
Inace, fontovi kod mene rade vec mesec dana po 3-5 sati dnevno bez
problema. I ne obaziru se na politicke stavove korisnika (ni ovo
garantujem - ako prolijete sampanjac po racunaru, ko zna...;-) ).
NB.
razno.120dsoskic,
-> #119, nkbog> Osim toga, ne vidim razlog da neko ne koristi neki program
> zato sto autor toga programa ima drugacije politicke
> stavove: to je kao: "ne voziti folksvagen-bubu jer su ga
> projektovali nacisticki inzenjeri".
Ne samo fv-bubu, nego i BMW i Benz, a picu da pojedemo ili
da slušamo Pavarotija u obzir ne dolazi to su fašisti projektovali,
ni PC a ni Coca-Cola, znaš to su oni truli što nas mrze,
a bogami ni Levis(farmrke) a ni Reebok (patike) nam u ovi
esperimenat ne tribaju.
Sasvim si u pravu, s obzirom da je sad momentalno (nadam se
da neće još dugo, ni on a onda ni oni) ceo svet protiv nas
nama ništa drugo ne bi preostalo nego da kuckamo po Ei tastaturi
na Ei računaru (ako i struje bude bilo), da se vozimo GSP-om
(ako nafte ne bude bilo onda Trolebusom, uh zaboravih da on ide
na struju) jer love nemamo za čorbu (čak ni za riblju, tako
da nam ni jugo ni lada ni 101 u ovi esperimenat ne tribaju).
Opet će da budu u modi ruski kompjuter tzv. brojanice (ni struja
ne ..) a i za zdravlje je dobro ići peške. &"<8&$#..*!?/=+ŠĐĆž!
U stvari on sve to i radi za naše zdravlje........................
Pozdrav, Danko
p.s. ova poruka baš nikakve veze sa dotičnim programom......
al ima sa onom ne citiranom rečenicom
razno.121kzoran,
-> #120, dsoskic>> Sasvim si u pravu, s obzirom da je sad momentalno (nadam se
>> da neće još dugo, ni on a onda ni oni) ceo svet protiv nas
>> nama ništa drugo ne bi preostalo nego da kuckamo po Ei tastaturi
>> na Ei računaru (ako i struje bude bilo), da se vozimo GSP-om
>> (ako nafte ne bude bilo onda Trolebusom, uh zaboravih da on ide
>> na struju) jer love nemamo za čorbu (čak ni za riblju, tako
>> da nam ni jugo ni lada ni 101 u ovi esperimenat ne tribaju).
>> Opet će da budu u modi ruski kompjuter tzv. brojanice (ni struja
>> ne ..) a i za zdravlje je dobro ići peške. &"<8&$#..*!?/=+ŠĐĆž!
>> U stvari on sve to i radi za naše zdravlje........................
Namerno sam malo sačekao sa komentarom da vidim dokle ćete stići. I moram
priznati da ste daleko premašili sva moja očekivanja. Samo da vas
podsetim - u mojoj prvoj poruci kojom je ova diskusija započela rekao sam:
"Jedino što znam je da ovaj paket nisam smeo da startujem iz NAJMANJE DVA
RAZLOGA, od kojih jedan tematski ne spada u ovu konferenciju, a drugi je
valjda više nego očigledan."
Bez komentara!
Pozdrav,
Zoran.
razno.122dsoskic,
-> #121, kzoran> Namerno sam malo sačekao sa komentarom da vidim dokle ćete stići. I moram
"""""""""""""""""""""
> priznati da ste daleko premašili sva moja očekivanja.
> Bez komentara! """"
"""""""""""""
???? Vaša ????
Pa i nema komentara, slažem se sa Vama u potpunosti.
""""
Pozdrav, Danko
p.s. ;)
razno.123kzoran,
-> #122, dsoskicPredlazem da se na Sezam-u uvede neka vrsta nagradne igre za najelokventniju,
najinteresantniju, najduhovitiju, i uopšte naj poruku u toku meseca. Dajem
odmah i predlog da to bude poruka iz ove konferencije pod brojem 14.122,
koju, za one koji su je propustili, prenosim u celini:
----------------------------------------------------------------------------
> Namerno sam malo sačekao sa komentarom da vidim dokle ćete stići. I moram
"""""""""""""""""""""
> priznati da ste daleko premašili sva moja očekivanja.
> Bez komentara! """"
"""""""""""""
???? Vaša ????
Pa i nema komentara, slažem se sa Vama u potpunosti.
""""
Pozdrav, Danko
p.s. ;)
----------------------------------------------------------------------------
Mislim da rečitost elokvencije i snagu argumenata ove poruke ne treba posebno
podvlačiti, a što se duhovitosti tiče, onaj široki osmeh na kraju me oborio
sa nogu.
Pozdrav,
Zoran.
razno.124todorp,
Ovo je odgovor na Vicevi 13.218
> :))))))))))))))) Ma gde to iscupa? Nije valjda da je pamtis.
> :)))))))))))))
Sredjivao orman pa naisao na staru pionirsku knizicu.Zablude iz detinjstva :))
Pozdrav od Todora.
razno.125dsoskic,
-> #123, kzoran> Predlazem da se na Sezam-u uvede neka vrsta nagradne igre
Ne znam jel Vi to meni predlažete ili ostalima, ubuduće
koristite konferenciju SEZAM i temu PREDLOZI (umesto reply-a
na moj odgovor Vama koji sa Vašim novim predlogom baš i nema
puno veze). Tamo se predlaže da se nešto na sezamu uvede
ili ne.
Ako ste Vi u poruci našli nešto smešno, dobro, nek Vam bude.
Pozdrav, Danko
p.s. Vama ni nije bila upućena prva poruka,
Ne vidim razlog što se Vi uzbuđujete. A ukoliko već imate
vremena na pretek i različito mišljenje od moga, onda
lepo stavku po stavku, koja vam se ne čini ispravnom ili
je niste dobro razumeli, obrazložite i kažite Vaše mišljenje.
razno.126kzoran,
-> #125, dsoskic>> Ne vidim razlog što se Vi uzbuđujete.
Upravo tako. Sve je ovo bilo nepotrebno i Nama :) i Vama.
I zato - resign ORKA.1
Pozdrav,
Zoran.
razno.127dsoskic,
-> #126, kzoran> I zato - resign ORKA.1
Nije valjda dotle došlo, :(
:( Pozdrav, Danko
razno.128djnsnd,
Da li neko ima neki program za merenje IQ faktora (test inteligencije)?
Djn
razno.129kuzma,
-> #128, djnsnd Bio je neki program za Windows-e zakacen uz poruku 4.373 u konferenciji
PC.OS:windows. Probao sam ga i nije los (na Engl.) mada nije nista
ekstra.
razno.130dsoskic,
-> #128, djnsnd> Da li neko ima neki program za merenje IQ faktora (test
> inteligencije)?
Ima, a ima i na fenix-u (ali za Win) i nije ništa specijalan.
Ako neko zna neki IQ TEST za Dos, nek javi
Pozdrav, Danko
razno.131imandic,
-> #130, dsoskicJa :)))))) (imao pa obrisao)_
I nije za WINDOWS neko za DOS,ja skinuo sa FENIXA i radilo pod
DOS-om.
razno.132todorp,
-> #130, dsoskicPogledaj mail.
Pozdrav od Todora.
razno.133dsoskic,
-> #132, todorp> Pogledaj mail.
Hvala,
Pozdrav, Danko
razno.134zormi,
Malo nostalgije za stare kompjuteraše:
Soft emulator "prvog kompletnog personalnog računara kojim možete
projektovati i nuklearnu centralu" - SINCLAIR ZX81!
Tu je i nekoliko programa.
xtndr064.ziprazno.135pele,
-> #134, zormi#} Tu je i nekoliko programa.
A jel ima igricu Manic Miner?
razno.137todorp,
-> #135, pele> A jel ima igricu Manic Miner?
Za ZX81 tesko da je napisana ili sam ja u teskoj zabludi.
Pozdrav od Todora.
ps.Da se pohvalim zx81 mi je bila prva makina.
razno.138badboy,
Imam stampac Star LC-10 COlour
Ima neko isti stampac?
Meni ne izvrsava sve komande iz knjizice:(((((
Cekam odgovor....(Mogu odg. i vlasnici crnobelog st.)
razno.139jtitov,
Da li je neko u direktnoj veze sa nasom firmom MZ Computers (mislim, da
li ima tamo prijatelje, drugare, poznanike, itd)? Naime, dobio sam od
njih ljubazno pismo oko ponude za ugradnju YU karaktera u Epson
stampace, a cini mi se da ih JA nisam prvi kontaktirao, pa tek da pitam
kako su saznali sta mi treba.
razno.140kuzma,
-> #137, todorp> ps.Da se pohvalim zx81 mi je bila prva makina.
I meni :))))))
razno.141lucas,
-> #137, todorp++> ps.Da se pohvalim zx81 mi je bila prva makina.
Kao i meni (kakva je samo grafika bila) :)
razno.142mladenp,
-> #141, lucas> ++> ps.Da se pohvalim zx81 mi je bila prva makina.
>
> Kao i meni (kakva je samo grafika bila) :)
A tek šah... To je bio jedini program kojeg sam
mogao da pobedim (najniži nivo, razume se :)
razno.143imandic,
-> #142, mladenpJa sam bez muke pobedjivao na 2 od 10(cinimi se?)
razno.144ndragan,
-> #139, jtitov/ kako su saznali sta mi treba.
Neko sa sezama radi tamo?
razno.145jtitov,
-> #142, mladenp> A tek sah... To je bio jedini program kojeg sam
> mogao da pobedim (najnizi nivo, razume se :)
Svaka cast na iskrenosti! (Inace na Sezamu su sve neki Karpovi, Kapablanke,
Fiseri). Koga god da pitas "jel' igras sah sa racunarom", odgovor je "ma
sta da se mucim, razbijem ga uvek". Malo sutra...
razno.146mladenp,
-> #145, jtitov>> A tek sah... To je bio jedini program kojeg sam
>> mogao da pobedim (najnizi nivo, razume se :)
>
> Svaka cast na iskrenosti! (Inace na Sezamu su sve neki
> Karpovi, Kapablanke, Fiseri). Koga god da pitas "jel'
> igras sah sa racunarom", odgovor je "ma sta da se mucim,
> razbijem ga uvek". Malo sutra...
Ma razbio bih ja njega i na prvom nivou, ali kasno
sam primetio da vara (pomeri pešaka za dva polja
u jednom potezu). Još kasnije sam saznao za uzimanje
"an pasan". :))
razno.147pele,
-> #145, jtitov#} Svaka cast na iskrenosti! (Inace na Sezamu su sve neki
#} Karpovi, Kapablanke, Fiseri). Koga god da pitas "jel'
#} igras sah sa racunarom", odgovor je "ma sta da se mucim,
#} razbijem ga uvek". Malo sutra...
Pa nego!I ja sam uspevao da rasturim i najjace sahovske programe.
Krenem da igram i kao crni i kao beli stim da og jedno 5-6 belih
piona napravim dame i pojedem crnome topove,lovce i damu pa ga
onda pustim da igra normalno.S tom forom sam ga uglavnom dobijao ;))
razno.148imandic,
-> #147, peleJa sam igrao CHESSMASTER 3000,tu sam maksimalnu vrednost(11)
protivnika,smanjivao za oko 7-8 i pobedjivao...
P.S Nisam igrao sam sa sobom...;>
razno.149jtitov,
-> #147, pele> Krenem da igram i kao crni i kao beli stim da og jedno 5-6
> belih piona napravim dame i pojedem crnome topove,lovce i
> damu pa ga onda pustim da igra normalno.S tom forom sam ga
> uglavnom dobijao ;))
E, za ovo na kraju UGLAVNOM, svaka cast! :)))
razno.150jtitov,
-> #148, imandicVidim, poce prica i o sahu. Sta mislite o jednoj partiji preko Sezama?
razno.151ssokorac,
-> #150, jtitov :> Vidim, poce prica i o sahu. Sta mislite o jednoj partiji
:> preko Sezama?
Sto da ne?
razno.152cacxa,
-> #151, ssokorac> :> Vidim, poce prica i o sahu. Sta mislite o jednoj
> partiji :> preko Sezama?
>
> Sto da ne?
Vidim i ja ;)
Otvorih grupu sah, zainteresovani ?
razno.153vvelisavljev,
-> #150, jtitov> Vidim, poce prica i o sahu. Sta mislite o jednoj partiji preko Sezama?
Ja sam za. Kako to da izvedemo a da bude zanimljivo? Možda da
organizujemo neki turnir?
Viktor
razno.154jevta,
-> #152, cacxa>> Otvorih grupu sah, zainteresovani ?
Yes!
razno.155jtitov,
-> #152, cacxa> Otvorih grupu sah, zainteresovani ?
Naravski! Ala cemo da cepamo sah...
razno.156jtitov,
-> #153, vvelisavljev> Ja sam za. Kako to da izvedemo a da bude zanimljivo? Mozda
> da organizujemo neki turnir?
Da, turnir, ali preko Sezama. Kao dopisni sah. Znaci da se "uparimo" (bolje
bi bilo da se Oparimo), pa da odredimo ko je beli/crni, pa da saljemo poteze
u conf. Tako ce biti (mozda) zanimljivo i drugima, a ne da se zatvaramo po
grupama. Mislim da su te grupe u stvari veliki promasaj Sezama. Kome se ne
svidja neka prica po konferencijama neka stavi resign. Opet, ako se
zainteresuje za neku temu, moze vrlo lako da je "otvori" i nastavi
pracenje.
razno.157siki,
-> #156, jtitov> u conf. Tako ce biti (mozda) zanimljivo i drugima, a ne da
> se zatvaramo po grupama. Mislim da su te grupe u stvari
> veliki promasaj Sezama. Kome se ne
Ja se sa ovim stavom slažem.
Siki :)#
razno.158ssokorac,
-> #152, cacxa :> Otvorih grupu sah, zainteresovani ?
Pa, moze...
razno.159ssokorac,
-> #153, vvelisavljev :> Ja sam za. Kako to da izvedemo a da bude zanimljivo?
:> Mozda da organizujemo neki turnir?
Pa, mozemo u grupi, svako svakom salje poteze, igra svako svakim po
dve partije (u jednoj je beli u drugoj je crni), kao dopisni sah.
razno.160jtitov,
Moram da primetim jedan fenomen koji se javlja kod pojedinih Sezamovaca.
Kada treba maznuti neki novi program, tu su prvi; kada treba
prokomentarisati njegove karakteristike, nema ih nigde. Slucaj je sa
novim Corel Draw 3.0. Koliko znam, mnogo ih se polomilo da dodje do
njega, ali niko nije dao bar prve utiske. Sta je to sa vama ljudi???
Inace i ja sam maznuo isti. Nije instalaciona verzija, ali radi radnju.
Vrlo mocno izgleda. Juce sam uspeo samo da pokrenem glavnu aplikaciju
(coreldrw). Sve je savrseniji i savrseniji i doteraniji. Najzad ima i
help. I nove efekte (manipulacija sa slikom). Nisam stigao da pokrenem i
ostale aplikacije, jer je vec bilo 1:00 a sutra (danas) radim...
Sezam-voajeri, izvucite desnu ruku iz dzepa i otkucajte neki komentar o
novom softveru, koji se uprkos blokadi, probija do nas.
razno.161drpr,
-> #156, jtitov-> Da, turnir, ali preko Sezama. Kao dopisni sah.
-> Znaci da se "uparimo" (bolje bi bilo da se
-> Oparimo), pa da odredimo ko je beli/crni, pa da
-> saljemo poteze u conf. Tako ce biti (mozda)
-> zanimljivo i drugima, a ne da se zatvaramo po
Evo ja se prijavljujem za šah i imam program kojim se paruju
igrači na turnirima !
cope
razno.162drpr,
Naravno mislim u grupu jer ako bi sve išlo u conf punili bi orka razno
porukama koje ne bi zanimale neke ljude zato je bolja grupa!
cope
razno.163vvelisavljev,
-> #156, jtitov Evo ja se prijavljujem za turnir. Ajde da stavimo rok za
prijavljivanje, pa da napravimo listu i izvučemo parove. Na kom principu idu
šahovski turniri ? Jel igra svako sa svakim ?
razno.164cdragan,
-> #159, ssokorac
> :> Ja sam za. Kako to da izvedemo a da bude zanimljivo?
> :> Mozda da organizujemo neki turnir?
Ja sam slab, skoro nikakav šahista, al mislim da bi bilo
bolje da uživo organizujete jedan mali brzopotezni turnir ili
tako nešto jer ovako može se desetiti da preterano revnosni
šahisti potraže malko pomoći od ChessMastera i ostalih srodnih
programa ;)
pozdrav _dragan_
P.S. Neću u grupu šah. :)
razno.165jtitov,
-> #163, vvelisavljev> Evo ja se prijavljujem za turnir. Ajde da stavimo rok za
> prijavljivanje, pa da napravimo listu i izvucemo parove.
> Na kom principu idu
Moderator grupe SAH neka odredi pravila, rok za prijavljivanje, ko sa kim
igra i da li poteze saljemo u grupu ili u conf. Moglo bi da se pocne od
ponedeljka...
razno.166jtitov,
-> #164, cdragan> bolje da uzivo organizujete jedan mali brzopotezni turnir
Mislim da je to neizvodljivo. Saobracajne veze ocajne, poslovne obaveze tokom
dana, stanovanje van Bgd-a itd. Mozda jednog dana... Ja sam i dalje za
dopisni sah. Mislim da bi i ta aktivnost povecala rejting Sezamu. Da li
neko zna da se na nekom BBS-u igra sah? Zamisli naslov u novinama: Sah
preko elektronske poste; Mladi kompjuteristi Beograda prednjace u stednji
papira; Strani agenti razmenjuju sifre preko elektronske poste.
> ili tako nesto jer ovako moze se desetiti da preterano
> revnosni sahisti potraze malko pomoci od ChessMastera i
> ostalih srodnih programa ;)
Pa, prevaranata svuda ima. Verovatno i medju nama. A da bi CM3000 (ili neki
drugi) odigrao stvarno dobar potez, treba da "razmislja" bar ceo dan. Ko
zeli da mu racunar bude zauzet 24h da bi odigrao JEDAN potez i mozda na
kraju i izgubio partiju, pa neka mu je alal...
razno.167imandic,
-> #166, jtitov>> Strani agenti razmenjuju sifre preko elektronske poste.
:))))))))))))
To bi bio zaista dobar naslov,jos samo da nam objave i imena.
razno.168ssokorac,
-> #166, jtitov :> Pa, prevaranata svuda ima. Verovatno i medju nama. A da
:> bi CM3000 (ili neki drugi) odigrao stvarno dobar potez,
:> treba da "razmislja" bar ceo dan. Ko zeli da mu racunar
:> bude zauzet 24h da bi odigrao JEDAN potez i mozda na
Uze mi rec iz usta. :) Inace, po pravilima dopisnog saha dozvoljeno
je koristiti literaturu...:) Jos kad bi prodavali CM3000 kao
knjigu...;)
razno.170drpr,
I ja se prijavljujem za turnir i imam prg za parovanje ko na pravom turniru.
Što se tiče CM3000 sve je dozvoljeno u dopisnom šahu tako da i to
ipak ako obojica koriste CM može da dođe do remija znači ako ideš
na pobedu udri bez CM -a :)))
cope
razno.171miroslavn,
I ja se prijavljujem za šah.....
(ako još ima mesta u grupi......ja bih unutra....)
Miroslav
razno.172angel,
-> #165, jtitov Slažem se. Ubacite i mene. Mogli bi da nastavimo diskusiju u
EXTRA.SPORT
Pozdrav!
ADejan
razno.173montenegro,
-> #163, vvelisavljev> Na kom principu idu šahovski turniri ? Jel igra svako sa
> svakim ?
Ponekada, ako broj igrača nije prevelik. Međutim, u
šahovskom svetu su veoma česti i turniri sa veoma velikim brojem
igrača. Tada se primenjuje popularni "Švajcarac". Da probam da
malo opišem (po sećanju) tu metodu određivanja parova.
Unapred se odredi koliko će se kola igrati (9 je lep broj).
Igrači izvuku svoje turnirske brojeve. Prvo kolo se igra tako da
su parovi: 1-2, 3-4 ... pri čemu bele imaju neparni turnirski
brojevi. U sledećim kolima se pravi tabela po plasmanu, igrači sa
istim brojem bodova se ređaju po turnirskim brojevima. Uparivanje
počinje od prvoplasiranog, od drugoplasiranog na dole, traži se
onaj koji još nije igrao sa njime. Bele figure dobija onaj koji
je sa istima igrao manje puta. Ako su obojica imali isti broj
puta bele, ide se unazad do prvog diskontinuiteta. Ako je i to
isto, bele dobija onaj koji je bolje plasiran. Dalje se ide
iterativno, primenjujući unapred opisan postupak. Na kraju se
može desiti da ostanu dva igrača koji su već igrali. Za razrešavanje
ove situacije koriste se različite metode, a najpopularnija je
ona koja se zove "Proširena Jugoslovenska varijanta":). Poslednji
spareni parovi se rasparuju, pa se iteracija sprovodi opet.
Toliko o metodi uparivanja. Interesantno je da Švajcarac zna
da često da mnogo igrača sa istim brojem poena. Tada se redosled
određuje po "Buholc"-u. Ideja: sabira se broj poena svih protivnika
koje ste pobedili na turniru, za protivnike sa kojima ste igrali
remi uzima se polovina njihovog broja poena.
Toliko, nadam se da sam dao neko objašnjenje. Interesantno je
da je čitav postupak ko stvoren za računar :). Unapred se izvinjavam
ako sam negde pogrešio, na šahovskim turnirima sam prestao da učestvujem
sa 16 godina (eh, te lepe godine ;).
Mada i ja volim šah, nisam siguran da će ova dopisna varijanta
uspeti. Da li ste svesni da će vam partija trajati stotinak dana
(u proseku, pretpostavimo 50-tak poteza)? Šta ako neki protivnik
bude sprečen da se javlja na Sezam (spali mu, nedajbože, sveti
Ilija Gromovnik modem :)?
razno.174imandic,
-> #173, montenegro>>(spali mu,nedajboze, sveti Ilija Gromovnik modem :)
Pa kad vec navaljujes...;>
razno.176ssokorac,
-> #170, drpr :> I ja se prijavljujem za turnir i imam prg za parovanje
:> ko na pravom turniru.
Pa, ako igramo svako sa svakim sta ce mi tu program? :)
A i ako igramo svajcarac, nema nas toliko mnogo da nam treba
program, ajd' da nas je 100, ali ovako...:)
razno.177ssokorac,
-> #173, montenegro :> Unapred se odredi koliko ce se kola igrati (9 je lep
:> broj).
Ali je 6 najcesce. :)
:> iterativno, primenjujuci unapred opisan postupak. Na
:> kraju se moze desiti da ostanu dva igraca koji su vec
:> igrali. Za razresavanje ove situacije koriste se
:> razlicite metode, a najpopularnija je ona koja se zove
:> "Prosirena Jugoslovenska varijanta":). Poslednji
'pjv' :) ne slu`i za to rasparivanje vec za celo parovanje, po njoj
se paruju 1. igrac sa najvise bodova pa drugi igrac sa toliko bodova
itd. pa onda ispocetka se paruju igraci sa istim brojem bodova.
Takodje postoji i Jugoslovenska Kruzna varijanta :) gde se kad se
iscrpe svi igraci sa jednim brojem brodova ide odmah na sledeceg sa
manjim brojem brodova a ne od pocetka kao u prosloj.
:> odreduje po "Buholc"-u. Ideja: sabira se broj poena svih
:> protivnika koje ste pobedili na turniru, za protivnike
:> sa kojima ste igrali
Ako je i to jednako onda se racuna ko je manji broj puta bio beli...
razno.178dnikolic,
-> #157, siki>>> se zatvaramo po grupama. Mislim da su te grupe u stvari
>>> veliki promasaj Sezama. Kome se ne
Lako je vama, beogradjanima. Prosetate par stotina metara i programi su tu.
dn
razno.179nbatocanin,
-> #169, imandic> CM3000 od mene mozes uvek da dobijes.
Koji program u toj klasi važi za najbolji i da li ga neko ima?
razno.180ndragan,
-> #161, drpr/ Evo ja se prijavljujem za šah i imam program kojim se paruju
/ igrači na turnirima !
Bez mene, za šah sam poluinteligentni kibicer, a za parenje... radije
bez programa.
razno.181ndragan,
-> #166, jtitov/ Mislim da je to neizvodljivo. Saobracajne veze ocajne, poslovne
A čemu inače služi čet?
razno.182jtitov,
Da li neko poseduje ili zna dobru formulu za preracunavanje datuma u "broj
dana". Znaci, postupak kojim bi se datum prebacio u neki broj iz koga bi
moglo da se izracuna koji je dan, a takodje i da se na taj broj
dodaju/oduzimaju dani i posle opet iz tog broja dobije datum. Takodje, bilo
bi pozeljno da formula vazi od -ý do +ý.
razno.183madamov,
-> #182, jtitov
Formula ili algoritam sigurno postoji, jer je skup svih datuma
prebrojiv, tj. može se uspostaviti uzajamno jednoznačno preslikavanje
između ovog i skupa prirodnih brojeva. Jedan primer takvog preslikavanja je
tzv. TOS date & time format na ST-u. Funkcija Gettime vraća long, znači 4
bajta čiji bitovi su raspoređeni ovako:
0 - 4 2*sekunde (interval 0-30)
5 - 10 minuti (interval 0-60)
11 - 15 sati (interval 0-24)
16 - 20 dan u mesecu (interval 1-31)
21 - 24 mesec (interval 1-12)
25 - 31 godina od 1980. (interval 0-119)
Ne znam da li će ti mnogo pomoći, ali eto da imaš bar neki primer.
Time ti ne treba, pa ceo long možeš da iskoristiš samo za datum, odnosno da
ti bitovi 0-5 budu za dan u mesecu, 6-9 za mesec, a 10-31 za godinu.
razno.184vbole,
-> #182, jtitov> Da li neko poseduje ili zna dobru formulza preracunavanje datuma u
> "broj dana". Znaci, postupak kojim bi se datum prebacio u neki broj iz
> koga bi moglo da se izracuna koji je dan, a takodje i da se na taj broj
> dodaju/oduzimaju dani i posle opet iz tog broja dobije datum. Takodje,
> bilo bi pozeljno da formula vazi od -ý do +ý.
Evo ti jedan uprosceni algoritam, racuna od 1/1/00 do kraja sveta.
Postupak je sledeci:
1) Rastavi datum na dan,mesec i godinu
2) Proveri dan ( 0 < dan 31 )
3) Proveri mesec ( 0 < mes 12 )
4) Proveri godinu( god 0 )
Pa kaze:
┌─────────────────────────────────────────────────────────────────────────┐
│ broj:=dan - 1 │
├─────────────────────────────────────────────────────────────────────────┤
│ Pozovi Broj_Dana ; vraca broj dana od 1/1/00 │
├─────────────────────────────────────────────────────────────────────────┤
│ dan_u_nedelji:=broj MOD 7 ; 0:=nedelja, 1:=ponedeljak... │
└─────────────────────────────────────────────────────────────────────────┘
╔═════════════════════════════════════════════════════════════════════════╗
║ Broj_Dana ║
Ă═════════════════════════════════════════════════════════════════════════Á
│broj:=broj + 31 * (mes-1) ; dodaj protekle mesece │
├─────────────────────────────────────────────────────────────────────────┤
│broj:=broj + 365 * god ; dodaj protekle godine │
├─────────────────────────────────────────────────────────────────────────┤
│ da / mes > 2 / ne │
├─────────────────────────────────┬───────────────────────────────────────┤
│broj:=broj - INT(.4*mes + 2.3) │ god:=god - 1 │
├─────────────────────────────────┼───────────────────────────────────────┤
│ │ da / god < 0 / ne │
│ ├──────────────────┬────────────────────┤
│ │ god:=god +1 │ │
├─────────────────────────────────┴──────────────────┴────────────────────┤
│broj:=broj + INT(god/4) ; dodaj prestupne godine │
├─────────────────────────────────────────────────────────────────────────┼
│broj:=broj - INT(((god/100)+1) * .75 ; oduzmi, ako nisu deljive sa 400 │
├─────────────────────────────────────────────────────────────────────────┤
│RETURN ; vrati se nazad sa brojem dana │
└─────────────────────────────────────────────────────────────────────────┘
I malo teorije uz ovo:
Uprosceno mozemo da kazemo da godina ima 365 dana i 12 meseci, da mesec ima
31 dan i da je to tacno za 7 meseci u svakoj godini i 3/4 godina koje su
prosle od 1/1/00 ( A Biblija kaze da se tada rodio Isus ).
Svaka godina koja je deljiva sa 4 je prestupna, izuzetak su godine koje se
zavrsavaju sa 00.Te godine su samo onda prestupne, ako su deljive sa 400.
Sve to vazi od 15/10/1582.
Ako uzmemo da svaki mesec ima 31 dan, onda se, zavisno od datuma, ovim al-
goritmom dobija minimalno 3 ( jer je februar vec uzet u obzir ) i maksimalno
7 dana ( 4 meseca sa 30 dana ) vise u godini.
To se izbegava formulom ( 3/7 * mes + 7/3 ), ili, posto se racuna samo ceo
broj dana, sa INT( 0.4 * mes + 2.3 ).
Sto se tice dodavanja dana, tu nema problema, datum dobijas tako sto
broj dana podelis sa 365, iz tako dobijenih godina izvuces prestupne, taj
broj oduzmes od broja dana, ponovo izracunas godinu i pomnozis sa 365,
oduzmes od broja dana, izracunas mesec - ukratko, postupak je obrnut od
goreopisanog, samo zamenis racunske operacije - jedino moras da pazis da
postavis u startu i dan i mesec na 1...
razno.185b.jovan,
-> #182, jtitov
│Da li neko poseduje ili zna dobru formulu za preracunavanje datuma u "broj
│dana". Znaci, postupak kojim bi se datum prebacio u neki broj iz koga bi
│moglo da se izracuna koji je dan, a takodje i da se na taj broj
│dodaju/oduzimaju dani i posle opet iz tog broja dobije datum. Takodje, bilo
│bi pozeljno da formula vazi od -ý do +ý.
└──────────────────────────────────────────────────────────────────────────
Taj "neki broj" se zove Julijanski dan. Postoji jednostavna formula
koja prebacuje bilo koji kalendarski datum na julijansku vremensku
skalu i obrnuto. Znaci potrebno je samo nesto malo znanja iz astronomije.
(Moze i bez astronomije, ali je onda nesto komplikovanije i sporije.)
Pozdrav,
b.jovan
P.S. Interesantno da je svojevremeno u "Racunarima", prilikom prikaza
mogucnosti poslednje verzije Lotusa 123, autor clanka naveo kao
jedan od najvecih kvaliteta tog programa upravo sposobnost izracunavanja
broja dana izmedju dva datuma i to (zamislite :)) ) u rasponu od
100 ili 200 godina (ne secam se tacno).
Danilce Markovic & Co. kada su su pre dve godine definitivno izbacili
astronomiju iz svih skola u Srbiji kao glavni adut su naveli da je
deci potrebnije znanje iz informatike nego astronomije. Nije pomoglo
'zapomaganje' druge strane da za opstu kulturu vazno i jedno i drugo.
Mislim da je ovo lep primer koji pokazuje koja je strana bila u pravu.
razno.186dejanr,
-> #182, jtitovEvo ti procedura koja pretvara datum u apsolutni broj dana
(CJ = Calendar date to Jul) i procedura koja radi obratni
posao JC (Jul. to Cal.). Ove procedure potiču sa džepnih računara
(HP41C, mislim da je iz PPC ROM-a) i ja ih već više godina koristim
gotovo i ne misleći više o njima. Ukratko, (skoro da) garantujem
da su tačne, a da li može i nekako kraće, zaista ne znam.
program datumi;
{
KONVERZIJE DATUM<--->JULIAN DAY NO
Copyright (C) 1986-1988 Dejan Ristanovic
}
var d,m,g: integer;
function cj (d,m,g: integer): longint;
var gp,izlaz: real;
begin
gp:=g+(m-2.85)/12.0;
izlaz:=int(367*gp)-int(gp)-0.75*int(gp)+d;
izlaz:=int(izlaz)-0.75*int(gp/100);
izlaz:=int(izlaz)+1721115;
cj:=trunc(izlaz);
end;
function day(d,m,g: integer): integer;
begin
day:=(cj(d,m,g)+1) mod 7
end;
procedure jc(jdn: longint; var d,m,y: integer);
var n,c,np,yp,npp,mp: longint;
begin
n:=jdn-1721119;
c:=trunc((n-0.2)/36524.25);
np:=n+c-trunc(c/4);
yp:=trunc((np-0.2)/365.25);
npp:=np-trunc(365.25*yp);
mp:=trunc((npp-0.5)/30.6);
d:=trunc(npp-30.6*mp+0.5);
if mp<=9 then begin m:=mp+3; y:=yp end
else begin y:=yp+1; m:=mp-9 end
end;
begin
repeat
write ('Datum (DD): ');
readln (d);
write ('Mesec (MM): ');
readln (m);
write ('Godina (YYYY): ');
readln (g);
writeln('Julian day = ', cj(d,m,g));
jc(cj(d,m,g),d,m,g);
writeln(d,' ',m,' ',g);
writeln('Dan (0=nedelja): ',day(d,m,g));
until false;
end.
razno.187jtitov,
-> #183, madamovHvala na lepom opisu u vezi datuma, ALI...
> Formula ili algoritam sigurno postoji, jer je skup svih
> datuma
Znam i ja da postoji, inace je ne bi ni trazio. Ja inace imam formulu koja
radi od 1900 pa na dalje, ali mi treba nesto sto ce vaziti za bilo koji
datum.
> Ne znam da li ce ti mnogo pomoci, ali eto da imas bar neki
> primer.
Pa i nece mi pomoci jer mi treba FORMULA, FORMULA, ... Ipak, hvala na
trudu.
razno.188jtitov,
-> #184, vboleHvala za opisani postupak. Provericu ga ovih dana u praksi.
> I malo teorije uz ovo:
Teorije uvek treba, hvala na detaljnom opisu.
> Sve to vazi od 15/10/1582.
Znam da je tada bila neka frka sa promenom datuma, ali znas li STVARNO sta
se tada desavalo. I da li "tvoja" formula resava taj problem?
razno.189jtitov,
-> #185, b.jovan> skalu i obrnuto. Znaci potrebno je samo nesto malo znanja
> iz astronomije.
Lepo, a da li ti znas imas tog "malo znanja iz astronomije"? Ako je odgovor
potvrdan, onda pomazi. Mani teoriju... :)
razno.190jtitov,
-> #186, dejanrZahvalnost je velika i tebi i svim koji su poslali postupak. Ala cu da se
zabavljam ovih dana! :))
> posao JC (Jul. to Cal.). Ove procedure poticu sa dzepnih
> racunara (HP41C, mislim da je iz PPC ROM-a) i ja ih vec
I na kraju nista bez Packard-a. Eh, kada se setim da je jedan manijak uspeo
da napravi program za sah za HP41CV...
razno.191drami,
-> #188, jtitovEvo sta se desilo 15. oktobra 1582.Naime julijanska godina sa trajanjem od
365,25 dana bila je duza od tropske za 11m i 14s pa je ta razlika dostizala 1
dan svakih 128 godina.Zbog ovoga umesto 21 marta kao sto je bilo u IV veku
prolecna ravnodnevnica je 1582 godine pala 11 dana ranije sto je primetio papa
Grgur XIII i po racunima astronoma Lilija sproveo je reformu.Tako je naredio da
se sa 4. oktobra skoci na 15. oktobar 1582 i tako preskoci onih 11 dana.I dalje
je ostalo da svaka cetvrta goůdina bude prestupna a od toga se izuzimaju godine
kojima se zavrsavaju vekovi (2000,2100,2200,2300,2400) osim onih na kraju
svakog cetvrtog veka (2000,2400,2800).
razno.192madamov,
-> #187, jtitov
>>Pa i nece mi pomoci jer mi treba FORMULA, FORMULA, ... Ipak, hvala na
>>trudu.
teško da ćeš naći baš formulu, ali algoritama, koliko vidiš, ima
dosta. B)
razno.193vitez.koja,
-> #184, vbole-> Svaka godina koja je deljiva sa 4 je prestupna, izuzetak su godine
-> koje se zavrsavaju sa 00.Te godine su samo onda prestupne, ako su
-> deljive sa 400. Sve to vazi od 15/10/1582.
a svaka 4000? (nije ;))) procitao sam negde.....
razno.194dnikolic,
-> #182, jtitov>> Da li neko poseduje ili zna dobru formulu za preracunavanje datuma u "broj
>> dana". Znaci, postupak kojim bi se datum prebacio u neki broj iz koga bi
Meni je ovo trebalo u jednom programu, ali nije nikako moglo da se uradi samo
sa formulom. Trebao mi je broj RADNIH dana, pa jos praznici i dr. Sve u svemu,
ako te zanima, mogu ti poslati na mail.
dn
razno.195dejanr,
-> #190, jtitov>> I na kraju nista bez Packard-a. Eh, kada se setim da je jedan manijak
>> uspeo da napravi program za sah za HP41CV...
Nogekako, "manijak" je bio neki Švajcarac i napravio je neverovatnu stvar.
Ne mogu da se setim imena autora, ali se sećam da je program bio na toliko
kartica da napuni memoriju HP41CV do *zadnjeg* bajta. Imao je dve mane.
Prvu što je igrao loše, a drugu (veću) što je igra spooooro ;)) Ali bio
je sjajan, svejedno.
No ima još neverovatnija stvar, neki Martin Sperberg je posle napravio šah
za TI59 koji, ako se dobro sećam, ima nepun kilobajt memorije! I radio je...
kako tako ;)
razno.196jtitov,
-> #191, drami> Evo sta se desilo 15. oktobra 1582.Naime julijanska godina
> sa trajanjem od
HVALA!
razno.197jtitov,
-> #192, madamov> tesko da ces naci bas formulu, ali algoritama, koliko
> vidis, ima
Ma da, na to sam mislio - Al-Horezmi.
razno.198ndragan,
-> #183, madamov/ 16 - 20 dan u mesecu (interval 1-31)
/ 21 - 24 mesec (interval 1-12)
/ 25 - 31 godina od 1980. (interval 0-119)
/ ti bitovi 0-5 budu za dan u mesecu, 6-9 za mesec, a 10-31 za godinu.
U istom tom formatu se pakuju datumi i u DOS direktoriju (TOS je
kompatibilan na tom nivou); evo jedne rutine koju često koristim za
stvaranje polja u bazi, daje string od dva znaka (baš ta dva, koja se
tu spominju od 16. do 31. bita); zgodno je za indeksiranje. Ako baš
zatreba, imao sam negde i u kobolu :).
param datum
priv y
y=year(datum)-1980
y=max(0,y)
y=min(y,128)
numdatum=512*y+32*month(datum)+day(datum)
low=mod(numdatum,256)
hi=(numdatum-low)/256
gd=chr(hi)+chr(low)
retu gd
Ali mislim da nisi mislio na to, nego na apsolutni broj dana od
01.01.01 do danas; ako se potrudim da nađem, imam negde fortran rutinu
(u nekoj staroj knjizi iz Rusije, prevod sa francuskog :). To što tebi
treba je datumska aritmetika, a to je već ugrađeno u sve DBase
kompatibilne jezike. Ako te rutina zanima, javi.
Bue_ Ndragan
razno.199ndragan,
-> #184, vbole/ broj dana podelis sa 365, iz tako dobijenih godina izvuces prestupne,
Podsetio bih na presek gregorijanskog/julijanskog kalendara... pa onda
godine deljive sa 100, ali ne sve...
razno.200bearboy,
-> #192, madamov˙¨:>>> Pa i nece mi pomoci jer mi treba FORMULA, FORMULA, ... Ipak, hvala na
˙¨:>>> trudu.
˙¨:>
˙¨:> tesko da ces naci bas formulu, ali algoritama, koliko vidis, ima
˙¨:> dosta. B)
A naravno, nije svejedno dal' trazis formulu 1 ili 3.... :)))
razno.201ndragan,
-> #191, drami/ se sa 4. oktobra skoci na 15. oktobar 1582 i tako preskoci onih 11
/ dana.I dalje
Nedavno sam čuo pričicu (na ns+, u onoj seriji o astronomiji što ima
francuske titlove) da je dotle papa određivao datum kada će se maznuti
dan iz kalendara; za taj dan je obično štimovano da bude onda kada papa
treba da vrati dugove. E, taj dan tako nikad nije ni postojao. Ili se
pričica odnosi baš na tih 11 dana - inače, zašto baš 4 oktobar?
razno.202vbole,
-> #198, ndragan> Ali mislim da nisi mislio na to, nego na apsolutni broj dana od
> 01.01.01 do danas; ako se potrudim da nadem, imam negde fortran rutinu
Mislis na 01.01.00 ?? ;)
razno.203vbole,
-> #199, ndragan> Podsetio bih na presek gregorijanskog/julijanskog kalendara... pa onda
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Zasto ??
Ozbiljno, to je greska - ti dani ne fale, oni su tu, samo lepo rasporedjeni
po proteklim stolecima...
> godine deljive sa 100, ali ne sve...
Pa, napisao sam i to...
Opet odgovaras umoran, ili pises kod musterije, pa moras da kucas na
brzinu ?? ;)))
razno.205ndragan,
-> #203, vbole/ Opet odgovaras umoran, ili pises kod musterije, pa moras da kucas na
/ brzinu ?? ;)))
Otprilike - radim strogo iz SORa; kad zovem od mušterije ili iz firme,
ustanovim da nisam prepisao poslednji egzek na disketu, pa samo skinem
pad. Ako čekam na prevoz, ponekad se ubacim i u chat (mada, ko za inat,
prevoz stiže upravo onog trenutka kad se zakačim na sezam ;> ). Tako mi
se sad desilo da sam poslao tri poslednja egzeka u komadu. Uostalom, ZZ
bi mogao da povadi to iz svoje statistike (ono ..SOR serijski_broj na
početku svakog egzeka - kod mene ima po dva tri u jednom).
razno.206nbatocanin,
-> #182, jtitovMoj prijatelj Milan Dražić ima sledeći komentar u vezi rasprave o
datumima:
FUNCTION JULDAY (MM, ID, IYYY)
PARAMETER (IGREG = 15+31*(10+12*1582))
IF (IYYY .EQ. 0) PAUSE 'Nema nulte godine'
IF (IYYY .LT. 0) IYYY = IYYY+1
IF (MM .GT. 2) THEN
JY = IYYY
JM = MM+1
ELSE
JY = IYYY - 1
JM = MM + 1
END IF
JULDAY = INT (365.25*JY)+INT(30.6001*JM)+ID+1720995
IF (ID+31*(MM+12*IYYY).GE.IGREG) THEN
JA = INT (0.01*JY)
JULDAY = JULDAY+2-JA+INT(0.25*JA)
END IF
RETURN
END
Astronomi numerišu svaki 24-satni period koji počinje i završava u
podne intedžerom zvanim Julijanski dan (Julian Day Number). Dan
2440000 počinje u podne 23.5.1968. Znajući taj broj, dan u nedelji se
određuje uzimajući dan u nedelji uzimajući ostatak tog broja pri
deobi sa 7. (0-ponedeljak, ... 6-nedelja)
INVERZNA FUNKCIJA:
SUROUTINE CALDAT (JULIAN, MM, ID, IYYY)
PARAMETER (IGREG=2299161)
IF(JULIAN.GE.IGREG) THEN
JALPHA = INT(((JULIAN-1867216)-0.25)/36524.25)
JA = JULIAN + 1 + JALPHA - INT(0.25*JALPHA)
ELSE
JA = JULIAN
END IF
JB = JA + 1524
JC = INT(6680.+((JB-2439870)-122.1)/365.25)
JD = 365*JC+INT(0.25*JC)
JE = INT((JB-JD)/30.6001)
ID = JB-JD-INT(30.6001*JE)
MM = JE-1
IF (MM .GT. 12) MM = MM - 12
IYYY = JC - 4715
IF (MM.GT.2) IYYY=IYYY-1
IF (IYYY.LE.0) IYYY=IYYY-1
RETURN
END
NAPOMENA NB: Ovaj tekst prekucavam sa papira i moguće je da sam pri
tom negde i pogrešio. Nadam se da ćete razumeti suštinu.