| Author |
Comment/Response |
Mary A. Marion
|
 01/27/02 9:06pm
I am following your Time Series Package ( page77 ). I have input the following:
myplotcorr1[corr_,bound_,opts___]:=
Show[plotcorr[corr,PlotJoined\[Rule]True,
DisplayFunction\[Rule]Identity],
Plot[{-bound,bound},{x,0,Length[corr]-1},
PlotStyle\[Rule]Dashing[{0.02}],
DisplayFunction\[Rule]Identity],opts,
DisplayFunction\[Rule]$DisplayFunction]
myplotcorr2[data_,opts___]:=
myplotcorr1[CorrelationFunction[data,Length[data]-1],2/Sqrt[Length[data]],
opts]
myplotcorr2[corr,2/Sqrt[n],AxesLabel\[Rule]{"t","rho(t)"},PlotRange\[Rule]All]
Error Message received is:
myplotcorr2[corr,2/Sqrt[n],AxesLabel\[Rule]{"t","rho(t)"},PlotRange\[Rule]All]
\!\(\*
RowBox[{\(Show::"gcomb"\), \(\(:\)\(\ \)\), "\<\"An error was encountered \
in combining the graphics objects in \\!\\(Show[\\(\\(\\*TagBox[\\(\
\[SkeletonIndicator] Graphics \[SkeletonIndicator]\\), False, Rule[Editable, \
False]], \\*TagBox[\\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\\), \
False, Rule[Editable, False]], 2\\/\\@453, \\(\\(AxesLabel \[Rule] \
\\(\\({\\\"t\\\", \\\"rho(t)\\\"}\\)\\)\\)\\), \\(\\(PlotRange \[Rule] All\\)\
\\), \\(\\(DisplayFunction \[Rule] \\(\\((\\(\\(\\(Display[\\(\\($Display, #1\
\\)\\)]\\)\\) &\\))\\)\\)\\)\\)\\)\\)]\\).\"\>"}]\)
Out[56]=
\!\(\*
RowBox[{"Show", "[",
RowBox[{
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False], ",",
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False], ",", \(2\/\@453\),
",", \(AxesLabel \[Rule] {"t", "rho(t)"}\),
",", \(PlotRange \[Rule] All\),
",", \(DisplayFunction \[Rule] \((Display[$Display, #1] &)\)\)}],
"]"}]\)
How to FIx??
Thanks.
Mary
Attachment: soi.nb, URL: , |
|
