Programy pro kalkulátor TI-57

Publikováno Jiří Gracias Dec 3, 2016 Ostatní 0Komentáře

Krásná, šikovná, praktická a počertu užitečná věcička, to byl a stále ještě je kalkulátor Texas Instruments TI-57. Dá se bez nadsázky tvrdit, že předčí mnohé moderní kalkulátory. V jednoduchosti je síla. Kdo by si chtěl hrát, může se do toho pustit s několika prográmky níže, které jsem napsal mezi léty 1998 a 2000 pro jeden krásný kus tohoto kalkulátoru, který jsem jako chudý student koupil za 30,- Kč na elektrovrakovišti v Brně. Hledání, jak napsat co nejkratší program, aby v padesáti krocích uměl to co umět má, to bylo krásné trávení volného času a skvělý způsob, jak bystřit mysl. Kde jsou ty časy?

Tento prográmek počítá den v týdnu a juliánské datum pro 0h SEČ. Před spuštěním je třeba registry nakrmit konstantami podle poznámek dole, do prvního registru zadat den v měsíci, do druhého měsíc a do třetího rok. Prográmek si poradí s přestupností každého čtvrtého roku, přestupnost století však nezapočítává- ještě štěstí, že rok 2000 byl přestupný.


Číslo kroku	Funkce
00	04
01	SUM 1
02	RCL 5
03	2ND PRD 3
04	RCL 3
05	2ND INT
06	SUM 1
07	RCL 2
08	STO 7
09	01
10	INV SUM 2
11	02
12	2ND INV X>=T
13	GTO 0
14	RCL 7
15	SUM 1
16	RCL 3
17	2ND INV PRD 7
18	2ND INV INT
19	2ND INV X>=T
20	01
21	2ND INT
22	INV SUM 1
23	2ND LBL 0
24	RCL 0
25	2ND PRD 2
26	RCL 2
27	2ND INT
28	SUM 1
29	RCL 6
30	2ND PRD 2
31	RCL 2
32	2ND INT
33	SUM 1
34	07
35	2ND INV PRD 1
36	RCL 1
37	2ND INV INT
38	X↑↓T
39	07
40	2ND PRD 7
41	RCL 7
42	R/S
43	07
44	2ND PRD 1
45	RCL 4
46	SUM 1
47	RCL 1
48	R/S
49	RST

Před prvním spuštěním programu zadat do datových registrů tyto konstanty:

30,43 → STO 0
1/(30,43*8) → STO 6
(1721039+0,4583) → STO 4
365,25 → STO 5

Návod: Začít na kroku 00 (zmáčknout RST) a zadat do pamětí den → STO 1, měsíc → STO 2 a rok → STO 3. Zmáčknout R/S. Objeví se číslo dne v týdnu. Další zmáčknutí R/S- objeví se JD pro 0,0000 hodin SEČ.

Další program umí spočítat střední hvězdný čas v 0,0000 hodin světového času na nultém poledníku. Ani tento prográmek se neobejde bez zadání konstant do některých pamětí před prvním spuštěním. Den, měsíc a rok se opět zadávají do datových registrů s čísly 1, 2 a 3.


Číslo kroku	Funkce
00	RCL 5
01	2ND PRD 3
02	RCL 3
03	2ND INT
04	SUM 1
05	RCL 2
06	X↑↓T
07	STO 2
08	02
09	2ND INV X>=T
10	GTO 1
11	RCL 7
12	SUM 1
13	RCL 3
14	2ND INV INT
15	2ND LBL 1
16	X↑↓T
17	2ND EXC 2
18	STO 3
19	00
20	2ND X=T
21	01
22	INV SUM 1
23	01
24	INV SUM 2
25	RCL 0
26	2ND PRD 2
27	RCL 2
28	2ND INT
29	SUM 1
30	RCL 6
31	2ND PRD 2
32	RCL 2
33	2ND INT
34	SUM 1
35	RCL 4
36	SUM 1
37	RCL 3
38	STO 7
39	2ND INV PRD 1
40	RCL 1
41	2ND INV INT
42	STO 1
43	02
44	04
45	2ND PRD 1
46	RCL 1
47	2ND INV DMS
48	R/S
49	RST

Před prvním spuštěním programu zadat do datových registrů tyto konstanty:

