Kuu tõusu- ja loojangu ajad

[A.R.]

AR, mis formaadis too kood koordinaate ja ajatsooni tahab? Miski näide oleks kasulik.

Mina kirjutasin nii.
Kas see on mõistlik teab vast jumal taevas.
Aga aru ta sai. Kas õigesti?

double B5, L5, H;
/////////////////////
/*
20 INPUT "LAT, LONG (DEG)";B5,L5
25 INPUT "TIME ZONE (HRS)";H
*/
B5=58.35947; //laiuskraad 58.35947
// -65.35947 -58U -0U -89D -70D -60U -65
L5=26.78463; //pikkuskraad 26.78463
// -26.78463
H= 2; // 6 2
sprintf(buf+strlen(buf),
"\n\rLaius %3.6f\n\rPikkus %3.6f\n\r Ajavöönd %2.0f",
B5, L5, H);
////////////////////////////////////////////////////////////
int Y,M,D;
//INPUT "Y,M,D ";Y,M,D
Y=2012;
M=4;
D=10;
sprintf(buf+strlen(buf), "\n\r%d.%d.%d\n\r", D,M,Y);

See on nüüd suure PC hetke sisend.
Muudan, kohe transleerin ja run - ca 10 s kokku.
Just kirjutasin sisendit, kus need numbrid on aknas täidetavad väljad.
Ma tegelikult veel ei tunneta seda kuu programmi.
Koban.

Lihtsalt lõbus oli Basicut meenutada ja tõlkida üle 30 aasta.

PIC testis siis PC aknast üle USB otse PICi.
Täpselt nagu programmi laadimine PCst.
Kasutan ühte maleroboti reservmoodulit.

[felch]

...
H= 2; // 6 2
...

Hehe, kood toimib VB6 peal kenasti, kui pidada silmas et ajatsoon on "-3" ! Tsooni saab OS-ilt küsida.
Aga...kas on kena VB-app'i, millega konvertida linna nimi kordinaatideks (et abistada kasutajat) ? USA-s toimib geocoder aga vaid USA-s. Google map'sid annavad vastuse aga brauseri vahendusel. Tahaks otse VB koodist päringut saata. Esialgu ei leidnud näidet.
Äkki keegi teab?

[W@ldur]

Äkki http://brainoff.com/geocoder/

http://brainoff.com/geocoder/rest/

Sealt andis Tallinn, EST'ile:

<rdf:RDF>
−
<geo:Point>
<geo:long>24.7280556</geo:long>
<geo:lat>59.4338889</geo:lat>
</geo:Point>
</rdf:RDF>

...
H= 2; // 6 2
...

Hehe, kood toimib VB6 peal kenasti, kui pidada silmas et ajatsoon on "-3" ! Tsooni saab OS-ilt küsida.
Aga...kas on kena VB-app'i, millega konvertida linna nimi kordinaatideks (et abistada kasutajat) ? USA-s toimib geocoder aga vaid USA-s. Google map'sid annavad vastuse aga brauseri vahendusel. Tahaks otse VB koodist päringut saata. Esialgu ei leidnud näidet.
Äkki keegi teab?

[A.R.]

Hehe, kood toimib VB6 peal kenasti, kui pidada silmas et ajatsoon on "-3" !

Tõmbasin 2 tavalist BASICut ja seal ei tahtnud see originaal minna.
Ei meeldinud - avaldise ees ja signum ja veel mõned asjad.
Aga selle bas baasil tehtud basicuid oli mitu ja oli ka sellest kirjutatud C.

Netis oli ka paar kalkulatorit.
Vägev tabel
http://aa.usno.navy.mil/data/docs/RS_OneYear.php

Siin oli veel eile ka ajavööndi arvestus. Ka Eesti oli -2.
See 3 on vist tngitud suveajast.
Miks -? Vast et Made in USA ja nemad on positiivsed.
http://mysite.verizon.net/res148h4j/java...e_set.html

Seal paistab midagi veidr olevat (latitude kraadid).
http://www.convertalot.com/moonrise_moonset_solver.html

Kontrollida sai selle tabeli järgi.
http://www.timeanddate.com/worldclock/as...=moon&=242

http://smallbasic.sourceforge.net/?q=node/134
näitab kui vähe on vaja muuta et kirjutada peale Copyright:

Koordinaatide saamiseks võib ju ka Googel mapi kasutada
http://maps.google.com/ kui küsida kohta tee kõrvalt.
Siis annab koordinaadid ja nii võib ju kõik vajaliku üles korjata ja programmi kirja panna. PICis ruumi jätkub.
Täpsem kui mobla asukoht.
________________________________________
Õhtu on vast hommikust targem.
Jäi veel üks suur saladus.
Kui see moonup.bas VB6 all puhtalt transleerub siis kuidas teda trasleeriti loomise ajal?
Kas nüüd on siis need lihtsad bascal translaatorid viletsamad kui olid 20 aastat tagasi?
Mul on kuskil 85. aasta BASIC. Kas see transleeriks puhtalt?

