Student Support Forum: 'Graphing template' topicStudent Support Forum > General > Archives > "Graphing template"

 Next Comment > Help | Reply To Topic
 Author Comment/Response Kenton 06/27/13 2:17pm Hi, I'm trying to set up a graphing template to match a set of standards but am having trouble getting the arrowhead colours to match the function colours. The last line is the arrowheads. ClearAll["Global`*"]; Interpretation[{f = { 1/(x - 1), Sin[x], -x, x}, points = {{3, 2}, {-5, -8}}, min = -10, max = 10, size = 0.5, rmin = -10, rmax = 10, gridx = 1, gridy = 1, hlabel = "x", vlabel = "y"}, Panel[Grid[{{Style["Plot Characteristics", Bold], SpanFromLeft}, {"Functions:", InputField[Dynamic[f]]}, {"Points:", InputField[Dynamic[points]]}, {"Domain Min:", InputField[Dynamic[min]]}, {"Domain Max:", InputField[Dynamic[max]]}, {"Range Min:", InputField[Dynamic[rmin]]}, {"Range Max:", InputField[Dynamic[rmax]]}, {"Grid Size (cm):", InputField[Dynamic[size]]}, {"Gridline Space x:", InputField[Dynamic[gridx]]}, {"Grdiline Space y:", InputField[Dynamic[gridy]]}, {"Horizontal Label:", InputField[Dynamic[hlabel]]}, {"Vertical Label:", InputField[Dynamic[vlabel]]} }]], Plot[f, {x, min - 0.58*gridx, max + 0.58*gridx}, PlotRange -> {rmin - 1.01*gridy, rmax + 1.01 gridy} , GridLines -> {Range[min, max, gridx], Range[rmin, rmax, gridy]}, GridLinesStyle -> {{Dashed, CMYKColor[0, 0, 0, 1, 0.25], AbsoluteThickness[0.5]}, {Dashed, CMYKColor[0, 0, 0, 1, 0.25], AbsoluteThickness[0.5]}}, Ticks -> {Range[min, max, gridx], Range[rmin, rmax, gridy]}, TicksStyle -> Directive[10, Opacity[0], FontOpacity -> 0.9999, CMYKColor[0, 0, 0, 1], FontFamily -> "Helvetica"], ImageSize -> {(max + gridx - (min - gridx))*28.52*size + 37.2 + 6.4*StringLength[hlabel], (rmax + gridy - (rmin - gridy))*28.52* size + 49}, AspectRatio -> Full, AxesLabel -> {Style[hlabel, Italic], Style[vlabel, Italic]}, LabelStyle -> {{FontFamily -> "Helvetica", FontSize -> 14}}, AxesStyle -> {CMYKColor[1, 1, 1, 1], AbsoluteThickness[0.5]}, PlotStyle -> {{AbsoluteThickness[1], CMYKColor[0, 0, 0, 1]}, {AbsoluteThickness[1], CMYKColor[0, 0.83, 1, 0]}, {AbsoluteThickness[1], CMYKColor[1, 0, 0, 0]}, {AbsoluteThickness[1], CMYKColor[0.36, 1, 0, 0]}, {AbsoluteThickness[1], CMYKColor[0.63, 0, 1, 0]}, {AbsoluteThickness[1], CMYKColor[0, 0, 0, 1]}}, Epilog -> {Arrowheads[{0.04, 0.01, {0, 0.03}}], Arrow[{{max + gridx/2, 0}, {max + gridx/2 + gridx/10, 0}}], Arrow[{{min - gridx/2, 0}, {min - gridx/2 - gridx/10, 0}}], Arrow[{{0, rmax + gridy}, {0, rmax + gridy + gridy/10}}], Arrow[{{0, rmin - gridy}, {0, rmin - gridy - gridy/10}}], AbsolutePointSize[5], Point[points]} ] /. Line[x__] :> Sequence[Arrowheads[{-.04, .04}], Arrow[x]] ] URL: ,

 Subject (listing for 'Graphing template') Author Date Posted Graphing template Kenton 06/27/13 2:17pm Re: Graphing template Jose E Calde... 06/29/13 11:06am Re: Re: Graphing template Kenton 06/29/13 10:47pm
 Next Comment > Help | Reply To Topic