A function in the expr command that computes the sine of an angle. The angle is expressed in radians.
Not to be confused with the theological concept [L1 ].
The sine could be approximated by :
proc sine x {
return [expr {1.2732396*$x - 0.4052847*$x*abs($x)}]
}proc sinus x {
if {$x < 0} then {
set sine [expr {$x*(1.27323954 + .405284735 * $x)}]
} else {
set sine [expr {$x*(1.27323954 - 0.405284735 * $x)}]
}
if {$sine < 0} then {
set sine [expr {$sine*(-0.225 * ($sine + 1) + 1)}]
} else {
set sine [expr {$sine*(0.225 * ($sine - 1) + 1)}]
}
return $sine
}