delorie.com/archives/browse.cgi   search  
Mail Archives: djgpp/1999/07/29/13:17:15

From: "Pavlos" <trash24379 AT usa DOT net>
Newsgroups: comp.os.msdos.djgpp
Subject: Re: how about "more" random ?
Date: Thu, 29 Jul 1999 19:47:57 +0300
Organization: An OTEnet S.A. customer
Lines: 127
Message-ID: <7nq0m4$n1b$1@newssrv.otenet.gr>
References: <Pine DOT SUN DOT 3 DOT 91 DOT 990729190414 DOT 27831B-100000 AT is>
NNTP-Posting-Host: dram-a10.otenet.gr
X-Trace: newssrv.otenet.gr 933266948 23595 195.167.113.233 (29 Jul 1999 16:49:08 GMT)
X-Complaints-To: abuse AT otenet DOT gr
NNTP-Posting-Date: 29 Jul 1999 16:49:08 GMT
X-Newsreader: Microsoft Outlook Express 4.72.3110.1
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
To: djgpp AT delorie DOT com
DJ-Gateway: from newsgroup comp.os.msdos.djgpp
Reply-To: djgpp AT delorie DOT com

Sorry for posting a zip file, but I think it can help
If you want even more random results, try this code. I DIDN'T write the
code. It hasn't been tested with DJGPP, but it should work. I've tested it
some years ago with Borland C 3.1 and it worked fine.
It claims that it is a *very* good random number generator. I think it
doesn't return just a random number, it fills an array with as many as you
want.

Pavlos


Eli Zaretskii wrote in message ...
>
>On Thu, 29 Jul 1999, Simon De Deyne wrote:
>
>> Thanks for the answer! I did consider this way, but then,
>> i also noticed that the seeding with the time function  (srand) isn't
>> as random as when i used the other random function.
>
>Seed has nothing to do with randomness.
>
>> > So to produce a random number between 0 and 99
>> > x = rand() % 100;
>
>The low bits of the random numbers are known to be not very random.  If
>you want more random results, try this (untested!):
>
> x = ((double) rand ()) * 100 / RAND_MAX;


