MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Need Help

  • To: mathgroup at smc.vnet.net
  • Subject: [mg94557] Need Help
  • From: "Oyedeji, Kale" <koyedeji at morehouse.edu>
  • Date: Tue, 16 Dec 2008 02:34:53 -0500 (EST)

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,



 


  • Prev by Date: Re: contexts and functions
  • Next by Date: Re: contexts and functions
  • Previous by thread: Re: Re: Question about Dynamic-ly restricting Locator position
  • Next by thread: Re: Need Help