Math-Trig Sweep by Chord and Radius

From Vectorlab
Jump to: navigation, search


Given CHORD and RADIUS of an arc, returns the SWEEP. You need to load the routine M_Trig_ArcApoByChordRadius before this. By Orso B. Schmid


{ Orso ***************************** }
{ given arc radius and chord, result is the arc sweep }
FUNCTION M_Trig_ArcSweepByChordRadius(chord, radius: REAL): REAL;
	BEGIN
		{ arcTangent (chord/2)/apothem) }
		M_Trig_ArcSweepByChordRadius := 
			2 * Rad2Deg(arcTan(
				(chord/2) / M_Trig_ArcApoByChordRadius(chord, radius)
			));
	END;