Re: Need Help
- To: mathgroup at smc.vnet.net
- Subject: [mg94585] Re: Need Help
- From: dh <dh at metrohm.com>
- Date: Tue, 16 Dec 2008 06:06:06 -0500 (EST)
- References: <gi7lmj$d1m$1@smc.vnet.net>
Hi,
if you paste output into a mail, you should use CopyAs.Plain Text from
the Edit menu. I tried to fix your expression:
With[{B=8,f=3
10-5},sol=Evaluate[{S[k+1]==R[k]*B*Table[Random[],{10000}]-f*S[k]*R[k],R[k+1]=
=f*S[k]*R[k], S[0]==3400, R[0]==9}, {S,R}, {k,0,10000}]]
Please read in the manual about Evaluate, it is not what you want. Look
at RSolve instead.
Further, you have a recursion formula that contains random numbers????
In addition, instead of a random number you have a vector of random
numbers??
What are you trying to do???
Daniel
Oyedeji, Kale wrote:
> I need help. My intension is to solve the implicit difference equation below involving generation of random numbers and to plot S(k) and R(k) versus k. But all I got is a series of numbers as indicated below too.
>
> Thanks for your assistance.
>
> Kale
>
> With[{B=8,f=3 x10-5}, sol=Evaluate[{S[k+1]= =R[k]*B*Table[Random[],{10000}]-f*S[k]*R[k],R[k+1]= =f*S[k]*R[k], S[0]ï??3400, R[0]ï??9}, {S,R}, {k,0,10000}]]
>
> Sample partial answer:
>
> OutputSizeLimit`Dump`encapsulateOutput
>
> {S[1+k]ï??{6.79088 R[k]-(3 R[k] S[k])/x105,3.42965 R[k]-(3 R[k] S[k])/x105,1.0636 R[k]-(3 R[k] S[k])/x105,6.98753 R[k]-(3 R[k] S[k])/x105,2.33128 R[k]-(3 R[k] S[k])/x105,4.43642 R[k]-(3 R[k] S[k])/x105,
>
>
>
>
- Follow-Ups:
- Re: Re: Need Help
- From: "Oyedeji, Kale" <koyedeji@morehouse.edu>
- Re: Re: Need Help