Astronomické fórum

Pěkné. Zatím jsem se ale nedostal k tomu si to vyzkoušet...

Jo, dneska na mne vybafla aktualizace firmware HP Prime. Kromě nějakých oprav, úprav a přidělaných pár drobností tam přidali i aplikaci "Python"

Jojo, já jsem testoval tuhle verzi již před 14 dny, kdy vypustili beta verzi. Ten Python má nějaká omezení, moc se mi nedařilo tam kopírovat celý program v kuse, protože psát Python na klávesnici kalkulačky fakt nejde.
Měl jsem problém i se zálohování kalkulačky po mocí interního Backup. System uloží Backup jako soubor s automatickým názvem např. Backup 2021 4 28, ale pak mi to z té zálohy nešlo vůbec obnovit. Nakonec jsem přišel na to, že to je potřeba uložit jako Backup_2021_4_28. Nevím jak u tebe, mě to takto funguje.

Já jsem teď vybíral bino, tak jsem program celkem využil v té první verzi, která nahrubo odhaduje RCindex. Krásně je viděl že např. bino APM 150mm ED-APO má RCindex 4.10, tedy dobře použitelné do zvětšení cca 60x, což potvrdil nakonec i Ludes. Tedy nejedná se o žádné APO, ale prakticky achromát. byť s lepším sklem FK61 (obdoba FPL-51) (podobně se to týká i APM 100mm ED-APO s FK61). Např. APM 120mm SD-APO se sklem Ohara FPL-53 je na tom výrazně lépe, tedy semi APO s RC indexem 2.0. Je potřeba brát tyto hodnoty s jistou rezervou, protože neznáme optický desing a druhé sklo.

Je ale fajn že si rychle člověk spočítá, jak na to dalekohled může být z hlediska chromatické aberace. Aplikace se dá nainstalovat i na iOS nebo Android, taky PC Win nebo Mac, takže se dá používat bez fyzické kalkulačky.

Vzhledem k tomu že mám celou řadu kalkulaček Hewlett-Packard, tak jsem se rozhodl rozšířit svou sbírku o kalkulačky s červeným displejem. První kousek je kalkulačka HP 35 která byla uvedena na trh v roce 1972, tedy o 2 roky dříve než Texas Instruments uvedl svou SR-50. Byla to první kapesní vědecká kalkulačka na světě. Po 35 letech, k tomuto výročí HP uvedla kalkulačku HP 35s, kterou vlastním také, ale její funkcionality jsou již na úplně jiném levelu. Postupně tedy rozšířím sbírku Red Display Texas Instruments o kalkulačky Red Display HP.

https://en.m.wikipedia.org/wiki/HP-35

https://en.m.wikipedia.org/wiki/HP_35s

Ještě jedna kalkulačková rarita. Sice na astronomické výpočty to je dost omezené, protože přesnost kalkulátoru je maximálně na 3 desetinná místa, ale ten příběh návrhu kalkulačky je opravdu pěkný. Mimochodem, existuje krásný emulátor této kalkulačky: http://files.righto.com/calculator/sinc ... lator.html

Clive Sinclair měl velký problém. Chtěl prodávat levnou vědeckou kalkulačku, která by sebrala trh drahým kalkulačkám, jako byl populární HP-35. Společnost Hewlett-Packard potřebovala dva roky, 20 inženýrů a milion dolarů, aby navrhla HP-35, který používal 5 složitých čipů a prodával se za 395 dolarů. Spolupráce společnosti Sinclair s výrobcem kalkulaček Bowmar nikam nevedla. Nyní mu Texas Instruments nabídl levný kalkulační čip, který sotva zvládal čtyř-funkční matematiku. Mohl by tento čip použít k sestavení vědecké kalkulačky za 100 dolarů?
Inženýři Texas Instruments tvrdili, že to není možné - jejich čip měl pouze 3 paměťové registry, žádné volání podprogramů a žádné úložiště pro konstanty, jako je π. Paměť ROM v kalkulačce obsahovala pouze 320 instrukcí, což stačilo jen na základní aritmetiku. Jak by do tohoto čipu mohli vtěsnat nějaké vědecké funkce?

Naštěstí měl Clive Sinclair, šéf Sinclair Radionics, tajnou zbraň - programátora a doktora matematiky Nigela Searla, který byl zároveň technickým ředitelem společnosti. Během několika dní v Texasu vymysleli nové algoritmy a napsali kód pro první jednočipovou vědeckou kalkulačku na světě, přičemž do čipu nějakým způsobem naprogramovali sinus, kosinus, tangens, arcsinus, arccos, arctan, log a exponenciálu. Inženýři v Texas Instruments byli ohromeni.

zdroj obrázku: https://en.wikipedia.org/wiki/Sinclair_Scientific

Pěkný, Pepo!
Já jsem se s HP kalkulátory nikdy nepotkal, měl jsem, jako všichni okolo, pouze TI…

HP dominovaly hlavně v USA a prodalo se jich statisíce, pak začaly ovládat trh kalkulačky Texas Instruments, hlavně v Evropě a to díky běžné logice výpočtů. HP používalo logiku RPN, což využívaly hlavně vědecká pracoviště. TI měly u nejvyšších řady 59 vyšší přesnost výpočtů. TI-59 "forensic result" je 9.000004661314, versus TI-30 výsledek je 9.1770871. HP-67 výsledek je 9.000417403. Správný výsledek je 9. Tedy nakonec TI kalkulačky zvítězily.

HP jsem neměl, začínal jsem na TI 59.
Jen pro ilustraci. Počítal jsem na ní strehl a to trvalo cca 6 hodin. Nyní na NB jen1,5milisec. Tehdy jsem z roho byl u vytržení.

Ta přesnost je závislá na počtu reálných cifer a TI 59 jich měla 13.

HP-67 počítala vnitřně na 14 míst, ale i tak nedosáhla na přesnost TI. Až dorazí, tak to schválně otestuji, zatím mám jen emulátor a to nemusí být úplně ono.

Opravuji, počítá vnitřně na 12 míst. Zajímavostí ale je, že HP-67 byla používaná v misích Apollo, holt přišli s kalkulačkou s magnetickými štítky jako první.

Psion píše: ↑23. 07. 2023, 13:45 HP-67 počítala vnitřně na 14 míst 12 míst, ale i tak nedosáhla na přesnost TI. Až dorazí, tak to schválně otestuji, zatím mám jen emulátor a to nemusí být úplně ono.

Konečně kalkulačka dorazila, zde je slíbené porovnání rychlosti HP-67 a TI-58.

Dokončil jsem program pro výpočet polohy Slunce pro HP-67. Jak vidíte, nevejde se do 224 kroků a je rozdělen na dvě části. Lze jej ještě optimalizovat a zkrátit, ale s menší přehledností a ovladatelností, například vynecháním úvodní sekvence zadávání dat. Později chci přidat výpočty poloh planet, takže program bude stejně výrazně delší. Bohužel tehdejší kalkulátory neměly dostatečný počet kroků, nicméně díky čtečce magnetických štítků to šlo obejít. Buď se načetla další část programu, nebo se vložila část nového kódu do těla programu příkazem Merge.

Přikládám soubory pro emulátor LXVII pro Mac OS. Je potřeba zavést nejdříve Program 1 a zároveň Data, které obsahují data pro registry. Po první části výpočtů se načte Program 2 a dokončí výpočet.

Program lze i naťukat do emulátoru v Java, ale to je časově náročné, ale můžete si alespoň kalkulačku vyzkoušet, bohužel tento emulátor neumožňuje Load programu.

Kód: Vybrat vše

A = Day
B = Month
C = Year
R/S


****** Program 1 v. 1.1 ******

