Hot answers tagged

4

Accumulate /@ matrix1 produces {{a, a + b, a + b + c, a + b + c + d}, {e, e + f, e + f + g, e + f + g + h}, {i, i + j, i + j + k, i + j + k + l}, {m, m + n, m + n + o, m + n + o + p}}


4

Updated answer As a follow up question, can we apply a different strategy for distinguishing the words? For example, adding a frame instead of coloring them. Answering the follow up question does bring better looking and easier to read results: aResFr = findwords[str, CommonWordQ, <|Horizontal -> (Framed[Style[#, Blue, Bold], Background ...


3

I think you have made things more complicated than they need be using Table, which is what is getting you into trouble. This is a case where you should use Do. Like so: final = ConstantArray[0, 4]; Do[ Echo[final]; Echo[{index}]; final[[index]] = index^2, {index, Reverse @ Range[4]}]; final {1, 4, 9, 16}


1

An alternative approch is to use ParametricNDSolveValue once (instead of using NDSolve for each value of QVary): pndsv = ParametricNDSolveValue[{TEq, m'[t] == QVary/h - mDotOut, icT, icm}, {T[t], m[t]}, {t, 0, tf}, {QVary}]; Plot[Evaluate[Table[First@pndsv[q], {q, {30, 100, 500, 1000}}]], {t, 0, 120}, PlotRange -> {{0, 120}, All}, GridLines -> ...


1

Wrap the first argument in Plot with Evaluate and use the option PlotLegends with your choice of legend labels: Plot[Evaluate[T[t] /. sol2], {t, 0, tf}, PlotRange -> {{0, tf}, {200, 0}}, GridLines -> Automatic, ImageSize -> "Large", AxesLabel -> {Time (s), Temperature (K)}, PlotLegends -> LineLegend[Automatic, PromptForm["...


Only top voted, non community-wiki answers of a minimum length are eligible