begin 666 Random.zip
M4$L#!!0``@`(`%63O!1!&_E5'P@``$X2```(````4D%.1$]-+D.]5_MO(LD1
M_AE+_A]*1([ "W@&,!C;K,3NV;?>\]J1'XF4E4]JA AT 8:>AZ9GC%V[O9_SU?=
M,X!W[41Y* B;GNZJZGI\]9B#_=V=CW0W5X92$4WBD*(\',N49C*2J<CBE.)4
MS50DM'XFD212I')"*J+J7;P2Z80$W4?J4:9&:&)9-T[,E1/S<RFF2N-G/,7I
M3-(7`>J95H) 2Z-43>FO(A11RPHXU[AQ(N AT V$YDLA:OLF6YD$J?9,9W?WC=O
M/]Y<-(_ZS4./:O[@J%]G3OZ[R&@E#&GPIA3&$S55T!=WG[?HLPBEL7<F^5 AT K
M,R\L&4'THY(KBJ?T)R/S2=QD4>GKEI AT JE9?=?;JX)7SO/IW1A[/;._KEZOHO
M5W0SNOKI^@M=W7_Y<'9#/Y]=G=V,[JYO:/3GT<7EZ,/E68N9W:?V*5Y)6-B 
M(R DOT Y AT I,GR AT 0Q=J!<)H-YI/Z62PI$1,]*Z AT EM6 DLB4Q5/&'%?>_7GN>UZ$.>
M4387&2&D)E-:LXG97-($U^@X"664X4#,9(N=5O AT L$<; -Z/+2Y;%Y)DTF:$I
M`/ &,)PGYW#V6 AT VG&P2T?_6[W0:K$,1AHF4F81A'3XRUI-H,,34T5E!R`G54
M`.RDTN0:-\81`6N%J% $<Q6!=J6R.<$H+87)J-UM,C,@DRECH$%AXE3'(E/1
M#%<I6.EDI#*!;%R#HSBJMS;1`X?0,Z MFX>LJV!MQ\ Z$[(9 AT L[5.(Y$$"@R
M$G&(`FAO==%B9IADT'>WL"\ZG8;]C1/V$,NHFGR<I2*P#XG.V3S98%SF.N9U
MM6XY$%TGIBJL-A(^6=]8I5INV*HM876&T/!_],'=M@)\A%71+ <TR.8<=.9<
M6D&E3$:<1)]5R #3%J_0FX_'P@"J'+;=G?/KFSN AT GY(TGJ4B1!Q,YM+O)_&H
M)G0I;A%<R8Y[*\UAV/[![L[NSA]4%.A\(NG49!,5M^;OO]O3:FPWL3V14\"$
M[F[NSZCI;S;.1Y>W9^1M-L9Q# A%`$S&C(9!$=!C#-W2$+Z/:@P<M6 AT P!2UU
M_61WQYV*".<UBS!*'V7P]<'1:!DQ44$6"HA 7OVVNU-QM)D,DZ^^YS^ J%(*
M7^H&,T*"9:T<[)=99J2<N+0KDQ"Y;^0QL5,J:D%#\H^\-@M;:CP,.OW.6L8D
MMEPJ4ID26OW=@=!REM8M&LZHBN,HLEE2VVMXGO<RUXUCA:)\J^<Q&VM64T/_
MA-3IL(T]4N_>P>!*I? 0V]LHO5+!-0>VQ5RXJO)6DP'Z5G&ZM+F;<O[HYX9E
MB.03RI5Z*CA95*F<F<<Y"N)8'F_71*+>8:=S-&BW/"*_VVY[[;9=]]O]0Z_7
M;WG?4?O]=KMC*8XZA]WNX(B7,+?7Z<#33,Y>H,(-O1->;]M:F$H5_GOAGE[I
M'*I4$G AT _F]:J>WZ[Y4^IVJ"N-^BUO/WBQ\)$/;"D;UO(=!C*OPZ.`+<`WPG^
MPI/UN074H-^@Q:"_V2U1;N$S=%EP\A;>+2)V=S;0/+'P/=A,!OB^`JLTSC-.
MJ1*K;X46]>#+Z*9F._35]=W9L2V\C'-ZA ;<$8SM;W/QB,(C=,Z]068K*:-C
MCI!'IT.Z^,S_.WZG??0R?O_&QPKZY=(*\KPCOVP"+S4ORRZ42J4HRA<,-$C'
M55PD**8@+F(FGTY5H&31; "%&7I#%J_;'E=V[G IMW =Y-KYCEM(B\[A'?DD
MF!*5`-)0`HLI"G/+%",`Y,[@Y\1=6&8(!&S.$Y%FIFS:!A/.]D4-EB711)T8
MJ.4RAM#NU2SB^8>95Q'[ERUKN8BO+!TPA(ALV%F8;7[P'FI%,(\5NZD$@)%!
MC)Y0BG$C"'QAA,WES8BY2>(MF# "G,-I`.$A)A?UPE!TOTUHFDVGR=J^K5,&
M$KM)E/'@3IZ AT K#RI4-A)!+-2QVN5<\ ](@OS76&E/S)"7%UEY6T*_1-XLZ62
MI4"!,B,<XC?UB7+ND!"V56U_++:M`HYLLTFT>'ZM_JV+7RD*+0=CDTIT,>9R
M.;$UY;\INB_OLM;]/VNM:Y.H::A&:"7(#7[ 4WBR;JL&FA9M#)F#*G;JT>^_
MHX*]MS6"UTOM]I;ZO4WW.G%7KB1Y9FI5SONI2A'<[[/?NA3[MAP)5Y#*>H02
M8@<]OJ)5=1UN(V\K`?ZU"-:H%"&?5%;S[?I;81,@"*,._'Z_OH=_](YLS^?^
MKQ;;.TNF7.H#OS=@RB/L^[S/P\%2[V&[<)-K3:XWH3FA7^ 7[<EYQ8 <`;#J
M9'9]:->6:[%@KL4"';_+OVNN2LBWUVIJ?\&7#^K[RSKM$5:6V9JQ<$O6?.F6
MK'+HEJQE[;"SKUEMR]HK61'5FMX/ZWN]+KU'Q6[7R="[H0L[*[F_T9*]5LF_
M*O4`>6;+CP&>.[UVMX,>2P>0WN_WVW[/&1I,<-KO'78[;?^U8S:NV.J\<LYA
M&O2Y5O1M:.RZTRF.BM[+(VG9T[<'21XAW9BTN[,]5)[P5,:CQG?YSO4?12%P
MKZR6UF^U0/A AT A[1B$CUYK6^_E?Z<\[%Q9>.'-W,5_2<OXUMOX$:KV3Q#L7WU
M)1S%$-=/\L!V2)&F*'<HTXE]^_YAU"O>"7XK2P.LWU2"/%);A8#=/AS:B>=%
MOG_DE\IRBEG/+L4,5$=R`NBV=6HNAT60ZB\2M+U.4)=*T,(F$WY/A^Q\NUSG
M!O1"_ '*0?^!FE@`(/8EP.K)IZ><<74V@''M%]E7< Q+PQADS>::$4_#(;BV
MH<?8VR)9%"2+;9* FD.,CVNBX-1>'O#5@<M&5H2)MI4\?4U%"S\V=DM-^.7;
M/P!02P,$% `"``@`S)*\%,$Y06]5!P``Y0X```P```!204Y$3TTM0RY$3T.M
M5]MNXS AT 2?3?@?R@$:*P-V%K?DCB9W<4X3M+M7L<);*<'V(<!:(FV.2V)6I**
M.W^SG[JG2,FY8#)/+22P))+%JE.G3E%$[ZZ%=M*2SLGM)4UI+O)=*7:2ODEC
ME<Z;C69C[4=BG4 AT Z"$N)-.I))K0U.J.'Z_[E/^Y6U_>KZ/9^N5Y.%O_"__7]
M73193CLD\H3VPC8;&RES2E7NL/"@W)X>IMTY'NDI[$.CJ-<3?C[\X5FE5?F.
M[E1LM-5;1]-FHYY[&O5[$=$LIT3S)';=&9';5#B,=VB&1P4;3E.\1T22X'>J
MG$MELX';0ENK-JG\A51.6Q$[>)JFI+?>U),P2F"4<I$!&_9I6^:Q\W"T;+DQ
MNG0JE^UZ AT I%^G<43&PQ(\K(*DCI("Z=7.H,/U4ZQSC()$#:ICK_;@"B_?[>.
M#M+PY()CPKL-PLR:#<"GJ\VJB=%+NM(ZD;4-SIRRP&53AB0 AT 8 DOT Q?* 3*OLH?
M,L8(SQ/-AG5XUQ6ISB451N^,R#Q&^L" /^N2L85IM7V&"\)Y/Y""!!'D9;:1
MIMG8R5P:X;0A9>F AT S7=>&FMC9.S2YT #6#*U&X9::OOV3;.1:""<:T>V+ IM
M'%(!QR>+U>R8%';0:?=<2-NA3.78,&3=4B:>:0.\C?QOJ8Q,VLC ;WM0L8HV
MZ7C'JPC)[G69)HQ3D8IG/[355=!(O=@Z."E0`3R*'%H)"$2*WUCG"<K(4*:-
M;%]R'HC.3H?#\<4 AT ZA'U1X-!;S#P]W0^.#_MG9W[^[/^^6 P#._'P]/1Z&+L
MY_?.AL/^N!?UV-2CE2_19D+EK;;/$\<AL@(9A#-[??"$9R;_938\S3S,5=Q'
MVAC)QE'@H120MBW3 AT ZN^8I]?6U7X]?W4/S<;?ZD"@'R-=(#?\.Y:/*D$*K."
MEPRNX5IT3 SEHH :KJ\JHZO2>0+X%S-P+!8T13+D3E8OKQ[7\YOEI]GZRV0Z
MB:YFZ\7-^M?I_7)Q,Y]/H^EL'54/T<WU8[/1_5E7LW$MG+RD=2D[-!C3K=S0
M^ (INQQ<7/;&]+!:-QNW`.:2[F:+Q]GZT^WJ,;J[O6'_%OB=3H'+PZ396)6;
M/U ,E_2_M]FB8[(L8^(9._-(L:AYX4@">I^E-BCR.V&LV*5*_,U2F2NN>=#R
MK<U7%&"%Q.H=R AT HY80E2O@-4=6PEZTRE AT D@]>*9S5.Q>/$F8B:5QH EFI*6T
MGNNJ0W\$M?].E)46DB;QYPXL^WT_T#\?4XL+^45I,^JWFXWTN*#23N,5N\>N
M]<_&;'Y&*,Z:*()LJG9[EI!,)VI;B:(7N:.N)C*$4Q6^#0&X AT X:TO8WNL%?Q
MGC;"*JZ<*LAW;@Q[N"*ZAQCF*@;R4KC2,!9UG=0.X-;O*P6,HE58["_SV!=H
MR(,E6\@XN+T)&@.W*/AEN5LBPE3F DOT Z AT C%HD"1?I#96 <G.OW?A_"D=D6&K7=
MHBN@>13"..NG0O29#,B02.,R-$/V:",9-U9@[(E7V+96KD)JR$<G^%O .PS'
M7 AT 0W;&@'*N7$`>H#*/C54R/B>G:PQ]-2R7AY@+SV40B#N<FA04T4*K[$5LT&
MD"RA9-VNUWXT40;2!,!$_NPCJ5.HO7\IO0XE[-ALR!_P5'E8?3L)P_85?UYH
MCY[+#+I5.6>W`YFI55ZD5G.4X*2O*N&+P=;I1P=TLO;FPTJBVG7-AQEV0&6 
MDQMD(-(KBUQFOH_C%)2'E.$ULH53`&>%#P'L:_>M2C8;Z&FE<I^VMOPUS[8R
MCB-A"L%35]/E#,&EVJA$T,J[_!CJ7[EGB#H,"% *2>G0[9R&@V'OK#OJG0[0
MSBYZH_;9:-3M]_J]GRJ/4Q $E/E TM EU2ZD@]D-!@!^('>RU@=AD)<Z`L^9
M*2V#F44P\[DV<\(T?B]_7FDF.)70?T0F\L@;^ @>6DH^45P2Y+G+2';'Y]W3
M'K7Z%^/S-J_D_YGS_0\<D^9%<+#W;41?CP?$HMRDRNZK2"8P_:3D AT 5/\8&69
M:(^*^?-([ G5FZV_S%:$O_67&[JZ6:WIWXO[WQ95PZ7%X]W5S9(^HY$L)^O[
M)4V^36;SR=7\)N+%X6I]T0<N;L AT QY?(`D'&<B;F<F.4RWN<*DN1%_5E)7T_3
MX]> 8 U0.F''H35GK'IHQ*$ZD%(H,&JRJK,$VZ2Z\"=85,M DOT 1 AT Q:A5G!I+,T
MF<_K&N)S?1"&CWI=_;GPXD;P#08&O_='HPZ[P$?#5'HUY DOT SY AT WJ+=0HZA^)6
M"9=9S-U/VC)U_MN&A228RJ!S.+K;</I$4- O-)_!J,N+01FGK!5'*=FF6OBF
M$^H[V#"R@&ULXV6G';UD#RM$N@/;W#YC7P5[NP'77=6<!-VJC<Y%'"LZMH:6
M]R45.R\)%^=A%\9B. Q-51>,$-LX04_!ITYU[DU+#@^E#5Z6J>;[D[9?@>P&
M,R?">R.!R7''$VJ%KZM7QMI1E;M[P$7?Q _J]_]^/NYU0G_[J):91FA028DX
M1#VLZLVI/\2!G+_ AT J@-RZ_V739>^7 AT 4$__F3+MCZ/U!+`0(4`!0``@`(`%63
MO!1!&_E5'P@``$X2```(``````````$`( "V AT 0````!204Y$3TTN0U!+`0(4
M`!0``@`(`,R2O!3!.4%O50<``.4.```,``````````$`( "V AT 44(``!204Y$
>3TTM0RY$3T-02P4&``````(``@!P````Q \`````
`
end

- Raw text -


  webmaster     delorie software   privacy  
  Copyright © 2019   by DJ Delorie     Updated Jul 2019