Basic Examples (4)

Evaluate numerically:

#[0.5]&/@{({{, Versine }}),({{, Vercosine }}),({{, Havercosine }}),({{, Coversine }}),({{, Covercosine }}),({{, Hacoversine }}),({{, Cohaversine }}),({{, Hacovercosine }}),({{, Cohavercosine }}),({{, Exsecant }}),({{, Excosecant }}),({{, Chord }})}

Arguments given in radians:

#[Pi/3]&/@{({{, Versine }}),({{, Vercosine }}),({{, Havercosine }}),({{, Coversine }}),({{, Covercosine }}),({{, Hacoversine }}),({{, Cohaversine }}),({{, Hacovercosine }}),({{, Cohavercosine }}),({{, Exsecant }}),({{, Excosecant }}),({{, Chord }})}

#[1]&/@{({{, InverseVersine }}),({{, InverseVercosine }}),({{, InverseHavercosine }}),({{, InverseCoversine }}),({{, InverseCovercosine }}),({{, InverseHacoversine }}),({{, InverseCohaversine }}),({{, InverseHacovercosine }}),({{, InverseCohavercosine }}),({{, InverseExsecant }}),({{, InverseExcosecant }}),({{, InverseChord }})}

Multiply or divide by Degree to specify an argument in degrees:

#[60 Degree]&/@{({{, Versine }}),({{, Vercosine }}),({{, Havercosine }}),({{, Coversine }}),({{, Covercosine }}),({{, Hacoversine }}),({{, Cohaversine }}),({{, Hacovercosine }}),({{, Cohavercosine }}),({{, Exsecant }}),({{, Excosecant }}),({{, Chord }})}

(FullSimplify[#[1]/Degree])&/@{({{, InverseVersine }}),({{, InverseVercosine }}),({{, InverseHavercosine }}),({{, InverseCoversine }}),({{, InverseCovercosine }}),({{, InverseHacoversine }}),({{, InverseCohaversine }}),({{, InverseHacovercosine }}),({{, InverseCohavercosine }}),({{, InverseExsecant }}),({{, InverseExcosecant }}),({{, InverseChord }})}

Plot over a subset of the reals:

{
With[{list1={({{, Versine }}),({{, Vercosine }}),({{, Coversine }}),({{, Covercosine }})}},Plot[Evaluate[#[x]&/@list1],{x,-2Pi,2Pi},PlotRange->{Automatic,{-0.5,2}},PlotLegends->list1,ImageSize->333]],
With[{list2={({{, Exsecant }}),({{, Excosecant }}),({{, Chord }})}},Plot[Evaluate[#[x]&/@list2],{x,-2Pi,2Pi},PlotRange->{-10,10},PlotLegends->list2,ImageSize->333]]
}

{
With[{list3={InverseHaversine,({{, InverseHavercosine }}),({{, InverseHacoversine }}),({{, InverseHacovercosine }})}},Plot[Evaluate[#[x]&/@list3],{x,0,1},PlotLegends->list3,ImageSize->333]],
With[{list4={({{, InverseExsecant }}),({{, InverseExcosecant }}),({{, InverseChord }})}},Plot[Evaluate[If[#=!=({{, InverseChord }}),#[x],#[x+1]]&/@list4],{x,-6,4},PlotLegends->list4,ImageSize->333]]
}

Plot over a subset of the complexes:

ComplexPlot3D[#[z],{z,-2 π-2 I,2 π+2 I},PlotLegends->None]&/@{({{, Versine }}),({{, Exsecant }}),({{, Chord }}),({{, InverseCoversine }}),({{, InverseExcosecant }}),({{, InverseChord }})}