Ecosyste.ms: Awesome

An open API service indexing awesome lists of open source software.

Awesome Lists | Featured Topics | Projects

https://github.com/0xosiris/curvature_r_package

Curvature of Parametric Curve R Package
https://github.com/0xosiris/curvature_r_package

Last synced: about 1 month ago
JSON representation

Curvature of Parametric Curve R Package

Awesome Lists containing this project

README

        

```
_// _//
_// _// _//
_// _// _//_/ _///_// _// _// _/_/ _/_// _//_/ _/// _//
_// _// _// _// _// _// _// _// _// _// _// _// _/ _//
_// _// _// _// _// _// _// _// _// _// _// _// _///// _//
_// _//_// _// _// _/_// _// _// _// _// _// _// _/
_//// _//_//_/// _// _// _/// _// _//_//_/// _////

```

# Differential Geometry - R Utility to Calculate Curvature of a Parametric Curve

# Installation Instructions
#### `> library(devtools)`
#### `> install_github("LeytonTaylor/Curvature_R_package");`
#### `> library(CurvatureCalc);`
#### `> curvature(c(expression(1+.5*cos(t),1+.1*sin(t),sin(t))), 1)`
# Usage:
#### `@param alpha A vector of expressions defining the curve`
#### `@param t Evaluation parameter`
#### `@return Scalar value Curvature of alpha at time t`
#### `@details alpha must be a vector of parametric expressions with param 't'`
#### `@examples `
#### `kAlpha <- curvature(c(expression(1+.5*cos(t),1+.1*sin(t),-1)), 1)`
#### `dataSet= matrix(c(expression(1+.5*cos(t),1+.1*sin(t),sin(t))), nrow=1,ncol=3,byrow=TRUE)`
#### `alphaN=dataSet[1,]`
#### `kAlpha<-curvature(alphaN,1)`