User Portlet
| Discussions |
|---|
| Hi Martin, here is a solution fact[f_, Ul_List] := Times @@ Power @@@ Cases[FactorList[f], x_ /; Or @@ Map[MemberQ[x, #, Infinity] &, Ul]]; For example g = U1^3*Cos[U1 + U2]*Sin[K2]*K3^2*Sqrt[K4 +... |
| Thanks. This one is surely correct. |
| You can try this way: Inactive[Plus] @@ Table[Inactive[Power][3, i], {i, {1, 2, 3, \[CenterEllipsis], i, \[CenterEllipsis], 100}}] |
| Syntactic fun, similar to Daniel's approach, less general but slightly faster: g @@ f @@@ Transpose @* List @@ List @@@ data |
| Are you looking for the values of a that make the function continuous? This may help: r[x_, a_] := Piecewise[{{a x + 8, x -3}}]; Manipulate[Plot[r[x, a], {x, -10, 5}], {a, -2, 1}] |