<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 6.00.2900.3429" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Por que o X dá sempre zero, mesmo que eu substitua
o lambda por qualquer valor? Onde estou errando?</FONT><FONT
size=3>p=1<BR>n=0<BR>lambda=2<BR>c=exp(-lambda)<BR>u=runif(100)<BR>p=p*u<BR>n=1<BR>#while
(p<c){ u=runif(100);n=n+1}<BR><SPAN
style="FONT-SIZE: 12pt; FONT-FAMILY: 'Arial','sans-serif'; mso-fareast-font-family: 'Times New Roman'; mso-fareast-language: PT-BR">#p</SPAN></FONT></DIV>
<DIV><FONT size=3><SPAN
style="FONT-SIZE: 12pt; FONT-FAMILY: 'Arial','sans-serif'; mso-fareast-font-family: 'Times New Roman'; mso-fareast-language: PT-BR"></SPAN></FONT><FONT
size=3><SPAN
style="FONT-SIZE: 12pt; FONT-FAMILY: 'Arial','sans-serif'; mso-fareast-font-family: 'Times New Roman'; mso-fareast-language: PT-BR">while
(sum(u)<c){ u=runif(100);n=n+1}</SPAN></FONT></DIV>
<DIV><FONT size=3><SPAN
style="FONT-SIZE: 12pt; FONT-FAMILY: 'Arial','sans-serif'; mso-fareast-font-family: 'Times New Roman'; mso-fareast-language: PT-BR"></SPAN></FONT><FONT
size=3><FONT face=Arial>u<BR>x=n-1<BR></FONT>x</FONT></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT><BR></DIV>É
só trocar o nome das variaveis (na verdade nem precisava trocar, era só
adicionar x<-n-1 no final)...
<DIV><BR></DIV>
<DIV>
<DIV>## Gera 'batata' até que a soma seja 1.5</DIV>
<DIV>batata <- runif(2) </DIV>
<DIV>batata</DIV>
<DIV>n<- 1</DIV>
<DIV>while (sum(batata) < 1.5) { batata <- runif(2) ; n <- n+1
}</DIV>
<DIV>batata</DIV>
<DIV>x<-n-1</DIV><BR>
<DIV class=gmail_quote>2011/8/23 Mauro Sznelwar <SPAN dir=ltr><<A
href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</A>></SPAN><BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid"><U></U>
<DIV bgcolor="#ffffff">
<DIV><FONT face=Arial color=#0000ff>Muito obrigado pela dica. Mas como fica
o faça X=N-1</FONT></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>
<DIV></DIV>
<DIV class=h5>
<DIV style="FONT: 10pt arial"> </DIV>
<DIV style="FONT: 10pt arial"> </DIV>
<DIV style="FONT: 10pt arial"> </DIV>
<DIV style="FONT: 10pt arial">for não é para isso, da uma olhada no
while</DIV>
<DIV><BR></DIV>
<DIV>Exemplo basico:</DIV>
<DIV><BR></DIV>
<DIV>
<DIV>
<DIV>## Gera X até que a soma deles seja 1.5</DIV>
<DIV>x <- runif(2) </DIV>
<DIV>x</DIV>
<DIV>n<- 1</DIV>
<DIV>while (sum(x) < 1.5) { x <- runif(2) ; n <- n+1 }</DIV>
<DIV>x</DIV>
<DIV>n # numero de tentativas</DIV></DIV></DIV>
<DIV><BR></DIV>
<DIV>
<DIV><BR></DIV>
<DIV><BR>
<DIV class=gmail_quote>2011/8/23 Crysttian Arantes <SPAN dir=ltr><<A
href="mailto:crysttian@gmail.com"
target=_blank>crysttian@gmail.com</A>></SPAN><BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">Olá,<BR><BR>O
problema está na funcao runif(0).<BR><BR>O zero indica que o numero de
valores uniformes que ele tem que gerar é zero, coloca
1.<BR><BR>runif(1): gera 1 valor<BR>runif(2): gera 2 valores
<BR><BR>Entendeu:<BR><BR>Até<BR><BR><BR><BR clear=all>Crysttian Arantes
Paixão<BR>Universidade Federal de Lavras - UFLA<BR>Cel: <A
href="tel:35%208876-9187" target=_blank value="+553588769187">35
8876-9187</A> (Oi)<BR> <A
href="tel:35%209189-7272" target=_blank value="+553591897272">35
9189-7272</A> (Tim)<BR>Linux User: 456734 - Debian<BR><BR>“Se fiz
descobertas valiosas, foi mais por ter paciência do que qualquer outro
talento.” [Isaac Newton]<BR><BR><FONT
face="Arial, Helvetica, sans-serif" size=2>"Otimismo é esperar pelo
melhor. Confiança é saber lidar com o pior." [Roberto
Simonsen]<BR><BR></FONT><FONT face="Arial, Helvetica, sans-serif"
size=2>"Mesmo as noites totalmente sem estrelas podem anunciar a aurora
de uma grande realização." [Martin Luther King]<BR><BR></FONT><BR><FONT
face="Arial, Helvetica, sans-serif" size=2><BR></FONT><BR><BR><BR>
<DIV class=gmail_quote>Em 23 de agosto de 2011 22:59, Mauro Sznelwar
<SPAN dir=ltr><<A href="mailto:sznelwar@uol.com.br"
target=_blank>sznelwar@uol.com.br</A>></SPAN> escreveu:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">
<DIV>
<DIV></DIV>
<DIV><U></U>
<DIV bgcolor="#ffffff">
<DIV><FONT face=Arial>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: justify"><SPAN
style="FONT-SIZE: 12pt"><FONT size=2>Tenho este
algoritmo<U></U><U></U><U></U></FONT></SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: justify"><SPAN
style="FONT-SIZE: 12pt"><FONT size=2>p=1, N=0,
c=e^-lambda<U></U><U></U></FONT></SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: justify"><SPAN
style="FONT-SIZE: 12pt"><FONT size=2>Repita
<U></U><U></U></FONT></SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: justify"><SPAN
style="FONT-SIZE: 12pt"><FONT
size=2><SPAN> </SPAN>N=N+1<U></U><U></U></FONT></SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: justify"><SPAN
style="FONT-SIZE: 12pt"><FONT size=2>gere
Ui<U></U><U></U></FONT></SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: justify"><SPAN
style="FONT-SIZE: 12pt"><FONT size=2>atualize
p<c.e^-lambda<U></U><U></U></FONT></SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: justify"><SPAN
style="FONT-SIZE: 12pt"><FONT size=2>Faça
X=N-1<U></U><U></U></FONT></SPAN></P></FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Estou fazendo esta rotina abaixo, mas o
resultado não está consistente! Qual o melhor jeito?</FONT></DIV>
<DIV><FONT face=Arial size=2><FONT
size=3>p=1<BR>n=0<BR>lambda=2<BR>c=exp(-lambda)<BR> for(n in
1:100){
<BR> u=runif(n)<BR> p=p*u<BR>p<c <BR>}<BR>x=n-1</FONT><BR> </FONT></DIV></DIV><BR></DIV></DIV>_______________________________________________<BR>R-br
mailing list<BR><A href="mailto:R-br@listas.c3sl.ufpr.br"
target=_blank>R-br@listas.c3sl.ufpr.br</A><BR><A
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target=_blank>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A><BR>Leia
o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia"
target=_blank>http://www.leg.ufpr.br/r-br-guia</A>) e forneça código
mínimo
reproduzível.<BR></BLOCKQUOTE></DIV><BR><BR>_______________________________________________<BR>R-br
mailing list<BR><A href="mailto:R-br@listas.c3sl.ufpr.br"
target=_blank>R-br@listas.c3sl.ufpr.br</A><BR><A
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target=_blank>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A><BR>Leia
o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia"
target=_blank>http://www.leg.ufpr.br/r-br-guia</A>) e forneça código
mínimo reproduzível.<BR></BLOCKQUOTE></DIV><BR></DIV></DIV></DIV></DIV>
<P></P>
<HR>
<DIV class=im>
<P></P>_______________________________________________<BR>R-br mailing
list<BR><A href="mailto:R-br@listas.c3sl.ufpr.br"
target=_blank>R-br@listas.c3sl.ufpr.br</A><BR><A
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target=_blank>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A><BR>Leia
o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia"
target=_blank>http://www.leg.ufpr.br/r-br-guia</A>) e forneça código
mínimo reproduzível.</DIV>
<P></P></BLOCKQUOTE></DIV><BR>_______________________________________________<BR>R-br
mailing list<BR><A
href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A><BR><A
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target=_blank>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A><BR>Leia
o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia"
target=_blank>http://www.leg.ufpr.br/r-br-guia</A>) e forneça código mínimo
reproduzível.<BR></BLOCKQUOTE></DIV><BR></DIV>
<P>
<HR>
<P></P>_______________________________________________<BR>R-br mailing
list<BR>R-br@listas.c3sl.ufpr.br<BR>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<BR>Leia
o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo
reproduzível.</BLOCKQUOTE></BODY></HTML>