# How to display underlaying symbolic function but not calculating the result

Posted 6 months ago
667 Views
|
5 Replies
|
3 Total Likes
|
 Hi All,given the data list:- data = {24, 5, -9, 105, 15, 111}; Table[data[[i]], {i, 1, 6}] (* which shows the values in the data list *) Out[]= {24, 5, -9, 105, 15, 111} BUT I want Table[data[[i]],{i,1,6}]*( How can I code the output to show the under laying symbolic as shown below )* { data[], data[], data[], data[], data[], data[] }Many thanks for any help your can offer. Lea... Answer
5 Replies
Sort By:
Posted 6 months ago
 Hi, Table[With[{i = i}, Defer[data[[i]]]], {i, 1, 6}] returns what you need where the resultant list {data[], data[], data[], data[], data[], data[]} evaluates to {24, 5, -9, 105, 15, 111} A great primer on programmatically creating expressions http://community.wolfram.com/groups/-/m/t/1121273Some other cases of using With[{i=i},...][https : // reference.wolfram.com/language/howto/ EvaluateExpressionsInsideDynamicOrManipulate.html]https://mathematica.stackexchange.com/questions/141596/differentiate-values-inside-table-using-dynamic Answer
Posted 6 months ago
 Excellent Ben. Exactly what I wanted. Many thanks for your help, Lea... Answer
Posted 6 months ago
 Hi Ben & All,Further to your excellent recommendation of the use of the Defer[ ] function. I am trying to incorporate "Defer" into the following, but cannot seem to get the desired result. Please could you show the coding using Defer to get :-  FoldList[Plus, 0, Table[data[[i]], {i, 10}]] // TableForm 0, data[], data[]+data[], data[]+data[]+data[], data[]+data[]+data[]+data[], data[]+data[]+data[]+data[]+data[], data[]+data[]+data[]+data[]+data[]+data[], data[]+data[]+data[]+data[]+data[]+data[]+data[], data[]+data[]+data[]+data[]+data[]+data[]+data[]+data[], data[]+data[]+data[]+data[]+data[]+data[]+data[]+data[]+data[], data[]+data[]+data[]+data[]+data[]+data[]+data[]+data[]+data[]+data[] instead of :- 0 24 29 20 125 140 251Many thanks for your help. Lea... Answer
Posted 6 months ago
 Hi Lea,So I begin by reusing the last result Table[With[{i = i}, Defer[data[[i]]]], {i, 1, 10}] {data[], data[], data[], data[], data[], data[], data[], data[], data[], data[]} I don't use FoldLIst often so I started with a generic case to test FoldList[f, 0, Table[With[{i = i}, Defer[data[[i]]]], {i, 1, 10}]] {0, f[0, data[]], f[f[0, data[]], data[]], f[f[f[0, data[]], data[]], data[]] ,...}It seems to work so far. Now we define f to add whatever is passed to it and we obtain the result FoldList[Plus[##] &, 0, Table[With[{i = i}, Defer[data[[i]]]], {i, 1, 10}]] Then for data=Range the above would evaluate to {0, 1, 3, 6, 10, 15, 21, 28, 36, 45, 55} Answer
Posted 6 months ago
 Perfect Ben. Many thanks, Lea... Answer
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.