Date: Thu, 16 Feb 2012 18:57:03 +0000
Reply-To: "Nordlund, Dan (DSHS/RDA)" <NordlDJ@DSHS.WA.GOV>
Sender: "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From: "Nordlund, Dan (DSHS/RDA)" <NordlDJ@DSHS.WA.GOV>
Subject: Re: random no generator with probability
In-Reply-To: <CADquvYijyqUNzMHBcfKN6AhwNBwzdb8OWV4SgjA2DpfainMn1w@mail.gmail.com>
Content-Type: text/plain; charset=utf-8
V2VsbCwgSSBoYXZlbuKAmXQgc3BlbnQgZW5vdWdoIHRpbWUgbG9va2luZyBhdCB0aGUgY29kZSB0
byB1bmRlcnN0YW5kIHRoZSBsb2dpYyBvciB3aGF0IHRoZSBkZXNpcmVkIG91dHB1dCBpcy4gIEJ1
dCwgSSBkb27igJl0IHNlZSBhbnkgcGxhY2UgaW4gdGhlIGNvZGUgd2hlcmUgcmFuZG9tIG51bWJl
cnMgYXJlIGJlaW5nIGdlbmVyYXRlZC4gIFRoZSBtZDUoKSBmdW5jdGlvbiBpc27igJl0IGRlc2ln
bmVkIHRvIHByb2R1Y2Ug4oCYcmFuZG9t4oCZIG51bWJlcnMgYnV0LCBhcyB5b3Ugbm90ZWQgaW4g
eW91ciBlbWFpbCwgaXQgaXMgYSBoYXNoaW5nIGZ1bmN0aW9uLg0KDQpJIG1heSBiZSBzbG93IG9u
IHRoZSB1cHRha2UsIGJ1dCBJIHN0aWxsIGRvbuKAmXQga25vdyB3aGF0IHlvdSBhcmUgdHJ5aW5n
IHRvIGRvLiAgIElmIHlvdSBoYXZlIHRoZSBjb2RlIGJlbG93IGFuZCBpdCBkb2VzIHdoYXQgeW91
IG5lZWQsIHdoeSBhcmVu4oCZdCB5b3UgdXNpbmcgaXQ/ICBXaGF0IGFtIEkgbWlzc2luZyBoZXJl
PyAgSWYgaXQgZG9lc27igJl0IGRvIHdoYXQgeW91IG5lZWQgYW5kIHlvdSBhcmUgdHJ5aW5nIHRv
IGFkYXB0IGl0LCB0aGVuIEkgd291bGQgbmVlZCB0byB1bmRlcnN0YW5kIHdoYXQgeW91IGFyZSB0
cnlpbmcgdG8gZG8gYmVmb3JlIEkgY2FuIHN1Z2dlc3QgYW55dGhpbmcuICBPZiBjb3Vyc2UsIGV2
ZW4gaWYgeW91IGV4cGxhaW4gd2hhdCB5b3UgYXJlIHRyeWluZyB0byBkbywgSSBtYXkgbm90IGJl
IGFibGUgdG8gaGVscCAgIDotKCAgIOKApi5idXQgc29tZW9uZSBlbHNlIG1pZ2h0Lg0KDQpEYW4N
Cg0KRGFuaWVsIEouIE5vcmRsdW5kDQpXYXNoaW5ndG9uIFN0YXRlIERlcGFydG1lbnQgb2YgU29j
aWFsIGFuZCBIZWFsdGggU2VydmljZXMNClBsYW5uaW5nLCBQZXJmb3JtYW5jZSwgYW5kIEFjY291
bnRhYmlsaXR5DQpSZXNlYXJjaCBhbmQgRGF0YSBBbmFseXNpcyBEaXZpc2lvbg0KT2x5bXBpYSwg
V0EgOTg1MDQtNTIwNA0KDQpGcm9tOiBzb3VyYXYgZ2hvc2ggW21haWx0bzptdWphbWFpbGthcm8y
MDEwQGdtYWlsLmNvbV0NClNlbnQ6IFRodXJzZGF5LCBGZWJydWFyeSAxNiwgMjAxMiAxMDowOCBB
TQ0KVG86IE5vcmRsdW5kLCBEYW4gKERTSFMvUkRBKQ0KQ2M6IFNBUy1MQGxpc3RzZXJ2LnVnYS5l
ZHUNClN1YmplY3Q6IFJlOiByYW5kb20gbm8gZ2VuZXJhdG9yIHdpdGggcHJvYmFiaWxpdHkNCg0K
SGksDQoNCmhlcmUgZm9yIGV2ZXJ5IHZhbHVlIHRoZWlyIGlzIGFuIHVuaXF1ZSBzZWVkICwgc28g
ZWFjaCB0aW1lIHRoZSBzZWVkIHdpbGwgYmUgY2hhbmdlLiwgSSBhbSBub3Qgc3VyZSBpdCBpcyBw
b3NzaWJsZSBvciBub3QuLiBidXQgSSBoYXZlIHJlY2VpdmVkIGFuIGFsZ29yaXRoZW0gY29kZQ0K
DQpQUk9DIElNUE9SVCBPVVQ9IFdPUksuU0FNUExFDQogICAgICAgICAgICBEQVRBRklMRT0gIkQ6
XHRlbXBcc2FtcGxlLnhscyINCiAgICAgICAgICAgIERCTVM9RVhDRUw1IFJFUExBQ0U7DQogICAg
IEdFVE5BTUVTPVlFUzsNClJVTjsNCnByb2Mgc3VtbWFyeSBkYXRhPVdvcmsuU2FtcGxlOw0KICAg
dmFyIE1FTUJFUl9JRDsNCiAgIGNsYXNzIEdFTkRFUiBSRUdJT047DQogICBvdXRwdXQgb3V0PVdP
UksuU1VNTUFSWShkcm9wID0gX1RZUEVfIF9GUkVRXykNCiAgICAgICAgICBOID0NCiAgICAgICAg
ICBTVU0gPQ0KICAgICAgICAgIC8gYXV0b25hbWU7DQpydW47DQoNClBST0MgU1FMOw0KICAgQ1JF
QVRFIFRBQkxFIFdPUksuR0VUX1JBTkQgQVMNCiAgIFNFTEVDVCB0MS5nZW5kZXIsDQogICAgICAg
ICAgdDEucmVnaW9uLA0KICAgICAgICAgIHQxLm1lbWJlcl9pZF9OIGFzIGNvdW50LA0KICAgICAg
ICAgIHQxLm1lbWJlcl9pZF9TdW0gYXMgU0VFRCwNCiAgICAgICAgICAvKiBzZWVkICovDQogICAg
ICAgICAgICAobWQ1KHB1dCh0MS5tZW1iZXJfaWRfU3VtLDEwLjApKSkgRk9STUFUPSRoZXgzMi4g
QVMgUkFORE9NLA0KICAgbW9kKHQxLm1lbWJlcl9pZF9OLDUpIEFTIFJlbWFpbmRlciwNCiAgIGZs
b29yKHQxLm1lbWJlcl9pZF9OLzUpKjUgYXMgcm91bmRfZG93biwNCiAgIHB1dCh0MS5tZW1iZXJf
aWRfU1VNLDEwLjApIGFzIElOUFVUX01ENSwNCiAgIChpZm4oKG1kNShwdXQodDEubWVtYmVyX2lk
X1N1bSwxMC4wKSkpPignMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMneCksNSwwKSkg
QVMgQ09NUEFSRTEsDQogICAoaWZuKChtZDUocHV0KHQxLm1lbWJlcl9pZF9TdW0sMTAuMCkpKT4o
JzY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2J3gpLDUsMCkpIEFTIENPTVBBUkUyLA0K
ICAgKGlmbigobWQ1KHB1dCh0MS5tZW1iZXJfaWRfU3VtLDEwLjApKSk+KCc5OTk5OTk5OTk5OTk5
OTk5OTk5OTk5OTk5OTk5OTk5OSd4KSw1LDApKSBBUyBDT01QQVJFMywNCiAgIChpZm4oKG1kNShw
dXQodDEubWVtYmVyX2lkX1N1bSwxMC4wKSkpPignQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ0ND
Q0NDQ0MneCksNSwwKSkgQVMgQ09NUEFSRTQsDQogICAoaWZuKChtZDUocHV0KHQxLm1lbWJlcl9p
ZF9TdW0sMTAuMCkpKT4oJ0ZGRkZGRkZGRkZGRkZGRkZGRkZGRkZGRkZGRkZGRkZGJ3gpLDUsMCkp
IEFTIENPTVBBUkU1DQogICAvKihpZm4oKG1kNShwdXQodDEubWVtYmVyX2lkX1N1bSwxMC4wKSkp
PCgnMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMneCoobW9kKHQxLm1lbWJlcl9pZF9O
LDUpKSksMCw1KSkgQVMgQ09NUEFSRV9BTEwqLw0KICAgICAgRlJPTSBXT1JLLlNVTU1BUlkgQVMg
dDE7DQpRVUlUOw0KDQpQUk9DIFNRTDsNCiAgIENSRUFURSBUQUJMRSBXT1JLLlJVTEVTIEFTDQog
ICBTRUxFQ1QgdDEuZ2VuZGVyLA0KICAgICAgICAgIHQxLnJlZ2lvbiwNCiAgICAgICAgICB0MS5t
ZW1iZXJfaWRfTiBhcyBjb3VudCwNCiAgICAgICAgICB0MS5tZW1iZXJfaWRfU3VtIGFzIFNFRUQs
DQogICAgbW9kKHQxLm1lbWJlcl9pZF9OLDUpIEFTIFJlbWFpbmRlciwNCiAgIGZsb29yKHQxLm1l
bWJlcl9pZF9OLzUpKjUgKyAoaWZuKChtZDUocHV0KHQxLm1lbWJlcl9pZF9TdW0sMTAuMCkpKT4o
JzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzJ3gpLDUsMCkpIEFTIFJlbWFpbmRlcjVf
cnVsZSwNCiAgIGZsb29yKHQxLm1lbWJlcl9pZF9OLzUpKjUgKyAoaWZuKChtZDUocHV0KHQxLm1l
bWJlcl9pZF9TdW0sMTAuMCkpKT4oJzY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2J3gp
LDUsMCkpIEFTIFJlbWFpbmRlcjRfcnVsZSwNCiAgIGZsb29yKHQxLm1lbWJlcl9pZF9OLzUpKjUg
KyAoaWZuKChtZDUocHV0KHQxLm1lbWJlcl9pZF9TdW0sMTAuMCkpKT4oJzk5OTk5OTk5OTk5OTk5
OTk5OTk5OTk5OTk5OTk5OTk5J3gpLDUsMCkpIEFTIFJlbWFpbmRlcjJfcnVsZSwNCiAgIGZsb29y
KHQxLm1lbWJlcl9pZF9OLzUpKjUgKyAoaWZuKChtZDUocHV0KHQxLm1lbWJlcl9pZF9TdW0sMTAu
MCkpKT4oJ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDJ3gpLDUsMCkpIEFTIFJlbWFp
bmRlcjFfcnVsZSwNCiAgIGZsb29yKHQxLm1lbWJlcl9pZF9OLzUpKjUgKyAoaWZuKChtZDUocHV0
KHQxLm1lbWJlcl9pZF9TdW0sMTAuMCkpKT4oJ0ZGRkZGRkZGRkZGRkZGRkZGRkZGRkZGRkZGRkZG
RkZGJ3gpLDUsMCkpIEFTIFJlbWFpbmRlcjBfcnVsZQ0KICAgICAgRlJPTSBXT1JLLlNVTU1BUlkg
QVMgdDE7DQpRVUlUOw0KDQpOb3RlczogTUQ1OiBwcm9kdWNlcyBhIDEyOC1iaXQgKDE2LWJ5dGUp
IGhhc2ggdmFsdWUNCnR5cGljYWxseSBleHByZXNzZWQgYXMgYSAzMi1kaWdpdCBoZXhhZGVjaW1h
bCBudW1iZXINCnJhbmdlIGluIGhleDogMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAg
4oCTIEZGRkZGRkZGRkZGRkZGRkZGRkZGRkZGRkZGRkZGRkZGDQoNCkJ1dCBJIGFtIG50IGNsZWFy
IGFidCB0aGUgY29kZSAmIGxvZ2ljDQoNCg0KDQpPbiBUaHUsIEZlYiAxNiwgMjAxMiBhdCA4OjQ5
IFBNLCBOb3JkbHVuZCwgRGFuIChEU0hTL1JEQSkgPE5vcmRsREpAZHNocy53YS5nb3Y8bWFpbHRv
Ok5vcmRsREpAZHNocy53YS5nb3Y+PiB3cm90ZToNCj4gLS0tLS1PcmlnaW5hbCBNZXNzYWdlLS0t
LS0NCj4gRnJvbTogU0FTKHIpIERpc2N1c3Npb24gW21haWx0bzpTQVMtTEBMSVNUU0VSVi5VR0Eu
RURVPG1haWx0bzpTQVMtTEBMSVNUU0VSVi5VR0EuRURVPl0gT24gQmVoYWxmIE9mDQo+ICJTVUJT
Q1JJQkUgU0FTLUwgQW5vbnltb3VzInNvdXJhdg0KPiBTZW50OiBUaHVyc2RheSwgRmVicnVhcnkg
MTYsIDIwMTIgMjozMSBBTQ0KPiBUbzogU0FTLUxATElTVFNFUlYuVUdBLkVEVTxtYWlsdG86U0FT
LUxATElTVFNFUlYuVUdBLkVEVT4NCj4gU3ViamVjdDogcmFuZG9tIG5vIGdlbmVyYXRvciB3aXRo
IHByb2JhYmlsaXR5DQo+DQo+IEhpIGZyZHMsDQo+IEkgbmVlZCBoZWxwIGZyb20geW91IGZvbGtz
IGFib3V0IHJhbmRvbSBubyBnZW5lcmF0b3INCj4NCj4gc3RlcDE6IEkgaGF2ZSAyIGRhdGFzZXQg
QSAmIEIgYm90aCBoYXZlIGRpbWVuc2lvbiBuKm0oYWx3YXlzIHdpbGwgYmUNCj4gc2FtZSkNCj4N
Cj4gREFUQXNldCBBIGNvbnRhaW5zIGFsbCB2YWx1ZXMNCj4gREFUQXNldCBCIGNvbnRhaW5zIGFs
bCBzZWVkIGZvciB0aGUgdmFsdWVzDQo+IGV4OiBJZiB2YWx1ZSBpbiBkYXRhc2V0IEEncyBjZWxs
IDEqMSBpcyAiNyIgdGhlbiB0aGUgc2VlZCBmb3IgdGhlIHZhbHVlDQo+IGlzDQo+IGJlbG9uZyB0
bw0KPiBkYXRhc2V0IEIgaW4gY2VsbCAxKjENCj4NCj4NCj4gc3RlcDI6DQo+IFJvdW5kIGFsbCB2
YWx1ZXMgZG93biB0byBuZWFyZXN0IG11bHRpcGxlIG9mIDUNCj4gZmxvb3IodmFsdWVcNSkqNQ0K
Pg0KPiAgU3RlcCAzOg0KPg0KPiB0YWtlIHRoZSBtb2Qgb2YgdGhlIFZBTFVFLg0KPg0KPiAxLiB2
YWx1ZSBtb2QgNSA9PSAwLCB3aXRoIHA9NS81IGFkZCAwLCBwPTAvNSBhZGQgNQ0KPiAyLiB2YWx1
ZSBtb2QgNSA9PSAxLCB3aXRoIHA9NC81IGFkZCAwLCBwPTEvNSBhZGQgNQ0KPg0KPiAzLiB2YWx1
ZSBtb2QgNSA9PSAyLCB3aXRoIHA9My81IGFkZCAwLCBwPTIvNSBhZGQgNQ0KPiA0LiB2YWx1ZSBt
b2QgNSA9PSAzLCB3aXRoIHA9Mi81IGFkZCAwLCBwPTMvNSBhZGQgNQ0KPiA1LiB2YWx1ZSBtb2Qg
NSA9PSA0LCB3aXRoIHA9MS81IGFkZCAwLCBwPTQvNSBhZGQgNQ0KPg0KPiBpIExJS0UgVE8gREVW
T0xFUCBUSEUgQUxHT1JJVEhFTQ0KPiBJTklUSUFMTFkgaSBoYXZlIHBsYW4gdG8gdXNlIFJBTkJJ
TiBmdW5jdGlvbg0KPiBsaWtlIGZsb29yKHZhbHVlXDUpKjUgKyAgNSpyYW5iaW4oc2VlZCxuLHAp
DQo+DQo+IGJ1dCBmYWNpbmcgZGlmZmljdWx0eSBpbiB0ZXJtcyBvZiBtYXBwaW5nIHRoZSBzZWVk
IGFuZCBudW1iZXJzIGFuZA0KPiBwcm92aWRpbmcgdGhlIHZhbHVlIG9mIG4sIEkgZ3Vlc3MgcCBp
cyB0aGUgcHJvYmFiaWxpdHkgb2YgZ2V0dGluZyB0aGUNCj4gdmFsdWUgMQ0KPg0KPg0KSSB3b3Vs
ZCBhZ3JlZSB3aXRoIFJpY2sgV2lja2xpbiB0aGF0IGl0IGlzIHVuY2xlYXIgd2hhdCB5b3UgYXJl
IHRyeWluZyB0byBkby4gIEl0IElTIHBvc3NpYmxlIHRvIGNoYW5nZSB0aGUgc2VlZCBmb3Igc29t
ZSBvZiB0aGUgcmFuZG9tIG51bWJlciBnZW5lcmF0b3JzIHdpdGhpbiBhIGRhdGEgc3RlcCwgYnV0
IGl0IGlzIG5vdCBjbGVhciAoYXQgbGVhc3QgdG8gbWUpIHdoZXRoZXIgb25lIHNob3VsZCBldmVy
IGRvIHRoYXQuICBBdCB0aGUgdmVyeSBsZWFzdCwgeW91IHNob3VsZCB0aGluayBsb25nIGFuZCBo
YXJkIGJlZm9yZSBkb2luZyBpdCwgYW5kIHlvdSBzaG91bGQga25vdyBleGFjdGx5IGhvdyB0aGUg
cHNldWRvcmFuZG9tIG51bWJlcnMgYXJlIGdlbmVyYXRlZCBhbmQgaG93IGNoYW5naW5nIHRoZSBz
ZWVkIGNvdWxkIGFmZmVjdCB0aGUgcXVhbGl0eSBvZiB0aGUgInJhbmRvbW5lc3MiIG9mIHRoZSBu
dW1iZXJzIGdlbmVyYXRlZC4gIElmIHlvdSB3cml0ZSBiYWNrIHRvIFNBUy1MIGFuZCBwcm92aWRl
IG1vcmUgZGV0YWlsIG9uIHdoYXQgeW91ciBvdmVyYWxsIHByb2plY3QgaXMgdHJ5aW5nIHRvIGRv
LCB5b3Ugd2lsbCBwcm9iYWJseSBnZXQgbW9yZSB1c2VmdWwgc3VnZ2VzdGlvbnMuICBJbiBhZGRp
dGlvbiB0byBSaWNrJ3Mgc3VnZ2VzdGlvbnMsIHlvdSBtaWdodCB0YWtlIGEgbG9vayBhdCB0aGlz
IGFydGljbGUgb24gU0FTQ29tbXVuaXR5Lm9yZw0KDQpodHRwOi8vd3d3LnNhc2NvbW11bml0eS5v
cmcvd2lraS9Ib3dfdGhlX1NBU19SYW5kb21fTnVtYmVyX0dlbmVyYXRvcnNfV29yaw0KDQoNCkhv
cGUgdGhpcyBpcyBoZWxwZnVsLA0KDQpEYW4NCg0KRGFuaWVsIEouIE5vcmRsdW5kDQpXYXNoaW5n
dG9uIFN0YXRlIERlcGFydG1lbnQgb2YgU29jaWFsIGFuZCBIZWFsdGggU2VydmljZXMNClBsYW5u
aW5nLCBQZXJmb3JtYW5jZSwgYW5kIEFjY291bnRhYmlsaXR5DQpSZXNlYXJjaCBhbmQgRGF0YSBB
bmFseXNpcyBEaXZpc2lvbg0KT2x5bXBpYSwgV0EgOTg1MDQtNTIwNA0KDQo=
| 
