Given the lines of various length from a single vertex and the angles between the lines, the area of the field can be calculated.
FANAREA(list of lengths, list of angles in degrees)
The result is a list of two elements.
First element: area of the field
Second element: list: length of the connecting lines
Example:
AT&T Park (see the above figure)
Dimensions from Clem's Blog:
http://www.andrewclem.com/Baseball/ATTPark.html
Angles measured with a protractor. So, realistically, my estimate of area is rough.
L1:={339,382,404,399,421,365,309}
L2:={30,6,9,20,9,16}
FANAREA(L1,L2) returns
{109337.870804, {191.1175010192, 46.6352856001, 63.1995292625,
144.030366611, 83.1849883392, 108.96879942}}
Area of the field: approximately 109,337.871
Note: CHAR(10) gives a line break in a string.
PROGRAM:
// Declare Subs
SUB1();
SUB2();
EXPORT FANAREA(L1,L2);
BEGIN
// 20140111 EWS
// Area of a field
// lines from vertex w/angles
LOCAL I,T:=0,L3:=L2;
// Degree
HAngle:=1;
// Validate
IF SIZE(L1)≠SIZE(L2)+1 THEN
MSGBOX("Error: Wrong"+CHAR(10)
+"Size"+CHAR(10)
+"L2≠L1+1");
KILL; END;
// Calculation
FOR I FROM 1 TO SIZE(L2) DO
L3(I):=SUB1(L1(I),L1(I+1),L2(I));
T:=T+SUB2(L1(I),L1(I+1),L3(I));
END;
MSGBOX("Area: "+T);
RETURN {T, L3};
END;
// Law of Cosines
SUB1(A,B,C)
BEGIN
RETURN √(A^2+B^22*A*B*COS(C));
END;
//Heron's Formula
SUB2(A,B,C)
BEGIN
LOCAL S:=(A+B+C)/2;
RETURN √(S*(SA)*(SB)*(SC));
END;
A blog is that is all about mathematics and calculators, two of my passions in life.
Saturday, January 11, 2014
HP Prime: Area of a FanShaped Field (Baseball Field)
Subscribe to:
Post Comments (Atom)
Retro Review: HP 95LX
Retro Review: HP 95LX Essentials Company: Hewlett Packard Years: 1991  2003 Type: Palmtop PC (a very early versi...

Casio fx991EX Classwiz Review Casio FX991EX The next incarnation of the fx991 line of Casio calculators is the fx991 EX. ...

TI36X Pro Review This is a review of the TI36X Pro Calculator by Texas Instruments. History Originally, this was the TI30X Pro that w...

One of the missing features of the TI82/83/84 family is the ability to convert between bases. Here are two programs in TIBasic to help...
No comments:
Post a Comment