[felch]

Ei transleeru puhtalt. Katsetasin pikalt ja lõpuks sain tööle (VB6 keeles). Kontrollisin selle kalkulaatori järgi. Segadusse ajas see, et ajatsooniks oodati "-3" mitte +3 nagu eeldasin. Muide, Windooza ise arvab ka, et -3, Küsida saab niiviisi.
Muide, Walduri viide tabas märki - sain koordinaatide päringu tööle. VB6 näide on samas arhiivifailis (timezone1.zip).

Tänud!

PS. Jääb veel kood PICi peale asmi väänata. Seda tehes tuli mõte, et trigonomeetria ja eriti arctan tuleks seadusega keelata...

[A.R.]

Jääb veel kood PICi peale asmi väänata. Seda tehes tuli mõte, et trigonomeetria ja eriti arctan tuleks seadusega keelata...

Ja see variant et võtad C versiooni, transleerid PICile ja
unustad ära et trigo ja meetria ei sobi?
Kui seda C teksti PC peal transleerida siis ta teeb ISE (soovi korral) ASMi.
PC-le

Sellele observatooriumile võiks koordinaadi ka lisada.
Siis saaksid inimesed ISE oma kodukoha andmeid vaadata ja
trigot harjutada.

Me mõlemat pidi nii 30 kraadi lähedal (59 ja 24)
et lausa lust peast arvutada kui pikk see "kraad" meil on.
sin(0)= sqrt(0)/2
sin(30)=sqrt(1)/2
sin(45)=sqrt(2)/2
sin(60)=sqrt(3)/2
sin(90)=sqrt(4)/2
Kas midagi saab veel lihtsam olla?

[felch]

Me mõlemat pidi nii 30 kraadi lähedal (59 ja 24) ...
Kas midagi saab veel lihtsam olla?

Nojah, MEIE küll aga proge peab töötama kõikjal. Ka Jänkistaanis. Vähemasti selline on mu tagasihoidlik soov.
Asmi kood on 454kB pikk...no ei viitci küll kogu mahus tundmatusse keelde ringi kirjutama hakata mingi meetria pärast....
Ega's midagi, tuleb vist hakata tegelema ritta arendusega.
Kunagi ma tegin säärast lollust, püüan vana koodi üles leida ja kohendada.

[A.R.]

Me mõlemat pidi nii 30 kraadi lähedal (59 ja 24) ...
Kas midagi saab veel lihtsam olla?

Nojah, MEIE küll aga proge peab töötama kõikjal. Ka Jänkistaanis. Vähemasti selline on mu tagasihoidlik soov.

Jälle pilt selgem.

Leidsin selleprogrammi edasiarenduse, C-s. Seal olid veel paar kuu asja lisaks.
https://github.com/jgoerzen/wview/blob/m...narCycle.c
On tehtud selle sama baasil. PC läks näitama. Katsusin transleerida PICile.
Ütles et on liiga pikk. Mul on 32 kilone, Sinu oma on 64 kilo.
Sinna võiks-peaks mahtuma. Kuna vahetasin ainult nime siis vihastas.
Aga sealon olemas ka demo sinu kivile.
Õhtul katsetan. Minu jaoks on see ainult hobby asi. Kena proovida.

See arvutus oli lihtsalt minu jaoks üllatav näide et sai öösel une pealt leida meie pikkusminuti pikkuse, (mida muud öösel teha?)
Ja polnudki massinat vaja.

[andrei]

Asmi kood on 454kB pikk...

Selle projekti jaoks kindlasti mitte, aga küllap on õige aeg hakata C-d kasutama mikrokontrolleri peal. Näiteks NXP LpcXpresso on üsna hea ja odav õppevahend alustamiseks; kindlasti ka Microchipil endal on nii mõndagi PIC24 ja PIC32 sarja jaoks ja oleks kindlasti lihtsam (perifeeria tuttavam).

Kuigi ma veidi kahtlen ka. Nimelt, Sa lihtsalt jõuad ASM-i kasutades nii kiiresti edasi.

[A.R.]

Transleerisin selle laiendatud C variandi PIC18F46J50-le.
Ei pahandanud, meeldis. Ja mahtus ära 64 k peale.
Kõigest sellest tehti ka DISASM ja see oli kivis 102c - 9c54 paigutatud.
Natuke üle 8000


46J11 otsest demo versiooni ei pakutud ja teda tuleks natuke tekstis seada.
Kivi ise on MPLAB IDE v8.36 valikus olemas.