Plot - where is y scale?

• To: mathgroup at smc.vnet.net
• Subject: [mg55667] Plot - where is y scale?
• From: fonfastik at interia.pl (Paawel)
• Date: Sat, 2 Apr 2005 01:27:58 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Hi
I fitted equation to experimental data.
When I want to plot the equation X axis goes as it is set, but the
scale on the Y axis ends and plot ends in the middle of the X axis.
Here is data and equation.
When I use command DisplayTogether I can see the equation in the whole
range of Y.
What do I do wrong??

<< Statistics`NonlinearFit`

data = {{173.2, -0.0119729}, {174.5, -0.0203019}, {
175.7, -0.00364394}, {176.8, -0.0119729}, {178.1, -0.0119729},
{179.5, \
-0.00780843}, {
180.6, -0.00780843}, {182.1, -0.0161374}, {183.7, 0.000520562},
{185.4, \
-0.0119729}, {187.5, -0.0203019}, {188.8, 0.000520562}, {190.1,
0.00468506}, \
{191.7, 0.00884956}, {193.1, -0.00364394}, {194.2, 0.000520562},
{195.1, \
-0.00364394}, {196.5, 0.00468506}, {
197.7, -0.00780843}, {198.8, 0.00468506}, {199.8, 0.000520562},
{200.8, \
0.000520562}, {201.8, 0.00884956}, {203, 0.000520562}, {
204.2, 0.00468506}, {205.3, 0.00468506}, {
206.3, 0.00468506}, {207.6, 0.00468506}, {
208.7, -0.00364394}, {210.6, 0.00468506}, {211.6, 0.00884956}, {213,
\
-0.00364394}, {214.3, 0.0130141}, {215.6, 0.00468506}, {216.4,
0.00884956}, {217.1, 0.000520562}, {218.1, -0.00364394}, {
218.5, 0.00468506}, {219, 0.00884956}, {220.1, 0.00884956},
{222.1, \
0.00468506}, {223.8, 0.000520562}, {225.7, 0.000520562}, {227.2,
0.00468506}, \
{228.7, 0.00468506}, {229.9, 0.000520562}, {
231.2, 0.000520562}, {231.9, 0.000520562}, {233, -0.00364394},
{235.2, \
-0.0119729}, {237.2, -0.0119729}, {238.9, -0.00364394}, {240.8,
-0.00364394}, \
{242.9, -0.00780843}, {244.9, -0.00780843}, {246.1, 0.000520562},
{247.5, \
-0.00364394}, {248.5, -0.0119729}, {248.9, -0.0119729}, {249.9,
-0.0119729}, \
{251.5, -0.00780843}, {252.8, -0.00364394}, {253.9, -0.0203019},
{254.6, \
-0.0161374}, {254.5, -0.0286309}, {254.7, -0.00780843}, {
255.4, -0.0119729}, {256.9, -0.0203019}, {
257.7, -0.0119729}, {258.7, -0.0119729}, {
260.2, -0.0161374}, {261.6, -0.0161374}, {
262.4, -0.0119729}, {263.3, -0.0161374}, {264.6, -0.0119729},
{266.1, \
-0.0119729}, {267.7, -0.0161374}, {269.8, -0.0119729}, {272,
-0.0203019}, {
273.6, -0.0244664}, {275, -0.0119729}, {
276.7, -0.0203019}, {278.7, -0.0161374}, {
280.8, -0.0161374}, {282.8, -0.0119729}, {284.7, -0.0119729},
{286, \
-0.00364394}, {286.6, 0.000520562}, {
287.6, -0.00364394}, {288.7, -0.0119729}, {289.9, -0.0161374},
{291.4, \
-0.00780843}, {292.9, -0.00780843}, {293.6, 0.00468506}, {294,
0.000520562}, {295, 0.000520562}, {295.9, -0.00364394}, {296.5, \
-0.0161374}, {297.5, 0.00468506}, {299, 0.000520562}, {299.7,
0.000520562}, \
{300.4, 0.0130141}, {301.2, 0.0171786}, {302.6, 0.00884956}, {304,
0.0171786}, {305.5, 0.0171786}, {306.9,
0.0255075}, {308.3, 0.0338365}, {309.6,
0.0255075}, {310.7, 0.029672}, {311.9, 0.038001}, {313, 0.038001},
\
{313.7, 0.054659}, {314.5, 0.054659}, {315.5, 0.054659}, {316.6,
0.062988}, \
{317.9, 0.054659}, {319.9, 0.062988}, {321.9, 0.0838105}, {323.6,
0.0671525}, \
{324.1, 0.0838105}, {323.4, 0.096304}, {324.3, 0.087975}, {
326.4, 0.0921395}, {329, 0.100469}, {
330.2, 0.112962}, {331.6, 0.112962}, {333.5, 0.117126}, {335.6, \
0.133784}, {336.4, 0.137949}, {336.4, 0.133784}, {337.2, 0.146278},
{338.1, \
0.150442}, {338.9, 0.162936}, {340.1, 0.162936}, {341.7, 0.171265},
{343.7, \
0.183758}, {344.9, 0.183758}, {346.2, 0.204581}, {347.8, 0.200416},
{348.4, \
0.204581}, {349, 0.21291}, {349.4, 0.217074}, {350.6, 0.225403}, {
351.9, 0.233732}, {353.8, 0.246226}, {
355.2, 0.254555}, {357.1, 0.262884}, {
358.9, 0.279542}, {360.2, 0.279542}, {360.9, 0.300364}, {
362.6, 0.300364}, {364.1, 0.308693}, {
364.4, 0.317022}, {365.6, 0.321187}, {365.6, 0.329516}, {366,
0.33368}, {367.3, 0.342009}, {368.9,
0.346174}, {371.4, 0.354503}, {373, 0.37949}, {374.5,
0.37949}, {376.5, 0.387819}, {377.1, 0.404477}, {377.2, 0.41697},
{
379, 0.425299}, {381.6, 0.433628}, {383.4, 0.437793}, {384.8,
0.450286}, {386.1, 0.458615}, {387.7,
0.471109}, {390.2, 0.479438}, {391.4, 0.491931}, {392.2, 0.496096},
{
393.2, 0.504425}, {393.5, 0.516918}, {394.1, 0.516918}, {394.4,
0.525247}, {
394.2, 0.533576}, {394.6, 0.537741}, {395.4,
0.541905}, {396.7, 0.550234}, {398.5, 0.562728}, {400.2,
0.566892}, {
401.8, 0.579386}, {403.3, 0.590213}, {
405.3, 0.595627}, {407.4, 0.60229}, {409.6, 0.611452}, {409.8,
0.633108}, \
{409.4, 0.62811}, {411.3, 0.638522}, {413.2, 0.647683}, {414.5,
0.658511}, {
415.4, 0.657262}, {417, 0.670588}, {417.9, 0.676835}, {419.4,
0.685997}, \
{421.1, 0.693077}, {422.1, 0.701406}, {423.7, 0.704321}, {425,
0.710567}, \
{425.4, 0.717647}, {424.5, 0.722644}, {424.1, 0.73139}, {425.2,
0.735554}, {427.9, 0.745133}, {430, 0.748881}, {431,
0.753878}, {430.9, 0.760541}, {431.3, 0.77012}, {430.8, 0.773451},
{
430.6, 0.779282}, {431.5, 0.789276}, {433, 0.791775}, {435.3,
0.798022}, {437, 0.804269}, {440, 0.813847}, {443.7,
0.819261}, {447.7, 0.828006}, {449.2,
0.838001}, {449.7, 0.847996}, {447.6, 0.853826}, {446.4,
0.857158}, {
446.1, 0.862988}, {447.1, 0.86507}, {449.2, 0.869235}, {450.3,
0.870068}, {451.1, 0.874649}, {452.6, 0.880479}, {455.9, 0.88506},
{459.3, \
0.887975}, {462.6, 0.895055}, {466.4, 0.897553}, {469.2, 0.905049},
{470.8, \
0.908381}, {472.6, 0.914211}, {474.9, 0.915877}, {476.4, 0.918792},
{477, \
0.920875}, {475.7, 0.923373}, {476.9, 0.925039}, {477.3, 0.927538},
{477.7, \
0.930453}, {478.4, 0.92962}, {478.6, 0.931702}, {477.4, 0.934201}, {
474.8, 0.935034}, {475.9, 0.935867}, {477.9, 0.937116}, {477.5,
0.938365}, {
478.3, 0.941281}, {481.3, 0.941281}, {483.6, 0.941697}, {486.2,
0.944612}, {
487, 0.946278}, {486.8, 0.947527}, {487.8, 0.950026}, {487.4,
0.951275}, {
489.1, 0.952108}, {493.3, 0.953358}, {496.8,
0.955023}, {496.8, 0.955856}, {499.4,
0.957522}, {500.5, 0.957939}, {498.8,
0.958855}, {498.8, 0.959563}, {497.8,
0.960937}, {501.3, 0.962145}, {505.2,
0.962145}, {508.5, 0.963269}, {512.3, 0.96456}, {513.5, 0.96456}}

A = NonlinearFit[data, Exp[-k0 ts Exp[-Ea/(8.31 x)]], {x}, {k0, Ea,
ts}]

Plot[A, {x, 150, 500}]

ListPlot[data]

<< Graphics`Graphics`

DisplayTogether[ListPlot[data,
PlotStyle -> {Hue[
0.6], PointSize[0.003]}], Plot[A, {
x, 150, 500}, PlotStyle -> {Hue[0], Dashing[{0.01}]}]]

Pawel

```

• Prev by Date: Re: DifferenceOrder command
• Next by Date: recursion, complex dynamics
• Previous by thread: webMathematica-based on-line learning system?
• Next by thread: Re: Plot - where is y scale?