小编Car*_*rey的帖子

我需要在我的论文目录中的字母A前插入附录一词如下:

附录A(附录A的标题)

但我使用的乳胶论文cls文件只生成字母A后跟附录标题:

A(附录A的标题)

论文cls文件定义了一个"backmatter"命令,附录被视为章节.

\newcommand\backmatter{\appendix
\def\chaptermark##1{\markboth{%
\ifnum  \c@secnumdepth > \m@ne  \@chapapp\ \thechapter:  \fi  ##1}{%
\ifnum  \c@secnumdepth > \m@ne  \@chapapp\ \thechapter:  \fi  ##1}}%
\def\sectionmark##1{\relax}}

是否有一个简单的修复上述代码,将在附录A的TOC中的字母A之前添加附录一词？有一个相关的问题,如何使'appendix'出现在Latex的toc中？,但在这种情况下答案似乎没有帮助.

当使用Plot绘制函数时,我想获得Plot命令绘制的数据点集.

例如,如何在以下简单示例中获取点的列表{t,f}？

f = Sin[t]
Plot[f, {t, 0, 10}]

我尝试使用一种将值附加到列表的方法,如Jerry B. Keiper的Numerical1.ps(数学计算在Mathematica)第4页所示,http://library.wolfram.com/infocenter/Conferences/4687/ 如下:

f = Sin[t]
flist={}
Plot[f, {t, 0, 10}, AppendTo[flist,{t,f[t]}]]

但无论我尝试什么,都会生成错误消息.

任何建议将不胜感激.

以下Mathematica代码生成高度振荡的图.我只想绘制情节的下部包络但不知道如何.任何建议都值得赞赏.

tk0 = \[Theta]'[t]*\[Theta]'[t] - \[Theta][t]*\[Theta]''[t]
tk1 = \[Theta]''[t]*\[Theta]''[t] - \[Theta]'[t]*\[Theta]'''[t]
a = tk0/Sqrt[tk1]
f = Sqrt[tk1/tk0]
s =
 NDSolve[{\[Theta]''[t] + \[Theta][t] - 0.167 \[Theta][t]^3 == 
    0.005 Cos[t - 0.5*0.00009*t^2], \[Theta][0] == 0, \[Theta]'[0] == 
    0}, \[Theta], {t, 0, 1000}]

Plot[Evaluate  [f /. s], {t, 0, 1000}, 
 Frame -> {True, True, False, False}, 
 FrameLabel -> {"t", "Frequency"}, 
 FrameStyle -> Directive[FontSize -> 15], Axes -> False]

我有一个1024个值的数据向量,需要计算负数条目的数量.有没有一个优雅的方法来做这个没有循环和检查元素是否<0并递增计数器？

我想绘制x和y的隐式函数: 1 - 0.125 * y ^ 2 - x ^ 2 = 0.005 我知道它可以绘制为等高线图,但在下面的"外部"命令中有问题:

x<-seq(0.4,1.01,length=1000)
y<-seq(0,3,length=1000)
z<-outer(x,y,FUN="1-0.125*y^2-x^2=0.005")
contour(x,y,z,levels=0,drawpoints=FALSE)

我阅读了关于"外部"命令的常见问题解答(7.17)以及对函数进行矢量化的需要,但仍然处于一个quardry中.

当绘制R中的振荡时,例如,使用封装desolve,

df1 <-function(t,y,mu)( list(c(y[2],mu*y[1]^3-y[1]+0.005*cos(t))))
library (deSolve)
yini<-c(y1=0,y2=0)
df2 <-ode(y=yini,func=df1, times=0:520,parms=0.1667)
plot(df2,type="l",which="y1",ylab="Displacement",xlab="Time", main="")

我得到了破烂的情节,例如:

而不是平滑的图(不是在R中完成),例如:

有没有人知道如何在显示振荡时在R中获得更平滑的情节而不是一个破旧的情节？请注意,这不仅仅是规模差异的问题,我不是在寻找平滑滤波器.

谢谢,