#define IA 16807 #define IM 2147483647 #define AM (1.0/IM) #define IQ 127773 #define IR 2836 #define MASK 123459876 float ran0(long*idum) { long k float ans *idum ^= MASK k=(*idum)/IQ *idum=IA*(*idum-k*IQ)-IR*k if (*idum < 0)*idum+= IM ans=AM*(*idum) *idum ^= MASK return ans } #undef IA #undef IM #undef AM #undef IQ #undef IR #undef MASK

ran1.c
ran0.c
ran2.c
ran3.c

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．