I have a list ep = {I Sqrt[2], {{I, 1/GoldenRatio, Sqrt[2]}, {1, 0, 1}}}
and I want to write a function that will output the list ep
in the following forms:
and
Playing in the Mathematica Notebook, I did the following:
myOutputForm[ep_List] :=
Module[{ep1, epe, r},
ep1 = Map[HoldForm[#] &, ep[[2]][[1]]];
epe = Map[HoldForm[#] &, ep[[2]][[2]]];
r = Apply[Times, MapThread[Power, {ep1, epe}]]
];
myOutputForm[ep]
gives this as output
How do I make this function to achieve what I have in
and
Any suggestion will be much appreciated.
Text
cell(shortcut forAlt+7
), then you can use the shortcupCtrl+9
to write your formula. See here $\endgroup$