Perhaps most of the way I arrange code when posting here is not so important. I try to provide complete working examples so that anyone can scrape it off the screen and paste it into Mathematica and it should run.I often squeeze the more ordinary parts of the initialization code into a few lines to try to take the minimal amount of space on the screen . That is an attempt to leave more room for and to highlight the more essential parts of the code. Looking for any subtle specific differences between my code and your code, ignoring the formatting, is probably much more important. And, as I mentioned, just reformatting the code may be a very low priority when compared to your need to get the code working. My latest post wasn't intended to show you how to format your code. The only intent was to show how you might avoid creating multiple lists to hold results and then filling those lists with coefficients and then reformatting those results for your final purpose.

Using the Mathematica Function[] had some implications and differences from the generic concept of "function" in mathematics. I cannot be certain, but from your four sentence description of what you are seeing, I am assuming that Mathematica is giving some subtle feedback that it thinks there may a problem with the code you have given it. I have no idea what your real purpose is or your expected use is of these polynomial definitions. Given that I think the most I can do is to suggest carefully reading the help pages for Function and in particular clicking on the orange "Details" and try to determine whether it seems like there might possibly be implications from using Function that may not be exactly compatible with what you are trying to do. If that isn't sufficient then perhaps posting the code for a simple example of a couple of your polynomials followed by the code and explanation of what you want to then do with these polynomials might help. Perhaps that would let someone understand what you need to know.

Hi Gerald,

The functions defined have no formal arguments. Since x is bound to .3, the function will return the same value for any argument passed to it.

x = .3;
outlayer = Function[a0 + a1*x + a2*x^2 + a3*x^3 + a4*x^4];
outlayer[2]
(* a0 + 0.3 a1 + 0.09 a2 + 0.027 a3 + 0.0081 a4 *)
outlayer[1] == outlayer[2]
(* True *)

Provide a formal argument or use SetDelayed.

ClearAll[outlayer];
outlayer = Function[x, a0 + a1*x + a2*x^2 + a3*x^3 + a4*x^4];
outlayer[2]
(* a0 + 2 a1 + 4 a2 + 8 a3 + 16 a4 *)

ClearAll[outlayer];
outlayer[x_] := a0 + a1*x + a2*x^2 + a3*x^3 + a4*x^4;
outlayer[2]
(* a0 + 2 a1 + 4 a2 + 8 a3 + 16 a4 *)

If you are new to WL, take a look at this and this.

Try replacing

slacdataTension[[i]]=FindRoot[{((2*(H/w)*Sinh[spn*w/(2*H)]-spn-slack)/tareacable)},{H,1000}];

with

slacdataTension[[i]]=H/.FindRoot[{((2*(H/w)*Sinh[spn*w/(2*H)]-spn-slack)/tareacable)},{H,1000}];

which will remove all the H-> in your results and let you see your plot. You can search for /. in the help pages and see if that helps explain what this change does.

Thanks much. I had reviewed use of /. prior to posting but did not make the connection the variable name is referred to rather than just the output.(which almost works btw)

G

Check this carefully

spn=1000; w=1.093; tareacable=0.005044; initialslack=0.01; strainlimub=0.5;
strainincrement=0.1; slack=initialslack;
iters=(spn*strainlimub-200*initialslack)/(100*strainincrement)+1;
i=1;slacdataStrain=Table[0,{i,1,iters}]; slacdataTension=Table[0,{i,1,iters}];
While[(slack/spn)*100<strainlimub,
  slacdataStrain[[i]]= slack/spn*100; 
  slacdataTension[[i]]=H/.FindRoot[{((2*(H/w)*Sinh[spn*w/(2*H)]-spn-slack)/tareacable)},{H,1000}]; 
  slack=slack+strainincrement; 
  i++];
points=Transpose[{slacdataStrain,slacdataTension}];
ListPlot[points]

There are a number of warning messages printed which may indicate that no sufficiently precise roots were able to be found for some values of your parameters.