Different scales on the same axis

*To*: mathgroup at smc.vnet.net*Subject*: [mg122010] Different scales on the same axis*From*: Luiz Melo <lmelo at ufsj.edu.br>*Date*: Sun, 9 Oct 2011 03:50:57 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

Hi all, I have two different functions: f1 defined in the range -800<x<0, and f2 in the range 0<x<200. The graphics of f1 and f2 in the same plot could be done, for instance, with (I'm using version 8.0.0.0): f1[x_] := Sin[x Degree]; t1 = {#, f1[#]} & /@ Range[-800, 0, 5]; f2[x_] := 2 Sin[x Degree]*Exp[-x/100]; t2 = {#, f2[#]} & /@ Range[0, 200, 5]; ListLinePlot[{t1, t2}, PlotRange -> {{-800, 200}, {-1.1, 1.1}}, PlotStyle -> Thick, Frame -> True, AspectRatio -> .5] How can I "squeeze" the x axis of the plot of f1 (-800<x<0) to have the center of the coordinates (0,0) exactly at the middle of the plot frame? Thank you. Luiz