RE: one question about draw graph in frame

*To*: mathgroup at smc.vnet.net*Subject*: [mg49028] RE: [mg49001] one question about draw graph in frame*From*: "David Park" <djmp at earthlink.net>*Date*: Tue, 29 Jun 2004 04:50:00 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Daohua, I don't think I completely understand your question, especially given your example. Are you trying to obtain tick labels at a set of irregular values, or are you trying to obtain different scales on the top and right of the frame? (For example you may want to label in meters on the bottom and in feet on the top.) In any case, you will have to specify the tick values that you want, either by a Table or by a list of values. In the Graphics`Graphics` package there are the functions: LinearScale, LogScale, PiScale and UnitScale that are useful for automatically generating tick values - but not for the example you give. I agree that it is a chore to completely specify the ticks for a full frame in detail. One of the problems is getting the unlabeled ticks as well as the labeled ones. If you are using the same scale up-down and/or left-right then you want the same tick marks but unlabeled up and right. The DrawGraphics package at my web site below has a command CustomTicks that will generate tick marks. It allows you to use scales that are a function of the actual plot scale so you could have different scales up-down or left-right. You can generate linear, log and databased tick values. Via options you can specify the look of the tick marks and the form of the labels. Here is your plot using databased CustomTicks. The scale function in this case is Identity since we are using the actual plot values. The up and right ticks use a null string to format the values, which means they are left blank. We need to specify the up and right ticks so they match up-down and right-left. (Automatic would use the regular Mathematica ticks that would not match.) Needs["DrawGraphics`DrawingMaster`"] Draw2D[ {Draw[x^2, {x, 0, 1}]}, Frame -> True, FrameTicks -> { CustomTicks[Identity, databased[{0, 0.5, 0.7, 1}]], CustomTicks[Identity, databased[{0, 0.5, 1}]], CustomTicks[Identity, databased[{0, 0.5, 0.7, 1}], CTNumberFunction -> ("" &)], CustomTicks[Identity, databased[{0, 0.5, 1}], CTNumberFunction -> ("" &)]}, ImageSize -> 500]; Making a nice graph is as much a work of art as a science. If you don't want to go with the set-piece plots you will have to tend to the details. But you could define a plot function that has all the custom work in it and all you do is feed in the data for each separate plot. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Daohua Song [mailto:ds2081 at columbia.edu] To: mathgroup at smc.vnet.net Dear group, i draw a graph in frame model and can use framticks to let the upper and right have some scale you want. My question is that if it is possible to let the mathematics to do it automatically? you know, to write down every ticks is annoying. e.g \!\(Plot[x\^2, {x, 0, 1}, Frame -> True, FrameTicks -> {{0, .5, .7, 1}, {0, .5, 1}}]\) Any suggestion will be appreciated! daohua