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 +... |
| Hi, maybe "The Standard Evaluation Procedure" reference is helpful for you. Wolfram usually starts from the head of the function to read attributes. Afterwards the default evaluation process starts from the innermost subexpression(leaves). But here... |
| Hi Fabien, here is another approach, possible for every dimension and general functions without known number of variables or functionnames Transposelike[expr_] := Block[ {numberm, numbern, numbermn}, numberm =... |
| Hi, you forgot to write x_ instead x and the outer brackets { } in Piecewise. With Plot3D you obtain R[x_, a_] := Piecewise[{{a x + 8, x -3}}]; Plot3D[R[x, a], {x, -10, 10}, {a, -5, 5}] which gives you a plot. If "a" is just a... |
| This seem to work f[x_]:=x^2-x+3; Plot[#2,{x,-6,6},PlotRange->10,PlotStyle->#1]&@@@{{Red,f[x]},{Green,f[2 x]},{Blue,f[x-2]},{Orange,-2f[x]}} |