diff options
| author | Anton Luka Šijanec <anton@sijanec.eu> | 2023-03-07 19:58:41 +0100 |
|---|---|---|
| committer | Anton Luka Šijanec <anton@sijanec.eu> | 2023-03-07 19:58:41 +0100 |
| commit | 1623fbb6f72aa3e0f8cc3b60acdc59a0e663be34 (patch) | |
| tree | 2166642f21ab787eaea63bf8c836ae1bcf673a8a | |
| parent | sike (diff) | |
| download | sola-gimb-4-1623fbb6f72aa3e0f8cc3b60acdc59a0e663be34.tar sola-gimb-4-1623fbb6f72aa3e0f8cc3b60acdc59a0e663be34.tar.gz sola-gimb-4-1623fbb6f72aa3e0f8cc3b60acdc59a0e663be34.tar.bz2 sola-gimb-4-1623fbb6f72aa3e0f8cc3b60acdc59a0e663be34.tar.lz sola-gimb-4-1623fbb6f72aa3e0f8cc3b60acdc59a0e663be34.tar.xz sola-gimb-4-1623fbb6f72aa3e0f8cc3b60acdc59a0e663be34.tar.zst sola-gimb-4-1623fbb6f72aa3e0f8cc3b60acdc59a0e663be34.zip | |
109 files changed, 1217 insertions, 0 deletions
diff --git a/hp48g20230307/D.01/D.01/BIO/a b/hp48g20230307/D.01/D.01/BIO/a new file mode 100644 index 0000000..b261958 --- /dev/null +++ b/hp48g20230307/D.01/D.01/BIO/a @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+6,0380952381
diff --git a/hp48g20230307/D.01/D.01/BIO/b b/hp48g20230307/D.01/D.01/BIO/b new file mode 100644 index 0000000..840a865 --- /dev/null +++ b/hp48g20230307/D.01/D.01/BIO/b @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+,29810725552
diff --git a/hp48g20230307/D.01/D.01/BIO/pra b/hp48g20230307/D.01/D.01/BIO/pra new file mode 100644 index 0000000..94ce3a2 --- /dev/null +++ b/hp48g20230307/D.01/D.01/BIO/pra @@ -0,0 +1,7 @@ +%%HP: T(1)A(D)F(,);
+ "" 1 DISP "" 2
+DISP "" 3 DISP "" 4
+DISP "" 5 DISP "" 6
+DISP "" 7 DISP 3
+FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/BIO/veje b/hp48g20230307/D.01/D.01/BIO/veje new file mode 100644 index 0000000..b3d5df8 --- /dev/null +++ b/hp48g20230307/D.01/D.01/BIO/veje @@ -0,0 +1,11 @@ +%%HP: T(1)A(D)F(,);
+
+"MIKROB.(VI.PAR.MIK.BAK)"
+1 DISP
+"BOT.ANTR.ZOO.MORF(CIT."
+2 DISP
+"HIST.ANA.FIZ)EKO.EVO.EMBR(ZAR.)"
+3 DISP "" 4 DISP ""
+5 DISP "" 6 DISP ""
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/D.02/LhwaySlika b/hp48g20230307/D.01/D.01/D.02/LhwaySlika new file mode 100644 index 0000000..2e63006 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/LhwaySlika @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+GROB 131 64 000000000000000000000EF00000000000000000000000000000000AF00000000000000000000000000000008F000000000000000000000000000000008F00000000000000000000000000000000C700000000000000000000000000000000F300000000000000000000000000000008F10000000000000000000000000000000CF00000000000000000000000000000000E300000000000000000000000000000008F10000000000000000000000000000000CF00000000000000000000000000000000E700000000000000000000000000000000F300000000000000000000000000000008F00000000000000000000000000000000C700000000000000000000000000000000E300000000000000000000000000000000F100000000000000000000000000000008F10000000000000000000000000000007E30000000000000000000000000000008FE3000000000000000000000000000000CFF3000000000000000000000000000000EFF3000000000000000000000000000000FFF3000000000000000000000000000008FFF300000000000000000000000000000CFFF300000000000000000000000000000EFFF300000000000000000000000000000FFFF700000000000000000000000000008FFFFF0000000000000000000000000000CFFFFF1000000000000000000000000000EFFFFF3000000000000000000000000000FFFFFF7000000000000000000000000008FFFFFFF00000000000000000000000000CFFFFFFF1000000000000000000000000000FFFFF00000000000000000000000000000FFFFF00000000000000000000000000000FFFFF00000000000000000000000000000F70EF00000000000000000000000000000F70EF00000000000000000000000000000F70EF00000000000000000000000000000F70EF00000000000000000000000000000F71EF00000000000000000000000000000F70EF00000000000000000000000000000F70EF00000000000000000000000000000FFFFF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
diff --git a/hp48g20230307/D.01/D.01/D.02/Snake b/hp48g20230307/D.01/D.01/D.02/Snake new file mode 100644 index 0000000..5ee6756 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/Snake @@ -0,0 +1,39 @@ +%%HP: T(1)A(D)F(,);
+ (0;0) (13;6,3)
+PDIM { } 'T' STO
+(6,5;3,1) 'H' STO 0
+'K' STO (,1;0) 'D'
+STO (1;1) 'F' STO
+ WHILE GETKEY 21
+ REPEAT ,2 WAIT
+GETKEY 'K' STO
+ CASE K 25 ==
+ THEN (0;,1)
+'D' STO
+ END K 34 ==
+ THEN (-,1;0)
+'D' STO
+ END K 36 ==
+ THEN (,1;0)
+'D' STO
+ END K 35 ==
+ THEN (0;-,1)
+'D' STO
+ END
+ END F PIXON
+ IF F H ==
+ THEN T (0;0) +
+'T' STO RAND 0 1 0
+6,5 MAP 1 RND RAND
+0 1 0 3,1 MAP 1 RND
+RC 'F' STO
+ END H T + 'T'
+STO H D + 'H' STO H
+PIXON T DUP SIZE
+GET PIXOFF T DUP
+SIZE 1 - 1 SWAP SUB
+'T' STO { # 0d # 0d
+} PVIEW
+ END { F D K H T
+PPAR PICT } PURGE
+
diff --git a/hp48g20230307/D.01/D.01/D.02/ast4 b/hp48g20230307/D.01/D.01/D.02/ast4 new file mode 100644 index 0000000..26ec224 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/ast4 @@ -0,0 +1,20 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"ASTRON.ENOTA=RAZ.SONCE"
+1 DISP
+"-ZEMLJA ZORNI=POD"
+2 DISP
+"KATERIM VIDIMO OBJEKT"
+3 DISP
+"ARISTOTEL330pnsZEMLJA"
+4 DISP
+"=OKROGLA ERATOSTEN300"
+5 DISP
+"pnsIZRAC.ZEM.VELIKOST"
+6 DISP
+"PLOTEMAJ150GEOCENTRIX"
+7 DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/d b/hp48g20230307/D.01/D.01/D.02/d new file mode 100644 index 0000000..5a6fdfb --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/d @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+(,1;0)
diff --git a/hp48g20230307/D.01/D.01/D.02/des1 b/hp48g20230307/D.01/D.01/D.02/des1 new file mode 100644 index 0000000..130e5fa --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/des1 @@ -0,0 +1,19 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"TERA T 10e12" 1
+DISP "GIGA G 10e9"
+2 DISP
+"MEGA M 10e6" 3
+DISP "KILO k 10e3"
+4 DISP
+"HEKTO h 10e2" 5
+DISP "DEKA da 10e1"
+6 DISP
+"DECI d 10e-1" 6
+DISP
+"CENTI c 10e-2" 7
+DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/des2 b/hp48g20230307/D.01/D.01/D.02/des2 new file mode 100644 index 0000000..8748805 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/des2 @@ -0,0 +1,19 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"MILI m 10e-3" 1
+DISP
+"MIKRO u 10e-6" 2
+DISP "NANO n 10e-9"
+3 DISP
+"PIKO p 10e-12" 4
+DISP
+"DOLZINA METER m" 5
+DISP
+"CAS SEKUNDA s" 6
+DISP
+"MASA KILOGRAM kg"
+7 DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/dick b/hp48g20230307/D.01/D.01/D.02/dick new file mode 100644 index 0000000..3765fa4 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/dick @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+GROB 131 64 000F10000000EF0000000000000000000000802000000838000000000000000000000040400000080800000000000000000000002080000008383305000000000000000000100100000020220F18F002000000000000100100000F3CF2031800120000000000001001000CF1008203980013000000000000100108F70000E703980091000000000000100FFF00000030019800D000000000000020800000000F1001980070000000000000404000000EF1000198007000000000000080200000020000019800D00000000000000F10000CF300000198009100000000000080200CF700000009980011000000000000404004000000000D88F1110000000000002080F70000000007000001000000000000208F100000000003000001000000000000208000000000000000000000000000000020800000CFF00000000000000000000000208000007CB700000000000000000000004040000C1CCF10000000000000000000008020000F038320000000000000000000000F1000CFF04D600000000000000000000000000CF0432FD000000000000000000000000083604CD2F000000000000000000000000870102434C100000000000008AA000000070C001A24430C100000000008AA000000FCFFF80544860E7000000000004A00000FF3010FF7488D0FE00000000000A40008F000800409FFF88DF10000000000A400870EFFFFFFF139FB57E700000000000000FFF10000000E119EFFFF30000000000000000000000000EFFFFB44C10000000EFF700000000000000F77DFF83EFFFFFFF18F000000000000000CFD8CFFF401080008700008300000000008F78D801FF3040EF70E0000200000000000F30B01258CFFF97008008B300000000000C00611A2408107000E0000200000000000000C11612040F00008000830000000000000087AD1203E00000E00000000000000000008E7261CF100000000000000000000000000B518FF10000000000000000000000000006E06830000000000000000000000000000CF91C000000000000000000000000000000FE130000000000000000000000000000008FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000030000000000000000000000000000000002000000000000000000000000000000007200000000000000000000000000000000020000000000000000000000000000000007000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
diff --git a/hp48g20230307/D.01/D.01/D.02/dir.list b/hp48g20230307/D.01/D.01/D.02/dir.list new file mode 100644 index 0000000..bc18ed1 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/dir.list @@ -0,0 +1,39 @@ +{ HOME D.01 D.01 D.02 } 7447,5 +F 24 Complex Number 32851 +D 24 Complex Number 54219 +K 16 Real Number 3320 +H 24 Complex Number 23579 +T 10,5 List 30182 +K2 204,5 Program 33436 +KEM 227,5 Program 26506 +EQ 26 Algebraic 42104 +PPAR 104 List 12821 +PR20 179,5 Program 47271 +HT19 211,5 Program 58102 +N218 182,5 Program 54635 +Snake 816,5 Program 34554 +DICK 1106,5 Graphic 28311 +LhwaySlika 1112,5 Graphic 57890 +GOS18 108,5 Program 20994 +N117 225,5 Program 24346 +N316 235,5 Program 17201 +WIKI 267,5 Program 64124 +GOOGLE 262,5 Program 18784 +OKO15 217,5 Program 61324 +OBS14 1107,5 Graphic 55437 +ZRC13 1107,5 Graphic 59257 +LEC12 1107,5 Graphic 26700 +STE11 1107,5 Graphic 20314 +HIT10 258,5 Program 8604 +HI 243,5 Program 63224 +GAME 149,5 Program 28981 +LUK9 250,5 Program 27709 +FIZ8 250,5 Program 51135 +N 17 Global Name 42621 +PLA6 247,5 Program 15307 +LJU5 251,5 Program 40331 +AST4 259,5 Program 43112 +SIE3 264,5 Program 10898 +DES2 207,5 Program 16316 +DES1 217,5 Program 43224 +ODPRI 82 Program 60831 diff --git a/hp48g20230307/D.01/D.01/D.02/eq b/hp48g20230307/D.01/D.01/D.02/eq new file mode 100644 index 0000000..ccb649d --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/eq @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+'-2*X+2'
diff --git a/hp48g20230307/D.01/D.01/D.02/f b/hp48g20230307/D.01/D.01/D.02/f new file mode 100644 index 0000000..83cfe8a --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/f @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+(1;1)
diff --git a/hp48g20230307/D.01/D.01/D.02/fiz8 b/hp48g20230307/D.01/D.01/D.02/fiz8 new file mode 100644 index 0000000..3487254 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/fiz8 @@ -0,0 +1,20 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"REVOLUCIJA=OKOL.SONCA"
+1 DISP
+"ROTACIJA=OKOLI SV.OSI"
+2 DISP
+"SEVERNICA:PRIMIRU"
+3 DISP
+"SIRIJ:NAJSVETLEJSA"
+4 DISP
+"PROKKS.ENTA.:NAJBLJ."
+5 DISP
+"OPAZOVANJE,DOMNEVA,"
+6 DISP
+"POSKUS,ZNANST.TEORIJA"
+7 DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/game b/hp48g20230307/D.01/D.01/D.02/game new file mode 100644 index 0000000..0eeb0aa --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/game @@ -0,0 +1,7 @@ +%%HP: T(1)A(D)F(,);
+
+"Sorry, but you are in school mode, so this file is locked. Connect via"
+MSGBOX
+"RS232 to PC and telnet unlock to disable"
+MSGBOX
+
diff --git a/hp48g20230307/D.01/D.01/D.02/google b/hp48g20230307/D.01/D.01/D.02/google new file mode 100644 index 0000000..e0fdefe --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/google @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"SpletSlikeVideoZemljevidi"
+1 DISP
+""
+2 DISP
+" Google" 3
+DISP
+" [Iskanje][Klik n ]"
+4 DISP
+"______________________"
+5 DISP
+"NastavitveZasebnostPogoji"
+6 DISP
+"http://wap.google.com/?client=hp48g"
+7 DISP 0 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/D.02/gos18 b/hp48g20230307/D.01/D.01/D.02/gos18 new file mode 100644 index 0000000..06c8073 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/gos18 @@ -0,0 +1,10 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"=GOSTOTA=MASA/VOLUMEN"
+1 DISP
+"=SPECIFICNA TEZA=Fg/v"
+2 DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/h b/hp48g20230307/D.01/D.01/D.02/h new file mode 100644 index 0000000..3d1497a --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/h @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+(6,5;3,1)
diff --git a/hp48g20230307/D.01/D.01/D.02/hi b/hp48g20230307/D.01/D.01/D.02/hi new file mode 100644 index 0000000..a70a38a --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/hi @@ -0,0 +1,20 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"IG: @antonsijanec"
+1 DISP
+"FB: Anton Luka Sijanec"
+2 DISP
+"SnapChat: @a4L2004"
+3 DISP
+"Twitter: @anton_Luka"
+4 DISP
+"WebSite: ovca.ml"
+5 DISP
+"BTC: 1BfXv1GM8NNBkdDdD"
+6 DISP
+"JPyqG2hcos7EebEtn"
+7 DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/hit10 b/hp48g20230307/D.01/D.01/D.02/hit10 new file mode 100644 index 0000000..ca1d9f0 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/hit10 @@ -0,0 +1,20 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"V=S/T S=T*V T=S/V"
+1 DISP
+"SVETLOBNI CUREK-SNOP"
+2 DISP
+"ZRCALO-NAVIDEZNA"
+3 DISP
+"ZBIRALNA RAZPRSILN"
+4 DISP
+"f-GORISC.RAZD F-GORIS."
+5 DISP
+"S.ZBIRALNE=OBRNJ.,PRA."
+6 DISP
+"OKO=POMANJSANA,OBRNJEN"
+7 DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/ht19 b/hp48g20230307/D.01/D.01/D.02/ht19 new file mode 100644 index 0000000..9b33b5a --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/ht19 @@ -0,0 +1,16 @@ +%%HP: T(1)A(D)F(,);
+
+"Tlak: (N/m3)*Hm=Pa"
+1 DISP
+"bar=100kPa=100000Pa"
+2 DISP "Zrak=1Bar"
+3 DISP
+"Voda=10000 N/m2" 4
+DISP
+"Tlak=sila/ploskev"
+5 DISP
+"MERKUR,VENERA,ZEMLJA,"
+6 DISP
+"MARS,JUPITER,SATURN"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/D.02/k b/hp48g20230307/D.01/D.01/D.02/k new file mode 100644 index 0000000..db9fa84 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/k @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+0
diff --git a/hp48g20230307/D.01/D.01/D.02/k2 b/hp48g20230307/D.01/D.01/D.02/k2 new file mode 100644 index 0000000..d962cc2 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/k2 @@ -0,0 +1,15 @@ +%%HP: T(1)A(D)F(,);
+
+"LupPer PLuSpdf Orb Spin"
+1 DISP
+"SO PDF8 1357Obrnj"
+2 DISP
+"PavljUnik HundPosam"
+3 DISP
+"PetrijEjReagstPuhlkBir"
+4 DISP
+"Granuliranaepruveta"
+5 DISP
+"OrbVelOblUsm ZapOdpIzo"
+6 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/D.02/kem b/hp48g20230307/D.01/D.01/D.02/kem new file mode 100644 index 0000000..f64817c --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/kem @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"78N2.21O2.1AR.1CO2"
+1 DISP
+"SINT.RAZGR RESUBL"
+2 DISP
+"VPR.HIP EK ANAL REZ"
+3 DISP
+"VRS KOL KONC IZP ORL"
+4 DISP
+"INH RESPIR REKT INTRVNZN"
+5 DISP
+"DERM IZOT.RAZ N0 M=P+N"
+6 DISP
+"V=P=E KatEndo " 7
+DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/D.02/lec12 b/hp48g20230307/D.01/D.01/D.02/lec12 new file mode 100644 index 0000000..43352d0 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/lec12 @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+GROB 131 64 0000000000000000C000000000000000000000000000000000E100000000000000000000000000000000B300000000000000000000000000000008960000000000000000000000000000000C8C000000000000000000000000000000008000000000000000000000000000000000800000000000000000000000000000000080000000000000000000000000000000008000000000000000000000087000000000800000000000000000000008400000000080000000000000000000000840000000008000000000000000000000087000000000800000000000000000000008000000C000800000000000000000000008000000C10080000000000000000000000000000083008000000000000000000000007000000700800000000000000000000000FFFFFFFFFFF0000000000000000000000CF000000300830000000000000000000004A100008100840000000000000000000000220070C0008810000000000000000000002400104000802000000000000000000000280070000080C000000000000000000000203010000080010830000000000000000020401000008006080000000000000000002080100000800818300000000000000000200300000080002800000000000000000020040000008000C800000000000000000020080000008000010100000000000000002000D10000800006C10000000000000000200873000080000C6000000000000000002000F2000080000C300000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF700000000000E20000800008F100000400000000000000FD000080000C42000004000000000000009110008000000C00000400000000000000002000800000001000040000000000000000C000800000006000040000000000000000010080000000810004000000000000000002008000000002000400000000000000000400800000000C00040000000000000000081080000000001004000000000000000000208000000000600400000000000000000040800000000080040000000000000000008080000000000304000000000000000000038000000000046460000000000000000004800000000008D430000000000000000008800000000000AD10000000000000000000B00000000000CF00000000000000000000C0000000000007000000000000000000008FFFFFFFFFFFFFFF7000000000000000008000000000000810000000000000000000800000000000002000000000000000000080000000000000C0000000000000000000800000000000000100000000000000000080000000000000060000000000000000008000000000000E1800000000000000000080000000000002003000000000000000048000000000000E1040000000000000000C9C00000000000010000000000000000000B600000000000E10000000000000000000A300000000000000000000000000000000E100000000000000000000000000000000800000000000000000
diff --git a/hp48g20230307/D.01/D.01/D.02/lju5 b/hp48g20230307/D.01/D.01/D.02/lju5 new file mode 100644 index 0000000..0eed4b0 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/lju5 @@ -0,0 +1,20 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"HIPARH200pnsMAGNITUDA"
+1 DISP
+"ZVEZD KOPERNIK1500"
+2 DISP
+"HELIOCENTRIX GALILEI"
+3 DISP
+"16stDALJNOGLED" 4
+DISP
+"KEPLER16stGIBAN.PLANET"
+5 DISP
+"NEWTON17stGRAVITACIJA"
+6 DISP
+"EINSTEIN20stRELATIVNO."
+7 DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/luk9 b/hp48g20230307/D.01/D.01/D.02/luk9 new file mode 100644 index 0000000..63d19dc --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/luk9 @@ -0,0 +1,19 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"SODOBNA:MEHANIKA,STATIK"
+1 DISP
+",A ELEKTRI.,MAGNETIZEM,"
+2 DISP
+"OPTIKA,KABRIKA KLASICNA"
+3 DISP
+":ASTRONOMIJA,ATOMSKA,"
+4 DISP "JEDRSKA" 5
+DISP
+":-() : - ))) :-D xD"
+6 DISP
+"MAS TO! - MAM TO! :-)"
+7 DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/n b/hp48g20230307/D.01/D.01/D.02/n new file mode 100644 index 0000000..dc4a211 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/n @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+External
diff --git a/hp48g20230307/D.01/D.01/D.02/n117 b/hp48g20230307/D.01/D.01/D.02/n117 new file mode 100644 index 0000000..0a1a60b --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/n117 @@ -0,0 +1,18 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"1 NEWTNON ZAKON" 1
+DISP
+"POGOJ ZA RAVNOVESJE"
+2 DISP
+"CE JE VSOTA ZUNANJIH SIL"
+3 DISP
+"NA TELO ENAKA 0, TELO"
+4 DISP
+"MIRUJE, ALI PA SE GIBLJE"
+5 DISP
+"PREMO IN ENAKOMERNO"
+6 DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/n218 b/hp48g20230307/D.01/D.01/D.02/n218 new file mode 100644 index 0000000..926047d --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/n218 @@ -0,0 +1,14 @@ +%%HP: T(1)A(D)F(,);
+
+"DRUGI NEWTNOV ZAKON"
+1 DISP "R=ma R/m=a"
+2 DISP
+"REZULTANTA SIL JE"
+3 DISP
+"ENAKA PRODUKTU MASE"
+4 DISP
+"IN POSPESKA TELESA"
+5 DISP
+"1N=1kg PRI 1m/s2"
+6 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/D.02/n316 b/hp48g20230307/D.01/D.01/D.02/n316 new file mode 100644 index 0000000..631ad55 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/n316 @@ -0,0 +1,20 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"3 NEWTNOV ZAKON" 1
+DISP
+"ZAKON O VZAJEMNEM"
+2 DISP
+"DELOVANJU SIL" 3
+DISP
+"CE X TELO NA Y Z NEKO"
+4 DISP
+"SILO, POTEM Y NA X"
+5 DISP
+"DELUJE Z NASPROTNO"
+6 DISP
+"OBRNJENO ENAKO SILO,"
+7 DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/obs14 b/hp48g20230307/D.01/D.01/D.02/obs14 new file mode 100644 index 0000000..8736d05 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/obs14 @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+GROB 131 64 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000006000000000000000000000000000000000F100000000000000000000000000000008DF100000000000CFFFFFFFFFFFF000000C43E30000000000400000000000E0000004460C300000000040000000000F900000004000C7000000004000000000F080000000400008F0000000400000008F00800000004000000F0000004000000C70008000000040000000F10000400000E3000080000000400000000E100040000F100000800000004000000000E3004000F00000008000000040000000000C30408F0000000080000000400000000000C70C70000000008000000040000000000008F30000000000800000004000000000000E1F000000000080000000400000000000F140F1000000008000000040000000008F00400E1000000080000000400000000C70004000E30000008000000040000000C3000040000C300000800000004000000E300000400000C7000080000000400000F100000040000008F0008000000040008F00000000400000000F0080000000400C70000000004000000000F18000000040C3000000000040000000000E900000004E300000000000400000000000E0000000C1000000000000CFFFFFFFFFFFF00000004000000000000000000000000000000000400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
diff --git a/hp48g20230307/D.01/D.01/D.02/odpri b/hp48g20230307/D.01/D.01/D.02/odpri new file mode 100644 index 0000000..f973c4c --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/odpri @@ -0,0 +1,5 @@ +%%HP: T(1)A(D)F(,);
+
+"KMALU BOM UMRL. ZAL MI JE. SAJ SEM ZE STAR. ADIJO..."
+MSGBOX
+
diff --git a/hp48g20230307/D.01/D.01/D.02/odpri.pojasnilo b/hp48g20230307/D.01/D.01/D.02/odpri.pojasnilo new file mode 100644 index 0000000..3f6f132 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/odpri.pojasnilo @@ -0,0 +1,3 @@ +ODPRI (odpri) govori o kalkulatorju kot napravi in ga personificira, češ da bo zaradi strojnih napak kmalu nehal delovati. ne govori o osebi/človeku. + +dejansko pa kalkulator šest+ let po tem, ko sem to napisal, še vedno deluje, le da ima en razlit piksel na LCD ekranu diff --git a/hp48g20230307/D.01/D.01/D.02/oko15 b/hp48g20230307/D.01/D.01/D.02/oko15 new file mode 100644 index 0000000..d45d024 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/oko15 @@ -0,0 +1,16 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"KRATKOVIDNO=RAZPRSILNA"
+1 DISP
+"LUPA=POVECANA,PRAVA"
+2 DISP "/NAVIDEZA"
+3 DISP
+"TELESKOP=OKULAR-PoNaOb"
+4 DISP "/&OBJEKTIV"
+5 DISP
+"FOTOAPARAT IMA 1 LECO"
+6 DISP "" 7 DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/pla6 b/hp48g20230307/D.01/D.01/D.02/pla6 new file mode 100644 index 0000000..e439c53 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/pla6 @@ -0,0 +1,20 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"LUNA:APOLLO11,669,NEIL"
+1 DISP
+"ASTEROIDVESOLJE KOMET"
+2 DISP
+"=METEO.ZAZA.+JEDRO+REP"
+3 DISP
+"METEORITZEMLJA"
+4 DISP
+"MERKUR,VENERA,ZEMLJA,"
+5 DISP
+"MARS,JUPITER,SATURN,"
+6 DISP
+"URAN,NEPTUN" 7
+DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/pr20 b/hp48g20230307/D.01/D.01/D.02/pr20 Binary files differnew file mode 100644 index 0000000..a955fa2 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/pr20 diff --git a/hp48g20230307/D.01/D.01/D.02/sie3 b/hp48g20230307/D.01/D.01/D.02/sie3 new file mode 100644 index 0000000..78c2d72 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/sie3 @@ -0,0 +1,20 @@ +%%HP: T(1)A(D)F(,);
+
+ WHILE '1==1'
+ REPEAT
+"ELEKTRICNI TOK AMPER A"
+1 DISP
+"TEMPERATURA KELVIN K"
+2 DISP
+"SVETILNOST CANDELA cd"
+3 DISP
+"KOLICINA SNOVI MOL mol"
+4 DISP
+"ASTRONOMIJA=VEDA,KI SE"
+5 DISP
+"UKVARJA Z PROUCEVANJEM"
+6 DISP
+"OBJEKTOV&POJAVOVVESOL"
+7 DISP
+ END
+
diff --git a/hp48g20230307/D.01/D.01/D.02/ste11 b/hp48g20230307/D.01/D.01/D.02/ste11 new file mode 100644 index 0000000..74f0bb1 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/ste11 @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+GROB 131 64 000000000020000400000000000000000000000000004000040000000000000000000000000000800004000000000000000000000000000001000400000000000000000000000000000100040000000000000000000000000000020004000000000000000000000000000004000400000000000000000000000000000800040000000000000000000000000000001004000000000000000000000000000000200400000000000000000000000000000020040000000000000000000000000000004004000000000000000000000000000000800400000000000000000000000000000001040000000000000000000000000000000204000000000000000000000000000000040400000000000000000000000000000004040000000000000000000000000000000804000000000000000000000000000000001400000000000000000000000000000000240000000000000000000000000000000044000000000000000000000000000000008400000000000000000000000000000000840000000000000000000000000000000005000000000000000000000000000000000600000000000000000000EFFFFFFFFFFFFFFFFFFFFFFFFFFF70000020000000000004000000000000004000002000000000000C000000000000004000002000000000000C000000000000004000002000000000000C0000000000000040000020000000000004100000000000004000002000000000000410000000000000400000200000000000042000000000000040000020000000000004200000000000004000002000000000000420000000000000400000200000000000044000000000000040000020000000000004400000000000004051CE28A5A81A000004400000000000004000002000000000000480000000000000400000EFFFFFFFFFFFFFFFFFFFFFFFFFFF7000000000000000000401000000000000000000000000000000040200000000000000000000000000000004040000000000000000000000000000000408000000000000000000000000000000040010000000000000000000000000000004002000000000000000000000000000000400400000000000000000000000000000040080000000000000000000000000000004000100000000000000000000000000000400020000000000000000000000000000040004000000000000000000000000000004000800000000000000000000000000000400001000000000000000000000000000040000200000000000000000000000000004000040000000000000000000000000000400008000000000000000000000000000040000010000000000000000000000000004000000000000000000000000000000000400000000000000000000000000000000040000000000000000000000000000000004000000000000000000000000000000000400000000000000000000000000000000040000000000000000000000000000000004000000000000000000
diff --git a/hp48g20230307/D.01/D.01/D.02/t b/hp48g20230307/D.01/D.01/D.02/t new file mode 100644 index 0000000..0d4fa1e --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/t @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+{ }
diff --git a/hp48g20230307/D.01/D.01/D.02/wiki b/hp48g20230307/D.01/D.01/D.02/wiki new file mode 100644 index 0000000..b82aa12 --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/wiki @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"Wikipedija wap ENSL"
+1 DISP
+""
+2 DISP
+"Nakljuni clanekKazalo"
+3 DISP
+" [Iskanje ]<Ii>"
+4 DISP
+"______________________"
+5 DISP
+"Clanki imajo licenco CC 3.0"
+6 DISP
+"http://wap.wikipedia.org/?client=hp48g"
+7 DISP 0 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/D.02/zrc13 b/hp48g20230307/D.01/D.01/D.02/zrc13 new file mode 100644 index 0000000..7eeffae --- /dev/null +++ b/hp48g20230307/D.01/D.01/D.02/zrc13 @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+GROB 131 64 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000083000000000000000000000000000000008200000000000000000000000000000000830000000000000000000000000000000080000000000000000000000000000000008000000000000000000000000000000000000008F00000000000000000000000000000003007000000000000000000000000000000600830000000000000000000000000F000C00040000000000000000000000008FFFFFFFFF1000000000000000000000008D30040004200000000000000000000000ECF006000440000000000000000000000074E700000280000000000000000000000014691000010100000000000000000000000402E00001020000000000000000000000040C03008002000000000000000000000004001C0080040000000000000000000000040020704008000000000000000000000004004087200800000000000000000000000400810E20080000000000000000000000040002063000100000000000000000007818A0201A6A3010000000000000000000000400080A070010000000000000000000000400003408102000000000000000000000040000C530E020000000000000000000000400008B100320000000000000000000000400000F000C20000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70000000000000018E100C200000000000000000000000000143300330000000000000000000000000014170C01000000000000000000000000001208830100000000000000000000000000110070010000000000000000000000000011083081000000000000000000000000009007C0800000000000000000000000000090C001800000000000000000000000000050300280000000000000000000000000003C0004C000000000000000000000000000B3000870000000000000000000000000007000083000000000000000000000CFFFFFFFFFFF700000000000000000000000000F00000400000000000000000000000000C400000400000000000000000000000000320000040000000000000000000000000C020000060000000000000000000000000301E008F3000000000000000000000000000120CF000000000000000000000000000080E8700000000000000000000000000000408000000000000000000000000000000040E00000000000000000000000000000002000000000000000000000000000000000100000000000000000000000000000000010000000000000000000000000000000080000000000000000000000000000000008000000000000000000000000000000000400000000000000000000000000000000020000000000000000000000000000000002000000000000000000000000000000000100000000000000000000000
diff --git a/hp48g20230307/D.01/D.01/FIZ/a1 b/hp48g20230307/D.01/D.01/FIZ/a1 new file mode 100644 index 0000000..69252cd --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/a1 @@ -0,0 +1,7 @@ +%%HP: T(1)A(D)F(,);
+
+"a=v/t=(v2-v1)/t"
+1 DISP
+"v=at premik=l2-lega1"
+2 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/dir.list b/hp48g20230307/D.01/D.01/FIZ/dir.list new file mode 100644 index 0000000..87fab41 --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/dir.list @@ -0,0 +1,21 @@ +{ HOME D.01 D.01 FIZ } 7688 +IERR 19 Real Number 26691 +N2 63,5 Program 32925 +N1 236,5 Program 55789 +M3 215,5 Program 44890 +M2 228,5 Program 41574 +F1 49,5 Program 20654 +FI1 87,5 Program 61268 +O1 167,5 Program 10810 +M1 229,5 Program 29093 +ZPAR 75,5 List 39331 +T2 234,5 Program 52365 +T1 240,5 Program 42589 +X 16 Real Number 19349 +EQ 49 Algebraic 62001 +TST4 247,5 Program 6089 +TST3 247,5 Program 59972 +TST2 247,5 Program 22020 +TST1 247,5 Program 48134 +PPAR 63 List 63351 +A1 79,5 Program 47159 diff --git a/hp48g20230307/D.01/D.01/FIZ/eq b/hp48g20230307/D.01/D.01/FIZ/eq new file mode 100644 index 0000000..a1aeae2 --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/eq @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+',2=(X-100)/X'
diff --git a/hp48g20230307/D.01/D.01/FIZ/f1 b/hp48g20230307/D.01/D.01/FIZ/f1 new file mode 100644 index 0000000..36d55ee --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/f1 @@ -0,0 +1,5 @@ +%%HP: T(1)A(D)F(,);
+
+"v=lBr/m r=(2eV/m)"
+1 DISP 0 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/fi1 b/hp48g20230307/D.01/D.01/FIZ/fi1 new file mode 100644 index 0000000..4ae73da --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/fi1 @@ -0,0 +1,7 @@ +%%HP: T(1)A(D)F(,);
+
+"G sunek=mv F*dt=dG"
+1 DISP
+"Fg=Gm1m2/rr G=20e11/3"
+2 DISP 0 FREZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/ierr b/hp48g20230307/D.01/D.01/FIZ/ierr new file mode 100644 index 0000000..a0bd3b5 --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/ierr @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+1,39569653069E-12
diff --git a/hp48g20230307/D.01/D.01/FIZ/m1 b/hp48g20230307/D.01/D.01/FIZ/m1 new file mode 100644 index 0000000..c9f49e2 --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/m1 @@ -0,0 +1,16 @@ +%%HP: T(1)A(D)F(,);
+ "V=VߛT =/3" 1
+DISP
+"Fg=Fv=vVvg Vv=mL/g"
+2 DISP
+"m2c2(Tz-T2)=-m1c1(Tz-T1)"
+3 DISP
+"pV=nRT pm/(T) p/(T)"
+4 DISP
+"F=ps A=Fs=pSs=AVG(p)V"
+5 DISP
+"Wn=A+Q Wn=0 A=-Q"
+6 DISP
+"Wk=NkT2/3 k=1,38e-23"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/m2 b/hp48g20230307/D.01/D.01/FIZ/m2 new file mode 100644 index 0000000..90abe20 --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/m2 @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"P=S/dT P=ST^4e e=1"
+1 DISP
+"=5,67e-8 j=P/S Ttoka"
+2 DISP
+"=A/Q=kor/vlo =(t-h)/t"
+3 DISP
+"=/t x=x0SIN v0=x0"
+4 DISP
+"v=v0COS a=-a0SIN"
+5 DISP
+"a0=x0 VZM k=m"
+6 DISP
+"F=ma=mx=-kx" 7
+DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/m3 b/hp48g20230307/D.01/D.01/FIZ/m3 new file mode 100644 index 0000000..5782a0f --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/m3 @@ -0,0 +1,16 @@ +%%HP: T(1)A(D)F(,);
+
+"VZM t0=2/=2(m/g)"
+1 DISP
+"=(k/m) NITNO SINx=x"
+2 DISP
+"R=FgSIN=mgSIN" 3
+DISP
+"Fv=mgCOS x=lSIN=l"
+4 DISP
+"ma=FgSIN=mgSIN =a/g"
+5 DISP
+"a=gx/l=x =g/l"
+6 DISP "t0=2/" 7
+DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/n1 b/hp48g20230307/D.01/D.01/FIZ/n1 new file mode 100644 index 0000000..dbdd80b --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/n1 @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"STRU c=(F/(=m/l))"
+1 DISP
+"c=((B tek E trd)/)"
+2 DISP
+"l=n/2 f_n=nc/2/l STOJ"
+3 DISP
+"sin/sin=c1/c2 LOM"
+4 DISP
+"r1-r2=J N =S (2N+1)"
+5 DISP
+"a=dSIN=J N =S (+N)"
+6 DISP
+"If(c/(c+v)) Pf(1-v/c)"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/n2 b/hp48g20230307/D.01/D.01/FIZ/n2 new file mode 100644 index 0000000..986b5a2 --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/n2 @@ -0,0 +1,5 @@ +%%HP: T(1)A(D)F(,);
+ "I=W/(tS)=P/S" 1
+DISP "W=Vxx" 2
+DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/o1 b/hp48g20230307/D.01/D.01/FIZ/o1 new file mode 100644 index 0000000..4b0e20a --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/o1 @@ -0,0 +1,13 @@ +%%HP: T(1)A(D)F(,);
+
+" SIN LOMNI=n2/n1"
+1 DISP
+"fs=fo*(1vs/c)/(1-+vi/c)"
+2 DISP
+"U=A/e=Fd/e=Eed/e"
+3 DISP
+"750nm RD 380nm VIJ"
+4 DISP
+"E=F/e C=e/U=e0(ON)*S/d"
+5 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/t1 b/hp48g20230307/D.01/D.01/FIZ/t1 new file mode 100644 index 0000000..d0cf1e1 --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/t1 @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"TRANSVERZ VRV,LON ZRAK"
+1 DISP
+"c=/t0=f =c/f f=c/"
+2 DISP
+"ODBOJ Z ISTO/OBRATNO F"
+3 DISP
+"PROST/VPET KONEC"
+4 DISP
+"OD ZAK:VP=OD =' c=c'"
+5 DISP
+"LZ:SIN/SIN=c/c'=/'"
+6 DISP
+"c/=c'/'c/c'=/' GLc"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/t2 b/hp48g20230307/D.01/D.01/FIZ/t2 new file mode 100644 index 0000000..aaa6924 --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/t2 @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"OJA nTEGA REDA r-r'=n"
+1 DISP
+"OSL -/2 SIN=(n)/d"
+2 DISP
+"ABS (n)/d1 ABSdn"
+3 DISP
+"cZRAK=340m/s VRV VAJA:"
+4 DISP
+"c=(F/) =m/l" 5
+DISP
+"STOJ HRBT VOZL dMAXn"
+6 DISP
+"fMAXn nMAX=d/ 2fx=v"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/tst1 b/hp48g20230307/D.01/D.01/FIZ/tst1 new file mode 100644 index 0000000..a2f988a --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/tst1 @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"1 PP:h=gt^2/2 v^2=2gh "
+1 DISP
+"2 t^2=2h/g NM:v=v0-gt"
+2 DISP
+"3 h=v0*t-gt^2/2......."
+3 DISP
+"v^2=v0^2-2gh H=v0^2/2g"
+4 DISP
+"5 v0=2gh tH=v0/g....."
+5 DISP
+"6 VM:v^2=v0^2+g^2*t^2 "
+6 DISP
+"7 VzmK=F/x TrF=TrK*FR."
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/tst2 b/hp48g20230307/D.01/D.01/FIZ/tst2 new file mode 100644 index 0000000..69ce166 --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/tst2 @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"1 aSIN=NL/H aCOS=PL/H "
+1 DISP
+"2 aTAN=NL/PL.........."
+2 DISP
+"3....................."
+3 DISP
+"4....................."
+4 DISP
+"5....................."
+5 DISP
+"6....................."
+6 DISP
+"7....................."
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/tst3 b/hp48g20230307/D.01/D.01/FIZ/tst3 new file mode 100644 index 0000000..107713d --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/tst3 @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"Q[J]=cmT=Wn c=Q/(mT) "
+1 DISP
+"P[W]=Q/t Wp=mgh Wpr= "
+2 DISP
+",5kx^2 Wk=,5mr^2 F=kl."
+3 DISP
+"A=Fs Q+A=Wk+Wp+Wpr+Wn."
+4 DISP
+"LAT: Qi=m*qi Qt=m*qt.."
+5 DISP
+"V: qi=2,26MJ/kg qt=334"
+6 DISP
+"KONVEK,KONDU:P=(ST)/d"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/tst4 b/hp48g20230307/D.01/D.01/FIZ/tst4 new file mode 100644 index 0000000..e2c42c3 --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/tst4 @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"=5,67e-8 SEV: P=ST^4"
+1 DISP
+"TOPSTIZK =A/Qdo1-h/t"
+2 DISP
+"Qdo=A+Qod Pm=A/t "
+3 DISP
+"N: to=(kl) k=(4^2)/g"
+4 DISP
+"2(l/g)=to "
+5 DISP
+"vo=(2)/to*xo[m/s]...."
+6 DISP
+"VI: to=2(m/k) k=F/x."
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/FIZ/x b/hp48g20230307/D.01/D.01/FIZ/x new file mode 100644 index 0000000..69826ce --- /dev/null +++ b/hp48g20230307/D.01/D.01/FIZ/x @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+125
diff --git a/hp48g20230307/D.01/D.01/MAT/a b/hp48g20230307/D.01/D.01/MAT/a new file mode 100644 index 0000000..572b1ed --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/a @@ -0,0 +1,5 @@ +%%HP: T(1)A(D)F(,);
+{ 4 4 0 {
+(-6,5;-3,1)
+(6,5;3,2) X 0 (0;0)
+FUNCTION Y } }
diff --git a/hp48g20230307/D.01/D.01/MAT/acot b/hp48g20230307/D.01/D.01/MAT/acot new file mode 100644 index 0000000..013682c --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/acot @@ -0,0 +1,3 @@ +%%HP: T(1)A(D)F(,);
+ 1 SWAP / ATAN
+
diff --git a/hp48g20230307/D.01/D.01/MAT/b b/hp48g20230307/D.01/D.01/MAT/b new file mode 100644 index 0000000..f70a6a2 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/b @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+,287802192646
diff --git a/hp48g20230307/D.01/D.01/MAT/ber b/hp48g20230307/D.01/D.01/MAT/ber new file mode 100644 index 0000000..d43e52e --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/ber @@ -0,0 +1,5 @@ +%%HP: T(1)A(D)F(,);
+ DUP 3 PICK ^ SWAP
+1 SWAP - 3 PICK ^ *
+ROLLD COMB *
+
diff --git a/hp48g20230307/D.01/D.01/MAT/cot b/hp48g20230307/D.01/D.01/MAT/cot new file mode 100644 index 0000000..0815435 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/cot @@ -0,0 +1,3 @@ +%%HP: T(1)A(D)F(,);
+ TAN 1 SWAP /
+
diff --git a/hp48g20230307/D.01/D.01/MAT/delj b/hp48g20230307/D.01/D.01/MAT/delj new file mode 100644 index 0000000..de36ee5 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/delj @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"1 D(588,1386)=?......."
+1 DISP
+"2 1386=2*588+210......"
+2 DISP
+"3 588=2*210+168......."
+3 DISP
+"4 210=1*168+42........"
+4 DISP
+"5 168=4*42+0.........."
+5 DISP
+"6 v(a,b)=a*b/D(a,b)..."
+6 DISP
+"7....................."
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/dir.list b/hp48g20230307/D.01/D.01/MAT/dir.list new file mode 100644 index 0000000..15a2efc --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/dir.list @@ -0,0 +1,37 @@ +{ HOME D.01 D.01 MAT } 7645,5 +�PAR 26 List 11732 +BER 55 Program 42873 +N 16 Real Number 17541 +PAR 141,5 Program 50746 +HIP 214,5 Program 19125 +ELI 227,5 Program 49260 +KRO 217,5 Program 2317 +IERR 19 Real Number 24930 +KOM 198,5 Program 18709 +SSK2 71 Program 11024 +SSK 85,5 Program 3357 +S2K 72,5 Program 65184 +HERON 87 Program 37548 +F 71 Program 30535 +TRI 189,5 Program 52841 +LOG1 71,5 Program 26477 +VF 55 Program 51985 +FIBB 44,5 Program 45431 +X 16 Real Number 52846 +B 16 Real Number 6031 +A 72,5 List 49076 +KF 231,5 Program 7567 +PR3 246,5 Program 16918 +COT 27,5 Program 54277 +ACOT 28,5 Program 5009 +ZPAR 75,5 List 29763 +PPAR 63 List 32829 +EQ 43 Algebraic 8137 +VIET 88 Program 17837 +PAMT 251,5 Program 42714 +EXPR 20,5 Algebraic 14976 +DELJ 247,5 Program 30035 +RAZS 251,5 Program 47905 +DITE 247,5 Program 63059 +UIDE 171 Program 27309 +MN 238,5 Program 15171 diff --git a/hp48g20230307/D.01/D.01/MAT/dite b/hp48g20230307/D.01/D.01/MAT/dite new file mode 100644 index 0000000..7473720 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/dite @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"1....................."
+1 DISP
+"2....................."
+2 DISP
+"3....................."
+3 DISP
+"4....................."
+4 DISP
+"5....................."
+5 DISP
+"6....................."
+6 DISP
+"7....................."
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/eli b/hp48g20230307/D.01/D.01/MAT/eli new file mode 100644 index 0000000..43d3291 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/eli @@ -0,0 +1,16 @@ +%%HP: T(1)A(D)F(,);
+
+"r1+r2=2a e=d(S;F) aa-"
+1 DISP
+" ee=bb xx/a^2+yy/b^2=1"
+2 DISP
+"S=ab yy=bb/a^2(aa-xx)"
+3 DISP
+"=e/a=(1-b/a) xb+"
+4 DISP
+" ay=ab TE: xx1/a+"
+5 DISP " yy1/b=1"
+6 DISP
+"H: xb-ay=ab"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/eq b/hp48g20230307/D.01/D.01/MAT/eq new file mode 100644 index 0000000..9fb19a5 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/eq @@ -0,0 +1,3 @@ +%%HP: T(1)A(D)F(,);
+'SIN(2*X)=SIN(X+/2
+)'
diff --git a/hp48g20230307/D.01/D.01/MAT/expr b/hp48g20230307/D.01/D.01/MAT/expr new file mode 100644 index 0000000..1c6732b --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/expr @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+'COS(x)'
diff --git a/hp48g20230307/D.01/D.01/MAT/f b/hp48g20230307/D.01/D.01/MAT/f new file mode 100644 index 0000000..132e93a --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/f @@ -0,0 +1,5 @@ +%%HP: T(1)A(D)F(,);
+ DUP 'B' STO - 'A'
+STO 1 1 A / 1 B / +
+/
+
diff --git a/hp48g20230307/D.01/D.01/MAT/fibb b/hp48g20230307/D.01/D.01/MAT/fibb new file mode 100644 index 0000000..1d5f852 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/fibb @@ -0,0 +1,4 @@ +%%HP: T(1)A(D)F(,);
+ 'A' STO A + A
+SWAP
+
diff --git a/hp48g20230307/D.01/D.01/MAT/heron b/hp48g20230307/D.01/D.01/MAT/heron new file mode 100644 index 0000000..9697565 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/heron @@ -0,0 +1,7 @@ +%%HP: T(1)A(D)F(,);
+ 3 DUPN + + 2 /
+DUP 3 PICK - OVER 5
+PICK - 3 PICK 7
+PICK - * * * 4
+ROLLD 3 DROPN
+
diff --git a/hp48g20230307/D.01/D.01/MAT/hip b/hp48g20230307/D.01/D.01/MAT/hip new file mode 100644 index 0000000..3c7626a --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/hip @@ -0,0 +1,16 @@ +%%HP: T(1)A(D)F(,);
+
+"y=b/a(x-a) A=b"
+1 DISP
+"B=0 C=-a D=-2pb E="
+2 DISP
+" 2qa F=pb-qa-ab"
+3 DISP
+"TH: xx1/a-yy1/b=1"
+4 DISP
+"P: y=2px p=2|SF| x=p"
+5 DISP
+"F(p;0) f(x)=(2px)"
+6 DISP "" 7 DISP 3
+FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/ierr b/hp48g20230307/D.01/D.01/MAT/ierr new file mode 100644 index 0000000..6df59f3 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/ierr @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+8,41475338561E-12
diff --git a/hp48g20230307/D.01/D.01/MAT/kf b/hp48g20230307/D.01/D.01/MAT/kf new file mode 100644 index 0000000..d34c701 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/kf @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"tan=sin/cos cot=1/tan"
+1 DISP
+"sin2+cos2=1 k=tan"
+2 DISP
+"360=2Rad va*vb=la*lb*cos"
+3 DISP
+"kolinearna: vavb=lalb"
+4 DISP
+"vavb=la*b_va=lb*a_vb"
+5 DISP
+"a2=b2+c2-2bc*cos"
+6 DISP
+"b2=a2+c2-2ac*cos"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/kom b/hp48g20230307/D.01/D.01/MAT/kom new file mode 100644 index 0000000..3c0f8db --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/kom @@ -0,0 +1,15 @@ +%%HP: T(1)A(D)F(,);
+
+"abs(z)=(zz;)=aa+bb"
+1 DISP
+"1/z=z;/z/z;" 2
+DISP
+"i^n=0;1 1;i 2;-1 3;-i"
+3 DISP
+"(1-i)^2=-2i V=4r^3/3"
+4 DISP
+"P=4rr n+m=-b/a nm=c/a"
+5 DISP
+"n;m=-b(b^2-4ac)/(2a)"
+6 DISP 0 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/kro b/hp48g20230307/D.01/D.01/MAT/kro new file mode 100644 index 0000000..6e0b6f3 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/kro @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"S=-D/(2A),-E/(2A)"
+1 DISP
+"K: A=C B=0 D^2+E^2>4AF"
+2 DISP
+"K: xx+yy+ax+by+c=0"
+3 DISP
+"PP: k1*k2=-1" 4
+DISP
+"K: y=(rr-xx)" 5
+DISP
+"TK: yy1+xx1=rr nn="
+6 DISP
+"rr(1+kk) x=kr/(1+kk)"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/log1 b/hp48g20230307/D.01/D.01/MAT/log1 new file mode 100644 index 0000000..f4ba97e --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/log1 @@ -0,0 +1,6 @@ +%%HP: T(1)A(D)F(,);
+ "(X-P)(X-Q)" 1
+DISP
+"(-B(B^2-4AC))/2A"
+2 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/mn b/hp48g20230307/D.01/D.01/MAT/mn new file mode 100644 index 0000000..14a928f --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/mn @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"P PotenMn=VsiSampling"
+1 DISP
+"M=U\M ^sin=NL/H"
+2 DISP
+"cos=PL/H tan=NL/PL"
+3 DISP
+"REFLEKSI. RELACIJA aa"
+4 DISP
+"TRANZITIV. ab&bcac"
+5 DISP
+"ANTISIMET. ab&baa=b"
+6 DISP
+"SIMetricnA CE aRb bRa"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/n b/hp48g20230307/D.01/D.01/MAT/n new file mode 100644 index 0000000..5d02cd7 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/n @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+32274943053,3
diff --git a/hp48g20230307/D.01/D.01/MAT/pamt b/hp48g20230307/D.01/D.01/MAT/pamt new file mode 100644 index 0000000..2698c88 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/pamt @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"1 (a+b)^3=a^3+3a^2b+ "
+1 DISP
+"2 3b^2+b^3............"
+2 DISP
+"3 a^3-b^3=(a-b)(a^2+ab"
+3 DISP
+"4 +b^2................"
+4 DISP
+"5 a^3+b^3=(a+b)(a^2-ab"
+5 DISP
+"6 +b^2................"
+6 DISP
+"7 (a-b)^3=a^3-3a^2b+3a ..."
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/par b/hp48g20230307/D.01/D.01/MAT/par new file mode 100644 index 0000000..b5e862f --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/par @@ -0,0 +1,11 @@ +%%HP: T(1)A(D)F(,);
+
+"A=B=0 C=1 D=-2b E=-2q"
+1 DISP "F=q-2pt" 2
+DISP
+"T(a;b) (y-b)=2p(x-a)"
+3 DISP
+"x=a-p/2 F(a+p/2;b)"
+4 DISP "" 5 DISP 3
+FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/pr3 b/hp48g20230307/D.01/D.01/MAT/pr3 new file mode 100644 index 0000000..141fc3c --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/pr3 @@ -0,0 +1,19 @@ +%%HP: T(1)A(D)F(,);
+
+"v2=a1*b1 a2=c*a1"
+1 DISP
+"b2=c*b1 sin=a/c"
+2 DISP
+"cos=b/c tan=a/b"
+3 DISP
+"0 1/2 2/2 3/2 1"
+4 DISP
+"1 3/2 2/2 1/2 0"
+5 DISP
+"0 3/3 1 3 x" 6
+DISP
+"cos=sin(90-) sin=cos(90-)"
+7 DISP
+"vavb=a1b1+a2b2+a3b3"
+8 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/razs b/hp48g20230307/D.01/D.01/MAT/razs new file mode 100644 index 0000000..ee990f5 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/razs @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"1 (x-3)(x+5)=x^2+2x-15"
+1 DISP
+"2 (a+b)^2=a^2+2ab+b^2 "
+2 DISP
+" (a+b)^3=a^3+3a^2b+b^3"
+3 DISP
+"6 (a+b+c)^2=a^2+b^2+"
+4 DISP
+"5 c^2+2ab+2ac+2bc "
+5 DISP
+"(a+b+c+d)^2=a+2ab+b^2+"
+6 DISP
+"2ac+2bc+c^2+2ad+2bd+2cd+d^2"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/s2k b/hp48g20230307/D.01/D.01/MAT/s2k new file mode 100644 index 0000000..41f0c53 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/s2k @@ -0,0 +1,6 @@ +%%HP: T(1)A(D)F(,);
+ 2 ^ 3 ROLLD DUP2
+* 2 * 3 ROLLD 2 ^
+SWAP 2 ^ + 3 ROLL -
+SWAP / ACOS
+
diff --git a/hp48g20230307/D.01/D.01/MAT/ssk b/hp48g20230307/D.01/D.01/MAT/ssk new file mode 100644 index 0000000..7c6a74f --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/ssk @@ -0,0 +1,8 @@ +%%HP: T(1)A(D)F(,);
+ COS 3 ROLL 2 ^ 3
+PICK 2 ^ SWAP - 3
+ROLLD 2 * * NEG
+SWAP 1 3 ROLLD 3
+ARRY PROOT SWAP
+DROP
+
diff --git a/hp48g20230307/D.01/D.01/MAT/ssk2 b/hp48g20230307/D.01/D.01/MAT/ssk2 new file mode 100644 index 0000000..d6c964d --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/ssk2 @@ -0,0 +1,6 @@ +%%HP: T(1)A(D)F(,);
+ COS 2 * 2 PICK *
+3 PICK * 3 ROLL 2 ^
+3 ROLL 2 ^ + SWAP -
+
+
diff --git a/hp48g20230307/D.01/D.01/MAT/tri b/hp48g20230307/D.01/D.01/MAT/tri new file mode 100644 index 0000000..614b615 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/tri @@ -0,0 +1,15 @@ +%%HP: T(1)A(D)F(,);
+
+"KOT SIN COS TAN COT"
+1 DISP
+"0 0 1 0 X"
+2 DISP
+"30 1/2 3/2 3/3 3"
+3 DISP
+"45 2/2 2/2 1 1"
+4 DISP
+"60 3/2 1/2 3 3/3"
+5 DISP
+"90 1 0 X 0"
+6 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/MAT/uide b/hp48g20230307/D.01/D.01/MAT/uide new file mode 100644 index 0000000..7160a54 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/uide @@ -0,0 +1,16 @@ +%%HP: T(1)A(D)F(,);
+
+"Deljitelji-Sijanec 2019"
+{ { "x:" "" 0 } } {
+} DUP DUP
+ IF INFORM
+ THEN OBJ DROP
+'A' STO 1 A
+ FOR i
+ IF A i MOD 0
+=
+ THEN i DUP
+ END
+ NEXT
+ END
+
diff --git a/hp48g20230307/D.01/D.01/MAT/vf b/hp48g20230307/D.01/D.01/MAT/vf new file mode 100644 index 0000000..1cffd37 --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/vf @@ -0,0 +1,4 @@ +%%HP: T(1)A(D)F(,);
+ 9,81 / 3,141592
+2 * * -1 ^
+
diff --git a/hp48g20230307/D.01/D.01/MAT/viet b/hp48g20230307/D.01/D.01/MAT/viet new file mode 100644 index 0000000..5d707cd --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/viet @@ -0,0 +1,8 @@ +%%HP: T(1)A(D)F(,);
+ 'A' STO 'B' STO
+ FOR i
+ IF A i MOD 0 =
+ THEN i DUP
+ END
+ NEXT
+
diff --git a/hp48g20230307/D.01/D.01/MAT/x b/hp48g20230307/D.01/D.01/MAT/x new file mode 100644 index 0000000..48fa89a --- /dev/null +++ b/hp48g20230307/D.01/D.01/MAT/x @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+1,5707963268
diff --git a/hp48g20230307/D.01/D.01/a b/hp48g20230307/D.01/D.01/a new file mode 100644 index 0000000..d2e910c --- /dev/null +++ b/hp48g20230307/D.01/D.01/a @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+679665,670862
diff --git a/hp48g20230307/D.01/D.01/eq b/hp48g20230307/D.01/D.01/eq new file mode 100644 index 0000000..2b10092 --- /dev/null +++ b/hp48g20230307/D.01/D.01/eq @@ -0,0 +1,3 @@ +%%HP: T(1)A(D)F(,);
+'1400=A*XROOT(12;
+1,025)-A'
diff --git a/hp48g20230307/D.01/D.01/expr b/hp48g20230307/D.01/D.01/expr new file mode 100644 index 0000000..6d77bfe --- /dev/null +++ b/hp48g20230307/D.01/D.01/expr @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+'X^2+XY+Y^2'
diff --git a/hp48g20230307/D.01/D.01/jul b/hp48g20230307/D.01/D.01/jul new file mode 100644 index 0000000..49a5eb1 --- /dev/null +++ b/hp48g20230307/D.01/D.01/jul @@ -0,0 +1,25 @@ +%%HP: T(1)A(D)F(,);
+ -32 31
+ FOR i -65 65
+ FOR j 0 j 30 /
+i NEG 30 / RC
+ WHILE DUP DUP
+DUP DUP RE 2 < SWAP
+IM 2 < AND SWAP RE
+-2 > AND SWAP IM -2
+> AND 3 PICK 6 PICK
+< AND
+ REPEAT 2 ^ 3
+PICK + SWAP 1 +
+SWAP
+ END DROP j 10
+/ i NEG 10 / RC
+ IF SWAP 4
+PICK ==
+ THEN PIXON
+ ELSE PIXOFF {
+# 0d # 0d } PVIEW
+ END 1
+ STEP 1
+ STEP
+
diff --git a/hp48g20230307/D.01/D.01/kem b/hp48g20230307/D.01/D.01/kem new file mode 100644 index 0000000..5d6a771 --- /dev/null +++ b/hp48g20230307/D.01/D.01/kem @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"HClO4,HCl,HBr,HI,H2SO4"
+1 DISP
+"HNO3 B!:NH4OH MS:N...."
+2 DISP
+"N-3H3+1,H2+1O2-1 H:+-1"
+3 DISP
+"I+1 II+2 III+3 N:VII-1"
+4 DISP
+"VI-2 V-3 PREHRAZL OKOD"
+5 DISP
+"OK:STZM AN ZnZn2++2e-"
+6 DISP
+"Cu2++2e+ZnCu+Zn2++2e"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/kem2 b/hp48g20230307/D.01/D.01/kem2 new file mode 100644 index 0000000..54b664b --- /dev/null +++ b/hp48g20230307/D.01/D.01/kem2 @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"ManjElPoMocRed RePot:"
+1 DISP
+"ElKovVisElPotDes Halo:"
+2 DISP
+"ElekPotPadaPoSkupDol.."
+3 DISP
+"V HCl RaztKovNegStdElP"
+4 DISP
+"DT:NO3,CH3COO,HCOO-,I."
+5 DISP
+"NH4 ST:CO3,II.,SO4,PO4"
+6 DISP
+"Ag+Pb halogenidi......"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/kem3 b/hp48g20230307/D.01/D.01/kem3 new file mode 100644 index 0000000..6cd64fe --- /dev/null +++ b/hp48g20230307/D.01/D.01/kem3 @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"-ido F Cl Br I OH CN"
+1 DISP
+"NH3 amin C6H6 benzen"
+2 DISP
+"NOnitrozil COkarbonil"
+3 DISP
+"Ferat Sn stanat Aurat"
+4 DISP
+"Ag argentat Hgmerkurat"
+5 DISP
+"Cu kuprat Pb plumbat"
+6 DISP
+"Pd paladat Co kobaltat"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/kem4 b/hp48g20230307/D.01/D.01/kem4 new file mode 100644 index 0000000..13193cf --- /dev/null +++ b/hp48g20230307/D.01/D.01/kem4 @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"-O- etilmetileter oksi"
+1 DISP
+"-C-+C=O karboni. keton"
+2 DISP
+"-C-OH+C=O karbok ojska"
+3 DISP
+"aldehidPropenalKarbald"
+4 DISP
+"alko hidroksi ket okso"
+5 DISP
+"alde formil SO42- CN-"
+6 DISP
+"LRDO leKovPrHSeRazVKis"
+7 DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/kem5 b/hp48g20230307/D.01/D.01/kem5 new file mode 100644 index 0000000..1fd1815 --- /dev/null +++ b/hp48g20230307/D.01/D.01/kem5 @@ -0,0 +1,17 @@ +%%HP: T(1)A(D)F(,);
+
+"RE BoljOksMoraBitiIon"
+1 DISP
+"kk,ALdehid formil,"
+2 DISP
+"keton okso,alko hidrok"
+3 DISP
+"si,eter oksi" 4
+DISP
+"CH3 toluen OH fenol"
+5 DISP
+"SO3H benzensulfonska"
+6 DISP
+"NO2 nitrobenzen" 7
+DISP 3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/kem6 b/hp48g20230307/D.01/D.01/kem6 new file mode 100644 index 0000000..81c4540 --- /dev/null +++ b/hp48g20230307/D.01/D.01/kem6 @@ -0,0 +1,16 @@ +%%HP: T(1)A(D)F(,);
+
+"CHO benzenaldehid"
+1 DISP
+"OCH3 anizol COOH benzojska"
+2 DISP
+"NH2 anilin CN zonitril"
+3 DISP
+"CH3*2 ksilen" 4
+DISP
+"HNO3/H2SO4 -H2O B-NO2"
+5 DISP
+"H2SO4 -H2O B-SO3H"
+6 DISP " - " 7 DISP
+3 FREEZE
+
diff --git a/hp48g20230307/D.01/D.01/n b/hp48g20230307/D.01/D.01/n new file mode 100644 index 0000000..77ab06d --- /dev/null +++ b/hp48g20230307/D.01/D.01/n @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+10000
diff --git a/hp48g20230307/D.01/D.01/x b/hp48g20230307/D.01/D.01/x new file mode 100644 index 0000000..6bf67f8 --- /dev/null +++ b/hp48g20230307/D.01/D.01/x @@ -0,0 +1,2 @@ +%%HP: T(1)A(D)F(,);
+1,10408951367
diff --git a/hp48g20230307/berime.txt b/hp48g20230307/berime.txt new file mode 100644 index 0000000..7b8dcbb --- /dev/null +++ b/hp48g20230307/berime.txt @@ -0,0 +1,3 @@ +Spomin kalkulatorja HP 48G, presnet po Kermit protokolu z računalnikom varovalka 7. marca 2023. + +for i in `cut -d\ -f1 dir.list`; do ls `python3 -c "print('$i'.lower())"` || echo NE OBSTAJA $i; done |