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
}
\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