30,43 → STO 0
1/(30,43*8) → STO 6
(-694240-0,59769) → STO 4
365,25 → STO 5
(365,2+4,221178e-2) → STO 7

Návod: Jako u předchozího programu začínáme na kroku 00 (RST). Do pamětí 1, 2 a 3 zadáme den, měsíc a rok. Po stisku R/S spočítá TI-57 hledaný střední čas ve formátu hh,mmss.

Další program umí spočítat faktoriál libovolně velkého čísla. Ale pozor, například výpočet 100000! trvá déle než jeden den. Ale proč si jen tak nezablbnout, že?


Číslo kroku	Funkce
00	R/S
01	STO 0
02	X↑↓T
03	00
04	2ND X>=T
05	RST
06	RCL 0
07	2ND INT
08	2ND INV X=T
09	RST
10	06
11	09
12	2ND X>=T
13	GTO 3
14	2ND LBL 0
15	RCL 0
16	2ND LOG
17	SUM 1
18	2ND DSZ
19	GTO 0
20	2ND LBL 2
21	RCL 1
22	2ND INV INT
23	2ND INV LOG
24	R/S
25	CLR
26	2ND EXC 1
27	2ND INT
28	RST
29	2ND LBL 3
30	01
31	STO 1
32	2ND LBL 1
33	RCL 0
34	2ND PRD 1
35	2ND DSZ
36	GTO 1
37	RCL 1
38	2ND LOG
39	STO 1
40	GTO 2

Návod: začít na kroku 00, vložit přirozené číslo a zmáčknot R/S. Kalkulátor vypočítá mantisu faktoriálu tohoto čísla. Po dalším stisku R/S ukáže TI-57 exponent hledaného faktoriálu. Můžeme zadat další číslo... Tak například, 100000!=1,5294314e430962 a nebo třeba 250000!=5,566728e1240873. :-)

Tento geniální program nemá žádný jiný účel, než zkrátit volný čas- jedná se o jednoduchou logickou hru. Nejsem jeho autorem a byl zveřejněn v jednom hooodně starém časopisu Sdělovací technika. Principem hry je, že si kalkulátor „myslí” nějaké čtyřmístné číslo a my jej máme uhádnout. Vložíme tedy náš tip, co že by to mělo být za číslo a kalkulátor nám poté podá informaci, kolik číslic jsme správně uhádli a kolik zároveň správně umístili.


Číslo kroku	Funkce
00	STO 6
01	04
02	2ND EXC 0
03	STO 5
04	2ND LBL 1
05	01
06	00
07	STO 7
08	2ND INV PRD 6
09	RCL 6
10	2ND INV INT
11	INV SUM 6
12	2ND PRD 7
13	RCL 1
14	2ND X=T
15	GTO 2
16	RCL 2
17	2ND X=T
18	GTO 2
19	RCL 3
20	2ND X=T
21	GTO 2
22	RCL 4
23	2ND INV X=T
24	GTO 3
25	01
26	2ND LBL 2
27	01
28	SUM 5
29	2ND LBL 3
30	RCL 1
31	2ND EXC 2
32	2ND EXC 3
33	2ND EXC 4
34	STO 1
35	2ND DSZ
36	GTO 1
37	RCL 5
38	R/S
39	RST
40	2ND LBL 4
41	2ND EXC 2
42	2ND EXC 5
43	2ND EXC 3
44	2ND EXC 1
45	2ND EXC 4
46	2ND EXC 6
47	2ND DSZ
48	GTO 4
49	CLR

Návod: Do paměti č. 1 vložit číslo v rozmezí 1 až 100 a do pamětí s čísly 1 až 6 vložit čísla 1, 2, 3, 4, 5, 6 v libovolném pořadí. Na displej napsat číslo 7 a zmáčknout SBR 4. Začne blikat 0 → zmáčknout CLR a poté RST. Vložit tip na tajné číslo. Kalkulátor vrátí dvoumístné číslo, přičemž první cifra zleva je počet správně umístěných číslic v našem tipu a druhá cifra je počet uhádnutých číslic. Můžeme vložit další tip, a opakovat to tak dlouho, dokud se nedobereme správného výsledku.

Na závěr by se mohlo třeba hodit něco málo zajímavých tipů.;)

Programy pro kalkulátor TI-57

Kategorie

Odběr novinek

Články