New answers tagged

5

HoldForm @@ {Factor[x^105 - 1]} /. k_ x_^n_ :> RuleCondition[With[{b = Style[Abs[k], Red]}, If[Internal`SyntacticNegativeQ[k], -1, 1] HoldForm[b x^n]], Abs[k] > 1] Use Highlighted[Abs[k]] instead of Style[Abs[k], Red] to get See also: Replacement inside held expression Update: Displaying in TraditionalForm: HoldForm @@ (TraditionalForm /@ {...


1

Clear["Global`*"] k1 = 1600; k2 = 600; k3 = 3200; m1 = 1; m2 = 2; (*Matriz de rigidez*) K2 = {{+k1 + k2, -k2}, {-k2, k2 + k3}}; (*Matriz de massa*) M2 = {{m1, 0}, {0, m2}}; w1 = 40; w2 = 50; xi1 = 1/10; xi2 = 1/10; Modifying the definition of A to result in a vector A = Inverse[{{1/w1, w1}, {1/w2, w2}}].{2 xi1, 2 xi2}; (C2 = A.{M2, K2}) // ...


4

You can use TemplateBox to control how derivatives are copy/pasted: MakeBoxes[Derivative[n_Integer?(Between[{1,4}])][f_], StandardForm] := With[ {p=StringRepeat["\[Prime]",n], q=StringRepeat["'",n]}, TemplateBox[ {MakeBoxes[f]}, "Derivative1", DisplayFunction->(SuperscriptBox[#1, p, ...


3

One approach is to override Derivative box formatting and use Copy As -> Plain Text MakeBoxes[Derivative[n_Integer][f_], form_] := RowBox[{ToBoxes@f, StringRepeat["'", n]}]


Top 50 recent answers are included