001:  31 25 11     LBL A
002:     33 01     STO 1    day
003:     35 22       RTN
004:  31 25 12     LBL B
005:     33 02     STO 2    month
006:     35 22       RTN
007:  31 25 13     LBL C
008:     33 03     STO 3    year
009:     35 22       RTN
010:  31 25 14     LBL D
011:        02         2
012:     34 02     RCL 2
013:     32 71      XLEY    first or second month?
014:  31 22 07     GSB 7    correct month and year
015:        02         2
016:     34 03     RCL 3
017:        01         1
018:        00         0
019:        00         0
020:        81         /
021:     31 83       INT
022:     33 08     STO 8
023:        51         -
024:     34 08     RCL 8
025:        04         4
026:        81         /
027:     31 83       INT
028:        61         +
029:     33 04     STO 4
030:     34 03     RCL 3
031:        03         3
032:        06         6
033:        05         5
034:        83         .
035:        02         2
036:        05         5
037:        71         x
038:     31 83       INT
039:     33 05     STO 5
040:        03         3
041:        00         0
042:        83         .
043:        06         6
044:        41     ENTER
045:     34 02     RCL 2
046:        01         1
047:        61         +
048:        71         x
049:     31 83       INT
050:     33 06     STO 6
051:     34 04     RCL 4
052:        61         +
053:     34 05     RCL 5
054:        61         +
055:     34 01     RCL 1
056:        61         +
057:     34 12     RCL B    1720994.5
058:        61         +
059:     33 00     STO 0    Julian Date
060:     22 15     GTO E
061:  31 25 07     LBL 7
062:     34 03     RCL 3
063:        01         1
064:        51         -
065:     33 03     STO 3
066:     34 02     RCL 2
067:        01         1
068:        02         2
069:        61         +
070:     33 02     STO 2
071:     35 22       RTN
------ Mean Anomality ------
072:  31 25 15     LBL E
073:        01         1
074:        08         8
075:     35 33      ST I
076:     34 00     RCL 0
077:     34 24   RCL (i)
078:        51         -
079:        03         3
080:        06         6
081:        05         5
082:        02         2
083:        05         5
084:        81         /
085:     33 09     STO 9
086:        01         1
087:        00         0
088:     35 33      ST I
089:     34 24   RCL (i)
090:     31 34       ISZ
091:     34 24   RCL (i)
092:     34 09     RCL 9
093:        71         x
094:        61         +
095:        83         .
096:        00         0
097:        00         0
098:        00         0
099:        03         3
100:     34 09     RCL 9
101:     32 54       x^2
102:        71         x
103:        61         +
104:     33 00     STO 0
105:  31 22 01     GSB 1
106:     33 00     STO 0
107:     31 34       ISZ
108:     34 24   RCL (i)
109:     31 34       ISZ
110:     34 24   RCL (i)
111:     34 09     RCL 9
112:        71         x
113:        61         +
114:        83         .
115:        00         0
116:        00         0
117:        00         0
118:        05         5
119:     34 09     RCL 9
120:     32 54       x^2
121:        71         x
122:        61         +
123:     33 13     STO C
124:     31 34       ISZ
125:     34 24   RCL (i)
126:     31 34       ISZ
127:     34 24   RCL (i)
128:     34 09     RCL 9
129:        71         x
130:        51         -
131:     33 14     STO D
132:     34 00     RCL 0
133:     34 13     RCL C
134:        51         -
135:     31 71      XLT0
136:  31 22 06     GSB 6
137:     32 73       D>R
138:     33 11     STO A    Mean Anomality
139:     33 00     STO 0
140:     22 02     GTO 2
141:  31 25 01     LBL 1
142:     34 15     RCL E
143:        81         /
144:     31 83       INT
145:     34 15     RCL E
146:        71         x
147:     34 00     RCL 0
148:     35 52      X<>Y
149:        51         -
150:     35 22       RTN
151:  31 25 06     LBL 6
152:     34 15     RCL E
153:        61         +
154:     35 22       RTN
------ Kepler equation ------
155:  31 25 02     LBL 2
156:     35 42       RAD
157:        02         2
158:        03         3
159:     35 33      ST I
160:     34 11     RCL A
161:     34 24   RCL (i)
162:     34 00     RCL 0
163:     31 62       SIN
164:        71         x
165:        61         +
166:     34 00     RCL 0
167:     32 51      XEQY
168:     22 03     GTO 3
169:     35 53      R DN
170:     33 00     STO 0    Eccentric Anomaly
171:     22 02     GTO 2
------ True Anomality ------
172:  31 25 03     LBL 3
173:     35 41       DEG
174:        01         1
175:        41     ENTER
176:     34 24   RCL (i)
177:        61         +
178:        01         1
179:     34 24   RCL (i)
180:        51         -
181:        81         /
182:     31 54      SQRT
183:     34 00     RCL 0
184:     31 73       D<R
185:        02         2
186:        81         /
187:     31 64       TAN
188:        71         x
189:     32 64     TAN-1
190:        02         2
191:        71         x
192:     31 81      XGT0
193:     22 04     GTO 4
194:     34 15     RCL E
195:        61         +
------ Ecliptic Longitude ------
196:  31 25 04     LBL 4
197:     34 13     RCL C
198:        61         +
199:     34 15     RCL E
200:        51         -
201:     33 00     STO 0
------ Mean Obliquity ------
202:     35 34      RC I
203:        07         7
204:        51         -
205:     35 33      ST I
206:     34 24   RCL (i)
207:     31 34       ISZ
208:     34 24   RCL (i)
209:     34 09     RCL 9
210:        71         x
211:        51         -
212:     33 06     STO 6



