(none)

Thread View: comp.sys.transputer

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by KARWATZKI Thu, 15 Mar 1990 10:25

#478

Author: 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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads