Skip to main content
Mathematica

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

31
  • 1
    $\begingroup$ E.g.: Row[{Panel[ Column[{"Rth:", Style[tmp = Rth[tmax, tin, qmax], Red, Bold, 14]}, Frame -> True, Background -> LightBlue, FrameStyle -> Red], "Calculated Values :"], getHeading[tmp, m]}] $\endgroup$ Commented Mar 23, 2022 at 13:10
  • 1
    $\begingroup$ Simply change "Neareast" to "Min" $\endgroup$ Commented Mar 23, 2022 at 13:53
  • 1
    $\begingroup$ I think you should make an effort to learn the mathematica language. Here is a function that gets the value from row and column headings: getValue[row_, col_] := CP[[1, Position[CP[[2, 2, 1]], "1.5 GPM"][[1]], Position[CP[[2, 2, 2]], "CP-1001"][[1]]]][[1, 1]]and the is an example: getValue["1.5 GPM", "CP-1001"] $\endgroup$ Commented Mar 31, 2022 at 11:44
  • 1
    $\begingroup$ Sorry, here is the correct function: getValue[row_, col_] := CP[[1, Position[CP[[2, 2, 1]], row][[1]], Position[CP[[2, 2, 2]], col][[1]]]][[1, 1]] $\endgroup$ Commented Mar 31, 2022 at 19:09
  • 1
    $\begingroup$ Try e.g.: getValue["1.5 GPM", getHeading[0.0052, 1.5]] This gives 0.0054. I think your mistake are the quotation marks around getHeading[..]. If you really want to give "getHeading[ rth,m]" as a string, you need to wrap ToExpression around it. $\endgroup$ Commented Apr 2, 2022 at 9:33