Push A: α - Right Ascension SUN
R/S:    δ - Declination SUN

****** Program 2 ******

------ RA and DEC ------
001:  31 25 11     LBL A
002:     34 00     RCL 0
003:     31 62       SIN
004:     31 71      XLT0
005:  35 51 01      SF 1    TAN Quadrant Setting
006:     34 06     RCL 6
007:     31 63       COS
008:        71         x
009:     34 00     RCL 0
010:     31 63       COS
011:        81         /
012:     32 64     TAN-1
013:     31 71      XLT0
014:  31 22 01     GSB 1
015:  35 71 01      F? 1    
016:  31 22 01     GSB 1
017:        01         1
018:        05         5
019:        81         /
020:     32 74    H>H.MS    α - Right Ascension SUN
021:        84       R/S
022:     34 06     RCL 6
023:     31 62       SIN
024:     34 00     RCL 0
025:     31 62       SIN
026:        71         x
027:     32 62     SIN-1
028:     32 74    H>H.MS    δ - Declination SUN
029:  35 61 01    CF 1
030:        84       R/S
031:        84       R/S
032:  31 25 01     LBL 1
033:        01         1
034:        08         8
035:        00         0
036:        61         +
037:     35 22       RTN

Konečně dorazil skvost, kalkulačka Sinclair Cambridge Programmable s kompletním příslušenstvím v krásném stavu, tedy sběratelský kousek. Kalkulačka má 36 programovacích kroků, tady hodně málo, nicméně Keplerovu rovnici zvládne

. Kalkulačka má ale úžasnou historii, člověk, který ji prodal, jí má od Clive Sinclaira, tedy samotného majitele společnosti Sinclair.

Tady jsou další informace o kalkulačce https://en.m.wikipedia.org/wiki/Sinclair_Cambridge

Dodělal jsem po měsíci postupného programování program pro výpočet poloh planet pro krásný stroj HP-67

http://posec.astro.cz/index.php/clanky/ ... astronomii

Wow, překvapilo mě tohle téma, kterého jsem si předtím ve fóru nevšiml a jsem rád, že je víc nadšenců do programování různých astro výpočtů navzdory všemožným hotovým programům na vše možné

Já začínal s programováním někdy kolem roku 2000 a to právě na programovatelné kalkulačce Casio fx-4800P. Šlo hlavně o různé výpočty zatmění Slunce a přechodů planet přes Slunce, ale i polohy měsíčků Jupitera. Bohužel ta kalkulačka měla jen 4500 bajtů paměti. Pár let na to byl doma první PC a tak jsem přešel na Pascal a Delphi.
Teď jsem měl nějakou dobu zákaz tahat těžké věci po operaci (takže i montáž s dalekohledem), tak jsem si mj. pohrál alespoň s nějakým programem na HP prime myslím pro výpočet poloh planet dle Flanderna a Pulkinena a přepsal to do Pythonu. Trochu mě tohle téma nakoplo popřemýšlet o něčem novějším ala Casio FX-CG50

Díky za inspiraci i zajímavé příspevky a článek.

Není zač. kalkulačka Casio FX-CG50 je fajn stroj, já šel raději do HP Prime z důvodů RPN a věděl jsem, že nějaké astro programy na ni existují a naprogramovat jiné nebude problém.

Astronomické fórum

Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii

Re: Kalkulátory v astronomii