2
$\begingroup$

I am trying to take a free-form input Function to create a list using NestList.

  Manipulate[list2 = NestList[f, .8, 10], {f, (1/3) x^3, InputField[_, String]}, 
     ControlType -> InputField]

Which generates this output:

{0.8, ((x^3)/3)[0.8], ((x^3)/3)[((x^3)/3)[0.8]], ((x^3)/ 3)[((x^3)/3)[((x^3)/3)[0.8]]], ((x^3)/ 3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[0.8]]]], ((x^3)/ 3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[0.8]]]]], ((x^3)/ 3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[0.8]]]]]], (( x^3)/3)[((x^3)/ 3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[0.8]]]]]]], (( x^3)/3)[((x^3)/ 3)[((x^3)/ 3)[((x^3)/ 3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[0.8]]]]]]]], ((x^3)/ 3)[((x^3)/ 3)[((x^3)/ 3)[((x^3)/ 3)[((x^3)/ 3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[0.8]]]]]]]]], ((x^3)/ 3)[((x^3)/ 3)[((x^3)/ 3)[((x^3)/ 3)[((x^3)/ 3)[((x^3)/ 3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[((x^3)/3)[0.8]]]]]]]]]]}

I would like to have a numeric output.

$\endgroup$
1
  • $\begingroup$ The problem is in function definition, x does not mean anything in this form. Try (1/3) #^3 & $\endgroup$
    – Kuba
    Commented Jun 13, 2013 at 19:15

1 Answer 1

3
$\begingroup$

As I have mentioned in comment the problem is that (1/3)x^3 is not a proper function definition. Applying this to Your starting value will give You, as one can expect:

(* => (1/3)x^3 [.8]*)

Natural way is to use pure function form for it: (1/3)#^3&.

Manipulate[
 list2 = NestList[f, .8, 10], 
 {f, (1/3) #^3 &, InputField[_]}, ControlType -> InputField]

enter image description here

But it does not look good in InputField, it is also not convenient to type. The following solution will fix that:

Manipulate[
 list2 = NestList[f /. x -> # &, .8, 10],
 {f, (1/3) x^3, InputField[_]}, ControlType -> InputField]

enter image description here

$\endgroup$
2
  • $\begingroup$ What happens if the user enters 42 + u^3? :P $\endgroup$
    – m_goldberg
    Commented Apr 18, 2014 at 22:57
  • $\begingroup$ @m_goldberg well, nothing special, I;m not sure what do you mean :P $\endgroup$
    – Kuba
    Commented Apr 19, 2014 at 6:45

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.