Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1996

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: FrameTick position

  • To: mathgroup at
  • Subject: [mg4775] Re: FrameTick position
  • From: Dirk Kautz <kautz at>
  • Date: Fri, 13 Sep 1996 13:54:55 -0400
  • Organization: RWTH -Aachen / Rechnerbetrieb Informatik
  • Sender: owner-wri-mathgroup at

Dirk Kautz <kautz at> writes:

> If one sets the negative length of FrameTicks on the y-axis to 0.02 (or
> longer), the ticklabels will be to close to the ticks. This doesn't look
> good. The only way to fix that I found was to edit the postscript file 
> (find the ticklabels, replace the x offset of 0.02 (!) by eg 0.04 for
> each 
> of them and maybe also shift the FrameLabel). 

Thanks to Richard Mercer (richard at, who has 
implemented this in an upcoming version of calcE ( 
), here is the solution to my problem which might be helpful to others:

$DefaultFont=List["Times-Roman", 24]; 
xlabel="Time [ms]";
yscale[maxy_] := 
	Map[Append[#,{0,0.02}]&, UnitScale[0,maxy,1,5]];

	Frame->{ True, True, False, False},
	FrameLabel->{xlabel,"Response"} ];

Show[FullGraphics[gr] /.
{Text[t_,{a_,b_},{p_,0.}]:>Text[t,Scaled[{ -0.02,0},{ a, b}],{p, 0.}],
	Text[t,Scaled[{ -0.08, 0},{a,b}],{ p, 0},{0.,q}], 
	Text[xlabel,Scaled[{ 0, -0.08},{a,b}],{ 0, 2}] 
  \__/   Dirk Kautz (kautz at  ph: +49(0)241-80-4863
   ##    Kopernikusstr. 16,                    pgp key available on request
___\/__  D-52074 Aachen, Germany


  • Prev by Date: FindMinimum Termination Criteria?
  • Next by Date: help: Integrate[(1-x)^(-1/2)*(1-y)^(-1/2)/(x+y),{x,0,1},{y,0,1}]
  • Previous by thread: Re: FindMinimum Termination Criteria?
  • Next by thread: help: Integrate[(1-x)^(-1/2)*(1-y)^(-1/2)/(x+y),{x,0,1},{y,0,1}]