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

⟦1c590a9bb⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »megentx«

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦787c125fb⟧ »adjprocfile« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦787c125fb⟧ »adjprocfile« 
            └─⟦this⟧

TextFile

;  me_gen_tx     * page    ;

me_gen = set 1

me_gen = algol

external real procedure me_gen(m);
_________________________________
value                          m;
real                           m;
begin
own integer init;
integer t, smp_q;
real sum;
smp_q := 10;
<*smp_q := work0; comment test purpose only;*>
m := 2/0.62*m*sqrt(smp_q);
sum := 0;
for t := 1 step 1 until smp_q do
sum := sum + m*(random(init) - 0.5);
me_gen := sum/smp_q;
end me_gen;
end
 
if ok.no
mode warning.yes
 
if warning.yes
(mode 0.yes
message me_gen not ok
lookup me_gen)
end
 
finis
▶EOF◀