Re: Re: Need Help
- To: mathgroup at smc.vnet.net
- Subject: [mg94610] Re: [mg94585] Re: Need Help
- From: John Fultz <jfultz at wolfram.com>
- Date: Wed, 17 Dec 2008 06:35:41 -0500 (EST)
- Reply-to: jfultz at wolfram.com
Actually for users of version 6 and later, regular copy (which is equivalent to
Copy As Input Text) is the best. The regular copy function, among other things,
tries to use an InputForm representation (where possible), preserves
evaluatability, and cleanly wraps at 70 characters which should be fine for most
email applications.
Copy As Plain Text preserves the appearance of what's onscreen which will not
always be evaluatable (but sometimes may be a preferred choice like, for
example, when you're copying the output of a TableForm or Grid). Also, Copy As
Plain Text does not linewrap for email, favoring only the formatting which is
explicitly in the cell.
Of course, we continue to make improvements on the functionality, and remain
open to suggestions.
Sincerely,
John Fultz
jfultz at wolfram.com
User Interface Group
Wolfram Research, Inc.
On Tue, 16 Dec 2008 06:06:06 -0500 (EST), dh wrote:
>
>
> 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]=EF=82=8A3400,
>> R[0]=EF=82=8A9}, {S,R}, {k,0,10000}]]
>>
>>
>> Sample partial answer:
>>
>>
>> OutputSizeLimit`Dump`encapsulateOutput
>>
>>
>> {S[1+k]=EF=82=8A{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,