フルネ=セレの行列

  • 予定パッケージ名
    • SphereAndSimplex
  • 関数名
    • MakeFrenetSerret
  • タイトル
MakeFrenetSerret
  • 説明
(i,i+1),(i+1,i)成分のみが非負である行列で、(i,i+1)成分=(-1)*(i+1,i)成分であるような行列がフレネ=セレ行列
  • 使用例
MakeFrenetSerret(K)
# フレネ=セレ行列を作る
MakeFrenetSerret<-function(K){
	n<-length(K)+1
	M<-matrix(0,n,n)
	for(i in 1:length(Ksin)){
		M[i,i+1]<--Ksin[i]
		M[i+1,i]<-Ksin[i]
	}
	M
}
  • Rdファイル
\name{MakeFrenetSerret}
\alias{MakeFrenetSerret}
%- Also NEED an '\alias' for EACH other topic documented here.
\title{
MakeFrenetSerret
}
\description{
(i,i+1),(i+1,i)成分のみが非負である行列で、(i,i+1)成分=(-1)*(i+1,i)成分であるような行列がフレネ=セレ行列
}
\usage{
MakeFrenetSerret(K)
}
%- maybe also 'usage' for other objects documented here.
\details{
%%  ~~ If necessary, more details than the description above ~~
}
\value{
nxn matrix, where n = length(K)+1
}
\references{
%% ~put references to the literature/web site here ~
}
\author{
%%  ~~who you are~~
}
\note{
%%  ~~further notes~~
}

%% ~Make other sections like Warning with \section{Warning }{....} ~

\seealso{

}
\examples{
K<-runif(n-1)
M<-MakeFrenetSerret(K)
E.outK<-eigen(M)
VK<-E.outK[[2]]
V2K<-solve(VK)
SK<-diag(E.outK[[1]])
}
% Add one or more standard keywords, see file 'KEYWORDS' in the
% R documentation directory.
\keyword{ ~kwd1 }
\keyword{ ~kwd2 }% __ONLY ONE__ keyword per line