0
$\begingroup$

I am working on creating a CDF file for a calculation where I do high-precision evaluation of functions such as N[func,40]. I wrote a Module that takes user function and rationalize it, this way I create a function with user input accuracy. (Shown Below). When I don't use an inputfield my module works well but with inputfield I can't prevent it to be evaluated.

enter image description here

As you can see I need to avoid the evaluation so that I can evaluate the function in desired accuracy (number of digits). Any idea how I can do this?

Thank you

Erdem

Panel[DynamicModule[{fun = 2.1 Sin[Pi z/2.1]}, Column[{ Row[{Style["Function ", 12, Blue, Editable -> False], InputField[HoldForm[Dynamic[fun]], FieldSize -> {55, 3}, BaseStyle -> {12}]}, Spacer[1]] , Button[Style["Calculate", 14, Green, Editable -> False], Res = upAC[fun]], Row[{Style["Result ", 12, Red, Editable -> False], InputField[Dynamic[Res], FieldSize -> {52, 2}, BaseStyle -> {12}]}, Spacer[5]] }], Initialization :> (upAC[in_] := Module[{out}, out = If[Accuracy[in] == \[Infinity], in, ReleaseHold[Rationalize[in, 10^-Accuracy[in]]]]; Return[out]];) ]]

Asked in http://community.wolfram.com/groups/-/m/t/978300

Improve this question
$\endgroup$
8
  • $\begingroup$ Please edit both this post and the one you made on Wolfram Community and cross-reference them. $\endgroup$ Commented Dec 12, 2016 at 18:16
  • $\begingroup$ InputField takes a form as its second argument. One possible form is Hold[Expression] which simply holds the expression you input. Will this work for you? $\endgroup$ Commented Dec 12, 2016 at 18:27
  • $\begingroup$ When I do InputField[Dynamic[Hold[fun]] I can't access to the input field. $\endgroup$ Commented Dec 12, 2016 at 18:32
  • $\begingroup$ Thanks! This is so that people who would answer on one site will be aware of any existing discussion on the other site. $\endgroup$ Commented Dec 12, 2016 at 18:35
  • $\begingroup$ If you add HoldForm to fun definition inside DynamicModule and remove HoldForm from InputField, do you get what you want? $\endgroup$ Commented Dec 12, 2016 at 19:10

1 Answer 1

Reset to default
2
$\begingroup$

Please tell me if this is what you want, and if not in which way it fails:

Panel[DynamicModule[{fun = Hold[2.1 Sin[Pi z/2.1]], Res = upAC[fun]}, Column[{Row[{Style["Function ", 12, Blue, Editable -> False], InputField[Dynamic[fun], Hold[Expression], FieldSize -> {55, 3}, BaseStyle -> {12}]}, Spacer[1]], Button[Style["Calculate", 14, Green, Editable -> False], Res = upAC[fun]], Row[{Style["Result ", 12, Red, Editable -> False], InputField[Dynamic[Res], FieldSize -> {52, 2}, BaseStyle -> {12}]}, Spacer[5]]}], Initialization :> (upAC[Hold[in_]] := Module[{out}, out = If[Accuracy[Unevaluated[in]] == ∞, in, Rationalize[Defer[in], 10^-Accuracy[in]]]; Return[out]];)]]
Improve this answer
$\endgroup$
4
  • 1
    $\begingroup$ Yes it does work. Thank you. $\endgroup$ Commented Dec 12, 2016 at 20:04
  • $\begingroup$ @Mr.Wizard Great! One question. Shouldn't we have HoldForm around the RHS in the initialization of fun to make sure the very first evaluation of the Panel produces the correct expression in the input form? $\endgroup$ Commented Dec 12, 2016 at 22:30
  • $\begingroup$ @Stitch Good point. I believe it needs to be Hold rather than HoldForm to work as desired. I included this in my answer now. $\endgroup$ Commented Dec 13, 2016 at 5:24
  • $\begingroup$ Thank you for the update. It is a little detail but important. $\endgroup$ Commented Dec 13, 2016 at 20:48

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.