DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦178240322⟧ TextFile

    Length: 2304 (0x900)
    Types: TextFile
    Names: »trmath4tx   «

Derivation

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »trmath4tx   «

TextFile

mode list.yes

mat=set mthl mt543227

matnames=edit
i#
mathstatlib,
adapint,
besselik,
besseljy,
beta,
decompose,
solve,
eberlein,
fft,
fit,
gamma,
householder,
invertsym,
jacobi,
minimum,
pzero,
rungekutta,
solineq,
solvesym,
zero1,
datasurvey,
recordinput
#,f

scopemat=edit matnames
i#
scope user,
#,f

lookupmat=edit matnames
i#
lookup,
#,f

comprmat=edit matnames
r#mathstatlib#mathstatlib=compresslib#,
l.#solve#, d,
l.#solineq#, d,
l.#datasurvey#, d,
f

binoutmat=edit matnames
i#
math4pack=binout,
#,f

mathlibtx=edit matnames
i#
external procedure mathstatlib;
  begin
  write (out, <:
#, 
l.#solineq#, d,
l.#datasurvey#, d, 
l b, i#
  :>, "nl", 1);
  end;
end
#, f

char 10
c=message start translate mat stat source code

mathstatlib=algol mathlibtx
if ok.no
sorry

adapint=algol index.no message.yes mat.3 
if warning.yes
sorry

besselik=algol mat.4
if warning.yes
sorry

besseljy=algol mat.5
if warning.yes
sorry

beta=algol mat.6
if warning.yes
sorry

(decompose=slang mat.7 
 decompose solve)
if ok.no
sorry

eberlein=algol mat.8
if warning.yes
sorry

fft=algol index.no mat.9
if warning.yes
sorry

fit=algol mat.10
if warning.yes
sorry

gamma=algol mat.11
if warning.yes
sorry

householder=algol mat.12
if warning.yes
sorry

invertsym=algol mat.13
if warning.yes
sorry

jacobi=algol index.no mat.14
if warning.yes
sorry

minimum=algol mat.15
if warning.yes
sorry

pzero=algol mat.16
if warning.yes
sorry

rungekutta=algol index.no mat.17
if warning.yes
sorry

lookup decompose solve
if ok.no
sorry

solineq=algol mat.18
if warning.yes
sorry

solvesym=algol mat.19
if warning.yes
sorry

zero1=algol mat.20
if warning.yes
sorry

datasurvey=algol mat.21
if warning.yes
sorry

recordinput=algol index.no mat.22
if warning.yes
sorry


char 10
c=message end translate mat stat source code

i scopemat

;i comprmat

i lookupmat

c=message end scope and lookup entries

end
▶EOF◀