(none)

Article View: comp.sys.transputer

Article #478

Back to comp.sys.transputer Previous Next

#478

From: KARWATZKI
Date: Thu, 15 Mar 1990 10:25

22 lines
892 bytes

Subject : RE Problem with Occam RAN function

I can't comment on the use of RAN but RANP works fine
from the Maths Library :

PROC RANP(REAL32 RanOut, INT32 SeedRan)
  INT RanOut   RETYPES RanOut,
      SeedRan  RETYPES SeedRan :
  VAL RealXcess IS 127 :
  VAL A IS 1664525 :
  SEQ
    SeedRan := (SeedRan TIMES A) PLUS 1
    ROUNDSN (RanOut, RealXcess - 1, SeedRan, 0)
:

So you would replace 
                     y,x := RAN(X)
with
                     RANP(y,x)

John Karwatzki
KARWATZKI@UK.AC.KINGSTON

Technical Details

Message-ID: <18997.9003151034@prg.oxford.ac.uk>

Path:

arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!mailrus!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!kingston.ac.uk!KARWATZKI

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!mailrus!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!kingston.ac.uk!KARWATZKI
From: KARWATZKI@kingston.ac.uk
Newsgroups: comp.sys.transputer
Subject: (none)
Message-ID: <18997.9003151034@prg.oxford.ac.uk>
Date: 15 Mar 90 10:25:35 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 22