8
The items in the original table look a lot like buttons. Lets try that approach:
{{"", "Quadrant", SpanFromLeft},
{"Ratio", "I", "II", "III", "IV"},
{Sin[\[Theta]], "+", "+", "-", "-"},
{Cos[\[Theta]], "+", "+", "-", &...
3
With Tooltips
Clear["Global`*"]
func = {Sin, Cos, Tan};
quad = Range[Pi/4, 2 Pi, Pi/2];
signs =
Outer[
Tooltip[
Sign[#1[#2]] /. {1 -> "+", -1 -> "-"},
Show[
Plot[#1[theta], {theta, 0, 2 Pi},
PlotStyle -> AbsoluteThickness[0.5]],
Plot[#1[theta], {theta, #2 - Pi/4, #2 + Pi/4},
...
3
The same issue arises when we use CalloutMarker -> Arrowheads[Medium] or CalloutMarker -> Arrowheads[.02] in combination with Manipulate andImageSize -> Full.
A simple fix is to use ImageSize -> Scaled[1] instead of ImageSize -> Full:
Manipulate[Plot[Callout[x, "x", CalloutMarker -> "Arrow"], {x, 0, 1},
ImageSize ->...
2
Actually, Mathematica was kind enough to tell me. If you do this:
In[] = ToBoxes[λ']
Out[] = SuperscriptBox["\[Lambda]", "\[Prime]", MultilineFunction -> None]
You can then make your boxes out of these characters:
MakeBoxes[lambdaPrime, StandardForm] := SuperscriptBox["\[Lambda]", "\[Prime]"];
MakeExpression[...
Only top voted, non community-wiki answers of a minimum length are eligible
