Re: Equation

• To: mathgroup at smc.vnet.net
• Subject: [mg26654] Re: Equation
• From: Lawrence Walker <lwalker701 at earthlink.net>
• Date: Sat, 13 Jan 2001 22:36:25 -0500 (EST)
• Organization: Morgan State University: COMSARE
• References: <93kn7o\$747@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```I would use either of the following:

where, equ = i == R - R((1 + .05)^10-1)/((1 + R)^10-1);

1.  Solve[equ,R]
2.  FindRoot[Evaluate[equ /. i -> 1], {R, .1}]

Note that '1' gives a solution with Root in it implying that the
solution can have multiple roots.  '2' only finds a solution if you
provide what is 'i' should be and where R should start.  In this case
'i' was set to 1 and R is initially set to be 0.1 .

Lawrence

Jose Lasso wrote:

> Hi,
>
> I have little experience with Mathematica, I change to Mathematica
> few months ago, I want to solve: i = R - R((1 + .05)^10-1)/((1 +
> R)^10-1) for R, how can I do this task in Mathematica??. Thx in
>
> Jose M Lasso
>
> PS:Happy new year!!

--

------------------------------------------------------------
(\___/)     The fear of the LORD is the beginning of
(o\ /o)     wisdom: a good understanding have all they
/|:.V.:|\    that do his commandments: his praise
\\::::://    endureth for ever.              Psa 111:10
-----`"" ""`------------------------------------------------
Lawrence A. Walker Jr., M.Eng./Ph.D. Candidate
Morgan State University
Clarence M. Mitchell School of Engineering
COMSARE (Center Of Microwave/Satellite And RF Engineering)
(443)885-1453
------------------------------------------------------------

```

• Prev by Date: Re: How to get the slope of a Interpolation[] function at a specified point?
• Next by Date: Re: Equation
• Previous by thread: Re: Equation
• Next by thread: Plotting complex points
{"ft_lang_label":"__label__en","ft_lang_prob":0.807049,"math_prob":0.70684993,"size":1578,"snap":"2019-51-2020-05","text_gpt3_token_len":442,"char_repetition_ratio":0.16899619,"word_repetition_ratio":0.016597511,"special_character_ratio":0.43092522,"punctuation_ratio":0.22082019,"nsfw_num_words":0,"has_unicode_error":false,"math_prob_llama3":0.99075687,"pos_list":[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14],"im_url_duplicate_count":[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null],"WARC_HEADER":"{\"WARC-Type\":\"response\",\"WARC-Date\":\"2020-01-23T19:27:26Z\",\"WARC-Record-ID\":\"<urn:uuid:ebf73382-c825-4ae8-bfd4-364b0d3390fc>\",\"Content-Length\":\"45302\",\"Content-Type\":\"application/http; msgtype=response\",\"WARC-Warcinfo-ID\":\"<urn:uuid:20160938-f80d-4d4c-9570-e74bf881060e>\",\"WARC-Concurrent-To\":\"<urn:uuid:7fe8abd5-b2f1-4929-888d-8692929f0ce5>\",\"WARC-IP-Address\":\"140.177.205.73\",\"WARC-Target-URI\":\"http://forums.wolfram.com/mathgroup/archive/2001/Jan/msg00133.html\",\"WARC-Payload-Digest\":\"sha1:7MEMOUKLHWWUT3N25IUVFYLTLFN55AE7\",\"WARC-Block-Digest\":\"sha1:PLBJHNJ4VNQIIIUYFVCJFGYMB7RGZZT2\",\"WARC-Identified-Payload-Type\":\"text/html\",\"warc_filename\":\"/cc_download/warc_2020/CC-MAIN-2020-05/CC-MAIN-2020-05_segments_1579250613416.54_warc_CC-MAIN-20200123191130-20200123220130-00401.warc.gz\"}"}